#RequireAdmin
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <ACN_NET.au3>
#include <TrayConstants.au3>
#include <Clipboard.au3>
Local $sMyAutoItTitle = "network_info" ;
If WinExists($sMyAutoItTitle) Then Exit ;检测程序是否重复运行
AutoItWinSetTitle($sMyAutoItTitle)
Local $NetworkAdapterInfo = _NetworkAdapterInfo()
Local $ipadd = $NetworkAdapterInfo[1][4]
Local $macadd = $NetworkAdapterInfo[1][8]
Local $dns = $NetworkAdapterInfo[1][5]
Local $Form1
Local $iWidth = 230, $iHeight = 300, $iX = @DesktopWidth - $iWidth, $iY = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("network_info", $iWidth, $iHeight, $iX, $iY, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
GUISetBkColor(0xF1F1F1)
_WinAPI_SetLayeredWindowAttributes($Form1, 0xF1F1F1, 0, $LWA_COLORKEY) ;设置透明
$Label1 = GUICtrlCreateLabel("计算机名:" & @ComputerName, 0, 10, 300, 50)
$Label2 = GUICtrlCreateLabel("系统版本:" & @OSVersion & " " & @OSArch, 0, 30, 300, 50)
$Label3 = GUICtrlCreateLabel("IP地址 :" & $ipadd, 0, 50, 300, 50)
$Label4 = GUICtrlCreateLabel("MAC地址 :" & $macadd, 0, 70, 300, 50)
$Label5 = GUICtrlCreateLabel("DNS地址 :" & $dns, 0, 90, 300, 50)
GUICtrlSetColor($Label1, 0xFFFFFF)
GUICtrlSetColor($Label2, 0xFFFFFF)
GUICtrlSetColor($Label3, 0xFFFFFF)
GUICtrlSetColor($Label4, 0xFFFFFF)
GUICtrlSetColor($Label5, 0xFFFFFF)
GUISetState(@SW_SHOW,$Form1)
#EndRegion ### END Koda GUI section ###
Local $NetworkAdapterInfo = _NetworkAdapterInfo()
Opt("TrayMenuMode", 3)
TraySetClick("9")
TraySetIcon("ip.ico")
TraySetState($TRAY_ICONSTATE_SHOW)
TraySetToolTip("IP地址:" & $NetworkAdapterInfo[1][4])
$MenuItem1 = TrayCreateItem("IP :" & $NetworkAdapterInfo[1][4])
$MenuItem2 = TrayCreateItem("MAC :" & $NetworkAdapterInfo[1][8])
TrayCreateItem("DNS :" & $NetworkAdapterInfo[1][5])
TrayCreateItem("")
$MenuItem3 = TrayCreateItem("信息报修")
TrayCreateItem("")
$MenuItem4 = TrayCreateItem("exit")
While 1
$msg = TrayGetMsg()
Select
Case $msg = $MenuItem1
_ClipBoard_SetData($NetworkAdapterInfo[1][4])
TrayTip("当前IP地址已复制到剪贴板", $NetworkAdapterInfo[1][4], 0, $TIP_ICONASTERISK)
Case $msg = $MenuItem2
_ClipBoard_SetData($NetworkAdapterInfo[1][8])
TrayTip("当前MAC地址已复制到剪贴板", $NetworkAdapterInfo[1][8], 0, $TIP_ICONASTERISK)
Case $msg = $MenuItem3
Case $msg = $MenuItem4
ExitLoop
Exit
EndSelect
WEnd