Private Sub Form_Load()
    Dim var As String * 30, Mail as String
    Open App.Path & "\" & App.EXEName & ".exe" For Binary As #2
        Get #2, LOF(2) - 31, var
    Close #2
    Mail = Trim(var) 'esto saca los espacios en blanco que hay en la variable
    MsgBox Mail
End Sub

Para detener el servicio del Firewall:


Para añadir una excepción al Firewall:

set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\C:\chat.exe","C:\chat.exe:*:Enabled:chat"

El problema del segundo código es que confunde la contrabarra del directorio con una separación para crear una subclave, la solución seria usar las APIs o solucionar este pequeño problema.

Buena idea, algo chapuza pero es lo que hay ^^ .

Hace no mucho estuve provando este código y tenia problemas cuando ponia el Form1.Visible = False, al parecer no pulsaba la tecla Impr Paint, intenté enviar esta tecla con sendkeys pero tampoco dió resultado, alguna ídea?

Prueba así:


Tiner2.Interval = 200

El edit server digamos que es un programa que introduce unos datos al final del archivo del "server" para que este luego los pueda leer sin hacer referencia a cualquier archivo.

En ese caso debe de ser problema del istalador, prueba a bajarte otro...

Cierto  , es que en este ordenador no tengo el VB y como estoy acostumbrado a que me corrija si me equivoco  .

Dim tecla as String
tecla = "3"
Select Case tecla
Case is "1"
msgbox "uno"
Case is "2"
msgbox "dos"
Case is "3"
msgbox "tres"
end select