No tällä luetaan vbscriptillä rekisteriavain vb:ssä. Paljon lyhyempi kuin nuo muut :P
Formeli
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 FunctionEikö tämä nyt aiheuta joka kerta virheilmoituksen? Aika epäilyttävältä näyttää...
Aihe on jo aika vanha, joten et voi enää vastata siihen.