弹出 YES or NO 的对话框，不同的选择执行不同的代码 intAnswer = Msgbox("Do you want to delete these files?", vbYesNo, "Delete Files") If intAnswer = vbYes Then Msgbox "You answered yes." Else Msgbox "You answered no." End If
运行CMD命令行命令 set obshell=wscript.createobject("wscript.shell") obshell.run ("ipconfig"),,true 如果要运行的命令中包含双引号，可使用chr(34)代替
忽略代码错误继续执行 On Error Resume Next 放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。
文件的复制/删除/创建/简单的写入 Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '声明 Set f = fso.CreateTextFile("%PATH%") '创建文件,其中f可任意，包含缩略名 f.WriteLine("VBS") '写文件内容,该命令功能太简单,目前看来只能用于TXT文件 f.Close set c=fso.getfile("%path%") '拷贝某文件 c.copy("%PATH2%") '拷贝文件到指定地点 fso.deletefile("%PATH%") '删除文件 Wscript.quit
程序代码
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") Set f=fso.CreateTextFile("C:Sample.txt") WriteLine("VBS") f.close set e=fso.getfile(C:Sample.txt) e.copy("D:Sample.txt") fso.deletefile(C:Sample.txt) Wscript.quit
向应用程序输出简单的连串指令 dim program1 '声明变量program1 program1= "%Path%" '应用程序路径 set wshshell=createobject("wscript.shell") '声明饮用函数 set oexec=wshshell.exec(program1) '运行程序 wscript.sleep 2000 '(该行命令未知作用.估计是设定延迟，请高手指点) wshshell.appactivate "%WindowsName%" '激活运用程序窗口 wshshell.sendkeys "+{%KeyBoardName%}" '第一次输出键盘按键指令前要加+ wshshell.sendkeys "555555" '在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作，这在QQ登录中最适用，如下例。
程序代码
dim program1 program1="D:Program FilesTencentcoralQQ.exe" set wshshell=CreateObject("wscript.shell") set oexec=wshshell.exec(program1) wscript.sleep 2000 wshshell.appactivate "QQ登录" wshshell.sendkeys "+{TAB}" wshshell.sendkeys "250481892" wscript.sleep 2000 wshshell.sendkeys "{TAB}" wshshell.sendkeys "****************" wscript.sleep 2000 wshshell.sendkeys "{ENTER}" Wscript.quit
文件夹的简单操作 Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '声明 Set f = fso.CreateFolder("%PATH%") 创建文件夹 Set e = getFolder(%PATH%) 类似于"绑定目标" e.copy("%PATH2%") 复制文件夹 fso.deletefolder(%PATH%) 删除文件夹
程序代码
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") Set f = fso.CreateObject("C:sample") f.copy("D:sample") fso.deletefolder("C:sample")
Set FSO = CreateObject("Scripting.FileSystemObject") '声明 Set Folder = FSO.GetFolder("%PATH%") '绑定文件夹 Set colFiles = Folder.Files '文件夹所有文件
For Each objFile in colFiles '下列语句应用于文件夹所有文件 If File.Attributes AND ReadOnly Then '这是关键之处，这里应用了If判断语句，来检测文件属性是否为只读 File.Attributes = File.Attributes XOR ReadOnly '对判断结果为Ture（默认为True）'执行XOR逻辑运算，将其改为可读 End If '结束判断 Next
