IP输入框控件的问题[已解决]

yyg

软件装完弹出个框要输入IP进行设置才能运行，前面都很顺利，后面IP控件这里我摸不着头脑了


WinWaitActive("设置监管服务器IP地址","服务器地址")
ControlSend("设置监管服务器IP地址", "服务器地址", "Edit1", "192")

我打算用这2句来一段段（IP输入192.168.2.249）完成，MS不行。

本人新手，望高手指点，谢谢！

PS：那个说激将法的，建议你不要来我这刷，没用的回复更让人反感

ferelove

来个传送门，忘记在哪看到的了。转帖一下，先谢谢原作者！
可参考

$sIP = InputBox("MAC地址获取", "请输入IP地址", @IPAddress1, "", 150, 100, 500, 300)
$errIP = StringRegExp($sIP, "(((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?))", 3)
If @error <> 0 Then
        MsgBox(0, "错误！", '请输入IP地址的正确格式',5)
Else
        $MAC = _GetMAC($sIP)
        If $MAC <> "000000000000" Then
                ClipPut($MAC)
                MsgBox(0, $MAC ," MAC已经复制在粘贴板！", 2)
        Else
                MsgBox(0, "MAC地址", '无法获取:"' & $sIP & '" 的MAC地址')
        EndIf
EndIf

Func _GetMAC($sIP)
        Local $MAC, $MACSize
        Local $i, $s, $r, $iIP

        $MAC = DllStructCreate("byte[6]")
        $MACSize = DllStructCreate("int")

        DllStructSetData($MACSize, 1, 6)
        $r = DllCall("Ws2_32.dll", "int", "inet_addr", "str", $sIP)
        $iIP = $r[0]
        $r = DllCall("iphlpapi.dll", "int", "SendARP", "int", $iIP, "int", 0, "ptr", DllStructGetPtr($MAC), "ptr", DllStructGetPtr($MACSize))
        $s = ""
        For $i = 0 To 5
                ;If $i Then $s = $s & ":"
                $s = $s & Hex(DllStructGetData($MAC, 1, $i + 1), 2)
        Next
        Return $s
EndFunc   ;==>_GetMAC

yyg

谢谢，不过，我这是不是自己做软件，是用批处理来装别人的软件.......

t87564833

MAC获取这东西不错，收藏了！

yyg

没人会这个吗， 还是用AU3不能实现这个？

ferelove

你的意思是想在IP输入框中自动填入IP地址？
参考这个NOD32安装脚本（代码搜集自网络），约第20、21行左右，自动填写用户名和密码的。
如果不自动填写，用命令直接改IP地址也行，论坛上N多示例，搜索一下。

$nod_user = IniRead("update.ini","update","user","EAV-26665298")
$nod_passward = IniRead("update.ini","update","passward","75a4hdv58r")
$biaoti = "ESET NOD32 Antivirus 安装"
$biaoti1 = "ESET NOD32 Antivirus安装"
$shijian = 300

Run("msiexec /i eav_nt32_cht.msi")
WinWaitActive($biaoti,"欢迎使用 ESET NOD32 Antivirus 安装向导")
Sleep($shijian)
Send("!x")
WinWaitActive($biaoti,"最终用户许可协议")
Sleep($shijian)
ControlClick($biaoti,"最终用户许可协议", 2299)
Send("!x")
WinWaitActive($biaoti1,"选择安装模式")
Sleep($shijian)
ControlClick($biaoti1,"选择安装模式",977)
ControlClick($biaoti1,"选择安装模式",2272)
WinWaitActive($biaoti1,"自动更新")
ControlSetText($biaoti1, "自动更新", "RichEdit20W1", $nod_user)
ControlSetText($biaoti1, "自动更新", "Edit1", $nod_passward)
Send("!u")
Send("!p")
Sleep($shijian)
Send("!x")
WinWaitActive($biaoti1,"启用 ThreatSense.Net 预警系统")
Sleep($shijian)
Send("!x")
WinWaitActive($biaoti1,"检测潜在不受欢迎的应用程序")
ControlClick($biaoti1,"检测潜在不受欢迎的应用程序","ComboBox1")
Sleep($shijian)
Send("{DOWN}")
Sleep($shijian)
Send("!x")
WinWaitActive($biaoti,"准备安装")
Sleep($shijian)
Send("!i")
WinWaitActive($biaoti,"正在完成 ESET NOD32 Antivirus 安装向导")
Sleep($shijian)
Send("!f")
Exit

autoit3CN

没人会这个吗， 还是用AU3不能实现这个？
yyg 发表于 2010-6-14 19:59

    最反感就是这样的激将法

rikthhpgf2005

!这么多人答,我就不用也