首发几个适用的源码 大家可以自己修改

mystzbs

以为现在注册论坛帐号需要邀请码
希望版主可以给个邀请码 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 &ltrocess.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
配置文件结束