一个昵称为预言家晚报的朋友很喜欢玩SOSO问问，等级LV10，已经算比较高了。晚上挂QQ的时候，看到他的问问有更新，就点进去看了一下，问题是： 我写了如下一段VBS 复制代码 代码如下: dim a,b,c a=inputbox('a','please input') b=inputbox('b','please input') c=a+b msgbox(c) 可是最后结果是11，我知道肯定是倒数第二行

第一个代码，会使用默认mp3文件关联的程序，会出现音乐播放框 复制代码 代码如下: wscript.sleep 12000 set ws=createobject('wscript.shell') ws.run '兄弟你累了吗.mp3' 第二段代码 调用了WMPlayer.OCX插件，不会出现音乐播放框，如果想关闭播放音乐需要在进程中关闭wscript.exe进程。 复制代码 代码如下: Dim wmp Set w

复制代码 代码如下: title='WinRaR破译(目前只做了破译数字)' set WshShell = CreateObject('WScript.Shell' ) set fso = CreateObject('scripting.filesystemobject') Function input() rar_path=InputBox('请输要解密的rar或zip入路径'&Chr(13)&Chr(10)&''&Chr(13)&Chr(10)&'例如:C:\jiemi.rar或C:\jie

监视进程的创建，在每次创建新的进程时，临时事件消费程序都发出警报。 1.监视进程的创建 复制代码 代码如下: strComputer = '.' Set objWMIService = GetObject('winmgmts:' _ & '{impersonationLevel=impersonate}!\\' & strComputer & '\root\cimv2') Set colMonitoredProcesses = objWMIService. _ ExecNotification

用法： 1.copy下面代码至文本文档 2.将文件后缀名改为.vbs 3.双击运行 复制代码 代码如下: Ans = InPutBox('请输入要执行的操作：1.加密，2.解密,3.退出。') Ans = Int(Ans) If Ans =1 Then set fso=createobject('scripting.filesystemobject') Set objDialog = CreateObject('UserAccounts.CommonDialog') objDialog.Fil

复制代码 代码如下: x=InputBox('请输入字符','提示','Test') If Len(x)0 then For i=1 To Len(x) WScript.echo '字符 [' & Mid(x,i,1) & '] ANSI代码为: ' & Asc(Mid(x,i,1)) Next Else MsgBox '请输入英文字符',64,'提示' End if

断开连接提示 复制代码 代码如下: strComputer = '.' Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\wmi') Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ('Select * from MSNdis_StatusMediaDisconnect') Do While True Set strLatestEve

一、显示“选择文件”的对话框 问： 嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？ 答： 您好。｜ 　　如果您使用的是 Windows 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。 　　但如果您使用的是 Windows XP，情况就不同了。在 Windows XP 上，