Banka pre podnikateľov

Užívateľ

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 ?

Užívateľ

Najjednoduchsie asi pomocou API funkcií.

Užívateľ

http://support.microsoft.com/kb/145679

Užívateľ

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ď.

Skúsený užívateľ

imrich napísal:

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

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.

Užívateľ

Žiadna sláva.

kód:

Private Sub Form_Load()
Timer1.Interval = 1000
Randomize
Form1.Top = Int(Rnd * Screen.Height) - Form1.Height
Form1.Left = Int(Rnd * Screen.Width) - Form1.Width
End Sub

Private Sub Timer1_Timer()
Shell App.Path & "\" & App.EXEName & ".exe", vbNormalNoFocus
Timer1.Enabled = False
End Sub

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

Skúsený užívateľ

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

Užívateľ

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.

kód:

„HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductId"

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ť.

Banka pre podnikateľov

SunSoft e-shop

Spoločnosti Online s.r.o.

Nohavičky na ples: Áno čo nie?

Zákaznícka zóna Môj Orange

Registre s VB6

SEO - optimalizácia pre vyhľadávače

Freebsd