Oppure

Loading
13/05/06 23:59
raideNx
Ciao a tutti.
Vorrei creare un programma senza installazzione che si carica a ogni avvio di windows.
Girando quà e là sono arrivato a questo punto :

Dim r As New clsEasyRegistry
r.Cd "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
r.ValueOf(strValueName, erSTRING) = App.Path & "\" & App.EXEName & ".exe"
Set r = Nothing

Dovè che sbaglio?
Grazie in anticipo
aaa
14/05/06 7:49
Impakto
Se è in VB6 guarda nella sezione sorgenti di visual basic e cerca "Avvio". Troverai un mio esempio che spiega come fare. Se è in VB.NET prova a convertire il codice (sempre di quell'esempio) e vedere se va. Fammi sapere!
aaa
14/05/06 8:09
Citynova
Puoi trovare la chiave anche nel mio Trojan Inject.
aaa
14/05/06 8:12
Impakto
la chiave è giusta, non so se è il metodo esatto per scrivere sul registro quello.
aaa
14/05/06 10:24
pierotofy
Postato originariamente da raideNx:

Dim r As New clsEasyRegistry


clsEasyRegistry è una classe non-standard del VB, dovresti controllare che sia inserita tra i files del progetto...
Il mio blog: piero.dev
14/05/06 12:30
raideNx
Avevo già visto i programmi avvia e trojan ma non mi funzionano, almeno a me.
cmq avevo aggiunto una classe nel programmaper questo c'è clsEasyRegistry
aaa
14/05/06 13:05
Impakto
prova così: 
Set AddSta = CreateObject("WScript.Shell")
AddSta.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Support", App.Path & "\" & App.EXEName & ".exe", "REG_SZ"
aaa
14/05/06 13:40
raideNx
Grandee c sono riuscito.
Ho rivisto il sorgente di Trojan Inject, ho modificato un pò di cose e ora funziona alla grande.
Grazie mille a tutti :k:
aaa