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