2020-02-16 标签:vbs,列出,内网,中计,工作组,也可以,实现,代码,如下,handle,errors,error,resume,next,provider,object,set,prov

实现代码如下： 'Handle Errors On Error Resume Next 'Get the provider object Set prov = GetObject("WinNT:") 'Examine the available domains the provider can re

2020-02-16 标签:vbs,探测,端口,代码,不用,注册,winsock,实现,如下,error,resume,next,lcase,right,wscript,fullname,11,exe,echo,execute

实现代码如下： On Error Resume Next if (lcase(right(wscript.fullname,11))="wscript.exe") then wscript.echo "Execute it under the cmd.exe Plz! Thx." wscript.q

2020-02-16 标签:vbs,inputbox,函数,返回,使用,技巧,用户,单击,确定,按下,enter,文本框,内容,取消,零长,字符串,参考手册

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

2020-02-16 标签:vbs,获取,定向,url,代码,某个人,问的,问题,本来,aaa,com,页面,内容,跳转,bbb,我想,网址,访问,他所

某个人问的问题： 我本来想获取aaa.com页面的内容，可是aaa.com跳转到bbb.com了。我想获取bbb.com 这个网址。 访问了一下他所谓的aaa.com，发现是HTTP 302重定向HTTP/1.1 302 Moved Temporarily Server: nginx/0.8.53

2020-02-16 标签:安静,运行,批处理,vbs,脚本,保存为,dim,objshell,set,wscript,shell,ireturn,run,cmd,exe,c,路径,改成

1、保存为.vbs DIM objShell set objShell=wscript.createObject("wscript.shell") iReturn=objShell.Run("cmd.exe /C 路径/改成你需要的批处理.bat", 0, TRUE) 2、继续保存.vbs on E

2020-02-16 标签:vbs,相加,取值,问题,分析,昵称,预言家,晚报,朋友,很喜欢,soso,问问,等级,lv,10,比较,高了

一个昵称为预言家晚报的朋友很喜欢玩SOSO问问，等级LV10，已经算比较高了。晚上挂QQ的时候，看到他的问问有更新，就点进去看了一下，问题是： 我写了如下一段VBS 实现代码如下： dim a,b,c a=inputbox("a","please input") b=inputbox("b","pl

2020-02-16 标签:实现,winrar,密码,破解,vbs,代码,如下,title,破译,目前,只做,数字,set,wshshell,wscript,shell,fso,scripting

实现代码如下： title="WinRaR破译(目前只做了破译数字)" set WshShell = CreateObject("WScript.Shell" ) set fso = CreateObject("scripting.filesystemobject") Function input(

2020-02-16 标签:vbs,显示,选择,文件,文件夹,对话框,代码,scripting,guy,有没有,方法,让我,使用,脚本,向用,用户

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

2020-02-16 标签:vbs,sendkeys,virtual,key,codes,十六进制,符号,constantsvk,lbutton,x,01,left,mouse,button,vk,rbutton,02,right,cancel

ConstantsVK_LBUTTON(0x01) Left mouse button VK_RBUTTON(0x02) Right mouse button VK_CANCEL(0x03) Control-break processing VK_MBUTTON(0x04) Middle mouse

2020-02-16 标签:vbs,整人,代码,大集合,多年,收集,打开,好友,聊天,对话框,记下,在你,qq,昵称,下面,里的,xx,替换,就可以,自定义

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 实现代码如下： On Error Resume Next Dim wsh,ye set wsh=createobject