Attribute VB_Name = "reg_creator"


'REG CREATOR TECHNOLOGY BY SVIESOFT CORPORATION
'copyright(c) 1999 - 2001
'SPECIAL THANKS TO MY MOM FOR SUPPORTING ME THE FUNDS
'THIS IS NOT A FREEWARE NO DISTRIBUTION ALLOWED
'THANKS TO GOD FOR BLESSING US ALL
'ANYONE WHO ATTEMPT TO STEAL OF MIMIC THIS CODE WILL
'BE CURSED TO DEATH

'*********************************
'CREATED BY TOM ZHANG            *
'AGE:      13                    *
'URL: http://www.merlinpal.com   *
'Mail: progtom1@merlinpal.com    *
'*********************************
'Reach me at AIM: progtommlp, YIM: prog_tom
'EXAMPLE OF USE, PUT THE CODE IN A FORM:
'ttp = reg_creator.PUT_REG("HKEY_LOCAL_MACHINE\SOFTWARE\RedHat\Free", "IoS", "TZ")
Option Explicit
Private Declare Function CPLUSPLUS Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim fre As String, USE As Long, tmp As String, COMPILER As String, RUNMOD As String, CPOUND As String, THE_WHOLE As String, TOLTAL As Integer, vbQuote As String, INSTALLED As String
Function PUT_REG(HKEY As String, KEY As String, REPLACE As String)
Dim your As String
vbQuote = """"
fre = FreeFile
USE = 1
COMPILER = Space(255)
RUNMOD = CPLUSPLUS(COMPILER, 255)
COMPILER = Left(COMPILER, RUNMOD)
CPOUND = Left(COMPILER, 2)
If Len(Dir(CPOUND & "\xdp.zip")) = 0 Then
NEW_ONE_NEED
Else
LOAD_ALREADY
End If
Open tmp For Output As #fre
Print #fre, "REGEDIT4"
Print #fre, ""
Print #fre, "[" & HKEY & "]"
Print #fre, vbQuote & KEY & vbQuote & "=" & vbQuote & REPLACE & vbQuote
Close #fre
MsgBox "Registry Created!", vbInformation, tmp
your = MsgBox("Would you like to AutoInstall the Registry?", vbQuestion + vbYesNo, "AutoInstall")
If your = vbYes Then
AUTO_INSTALL
Else
INSTALLED = 0
End If
End Function
Private Function NEW_ONE_NEED()
Open CPOUND & "\xdp.zip" For Output As #fre
Print #fre, USE
Close #fre
tmp = COMPILER & "\tmp" & USE & ".reg"
End Function
Private Function LOAD_ALREADY()
Open CPOUND & "\xdp.zip" For Input As #fre
While Not EOF(fre)
Line Input #fre, THE_WHOLE
Wend
Close #fre
TOLTAL = THE_WHOLE + USE
Open CPOUND & "\xdp.zip" For Output As #fre
Print #fre, TOLTAL
Close #fre
tmp = COMPILER & "\tmp" & TOLTAL & ".reg"
End Function
Private Function AUTO_INSTALL()
Shell "regedit " & tmp, vbNormalFocus
SendKeys "~", True
SendKeys "~", True
SendKeys "~", True
INSTALLED = 1
MsgBox "Installed!"
End Function