🚀 go-pugleaf

questa � follia pura, utilizza il WSH � pi� diretto e affidabile :)

"Grifisx" <Hell2@you.it> ha scritto nel messaggio
news:JuJ5a.215785$0v.6033825@news1.tin.it...
> Ti do un codice semplice da usare : ) cmq cerca in giro il registro.bas e
> capisci come usarlo � un modulo indispensabile per agire sul registro.
>
> '                                              -----------Metti in un
> Modulo--------
> '*
> '          Esempio di creazione chiave per l'autopartenza di un exe
tramite
> registro /run
> '
> Attribute VB_Name = "mdlAutoRun"
> 'PUT THIS IN A .BAS MODULE, OR CHANGE DECLARATIONS TO PRIVATE
>
> Public Declare Function RegOpenKeyEx Lib "advapi32.dll" _
> Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As _
> String, ByVal ulOptions As Long, ByVal samDesired As Long, _
> phkResult As Long) As Long
>
> Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
>   hKey As Long) As Long
>
> Public Declare Function RegSetValueEx Lib "advapi32.dll" _
>  Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _
>  As String, ByVal Reserved As Long, ByVal dwType As Long, _
>  lpData As Any, ByVal cbData As Long) As Long
>
> Public Const HKEY_CURRENT_USER = &H80000001
> Public Const KEY_WRITE = &H20006
> Public Const REG_SZ = 1
> '
> '                ----------------------------Fine
> Modulo-----------------------------
>
> Da mettere nel codice :
>
> '                                              ----------Inserire nel
> codice--------
> '*
> '          Esempio di creazione chiave per l'autopartenza di un exe
tramite
> registro /run
> '
> Dim hregkey As Long
> Dim subkey As String
> Dim stringbuffer As String
>
> subkey = "Software\Microsoft\Windows\CurrentVersion\Run"
>
> retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, _
>   KEY_WRITE, hregkey)
> If retval <> 0 Then
>     Debug.Print "Can't open the subkey"
>     Exit Sub
> End If
> r$ = "c:\programmi\gryfappunti"
> stringbuffer = r$ & "\" & App.EXEName & ".exe" & vbNullChar
> retval = RegSetValueEx(hregkey, "My App", 0, REG_SZ, _
>   ByVal stringbuffer, Len(stringbuffer))
>
> RegCloseKey hregkeySub
> '
> '                               ---------Fine Codice------------
>
> Il codice crea la kiave  in
"Software\Microsoft\Windows\CurrentVersion\Run"
> per autoavviare  il proramma "c:\programmi\gryfappunti" che  ho fatto per
> farmi apaprire un post it ad ogni avvio di winz ^_^ tu puoi modificare le
> HKEY  path a secondo di come servano a te per cgggiungere la chiave che
> vuoi.
>
>