|
VBS脚本应用-其它示列(3) objcnla.SetPassword P@ssW0rd
objcnla.SetInfo
弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer = Msgbox("是否", VBYesNo, Delete Files)
If intAnswer = vbYes Then
Msgbox You answered yes.
Else Msgbox You answered no.
End If
'弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer = Msgbox ("是否真的要删除文件?", vbYesNo, "提示:")
If intAnswer = vbYes Then
Msgbox "您选择的是Y"
Else
Msgbox "您选择的是N"
End If
运行CMD命令行命令
set obshell=wscript.createobject(wscript.shell)
obshell.run (ipconfig),,true
如果要运行的命令中包含双引号，可使用&chr(34)&代替
忽略代码错误继续执行
On Error Resume Next
放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。
注册表的修改，读取，删除，创建
Set wso = CreateObject(WScript.Shell) '声明
wso.RegWrite %Path% '创建子键
wso.RegWrite %Path%,%Value% '修改默认键值
wso.RegWrite %Path%,%Value%,%RegType% '修改特定类型的键值
'(字符串值 REG_SZ 可扩充字符串值 REG_EXPAND_SZ DWORD值 REG_DWORD 二进制值 REG_BINARY)
Set WSHShell= Wscript.CreateObject(Wscript.Shell)
WSHShell.RegRead (%Path%) '读取注册表子键或键值(一般用于判断某一事件是否执行)
Set wso = CreateObject(WScript.Shell)
wso.RegDelete %Path% '删除子键或键值
'(根键缩写HKEY_CLASSES_ROOT 为HKCR HKEY_CURRENT_USER 为HKCU HKEY_LOCAL_MACHINE 为HKLM,其余无)
例子:
| 
