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