PrivateSubCommand1_Click()
Dimzcb
DimwssAsVariant'定义调用脚本所需的变量wss
Setwss=CreateObject("WScript.Shell")'调用WS
zcb=wss.Regwrite("HKEY_CURRENT_USER\Software\cosowo.cn","1234","REG_SZ")'把注册表H.._C..._C...\S...\下面的cosowo.cn这个项修改成1234并设置为字符型数据
EndSub
PrivateSubCommand2_Click()
Dimzcb
D