Keskustelu: Koodit: VB6: Rekisteriavaimen luku VBScriptillä

Private Sub Form_Load()
MsgBox RegReadKey("HKCU\Software\Valve\CounterStrike\settings\key"), vbInformation, "Rekkari" 'luetaan se rekkariavain nyt se on cs cd-key :P
End sub

Public Function RegReadKey(osoite As String) As String
    Dim b As Object, r as String 'muuttujat
    r = ""
    On Error GoTo errori 'jospa tuleekin erroria
    Set b = CreateObject("wscript.shell") 'vbscript
    r = b.RegRead(osoite) 'luetaan avain
errori:
    RegReadKey = r
    MsgBox "Voivoi, joku error tuli", vbCritical, ":("
End Function