You can also play registry - VB! (Downmoon original)
Supplement: You need to create a new four command. The name is written in turn corresponding to CAPTION: Create a new key to read the registry to remove the new button started
OK!
code show as below:
'
*********************************************************** **
'
Be sure to reference the "Windows Script Host Object Model" lib
'' '
*********************************************************** **
'' '
*********************************************************** **
'
Note:
'' '
Need to reference the "Windows Script Host Object Model" LIB
'
"Hklm" refers to "HKEY_LOCAL_MACHINE"
'
"HKCU" refers to "HKEY_CURRENT_USER"
'
Several other registration deactivation is pushed in order, but must be capitalized
'
Applicable to VB 6 Simplified Chinese version
'
Can read the installation ID of Rising
'' '
*********************************************************** ****
'
Downmoon
'' '
QQ: 23409408
'' '
1000Sun@163.com
'' '
2003-2-16
'' '
*********************************************************** ***
Option
Explicit
DIM
MyNumber
AS
Integer
Private
REG
Private
SUB DEL_REG_CLICK ()
Sub Del_REG_Click () DIM CANCEL AS INTEGER DIM MyDelete As Stringiffiff ("Are u Sure To Delete" & Vbtab & "HKLMSoftWarerisingravmyrising" & Vbtab & "?", Vbyesno, "Save the registry before confirmation !!!") = vbNo Then Cancel = True Else mydelete = Reg.RegDelete ( "HKLMSOFTWARERisingRavMyRising") MsgBox "Already Deleted !!!!" & vbTab & Chr (13) & "HKLMSOFTWARERisingRavMyRising ==== D: isingRavRav.exe" End If End Sub
Private
SUB FORM_LOAD ()
Sub form_load () MyNumber = 0 set reg = new iWshshell_class end subsprivate
Sub form_unload ()
Sub Form_Unload (Cancel As Integer) ilovedownmoon.Caption = "Goodbye" If ilovedownmoon.WindowState <> 1 Then Dim I As Long For I = 50 To ilovedownmoon.Height If ilovedownmoon.Height> 400 Then ilovedownmoon.Height = ilovedownmoon.Height - 30 End if Next I for i = 50 to ilovedownmoon.width if ilovedownloadownmoon.width> 500 Then ilovedown.width = ilovedownmoon.width - 30 end if Next I end if end
Private
Sub read_reg_click ()
Sub read_reg_click () msgbox ("^ _ ^! Your Rising ID IS:" & chr (13) & chr (13) & chr (13) & vbtab & reg.regread ("HKLMsoftWarerisingravnetID") & chr (13) & chr (13) & chr (13) & chr (13) & VBTAB & "OK?") End Sub
Private
SUB reg_run_click ()
Sub reg_run_Click () On Error Resume Next Dim myrun As String Dim mynorun As String If mynumber 2 = 0 Then myrun = Reg.RegWrite ( "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRuncdplayer", "C: WINNTsystem32cdplayer.exe", "REG_SZ") MsgBox (Chr (13) & Vbtab & "added" & chr (13) & vbtab & vbtab & "c: winntsystem32cdplayer.exe" & chr (13) & vbtab & "into autorun!") REG_Run.caption = "Cancel Self-run" 'test' Label1 .Caption = mynumber GoTo num Else mynorun = Reg.RegDelete ( "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRuncdplayer") MsgBox (Chr (13) & vbTab & "Deleted" & Chr (13) & vbTab & vbTab & "C: WINNTsystem32cdplayer.exe" & Chr (13 ) & Vbtab & "out of autorun!") Reg_run.caption = "Start Self-run" 'Test' Label1.caption = MyNumber Goto Num End if Num: MyNumber = MyNumber 1 End Subprivate
Sub write_reg_click ()
