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.
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
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
Debug "hola"
Aqui un ejemplo :
Código
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!!