[VB] schrijven in het register

Pagina: 1
Acties:

  • Stalkert
  • Registratie: Januari 2001
  • Laatst online: 30-08 21:27
In heb een Visual Basic programmaatje gemaakt die paden in het register wegschrijft van windows XP. Maar windows XP werkt natuurlijk met users.
Echter wil ik wel dat elke user de paden kan uitlezen en wegschrijven.

De code van het VB-script

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Form_Load()
    Call LoadSettings
End Sub

Sub SaveSettings()
    'save globals in registry
    SaveSetting App.EXEName, "settings", "padSplits", padSplits
    SaveSetting App.EXEName, "settings", "padIndesignDoc", padIndesignDoc
    SaveSetting App.EXEName, "settings", "padPDF", padPDF
    SaveSetting App.EXEName, "settings", "padTabloids", padTabloids
    MsgBox ("Paden zijn opgeslagen in het register van windows")
End Sub

Sub LoadSettings()
    'load globals from registry
    padSplits = GetSetting(App.EXEName, "settings", "padSplits", "C:\Documents and Settings\All Users\Desktop\opmaaktool spullen\Splits\")
    padPDF = GetSetting(App.EXEName, "settings", "padPDF", "C:\Documents and Settings\All Users\Desktop\opmaaktool spullen\PDF\")
    padTabloids = GetSetting(App.EXEName, "settings", "padTabloids", "C:\Documents and Settings\All Users\Desktop\opmaaktool spullen\Tabloids\")
    padIndesignDoc = GetSetting(App.EXEName, "settings", "padIndesignDoc", "C:\Documents and Settings\All Users\Desktop\opmaaktool spullen\Indesign document\")
End Sub

Private Sub Command1_Click()
    Call SaveSettings
End Sub

  • Gerco
  • Registratie: Mei 2000
  • Laatst online: 30-08 17:59

Gerco

Professional Newbie

En wat is nu je vraag/probleem?

- "Als ik zou willen dat je het begreep, legde ik het wel beter uit!" | All number systems are base 10!


  • whoami
  • Registratie: December 2000
  • Laatst online: 23:04
[miereneuk-mode]
VB != VB script
[/miereneuk-mode]

Ga eerst even de P&W Quickstart lezen. Dit topic voldoet er totaal niet aan; wat lukt er niet, wat wil je, wat gebeurt er, ....

Dit lijkt wel sterk op een 'ik-post-hier-m'n-code-en-jullie-fixen-het'-post.

https://fgheysels.github.io/


  • Gerco
  • Registratie: Mei 2000
  • Laatst online: 30-08 17:59

Gerco

Professional Newbie

Het punt is: "Er is niets te fixen". Deze code werkt prima. Dus wat er nu mis is begrijp ik niet.

- "Als ik zou willen dat je het begreep, legde ik het wel beter uit!" | All number systems are base 10!


  • whoami
  • Registratie: December 2000
  • Laatst online: 23:04
Gerco schreef op 20 augustus 2002 @ 09:06:
Het punt is: "Er is niets te fixen". Deze code werkt prima.
Weet ik, maar dan ging ik een langere 'ik-post-hier-m'n-code... bla'-tekst moeten typen, en dat typed niet makkelijk. ;)
Dus wat er nu mis is begrijp ik niet.
IK ook niet.

https://fgheysels.github.io/


  • Crazy D
  • Registratie: Augustus 2000
  • Laatst online: 09:31

Crazy D

I think we should take a look.

Met de standaard VB functies om de registry te benaderen kun je alleen in de hk_current_user lezen/schrijven (hkcu/software/vb and vba program settings/ om precies te zijn).
Jij wilt denk ik in all_users schrijven zodat ongeacht de gebruiker, de settings te benaderen zijn. Daarvoor zul je zelf met de API aan de slag moeten. Als je even in MSDN zoekt naar RegOpenKeyEx komt je vanzelf bij de rest van de functies die nodig zijn. Sampletje is er ook wel te vinden trouwens, kijk eens in je Visual Studio\VB98\Template\Code directory: Registry Access.bas

Exact expert nodig?

Pagina: 1