发新话题
打印

[原创]Sbaidu v1.1批处理代码(国庆献礼)

[原创]Sbaidu v1.1批处理代码(国庆献礼)

文章作者:blackhorse
信息来源:邪恶八进制信息安全团队(www.eviloctal.com

注:文章首发NetBaby技术小组www.netbaby.org),后由原创作者友情提交到邪恶八进制信息安全团队论坛。
复制内容到剪贴板
代码:
@echo off&&mode con cols=30 lines=1
rem 设置窗体大小
title SBaidu v1.0 by blackhorse
rem 显示标题栏
echo 本批处理由Blackhorse制作,转载请留下此信息
rem 显示版权信息
if exist info.txt del info.txt
rem 判断info.txt存在则删除之
rasdial | find "已连接"
rem 查询宽带连接否
if errorlevel 1 goto close
rem 如果已连接就goto close
:close
for /f  "tokens=3" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\RAS AutoDial\Default"') do set pppoe=%%i
rem 读去注册表寻找宽带文件名
rasphone -h %pppoe%
rem 关闭宽带连接
if not errorlevel 1 goto set
rem 如果未连接就goto set
:set
set user=
set pass=
set url=
set time=
rem 设置变量 user pass url time
set/p user=请输入宽带帐号:
set/p pass=请输入宽带密码:
set/p url=请输入网站地址:
set/p time=请输入间隔时间:
rem 给user pass url time变量赋值
for /f  "tokens=3" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\RAS AutoDial\Default"') do set pppoe=%%i
echo %pppoe% %user% %pass% %url% %time% >info.txt
rem 生成文件info.txt,保存以上信息
:again
for /f "tokens=1,2,3 delims= " %%j in ('more info.txt') do rasdial %%j %%k %%l
rem 读取信息,宽带连接
echo 宽带连接成功!
for /f "tokens=4 delims= " %%j in ('more info.txt') do start /min [url]http://%%j[/url]
rem 读取信息,打开网站
for /f "tokens=5 delims= " %%j in ('more info.txt') do ping -n %%j 127.1>nul
rem 等待%%j秒
taskkill /f /im iexplore.exe
rem 关闭ie
for /f "tokens=5 delims= " %%j in ('more info.txt') do ping -n %%j 127.1>nul
rem 等待%%j秒
for /f "tokens=1 delims= " %%j in ('more info.txt') do rasphone -h %%j
rem 关闭宽带
echo 宽带关闭成功!
goto again
rem 返回agin,循环开始

附件

Sbaidu v1.1.rar (1 KB)

2007-10-1 17:10, 下载次数: 76

一个新的生命已经诞生!http://netbaby.org

TOP

上面代码[url]http://%%j[/url]为http://%%j
phpwind自动加上[url]可恶!
一个新的生命已经诞生!http://netbaby.org

TOP

小菜我不太懂这个是干什么用的?/


可以方便我们什么呢?

TOP

源文件有一行格式有点问题.
应该是在自动换行的情况下复制过去的.
for /f  "tokens=3" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\RAS AutoDial\Default"') do set pp
poe=%%i

就是这个.
TO 楼上:就是建立宽带 把连接信息都保存到一个文件
在读取文件中的信息 用start打开文件中的地址 然后在几秒内taskkill掉IE进程 .断开连接 GOTO循环回去.

TOP

引用:
引用第3楼sunwear于2007-10-03 11:05发表的 :
源文件有一行格式有点问题.
应该是在自动换行的情况下复制过去的.
for /f  "tokens=3" %%i in ('reg query "HKLMSOFTWAREMicrosoftRAS AutoDialDefault"') do set pp
poe=%%i

.......
哦,明白了!
这个对我好象用处不太!

不过,对于刷流量应该是不错的!

TOP

楼上的楼上看的真仔细,的确有误,感谢之!

改正
一个新的生命已经诞生!http://netbaby.org

TOP

to:楼上楼上,刷流量,这个太太太弱了点。
不过,刷投票还是很不错的。

TOP

发新话题