根据机器的MAC地址或IP地址，来填写编号，请达人指导下！在线等待啊。。
我想实现根据机器的MAC地址或IP地址，来填写编号。会的朋友请指导下，用什么函数！
比如：
WinWaitActive("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","信息")
ControlClick("iKeeper网络安全管理系统 网吧版 计费客户端 安装程序","信息","")
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网络安全管理系统 网吧版 计费客户端 安装程序","输入网吧编码","")
红色这段想根据机器的IP或MAC地址来填写编号。。。
有朋友可以指导下吗？
[ 本帖最后由 c7540634 于 2009-4-20 16:16 编辑 ]
不知道对你有什么帮助
获得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")
$MACSize = DllStructCreate("int")
DllStructSetData($MACSize, 1, 6)
$r = DllCall("Ws2_32.dll", "int", "inet_addr", "str", $sIP)
$iIP = $r
$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 谢谢，学习一下！ 我也来学习下了哦 我想自动修改IP呢
也是这样的代码吗？
页:
[1]