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! (https://foro.elhacker.net/scripting/aporte_vbs_anade_una_ventana_debug_para_tus_scripts-t412772.0.html)
Pasos Para Instalar :
1) Descargar y extraer : VBSDebugger.rar (https://www.mediafire.com/file/4dgxcm5x38bxj4m/VBSDebugger.rar/file)
2) Ejecutar "RegisterComObject.exe" y registrar la DLL "VBSDebugger.DLL"
(https://i.ibb.co/LJZNVNz/Register.png)
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 FunctionY 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.QuitSe Veria ASI :(https://i.ibb.co/C1sqr6R/Preview.png)
No Olviden Comentar!! ::)