首发几个适用的源码 大家可以自己修改
以为现在注册论坛帐号需要邀请码希望版主可以给个邀请码 mail: 258665236@qq.com
好像不可以上传附件 暂时上传两个源码 其它的几个文件比较大
查看MAC地址
源码开始
#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=D:\Autoit3\Aut2Exe\Icons\ico_FlY0028.ico
#AutoIt3Wrapper_outfile=查看MAC地址.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstants.au3>
$Form1 = GUICreate("查看机子MAC地址", 220, 120, 457, 276)
$Input1 = GUICtrlCreateInput("", 10, 40, 200, 20)
$Label1 = GUICtrlCreateLabel("机子IP:", 10, 10, 43, 17)
$Button1 = GUICtrlCreateButton("退出", 140, 80, 75, 25, 0)
$Button2 = GUICtrlCreateButton("查看", 10, 80, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nmsg = $Button2
$rul= GUICtrlRead($Input1)
ConsoleWrite($rul)
Run(@ComSpec & " /k nbtstat -a " & $rul )
Case $nmsg = $Button1
Exit
EndSelect
WEnd
源码结束
APR绑定工具
源码开始
#NoTrayIcon
#include <Process.au3>
dim $mac1 ;定义变量名
dim $mac2
dim $mac3
dim $ip1
dim $ip2
dim $ip3
dim $time
$ip1 = iniread(@scriptdir & "\Config.ini","配置","IP1","")
$mac1 = iniread(@scriptdir & "\Config.ini","配置","mac1","")
$ip2 = iniread(@scriptdir & "\Config.ini","配置","IP2","")
$mac2 = iniread(@scriptdir & "\Config.ini","配置","mac2","")
$ip3 = iniread(@scriptdir & "\Config.ini","配置","IP3","")
$mac3 = iniread(@scriptdir & "\Config.ini","配置","mac3","")
$time = iniread(@scriptdir & "\Config.ini","配置","循环时间","")
while 1 ;设定无限循环
Sleep ($time) ;设定延时
;_rundos("arp -d")
_rundos("arp -s "&($ip1)&" "&($mac1))
_rundos("arp -s "&($ip2)&" "&($mac2))
_rundos("arp -s "&($ip3)&" "&($mac3))
wend
源码结束
配置文件开始 (Config.ini)
[配置]
循环时间=1000
IP1=192.168.1.2
mac1=00-00-00-00-00-00
IP2=192.168.1.3
mac2=00-00-00-00-00-00
IP3=192.168.1.4
mac3=00-00-00-00-00-00
配置文件结束
页:
[1]