今天又无聊的逛了一下搜搜问问，找到这样一个问题： 有谁能提供vbs里20的阶乘的详细程序 下面有人给出了这样的答案： 复制代码 代码如下: function jx(x) j=1 for i=2 to x j=j*i next jx=j end function msgbox jx(20) 运行一下上面的程序，输出2.43290200817664E+18。笑而不语，再次证明了我之前的结论，在这种网站上回

复制代码 代码如下: If wscript.arguments.count=0 Or wscript.arguments.Count1 then msgbox '请将通过偏移量加密过的 VBS 文件拖放到本脚本上即可[请逐个解密]！',48,'提示' wscript.quit End If For Each fname In wscript.Arguments If Right(fname,3) 'vbs' Then MsgBox '请选择 VBS 文件!',64,'提示' WScript.Qu

如果用户单击确定或按下 ENTER，则 InputBox 函数返回文本框中的内容。如果用户单击取消，则函数返回一个零长度字符串 ('')。 这是参考手册对InputBox函数返回值的说明，简单而明了，还有必要专门写一篇文章来讨论？我知道你一定对标题不屑一顾，换成是我，我也一定会不屑一顾，如果我没有看到百度VBS吧里的一个帖子。 关于

复制代码 代码如下: Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject('WScript.Shell') Set objWMIService = GetObject('winmgmts:\. ootwmi') Set colMonitoredEvents = objWMIService.ExecNotificationQuery('Select * from MSNdis_StatusMediaDisc

提示: 1,是每次有跳出窗口时的1.8秒后都要有此动作,并且是只发送了一次该动作,发送完后等待下次的窗口跳出再循环. 2,每次循环中都只是发送了一次CTRL + V后就停,而不是一直发送 看到问题，立即着手编写测试代码，这时候问题出现： 弹出 inputbox 窗口后，VBS处于暂停状态，等待用户输入，点击确定or取消， 所以在它后面的 W

某个人问的问题： 我本来想获取aaa.com页面的内容，可是aaa.com跳转到bbb.com了。我想获取bbb.com 这个网址。 访问了一下他所谓的aaa.com，发现是HTTP 302重定向 复制代码 代码如下: HTTP/1.1 302 Moved Temporarily Server: nginx/0.8.53 Date: Fri, 08 Apr 2011 15:49:25 GMT Content-Type: text/html;charset=utf-8 Tra

复制代码 代码如下: Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) m_lOnBits(0) = CLng(1) m_lOnBits(1) = CLng(3) m_lOnBits(2) = CLng(7) m_lOnBits(3) = CLng(15) m

复制代码 代码如下: set ierunner=createobject('wscript.shell') ierunner.run 'cmd /c start http://www.baidu.com/',0 wscript.sleep 2000 ierunner.sendkeys '%{F4}' on error resume next dim WSHshellA set WSHshellA = wscript.createobject('wscript.shell') WSHshellA.