Welcome

首页 / 编程脚本

利用sql语句复制一条或多条记录

2017-02-06 18
insertintoarticle（id,class,title,content）selectid,"2",title,contentfromarticlewhereclass="1" 如果id为自动编号,就把改为: insertintoarticle（class,title,content）select"2",title,contentfromarticlewhereclass="1" 如果class为数字类型,则去掉单引号....

百度空间备份脚本baidublogbak.vbs代码分析

2017-02-06 17
"用法示例： "cscript bak.vbs 百度用户名 第I页 至第n页 目录列表.htm 用户名 密码 "例如我的blgo示例： "cscript baidublogbak.vbs myvbscript 0 3 url.htm myvbscript mima "表示从第0页备份到第3页，blog的共有页数打开http://hi.baidu.com/用户名/blog/index/0就可以看到了。url.htm存放的是目录列表 "注意的是百度是从0页计数...

vbs版sql查询分析器lcx作品

2017-02-06 15
花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了，和它的功能是一模一样的，不过用起来可能没有asp版的舒服，不过能用，可以用在dos下了，渗透内网时估计你用得着。 if （lcase（right（wscript.fullname,11））="wscript.exe"） then echo "Execute it under the cmd.exe Plz！ Thx." echo "code by lcx" wscript.quit end I...

最新版利用CDO.Message做的vbs下载者

2017-02-06 20
vbs下载者有很多了，我这里是一个伟大的发明，利用CDO.Message做的vbs下载者。伟大是装B的意思。 NP先把代码写完了，详情看这里：http://hi.baidu.com/vbs_zone/blog/item/f254871382e6d0045aaf5358.html LCX大哥在写他的BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西，说是研究研究或许可以用来当下载者用。 于是研究了一会。写出个粗糙的DEMO。 exe2hex....

PDF的VBS小程序代码

2017-02-06 17
Dim ls_File Set objArgs = WScript.Arguments"命令行参数 if objArgs.Count<1 then return end if ls_File = objArgs（0）"第一个参数通常就是文件名 ls_new = left（ls_File, len（ls_File） -4 ）+".pdf" Set pptApp = CreateObject（"PowerPoint.Application"） "申明调用...

算阶乘的vbs小程序

2017-02-06 17
dim n,ans,i n=inputbox（"n（0<=n<=170）="） ans=1 for i=1 to n ans=ans*i next msgbox（ans） ...

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

2017-02-06 29
知道真实路径的情况下复制代码 代码如下: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函数调用使用说明

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

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

2017-02-06 18
注入代码如下: 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跨盘移动文件夹的怪问题

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

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

2017-02-06 18
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

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

emule自动关机脚本

2017-02-06 17
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不提示直接打印的代码

2017-02-06 18
首先在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的代码

2017-02-06 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并在浏览器中打开

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

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

2017-02-06 19
不用怀疑,是正常可以执行的.如果在这里边随便加点数字还能说得通的话,再看下一个例子: 复制代码 代码如下: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源码

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

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

2017-02-06 17
复制代码 代码如下: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

2017-02-06 17
复制代码 代码如下: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...
<< 31 32 33 34 35 36 37 38 39 40 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图