#1
OP 23 January, 2021 - 05:30 PM (This post was last modified: 23 January, 2021 - 05:32 PM by DestroyerDarkNess.)
Hello everyone.

Well I have created my own COM in .NET, it is a Debug sale for your VBS Scrips

 

Pasos Para Instalar :



1) Download and extract:
Hidden Content
You must register or login to view this content.


2) Run "RegisterComObject.exe" and register the DLL [b]"VBSDebugger.DLL"

[Image: Register.png]

3) Call COM from your vbs and Enjoy. [/b]

 

To use it we must add this function at the beginning of our vbs Script:
 
Code:
[b] 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 [/b]

And to call the function like this:
 
Code:
[b]Debug "HI"[/b]

Here is an example:
 
Code:
[b] 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 [/b]

[b][b][b][b][b][b][b]It would look like this:

[Image: Preview.png]

Do not forget to comment ! [/b][/b][/b][/b][/b][/b][/b] Pepelove