[UPDATE] [APORTE] [VBS] Añade una ventana Debug para tus scripts! NEW

Aincrad · Enero 23, 2021, 12:04:29 PM

Hola a todos.

Bueno he creado mi propia COM en .NET, es una venta Debug para tus VBS Scrips

La idea la he sacado de este Post : You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Pasos Para Instalar :

1) Descargar y extraer : You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
2) Ejecutar "RegisterComObject.exe" y registrar la DLL "VBSDebugger.DLL"

3) Llamar COM desde tu vbs y Disfrutar.

Para Usarlo debemos agregar esta funcion al inicio de nuestro Script vbs :

Código: vb

Dim oMIE 
Function Debug(T)
    If Not IsObject( oMIE ) Then 
       Set oMIE = CreateObject("VBSDebugger.Debug")
           oMIE.SetDialogTitle("VBS Debugger By Aincrad") 
           oMIE.ToolBar(False) 
           oMIE.SetDialogWidth(603)
           oMIE.SetDialogHeight(335) 
           oMIE.OpenDebugDialog()
     End If 
           oMIE.Write(T)
End Function

Y para llamamos la funcion asi :

Código: vb

Debug "hola"

Aqui un ejemplo :

Código: vb

Dim oMIE 
Function Debug(T)
    If Not IsObject( oMIE ) Then 
       Set oMIE = CreateObject("VBSDebugger.Debug")
           oMIE.SetDialogTitle("Cutt.Ly Logger") 
           oMIE.ToolBar(False) 
           oMIE.SetDialogWidth(603)
           oMIE.SetDialogHeight(335) 
           oMIE.OpenDebugDialog()
     End If 
           oMIE.Write(T)
End Function

Debug "Starting Cutt.Ly Logger By Aincrad"
  Dim IE
  Dim MyDocument
    Set IE = CreateObject("InternetExplorer.Application")
          IE.Visible = 0
          IE.navigate "https://cutt.ly/RjmR9Bj"
    While IE.ReadyState <> 4 : WScript.Sleep 100 : Wend
    Debug "Ready Page Loaded"
    WScript.Sleep(5000)
    IE.Quit

Se Veria ASI :

No Olviden Comentar!!

[UPDATE] [APORTE] [VBS] Añade una ventana Debug para tus scripts! NEW

Aincrad

Enero 23, 2021, 12:04:29 PM