• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-Ping工具GUI

AutoIT3 奇跡の海 1年前 (2017-11-06) 519次浏览 已收录 1个评论 扫描二维码

代码简介

AutoIt3(au3)源码-Ping工具GUI
测试网络的ping工具,源码。带GUI窗口

源代码

#NoTrayIcon
#include <ButtonConstants.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Version = 'Pint It'
If WinExists($Version) Then Exit
AutoItWinSetTitle($Version)


$MainWindow = GUICreate("   Ping It", 371, 263)
$IPAddress = _GUICtrlIpAddress_Create($MainWindow, 56, 2, 121, 17)
_GUICtrlIpAddress_Set($IPAddress, "114.114.114.114")
GUICtrlCreateLabel("IP地址:", 5, 4, 46, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x808080)
$Ping = GUICtrlCreateButton("Ping It", 184, 2, 65, 18, 0)
GUICtrlSetTip(-1, "Ping 输入的IP地址")
$Copy = GUICtrlCreateButton("Copy the Result", 251, 2, 118, 18, 0)
GUICtrlSetTip(-1, "复制返回值到剪贴板")
GUICtrlSetFont(-1, 7, 400, 0, "MS Sans Serif")
$Edit = GUICtrlCreateEdit("", 0, 24, 369, 217)
GUICtrlSetData(-1, "<返回值显示区域>")
$Status = GUICtrlCreateLabel(" Ready...", 0, 244, 260, 17, $SS_SUNKEN)
$Writer = GUICtrlCreateLabel("Ping It -- By: 5i3p", 266, 245, 103, 17)
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetState($Writer, $GUI_DISABLE)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        Case $Ping
                        GUICtrlSetData($Status, " Ping "&_GUICtrlIpAddress_Get($IPAddress)&"...")
                        GUICtrlSetData($Edit, "")
                        GUICtrlSetState($Edit, $GUI_DISABLE)
                        $iptext = FileOpen(@TempDir&"ip.bat",2)
                        FileWriteLine($iptext, "@echo off")
                        FileWriteLine($iptext, "ping "&_GUICtrlIpAddress_Get($IPAddress)&" -n 10")
                        FileClose($iptext)
                        _Ping()
                Case $Copy
                        ClipPut(GUICtrlRead($Edit))
                        MsgBox(0, "提示", "复制成功!")
        EndSwitch
        _ReduceMemory(@AutoItPID)
WEnd

Func _Ping()
    $Result = Run(@TempDir&"ip.bat", @TempDir, @SW_HIDE, $STDOUT_CHILD)
    While 1
        $Line = StdoutRead($Result)
        If @error Then ExitLoop
        GUICtrlSetData($Edit, $Line, -1)
    WEnd
        GUICtrlSetState($Edit, $GUI_ENABLE)
        GUICtrlSetData($Status, " Ready...")
EndFunc


Func _ReduceMemory($i_PID = -1)
        If $i_PID <> -1 Then
                Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
                Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
                DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
        Else
                Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
        EndIf

        Return $ai_Return[0]
EndFunc

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(au3)源码-Ping工具GUI!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
(1)个小伙伴在吐槽
  1. 1 中途不能暂停 2.不带常ping -t 参数
    blbl2018-10-11 23:29 回复 Windows 7 | 搜狗浏览器 2.X