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

路过！！！！
:face (20):

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

挺不错的嘛 这么棒

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

谢谢，下来收藏，

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

支持原创啊:face (20):

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

大大大大大大大大大大大大
页: [1] 2 3 4
查看完整版本: 自动建立宽带连接工具！附源码！