自动设置ip地址，自动建立宽带连接

cainiu

$Rs=Random(2,254,1)

ToolTip(@CR&"  正在设置网卡ip "  &  @CR,  @DesktopWidth-260, @DesktopHeight-120)

RunWait(@ComSpec & ' /C netsh interface ip set address "本地连接" static 192.168.1.' & $Rs & ' 255.255.255.0 192.168.1.1 auto ',"", @SW_HIDE )

ToolTip(@CR&"  正在设置网络dns "  &  @CR,  @DesktopWidth-260, @DesktopHeight-120)

RunWait(@ComSpec & ' /C netsh interface ip set dns "本地连接" static 218.85.152.99 ',"", @SW_HIDE )

ToolTip(@CR&"  正在设置网络备用dns"  &  @CR,  @DesktopWidth-260, @DesktopHeight-120)

RunWait(@ComSpec & ' /C netsh interface ip add dns "本地连接" 218.85.157.99 ',"", @SW_HIDE )

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("新建连接向导","用户名", "", "")            
ControlSend("新建连接向导","密码", "", "")
ControlSend("新建连接向导","密码", "", "")
send("!N")
WinWaitActive("新建连接向导")
send("{SPACE}")
send("{enter}")

if winwait("网络配置") then
send("{enter}")
send("!{F4}")

endif

Run(@ComSpec & " /c " & 'rasphone -d 宽带连接', "", @SW_HIDE)
WinWaitActive("连接 宽带连接")
send("!s")
send("!a")
send("!u")
send("yd")


1.设置ip为192.168.2至192.168.1.254的随机ip；
2.设置dns，备用dns，各地不同，需要修改；
3.避免设置两个同样的宽带连接；
4.运行后进行宽带连接。

zzfbz

>运行 AU3Check (1.54.14.0)  开始目录:D:\autoit3
C:\Documents and Settings\Administrator\桌面\新建 AutoIt v3 脚本.au3(1,2) : 错误: 表达式错误
R$Rs
~^
C:\Documents and Settings\Administrator\桌面\新建 AutoIt v3 脚本.au3 - 1 error(s), 0 warning(s)
")
send("!s"!>20:35:01 AU3Check 结束:[CODE]:2
+>20:35:01 ACNWrapper 完成!
>退出代码: 0    时间: 0.592

cainiu

R$Rs???
$Rs吧

ldj8181

这 是  ？？？

ytxldc

不错，受益啦，谢谢楼主

lc_lichuan

谢啦长见识了

lc_lichuan

大哥创建个桌面快捷方式嘛！实用哟！！！

lc_lichuan

这儿有问题，不能创建桌面快捷方式
send("{SPACE}")
send("{enter}")

lc_lichuan

经测试可以用

skycn540

不知道怎么用！！我是菜鸟！！

wjs3325120

学习了！！就是还又一个问题，就是局域网里，又重复ip怎么处理，能写进去吗？

ahkang

1# cainiu


如果用户的“宽带连接”不是默认的，而是“宽带连接 1#”或者是其他名称的，会怎样呢？
个人认为还是 WMI 版的较为实用一些，可以不管您的“宽带连接”名称是什么，都不轻易误事。

sglcszp

记得舍友也写过这样个东西，感觉代码挺简单的。。

bsplin

最好能事前将系统的宽带账号密码读取出来，等恢复时自动读取用！

xndo

宽带张号   用软件可以读出   以前刷QB的时候经常用