Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Eccezione Firewall di Windows
Forum - Visual Basic 6 - Eccezione Firewall di Windows - Pagina 2

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
gmxsm (Normal User)
Newbie


Messaggi: 20
Iscritto: 06/12/2007

Segnala al moderatore
Postato alle 13:20
Lunedì, 17/12/2007
gantonio,
grazie funziona perfettamente.;)

Grazie a tutti
:k:

PM Quote
Avatar
debora321 (Normal User)
Newbie


Messaggi: 3
Iscritto: 25/06/2009

Segnala al moderatore
Postato alle 17:03
Giovedì, 25/06/2009
Ciao,
ho copiato il tuo codice all'interno del mio programma (sono newbie, ma molto newbie!) e quando lo vado a compilare, mi da questo errore:
"invalid outside procedure" ed il cursore si posiziona sulla riga:

nome = App.Path & "\" & App.EXEName & ".exe"

come faccio a risolvere il problema?
grazie e ciao

P.S. qst è il programma:
Const HKEY_LOCAL_MACHINE As Long = &H80000002

Dim lRC As Long
Dim sPath As String
Dim objRegistry As Object
Dim nome As String
Dim dati As String

nome = App.Path & "\" & App.EXEName & ".exe"
dati = nome & ":*:enabled:" & App.EXEName

Set objRegistry = GetObject("winmgmts://./root/default:StdRegProv")

sPath = "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List"

lRC = objRegistry.SetStringValue(HKEY_LOCAL_MACHINE, sPath, nome, dati)

PM Quote
Avatar
manneron (Normal User)
Newbie


Messaggi: 1
Iscritto: 07/07/2009

Segnala al moderatore
Postato alle 21:35
Martedì, 07/07/2009
grazie debora321. ottima anche la generalizzazione del codice.

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo