cainiu 发表于 2009-5-6 22:11:55

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

本帖最后由 cainiu 于 2009-5-6 22:13 编辑

$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 发表于 2009-5-7 20:38:29

>运行 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 结束::2
+>20:35:01 ACNWrapper 完成!
>退出代码: 0    时间: 0.592

cainiu 发表于 2009-5-8 20:47:45

R$Rs???
$Rs吧

ldj8181 发表于 2009-6-6 18:14:26

这 是？？？

ytxldc 发表于 2009-6-16 00:50:19

不错，受益啦，谢谢楼主

lc_lichuan 发表于 2009-6-16 13:08:02

谢啦长见识了

lc_lichuan 发表于 2009-6-16 15:47:29

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

lc_lichuan 发表于 2009-6-16 15:55:18

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

lc_lichuan 发表于 2009-6-17 14:26:35

经测试可以用

skycn540 发表于 2009-6-27 09:14:48

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

wjs3325120 发表于 2009-7-5 13:12:04

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

ahkang 发表于 2009-7-6 09:55:20

1# cainiu


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

sglcszp 发表于 2009-9-29 12:46:59

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

bsplin 发表于 2009-11-20 19:40:50

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

xndo 发表于 2010-1-28 11:39:04

宽带张号   用软件可以读出   以前刷QB的时候经常用
页: [1] 2
查看完整版本: 自动设置ip地址，自动建立宽带连接