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.rar2) 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 :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 : Debug "hola"
Aqui un ejemplo : 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!! 