About()
Func About()
$Window = GUICreate("关于...", 235, 240)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Window, "int", 500, "long", 0x00000010)
GUICtrlCreateIcon (@AutoItExe,-1,22,40)
$Label1 = GUICtrlCreateLabel("IP 地址修改器", 85, 40, 100, 17)
GUICtrlSetFont(-1, 10, 800, 0, "宋体")
$Label2 = GUICtrlCreateLabel("2.0 最终版 ", 90, 60, 100, 17)
GUICtrlSetFont(-1, 10, 800, 0, "宋体")
$zz = GUICtrlCreateLabel("由 kn007 制作", 90, 100, 100, 17)
$Mail = GUICtrlCreateLabel("kn007@126.com", 85, 125, 100, 17)
GuiCtrlSetCursor($Mail,0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlCreateLabel("欢迎大家提出意见及建议!", 60, 160, 150, 17)
$OK = GUICtrlCreateButton("确定(&O)", 80, 200, 75, 25)
GUISetState(@SW_SHOW)
While 1
Sleep(1)
Switch GUIGetMsg()
Case -3
Exit
Case $OK
Exit
Case $Mail
Run(@ComSpec & " /c " & 'start mailto:kn007@126.com', "", @SW_HIDE)
EndSwitch
WEnd
EndFunc