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

Iniciado por Aincrad, Enero 23, 2021, 12:04:29 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

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 : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta




Pasos Para Instalar :

1) Descargar y extraer : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
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!!  ::)