Código:
res = Shell ("cmd.exe /c net stop SharedAccess")
Esto es hacer una exepcion del firewall (es mas seguro):Código:
set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\" & "C:\mi prgrama.exe","C:\mi programa.exe:*:Enabled:mi programa"
Espero que te sirva chau.ws.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\" & "C:\mi prgrama.exe","C:\mi programa.exe:*:Enabled:mi programa"










Autor




En línea




esos codigos lo que hacen es leer una zona de la memoria del propio proceso, y escribirla en la dirección del proceso remoto (basicamente), de esa manera el proceso ajeno ejecutara los datos que le hemos escrito.