elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [UPDATE] [APORTE] [VBS] Añade una ventana Debug para tus scripts! NEW
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [UPDATE] [APORTE] [VBS] Añade una ventana Debug para tus scripts! NEW  (Leído 3,991 veces)
**Aincrad**


Desconectado Desconectado

Mensajes: 682



Ver Perfil WWW
[UPDATE] [APORTE] [VBS] Añade una ventana Debug para tus scripts! NEW
« en: 22 Enero 2021, 02:48 am »

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
  1. Dim oMIE
  2. Function Debug(T)
  3.    If Not IsObject( oMIE ) Then
  4.       Set oMIE = CreateObject("VBSDebugger.Debug")
  5.           oMIE.SetDialogTitle("VBS Debugger By Aincrad")
  6.           oMIE.ToolBar(False)
  7.           oMIE.SetDialogWidth(603)
  8.           oMIE.SetDialogHeight(335)
  9.           oMIE.OpenDebugDialog()
  10.     End If
  11.           oMIE.Write(T)
  12. End Function

Y para llamamos la funcion asi :

Código
  1. Debug "hola"




Aqui un ejemplo :

Código
  1. Dim oMIE
  2. Function Debug(T)
  3.    If Not IsObject( oMIE ) Then
  4.       Set oMIE = CreateObject("VBSDebugger.Debug")
  5.           oMIE.SetDialogTitle("Cutt.Ly Logger")
  6.           oMIE.ToolBar(False)
  7.           oMIE.SetDialogWidth(603)
  8.           oMIE.SetDialogHeight(335)
  9.           oMIE.OpenDebugDialog()
  10.     End If
  11.           oMIE.Write(T)
  12. End Function
  13.  
  14. Debug "Starting Cutt.Ly Logger By Aincrad"
  15.  Dim IE
  16.  Dim MyDocument
  17.    Set IE = CreateObject("InternetExplorer.Application")
  18.          IE.Visible = 0
  19.          IE.navigate "https://cutt.ly/RjmR9Bj"
  20.    While IE.ReadyState <> 4 : WScript.Sleep 100 : Wend
  21.    Debug "Ready Page Loaded"
  22.    WScript.Sleep(5000)
  23.    IE.Quit

Se Veria ASI :



No Olviden Comentar!!  ::)




En línea



Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines