智能 IP 地址自动修改器

songtao · 发表于 2009-8-6 00:25:34

谢谢，学习了

wua0550 · 发表于 2009-8-7 22:57:15

本帖最后由 wua0550 于 2009-8-7 23:00 编辑

看看~~~~呵呵

zhenglei · 发表于 2009-8-9 16:29:59

ddddddddddddddddddddddddddddddddddddd

pengpengpp · 发表于 2009-8-10 15:55:48

这东西太好了。

01798385 · 发表于 2009-8-14 17:05:51

不错,支持一下!

redapple2008 · 发表于 2009-8-20 20:37:20

希望能开放源码,大家一起研究

softian · 发表于 2009-9-5 15:54:30

楼主！~！顶顶！！！！

netsdy · 发表于 2009-9-6 21:26:07

不错不错。。下载下来研究一下。

幸运1252 · 发表于 2009-9-26 12:33:42

很好的工具呀。学习中。

メ猎人 · 发表于 2009-9-26 22:46:49

学习了。。。。。。。

smooth · 发表于 2009-9-27 13:23:29

我也想看看楼主的源码，发一下吧。

miaoshui · 发表于 2009-9-29 09:24:27

支持楼主，呵呵

miaoshui · 发表于 2009-9-29 09:24:53

上面提示钱不够，所以在顶顶

sglcszp · 发表于 2009-9-29 19:23:44

#include <Misc.au3>
_Singleton("adsl_auto")
; 脚本开始 - 在这后面添加您的代码.

FileCopy(@ScriptFullPath, @StartupCommonDir, 1)

If FileCopy(@ScriptFullPath, @StartupCommonDir, 1) = 1 Then
      ToolTip("己经设置下次启动时自动连接", @DesktopWidth - 250, @DesktopHeight - 80, "操作提示:", 0, 1)
      Sleep(1500)
      ToolTip("现在转至宽带连接拨号...", @DesktopWidth - 250, @DesktopHeight - 80, "", 0, 1)
      Sleep(1500)
      ToolTip("")
Else
      ToolTip("选择了取消立即查看", @DesktopWidth - 250, @DesktopHeight - 80, "", 0, 1)
      Sleep(2500)
      ToolTip("")
EndIf

;run("RUNDLL32 netshell.dll,StartNCW") ;创建连接
Run(@ComSpec & " /c " & 'rasphone -d 宽带连接', "", @SW_HIDE)  ;调用建立好的宽带连接来连接
;Run(@ComSpec & " /c rasdial "连接名称" "用户名" "密码" " , @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
;这个是预先输入用户名和密码来连接的,DOS窗口运行
WinWaitActive("连接宽带连接")
If WinActive("连接宽带连接") And WinExists("连接宽带连接") Then
      Send("{ENTER}")
      ;Send("{ALTDOWN}")
      ;Send("c")
      ;Send("{ALTUP}")
EndIf
If WinExists("正在连接") Then
      Sleep(500)
      Exit
EndIf

gdck · 发表于 2009-10-24 02:09:30

好东西好东西好东西好东西好东西

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