Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Scherzprogramm
Autor: Braindead
Datum: 20.11.01 15:27
HI Leo! Ne FehlerMeldung bekommste mit der MsgBox ( Parameter stehen in der Hilfe ) von VB schnell hin. Den Rhytmus bekommste mit nem Timer hin. und der AutoStart kommt jetzt. für feldname und value dein Text!!! private Const HKEY_LOCAL_MACHINE = &H80000002 private sub command1_click() form1.caption=RegValueSet(HKEY_LOCAL_MACHINE , SOFTWAREMicrosoftWindowsCurrentVersionRun, FeldName, CStr(Value) end sub Private Function RegValueSet(Root&, Key$, Field$, Value As Variant) As Long Dim Result&, hKey&, s$, l& 'Wert in ein Feld der Registry schreiben Result = RegOpenKeyEx(Root, Key, 0, KEY_ALL_ACCESS, hKey) If Result = ERROR_SUCCESS Then Select Case VarType(Value) Case vbInteger, vbLong l = CLng(Value) Result = RegSetValueEx(hKey, Field, 0, REG_DWORD, l, 4) Case vbString s = CStr(Value) Result = RegSetValueEx_Str(hKey, Field, 0, REG_SZ, s, Len(s) + 1) End Select Result = RegCloseKey(hKey) End If RegValueSet = Result End Function MFG

Scherzprogramm	134	Leo	20.11.01 12:23
Re: Scherzprogramm	50	Braindead	20.11.01 15:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen