PPTBS 发表于 2015-10-11 20:34:03

这段代码 关于穷举拨号IP的脚本 如何进行优化? (问题已解决)

本帖最后由 PPTBS 于 2015-10-15 11:24 编辑

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Compile_Both=y
#PRE_UseX64=y
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <file.au3>    ;调用公共函数文件操作
Dim $hs   ;定义文件行数
;@AutoItExe   ;定义当前目录
Dim $ip
#include <INet.au3>

       
For $i = 1000 to 1 Step -1
    Run ("rasdial.exe/disconnect") ;断开连接
        Sleep(1000)
    Run ("rasdial 宽带连接 宽带账户 宽带密码") ;宽带连接
        Sleep(10000)
        $ip = _GetIP()
        Sleep(2000)
$file = FileOpen("test.txt", 1)
FileWrite($file, $ip)
FileWrite($file, "|")
FileClose($file)
       
Next




xyold1 发表于 2015-10-11 21:10:08

你的流程不严谨,断开连接之后,应加判断 是否已经断开
最重要的是16行执行之后,要判断 宽带是否已连接
用延时函数 觉得差不多连上 不太好

PPTBS 发表于 2015-10-15 11:24:12

回复 2# xyold1


    谢谢指导

破帽遮颜 发表于 2018-5-20 08:35:36

学习了~!正好~!~~~
页: [1]
查看完整版本: 这段代码 关于穷举拨号IP的脚本 如何进行优化? (问题已解决)