标题: [网络连接] 批处理怎样循环自动登入宽带账号? [打印本页]
作者: 1491995197 时间: 2015-1-4 13:29 标题: 批处理怎样循环自动登入宽带账号?
朋友是移动公司员工,公司下达任务,要发展活跃用户。(宽带),用户有了。不活跃。要帮客户挂账号,就是宽带连接那种,想用批处理实现,自动登入宽带账号,一个小时后断开,再登入另一个,如此循环,可以实现么。求各位大神教教
作者: DAIC 时间: 2015-1-4 14:10
移动公司你那个朋友能看到用户的明文密码是么
作者: 1491995197 时间: 2015-1-4 15:16
回复 2# DAIC
是啊。那个拨号的账号密码他都知道。
作者: yu2n 时间: 2015-1-4 15:46
本帖最后由 yu2n 于 2015-1-4 15:48 编辑
参考:
如何用批处理批量宽带连接TXT文本里按行排列的宽带账号或密码?
http://www.bathome.net/thread-24907-1-1.html
要求3个批处理:
第一种:固定一个宽带账号,批处理txt文本里多个按行排序的密码的批处理
第二种:固定一个宽带密码,批处理txt文本里多个按行排序的账号的批处理
第三种:2个txt文本:
1.txt是多个账号;2.txt是多个密码,利用批处理将2个文本组合进行连接的批处理
第三种:2个txt文本:
txt是多个账号;2.txt是多个密码,利用批处理将2个文本组合进行连接的批处理(也就是同时字典扫描进行宽带连接)
第四种:2个txt
txt是账号,然后取账号里面的后几位,然后加上txt2文档内的密码,批量处理。
要求这4个批处理都有连接成功后断开继续连接下一个的功能,并将成功的账号和密码全部用=分开按行输出到另外一个文本里。在运行前如果宽带处于连接状态时先自动断开,最后全部试探连接完毕后保持最后一个成功连接的进行宽带连接。
参考:
[说明]
1、宽带账号预设在文本“宽带账号.txt”中,一个账号占一行;宽带密码预设在文本“宽带密码..txt”中,一个密码.占一行
2、账号及密码成功连接时屏幕有提示,结果保存在文本“成功连接.txt”中,未成功连接的不保存
3、请自行更改“set user=改成固定的宽带账号”和“set pass=改成固定的宽带密码”这两处变量值
4、预设宽带连接名称为“宽带连接”,如不一样请自行更改“set pppname=宽带连接”此处
5、之前未创建宽带连接的可以选择功能1,先创建一个宽带连接,预设宽带连接名称同上
宽带账号批量连接检测批处理.bat复制代码
使用VBS创建宽带连接+自动创建桌面快捷方式。
创建宽带连接.VBS- ' 创建宽带连接
- Set WshShell = CreateObject("WScript.Shell")
- WshShell.Run("rasphone -a ""宽带连接""")
- WScript.Sleep 1000
- WshShell.SendKeys "R"
- WScript.Sleep 30
- WshShell.SendKeys "{ENTER}"
- WScript.Sleep 30
- WshShell.SendKeys "{ENTER}"
- ' 创建宽带连接桌面快捷方式
- Set WshShell = Wscript.CreateObject("Wscript.Shell")
- LnkPth = WshShell.SpecialFolders("Desktop")
- Set Link = WshShell.CreateShortcut(LnkPth & "\\宽带连接.lnk")
- Link.TargetPath = "rasphone.exe"
- Link.Arguments = "-d 宽带连接"
- Link.IconLocation = "SHELL32.dll,17"
- Link.Save
复制代码
作者: 1491995197 时间: 2015-1-4 16:23
回复 4# yu2n
我想要个能挂一个小时断线,自动连接下一个的。。这个可以吗
作者: hlzj88 时间: 2015-1-4 16:59
这等好事,要是能全国通用,你让他提供给论坛进行福利派发。大家帮挂了。
作者: 1491995197 时间: 2015-1-4 17:10
回复 6# hlzj88
不能全国通用
作者: yu2n 时间: 2015-1-4 18:08
本帖最后由 yu2n 于 2015-1-4 18:10 编辑
PPPOE 批量账号挂机1小时 by Yu2n
适用于 Win7x64, XPSP3x86 ,没有经过功能测试。
自行替换『自定义登陆账号』部分的账号与密码。
PPPOE 批量账号挂机1小时.vbs- ' 建立宽带连接
- Call PPPOE_Init()
-
- ' 自定义登陆账号
- Call OnLine("账号1", "密码1")
- Call OnLine("账号2", "密码2")
- Call OnLine("账号3", "密码3")
- Call OnLine("账号4", "密码4")
- Call OnLine("账号5", "密码5")
- Call OnLine("账号6", "密码6")
-
- ' 指定账号挂PPPOE在线1小时1分钟
- Sub OnLine(ByVal strUserName, ByVal strPassWord)
- Dim wso
- Set wso = CreateObject("WScript.Shell")
-
- ' 连接宽带
- wso.Run "rasdial ""宽带连接"" """ & strUserName & """ """ & strPassWord & """", 1, False
-
- ' 挂机 1 小时 1 分钟
- WScript.Sleep (1 * 60 * 60 + 1 * 60 ) * 1000
-
- ' 断开连接宽带
- wso.Run "rasdial ""宽带连接"" /DISCONNECT", 1, False
-
- End Sub
-
- ' 建立宽带连接
- Sub PPPOE_Init()
- ' 创建宽带连接(XP/Win7)
- Set wso = CreateObject("WScript.Shell")
- wso.Run "taskkill /f /im rasphone.exe", 0, True
- wso.Run "rasphone -r ""宽带连接""", 1, True
- wso.Run "rasphone -a ""宽带连接""", 1, False
- WScript.sleep 300
- If GetSystemVersion() < 60 Then
- 'WinXP
- wso.SendKeys "(%R)"
- WScript.Sleep 300
- wso.SendKeys "(%N)"
- WScript.Sleep 300
- wso.SendKeys "{ENTER}"
- Else
- 'Win7
- wso.SendKeys "(%B)"
- WScript.Sleep 300
- wso.SendKeys "(%C)"
- End If
-
- ' 创建宽带连接桌面快捷方式
- strLnkPth = wso.SpecialFolders("Desktop")
- Set objLink = wso.CreateShortcut(strLnkPth & "\宽带连接.lnk")
- objLink.TargetPath = "%windir%\system32\rasphone.exe"
- objLink.Arguments = "-d 宽带连接"
- 'objLink.WindowStyle = 1 ' 1=常规,3=最大化,7=最小化
- 'oShellLink.Hotkey = "" ' 设置快捷方式的快捷键
- objLink.IconLocation = "SHELL32.dll,17"
- objLink.Description = "连接 宽带连接"
- objLink.WorkingDirectory = "%windir%\system32"
- objLink.Save
-
- '打开控制面板
- wso.Run "Control netconnections", 1, False
- End Sub
-
- '取得操作系统版本
- Function GetSystemVersion()
- For Each objItem In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
- GetSystemVersion = CInt(Split(objItem.Version, ".")(0) & Split(objItem.Version, ".")(1))
- Next
- End Function
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |