找回密码
 加入
搜索
查看: 2407|回复: 4

根据机器的MAC地址或IP地址,来填写编号,请达人指导下!在线等待啊。。

[复制链接]
发表于 2009-4-20 15:20:13 | 显示全部楼层 |阅读模式
我想实现根据机器的MAC地址或IP地址,来填写编号。

会的朋友请指导下,用什么函数!

比如:
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","信息")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","信息","[class:Button;INSTANCE:1]")
WinWait("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码")
if not WinActivate("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码") Then WinActivate("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码")
WinActivate("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码")
ControlSetText("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码","Edit1","")
ControlSetText("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码","Edit2","")
ControlSetText("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码","Edit3","")
ControlSend("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码","Edit1","5104020002")
ControlSend("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码","Edit2","1")ControlSend("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码","Edit3","192.168.5.199")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码","[class:Button;INSTANCE:5]")


红色这段想根据机器的IP或MAC地址来填写编号。。。

有朋友可以指导下吗?

[ 本帖最后由 c7540634 于 2009-4-20 16:16 编辑 ]
发表于 2009-4-21 14:56:46 | 显示全部楼层

不知道对你有什么帮助

获得mac地址的
$sip=@IPAddress1;获取本机ip
If $sip="0.0.0.0" Then $sip=@IPAddress2;获取本机ip
If $sip="0.0.0.0" Then $sip=@IPAddress3
If $sip="0.0.0.0" Then $sip=@IPAddress4
If $sip="0.0.0.0" Then MsgBox(0,"IP怎么是 0.0.0.0 ?","貌似没有发现网卡,难道我脑子出问题了?")
$MAC = _GetMAC($sip);通过IP获取地址


MsgBox(0,"IP地址:"&$sip,"MAC地址:"&$MAC)

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   

评分

参与人数 1金钱 +2 收起 理由
lynfr8 + 2 的确可行

查看全部评分

发表于 2009-5-16 17:31:36 | 显示全部楼层
谢谢,学习一下!
发表于 2009-5-29 23:26:19 | 显示全部楼层
我也来学习下了哦
发表于 2009-5-29 23:29:19 | 显示全部楼层
我想自动修改IP呢
也是这样的代码吗?
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-25 21:24 , Processed in 0.086748 second(s), 27 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表