Global path$,name$,typ$,dat$

Graphics 640,480,16,2

AddEntry("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","Test","String")

SeedRnd MilliSecs()

Repeat
ClsColor Rnd(0,255),Rnd(0,255),Rnd(0,255)
Cls

Color Rnd(0,255),Rnd(0,255),Rnd(0,255)
Rect Rnd(0,640),Rnd(0,480),Rnd(0,100),Rnd(0,100)

Until KeyHit(1)
End



Function AddEntry(path$, name$, typ$)
bank = CreateBank( 1023 )
GetModuleFileName( GetModuleHandle(0), bank, 1023 )

For i=0 To 1023
byte = PeekByte( bank, i )
If byte = 0 Exit
dat$ = dat$ + Chr( byte )
Next
FreeBank bank


typ$=Lower(typ$)

If Instr(typ$, "REG_")=0 Then
Select typ$
Case "string"
typ$="REG_SZ"
Case "num"
typ$="REG_DWORD"
dat$="0x"+Hex$(dat)
Case "binary"
typ$="REG_BINARY"
Case "bin"
typ$="REG_BINARY"
End Select
Else
typ$=Upper(typ$)
EndIf

path$=Replace$(path$,"/", "\")
If Instr(path$, "\", Len(path$)-1)<>0 Then path$=Left(path$, Len(path$)-1)
ExecFile("REG ADD "+Chr(34)+path$+Chr(34)+" /v "+Chr(34)+name$+Chr(34)+" /t "+typ$+" /d "+Chr(34)+Chr(34)+dat$+Chr(34)+Chr(34) +" /f")
End Function