自动建立宽带连接工具！附源码！

yukin · 发表于 2009-4-11 10:30:09

主要是给一些不会建立宽带连接的家庭宽带用户用的
很多用户重装完系统后，都要打电话给电信客服问半天，呵呵

#NoTrayIcon
#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=33.ico
#AutoIt3Wrapper_outfile=自动建立宽带连接工具.exe
#AutoIt3Wrapper_Res_Comment=自动建立宽带连接工具
#AutoIt3Wrapper_Res_Description=yukin自动建立宽带连接工具
#AutoIt3Wrapper_Res_Fileversion=0.3.5.1
#AutoIt3Wrapper_Res_LegalCopyright=YUKIN
#EndRegion ;**** 参数创建于 AutoIt3Wrapper_GUI ****

dim $name       ;定义变量
dim $pass
$name = iniread(@scriptdir & "\yukin.ini","配置","用户名","")  ;设定变量
$pass = iniread(@scriptdir & "\yukin.ini","配置","密码","")
Run("rundll32.exe netshell.dll,StartNCW")
WinWaitActive("新建连接向导")                   ;监视活动窗口
Send("!N")                                        ;发送键盘指令
WinWaitActive("新建连接向导")
send("!N")
WinWaitActive("新建连接向导")
Send("{down}")
send("!N")
WinWaitActive("新建连接向导")
Send("{down}")
send("!N")
WinWaitActive("新建连接向导")
send("!N")
WinWaitActive("新建连接向导")
ControlSend("新建连接向导","用户名", "Edit1", ($name))          ;输入文本输入框变量字符
ControlSend("新建连接向导","密码", "Edit2", ($pass))
ControlSend("新建连接向导","密码", "Edit3", ($pass))
send("!N")
WinWaitActive("新建连接向导")
send("{SPACE}")
send("{enter}")

wlsj · 发表于 2009-4-14 23:51:28

下载，收藏了

zxc0001 · 发表于 2009-4-27 08:37:11

谢谢，我收藏了

zhao08681 · 发表于 2009-4-27 13:10:05

非常实用的工具，谢谢楼主分享

hjq766 · 发表于 2009-5-1 16:20:59

收藏了·
谢谢分享···

lzl88123 · 发表于 2009-5-3 22:00:42

简单就好，支持原创啊

鸟人 · 发表于 2009-5-4 15:50:17

路过！！！！

996110777 · 发表于 2009-5-4 17:38:13

挺不错的嘛这么棒

dxlfcnba · 发表于 2009-5-6 13:40:09

谢谢，下来收藏，

cmirt · 发表于 2009-5-6 17:40:18

支持原创啊

jeff2079 · 发表于 2009-5-7 14:27:49

好东西值得

jeff2079 · 发表于 2009-5-7 14:28:00

真是好东西可惜就是没钱下

damgyan · 发表于 2009-5-7 20:12:07

好东西！感谢分享！

bl001 · 发表于 2009-5-27 17:40:08

谢谢了 good

5axp · 发表于 2009-5-27 18:48:05

大大大大大大大大大大大大

		自动登录	找回密码
密码			加入

自动建立宽带连接工具！附源码！

本帖子中包含更多资源