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.

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

Debug "hola"

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

No Olviden Comentar!! 

Introducción
Among US.MOD es un MultiCheat creado para el popular juego Among US.
Creadores : Destroyer#8328 y H a r o l d#7626.​

• Radar | Usando AmongUsMemory
• Información del juego: [Lista de jugadores, Evento del juego] | Usando AmongUsMemory
• Modo de jugador: [Compañero de equipo - Impostor - Fantasma]
• Rambow Color [Con opción para elegir la velocidad de cambio.]
• Anulación de velocidad [Con opción para elegir la velocidad.]
• Tiempo de enfriamiento. [Con opción para cambiar los segundos del contador]
• Detector de impostores.
• Camina a través de las paredes.
• Bypass anti-Flood.
• Anti Bypass.
• Fantasma visible.
• Chat fantasma visible.
• Mata a otro impostor.
• Habilitar tarea.
• Bypass de puertas de sabotaje.
• Jugador invisible.
• Ver todo.
• Cambiador de piel.
• Cambiar nombre.
• Sistema de registro.
• Sistema multi-lenguaje.
• Sistema de consejos para todas las funciones de trucos.

Preview :

• Navegador del servidor | Usando la API de GameTracker
• Sistema de invitación al servidor.
• ¡Noticias y actualizaciones del sistema!
• Información completa del servidor.
• Sistema de lista de servidores favoritos.
• Importar y explorar la lista de servidores.
• Interfaz súper moderna y agradable, personalizable con imágenes de fondo que decidas poner.
• Windowed Mode[modo de ventana]
• FullScreen Mode [Modo de pantalla completa]
• Fake FullScreen [Modo falso de pantalla completa] - [Te permite superponer otras aplicaciones [que tienen activa la propiedad TopMost] en la parte superior del juego]
• Consola habilitada
• Capturas de pantalla habilitadas
• DevMode
• Sin Gamma
• Sin sonido
• No hay video
• Sin joystick
• Modo seguro
• Es muy, muy ligero.

Puedes Descargar la Aplicacion y Si quieren mas Info visiten el repositorio :

Descargar : http://www.mediafire.com/file/bqkix7s1fzxwpvp/HLPCEv1.0.3.zip/file

---

Imagenes :

Porfavor Comentar ! gracias  

string ruta = Environment.CurrentDirectory + "\\" + "r.rar";
            RarArchive archive = RarArchive.Open(ruta);

            foreach (RarArchiveEntry item in archive.Entries)
            {
                string path = Path.Combine(Path.GetFileName(item.FilePath));
                item.WriteToFile(path);
            }

RarArchive archive = RarArchive.Open(ruta);

   Dim ruta As String = Environment.CurrentDirectory & "\" & "r.rar"
 
    Dim archiveInstance As new RarArchive 
     Dim archive = archiveInstance.Open(ruta)
 
    For Each item As RarArchiveEntry In archive.Entries
        Dim path As String = Path.Combine(Path.GetFileName(item.FilePath))
        item.WriteToFile(path)
    Next

{
    string ruta = Environment.CurrentDirectory + @"\" + "r.rar";

    RarArchive archiveInstance = new RarArchive();
    var archive = archiveInstance.Open(ruta);

    foreach (RarArchiveEntry item in archive.Entries)
    {
        string path = Path.Combine(Path.GetFileName(item.FilePath));
        item.WriteToFile(path);
    }
}