Foro de elhacker.net

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)

---

---

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 :