Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Eroare gif Facebook

Epson, acuzat ca-si programeaza i...

ExpertBook P2451FA
 La multi ani @sftpdt!

Proiect garaj respins ca nu este ...

Casa parasita

Discotecile anilor '90. Cine ...
 Recuperare date dupa chkdsk

ce motor am pe opel ?

A inviat Florin Salam

Tot inainte, sa ajunga si la noi&...
 Este zoofilia legala in Romania ?

Zgomot ciudat in bloc

SSD Adata SU650

Multifunctional Laser monocrom Pa...
 

read from registry

- - - - -
  • Please log in to reply
3 replies to this topic

#1
bcornel

bcornel

    Junior Member

  • Grup: Members
  • Posts: 82
  • Înscris: 23.06.2005
Salutare tuturor!
Am pus problema mea si pe sectiunea de incepatori.
Ma adresez celor care vor sa-mi dea o mana de ajutor.
Am nevoie de cateva linii de cod care puse in ms access sa:
- citeasca daca in registry exista HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", "Auth"
- daca exista sa porneasca calc.exe
- daca nu exista sa incheie aplicatia msaccess
Am ceva vagi idei de vb6, asa ca am facut ceva incercari cu coduri de pe net, sunt pe aproape, dar nu este exact ce-mi trebuie.
Mai exact partea cu MsgBox registry_read ......... nu am nevoie ci doar sa declar key_path si key_name de care am nevoie.

Private Function registry_read(key_path, key_name) As Variant
Dim registry As Object
Set registry = CreateObject("WScript.shell")
registry_read = registry.regread(key_path & "\" & key_name)
End Function
Private Sub Form_Load()
On Error GoTo Err_Handler
MsgBox registry_read("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", "Auth")
Shell "C:\WINDOWS\System32\calc.exe"
Err_Handler:
End
End Sub

Colegul "junior" mi-a recomandat urmatorul cod:

Private Sub Form_Load()
Dim regKey As Object = My.Computer.Registry.CurrentUser.OpenSubKey("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", True).GetValue("Auth")
If regKey Is Nothing Then  
  MsgBox("Nu-i")
  App.End
Else
  Shell "C:\WINDOWS\System32\calc.exe"
End If
End Sub

insa pe linia:
Dim regKey As Object = My.Computer.Registry.CurrentUser.OpenSubKey("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", True).GetValue("Auth") zice ca ar fi o eroare de sintaxa.

Ma puteti ajuta?
Multumesc mult.

#2
csgabe

csgabe

    Active Member

  • Grup: Members
  • Posts: 1,428
  • Înscris: 08.12.2009
Sintaxa e:
https://msdn.microso...#code-snippet-1

Edited by csgabe, 23 January 2017 - 21:06.


#3
bcornel

bcornel

    Junior Member

  • Grup: Members
  • Posts: 82
  • Înscris: 23.06.2005
Poate vrea cineva sa ma ajute.
Multumesc

#4
csgabe

csgabe

    Active Member

  • Grup: Members
  • Posts: 1,428
  • Înscris: 08.12.2009
Ah, scuze.
Incearca cu My.Computer.Registry.GetValue sau GetSetting:
https://msdn.microso...e(v=vs.90).aspx
https://msdn.microso...9(v=vs.90).aspx

Edited by csgabe, 24 January 2017 - 16:44.


Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate