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

[**Aincrad**]

Hola a todos, Tiempo que no publico en esta sección.

Desde que me pase a .Net abandone toda programacion de Scripts, vbs y batch.

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

La idea la he sacado de este Post : [APORTE] [VBS] Añade una ventana Debug para tus scripts!

Pasos Para Instalar :

1) Descargar y extraer : VBSDebugger.rar
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) [Seleccionar] Expandir

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) [Seleccionar] Expandir

Debug "hola"




Aqui un ejemplo :

Código (vb) [Seleccionar] Expandir

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!!