Registre s VB6

chcem sa opytat, ci sa da cez objektove programovanie vo VB6 naprogramovat aby som mohol menit udaje v registroch ?

priklad kliknem na tlacidlo a tym sa zmeni nejaka hodnota v registroch .. da sa to ?

Najjednoduchsie asi pomocou API funkcií.

Ahoj mám problém z jedením programom.

Po skompilovaním a následnom spustení my vyhadzuje tento Msgbox "",vbCritical,"".




Ďakujem za akúkoľvek odpoveď.

Programy nie su na jedenie

Tato chyba vznikne, ak pracujes s prilis velkymi datami, napr alokacia velmi velkeho pola a podobne. Prever svoj program, ci nepouzivas prilis vela prostriedkov, pripadne sem uverejni svoj zdrojak. Niekto, kto pracuje s VB ti uz potom poradi.

Žiadna sláva.



// Dúfam že ma nezablokujete???

Nepracujem s VB, takze ti neviem pomoct priamo s kodom (nevidim tam nic, co by zralo prostriedky), takze skor, ako ti niekto poradi, ti len dam nejaku tu napovedu: kedze pises, ze skompilovat to ide, tak pouzi debugger a krokuj program, takto asi najskor zistis, kde je problem. Musis byt trpezlivy, ak chces obsirnejsiu pomoc, nie je tu velmi vela uzivatelov so znalostou VB.

// zablokovat ta nie je za co, nestrachuj sa

Ahojte Chlapi a holky robím jeden project cez Visual Basic 6. Ide mi o to že chcem prečítať jeden údaj z registrov. Cez Windows 7.



Private Sub Command1_Click()
Dim nBufferKey As Long
Dim nBufferName As String
nBufferName = Space(256)
RegOpenKey LOCALMACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", nBufferKey
RegQueryValueEx nBufferKey, "ProductId", 0, REG_SZ, nBufferName, Len(nBufferName)
Form1.Caption = nBufferName

End Sub
' Zdroj je >http://www.vbforums.com/showthread.php?t=648363<

Skúšal som cez google.com/ rôzne kódy a možnosti a menované číslo sa mi nezobrazuje.
Poprípade mi vyhlasuje že kľuč nemôže otvoriť na čítanie.



Ale pritom keď použijem túto spodnú kombináciu kódu len „Ako Správca“.
Tak mi menovaný program naštartuje a aj bez zavaď vypne.

Private Sub XPButton1_Click()
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
' Suppose Write App to Startup with Computer
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub

Private Sub XPButton2_Click()
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
End Sub

Celý Windows 7 je nejaký divný. Tak napríklad ďalší obrázok???




Ďakujem za akú koľvek radu.

Prosím vás nepresúvajte to do sekcie Windows 7 Operačné systémy chcel by som to tu riešiť.