PrivateSubCommand1_Click()
Dimzcb
DimwssAsVariant'定義調(diào)用腳本所需的變量wss
Setwss=CreateObject("WScript.Shell")'調(diào)用WS
zcb=wss.Regwrite("HKEY_CURRENT_USER\Software\www.yeewaa.com","1234","REG_SZ")'把注冊表H.._C..._C...\S...\下面的www.yeewaa.com這個項修改成1234并設(shè)置為字符型數(shù)據(jù)
EndSub
PrivateSubCommand2_Click()
Dimzcb
D