找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › [已解决]请教百分比的获取
返回列表 发新帖
查看: 6169|回复: 12

[网络通信] [已解决]请教百分比的获取

 火 [复制链接]
itljl
发表于 2010-3-11 09:37:59 | 显示全部楼层 |阅读模式
本帖最后由 itljl 于 2010-3-11 12:23 编辑

有知道的朋友分享一下，不知道的朋友我们一起找相关函数。
另，可别说打开任务管理器获取控件数据啊。
百分比, 获取

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

评分

参与人数 1金钱 +10 收起 理由
afan + 10 感谢主动将修改帖子分类为[已解决]，请继续 ...

查看全部评分

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
itljl
 楼主| 发表于 2010-3-11 09:45:01 | 显示全部楼层
方法一，但经常获取到的数据为空（非0）

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $Output = $Output & "AdapterType: " & $objItem.AdapterType & @CRLF
      $Output = $Output & "AdapterTypeId: " & $objItem.AdapterTypeId & @CRLF
      $Output = $Output & "AutoSense: " & $objItem.AutoSense & @CRLF
      $Output = $Output & "Availability: " & $objItem.Availability & @CRLF
      $Output = $Output & "Caption: " & $objItem.Caption & @CRLF
      $Output = $Output & "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF
      $Output = $Output & "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF
      $Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF
      $Output = $Output & "Description: " & $objItem.Description & @CRLF
      $Output = $Output & "DeviceID: " & $objItem.DeviceID & @CRLF
      $Output = $Output & "ErrorCleared: " & $objItem.ErrorCleared & @CRLF
      $Output = $Output & "ErrorDescription: " & $objItem.ErrorDescription & @CRLF
      $Output = $Output & "Index: " & $objItem.Index & @CRLF
      $Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
      $Output = $Output & "Installed: " & $objItem.Installed & @CRLF
      $Output = $Output & "LastErrorCode: " & $objItem.LastErrorCode & @CRLF
      $Output = $Output & "MACAddress: " & $objItem.MACAddress & @CRLF
      $Output = $Output & "Manufacturer: " & $objItem.Manufacturer & @CRLF
      $Output = $Output & "MaxNumberControlled: " & $objItem.MaxNumberControlled & @CRLF
      $Output = $Output & "MaxSpeed: " & $objItem.MaxSpeed & @CRLF
      $Output = $Output & "Name: " & $objItem.Name & @CRLF
      $Output = $Output & "NetConnectionID: " & $objItem.NetConnectionID & @CRLF
      $Output = $Output & "NetConnectionStatus: " & $objItem.NetConnectionStatus & @CRLF
      $strNetworkAddresses = $objItem.NetworkAddresses(0)
      $Output = $Output & "NetworkAddresses: " & $strNetworkAddresses & @CRLF
      $Output = $Output & "PermanentAddress: " & $objItem.PermanentAddress & @CRLF
      $Output = $Output & "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF
      $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)
      $Output = $Output & "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
      $Output = $Output & "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
      $Output = $Output & "ProductName: " & $objItem.ProductName & @CRLF
      $Output = $Output & "ServiceName: " & $objItem.ServiceName & @CRLF
      $Output = $Output & "Speed: " & $objItem.Speed & @CRLF
      $Output = $Output & "Status: " & $objItem.Status & @CRLF
      $Output = $Output & "StatusInfo: " & $objItem.StatusInfo & @CRLF
      $Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
      $Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF
      $Output = $Output & "TimeOfLastReset: " & WMIDateStringToDate($objItem.TimeOfLastReset) & @CRLF
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI 输出","No WMI Objects Found for class: " & "Win32_NetworkAdapter" )
Endif


Func WMIDateStringToDate($dtmDate)

        Return (StringMid($dtmDate, 5, 2) & "/" & _
        StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
        & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc
回复

举报

pusofalse
发表于 2010-3-11 10:58:10 | 显示全部楼层
试下这样可否~？
Const $tagMIB_IFROW = "wchar Name[256];dword Index;dword Type;dword Mtu;dword Speed;dword PhysicalAddrLen;byte PhysicalAddr[8];dword AdminStatus;dword OperStatus;dword LastChange;dword InOctets;dword InUcastPkts;dword InNUcastPkts;dword InDiscards;dword InErrors;dword InUnknownProtos;dword OutOctets;dword OutUcastPkts;dword OutNUcastPkts;dword OutDiscards;dword OutErros;dword OutQLen;dword DescrLen;char Descr[256]"

Local $aIfEntry = _EnumIfEntries()
Local $iPrevInOctets = $aIfEntry[2][8]
Local $iPrevOuOctets = $aIfEntry[2][9]
Local $iCurrOctets, $iCurrOuOctets, $iCurrInOctets, $iIfIndex

For $i = 1 To $aIfEntry[0][0]
        If ($aIfEntry[$i][3] = 6) Then
                $iIfIndex = $aIfEntry[$i][2]
                ExitLoop
        EndIf
Next
If ($iIfIndex = 0) Then Exit

HotKeySet("{esc}", "_Quit")

While 1
        $aIfEntry = _EnumIfEntries()
        $iCurrInOctets = $aIfEntry[$iIfIndex][8] - $iPrevInOctets
        $iCurrOuOctets = $aIfEntry[$iIfIndex][9] - $iPrevOuOctets
        $iPrevInOctets = $aIfEntry[$iIfIndex][8]
        $iPrevOuOctets = $aIfEntry[$iIfIndex][9]
        $iCurrOctets = $iCurrInOctets + $iCurrOuOctets

        ToolTip(Round($iCurrOctets / $aIfEntry[$iIfIndex][4] * 1000, 2))
        $aIfEntry = 0
        Sleep(900)
WEnd

Func _Quit()
        exit
EndFunc        ;==>_Quit

Func _EnumIfEntries()
        Local $iResult, $tBuffer, $pBuffer, $tIfEntry, $tCount, $aResult[1][10]

        $iResult = DllCall("iphlpapi.dll", "dword", "GetIfTable", "ptr", 0, "ulong*", 0, "int", 1)
        $tBuffer = DllStructCreate("ubyte Binary[" & $iResult[2] & "]")
        $pBuffer = DllStructGetPtr($tBuffer, "Binary")

        $iResult = DllCall("iphlpapi.dll", "dword", "GetIfTable", "ptr", $pBuffer, _
                        "ulong*", $iResult[2], "int", 1)
        $tCount = DllStructCreate("ulong NumberofEntries", $pBuffer)
        $aResult[0][0] = DllStructGetData($tCount, "NumberofEntries")
        Redim $aResult[$aResult[0][0] + 1][10]

        $pBuffer += 4
        For $i = 1 To $aResult[0][0]
                $tIfEntry = DllStructCreate($tagMIB_IFROW, $pBuffer)
                $pBuffer += DllStructGetSize($tIfEntry)

                $aResult[$i][0] = DllStructGetData($tIfEntry, "Name")
                $aResult[$i][1] = DllStructGetData($tIfEntry, "Descr")
                $aResult[$i][2] = DllStructGetData($tIfEntry, "Index")
                $aResult[$i][3] = DllStructGetData($tIfEntry, "Type")
                $aResult[$i][4] = DllStructGetData($tIfEntry, "Speed")
                $aResult[$i][5] = DllStructGetData($tIfEntry, "PhysicalAddr")
                $aResult[$i][6] = DllStructGetData($tIfEntry, "AdminStatus")
                $aResult[$i][7] = DllStructGetData($tIfEntry, "OperStatus")
                $aResult[$i][8] = DllStructGetData($tIfEntry, "InOctets")
                $aResult[$i][9] = DllStructGetData($tIfEntry, "OutOctets")
                $tIfEntry = 0
        Next
        $tBuffer = 0
        Return SetError($iResult[0], 0, $aResult)
EndFunc        ;==>_EnumIfEntries

评分

参与人数 1金钱 +10 收起 理由
itljl + 10 谢谢 XP SP2 测试正常

查看全部评分

回复

举报

itljl
 楼主| 发表于 2010-3-11 11:10:47 | 显示全部楼层
回复 3# pusofalse

谢谢，很帅，xp sp2 测试正常。
回复

举报

pusofalse
发表于 2010-3-11 11:14:23 | 显示全部楼层
如果做成任务管理器那般的曲线图就更好了，苦于对绘图方面的代码一窍不通~ - -|||
回复

举报

itljl
 楼主| 发表于 2010-3-11 11:18:44 | 显示全部楼层
回复 5# pusofalse

这个我来绘，等等。
但有个问题Sleep(900) ，必须是这个值 。如果改成 sleep(2000)就不准了。之所以有这个问题主要是，程序可能还有其它代码会执行，不是只执行这一段代码。
回复

举报

pusofalse
发表于 2010-3-11 11:25:23 | 显示全部楼层
不是不准，而是与任务管理器中显示的不同步，其实线性关系是一样的。
上面的代码，我为了与任务管理器的同步，调试了好一阵才确定为900的。
回复

举报

itljl
 楼主| 发表于 2010-3-11 11:32:43 | 显示全部楼层
回复 7# pusofalse
[code]
Const $tagMIB_IFROW = "wchar Name[256];dword Index;dword Type;dword Mtu;dword Speed;dword PhysicalAddrLen;byte PhysicalAddr[8];dword AdminStatus;dword OperStatus;dword LastChange;dword InOctets;dword InUcastPkts;dword InNUcastPkts;dword InDiscards;dword InErrors;dword InUnknownProtos;dword OutOctets;dword OutUcastPkts;dword OutNUcastPkts;dword OutDiscards;dword OutErros;dword OutQLen;dword DescrLen;char Descr[256]"

Local $aIfEntry = _EnumIfEntries()
Local $iPrevInOctets = $aIfEntry[2][8]
Local $iPrevOuOctets = $aIfEntry[2][9]
Local $iCurrOctets, $iCurrOuOctets, $iCurrInOctets, $iIfIndex

For $i = 1 To $aIfEntry[0][0]
        If ($aIfEntry[$i][3] = 6) Then
                $iIfIndex = $aIfEntry[$i][2]
                ExitLoop
        EndIf
Next
If ($iIfIndex = 0) Then Exit

HotKeySet("{esc}", "_Quit")

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>

Global $IDLETIME, $KERNELTIME, $USERTIME
Global $StartIdle, $StartKernel, $StartUser
Global $EndIdle, $EndKernel, $EndUser
Global $Timer
$hGUI = GUICreate("CPUmon", 400, 300, -1, -1, 0x80800000);, $WS_EX_TOPMOST)
GUISetBkColor(0x000000)

GUICtrlCreateGraphic(0, 0, 400, 300)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x008040)
For $y = 25 To 375 Step 25
        GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $y)
        GUICtrlSetGraphic(-1, $GUI_GR_LINE, 400, $y)
Next
For $x = 25 To 575 Step 25
        GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $x, 0)
        GUICtrlSetGraphic(-1, $GUI_GR_LINE, $x, 300)
Next

$gr = GUICtrlCreateGraphic(0, 50, 400, 300)
$lb = GUICtrlCreateLabel("测试数据", 300, 200, 25, 25)
GUICtrlSetColor(-1, 0x00FF00)
GUISetState()
GUICtrlSetGraphic($gr, $GUI_GR_COLOR, 0x00FF00)

$x = 0
$y = 0
$dx = 400
$dy = 300
GUICtrlSetGraphic($gr, $GUI_GR_MOVE, $dx, $dy)

;绘图示例
;~ ;$Y | ,$x _
While 1
        $dx += 10 ;X轴两个点之间的间隔
        $dy = Random(50, 250, 1) ;产生随机数，在1-100之间都行
        GUICtrlSetGraphic($gr, $GUI_GR_LINE, $dx, $dy) ;$dx $dy
        GUICtrlSetGraphic($gr, $GUI_GR_REFRESH)
        $x -= 2
        GUICtrlSetPos($gr, $x, $y)
        GUICtrlSetPos($lb, $x + 300, $y)
        Sleep(100)
WEnd



While 1
        $aIfEntry = _EnumIfEntries()
        $iCurrInOctets = $aIfEntry[$iIfIndex][8] - $iPrevInOctets
        $iCurrOuOctets = $aIfEntry[$iIfIndex][9] - $iPrevOuOctets
        $iPrevInOctets = $aIfEntry[$iIfIndex][8]
        $iPrevOuOctets = $aIfEntry[$iIfIndex][9]
        $iCurrOctets = $iCurrInOctets + $iCurrOuOctets


        $dx += 10 ;X轴两个点之间的间隔
        $dy = Round($iCurrOctets / $aIfEntry[$iIfIndex][4] * 1000, 0) ;计算

        ToolTip("检测网络使用率: " & $dy & " %", 10, 10)
        ;绘图开始

        GUICtrlSetGraphic($gr, $GUI_GR_LINE, $dx, $dy) ;$dx $dy

        GUICtrlSetGraphic($gr, $GUI_GR_REFRESH)
        $x -= 2
        GUICtrlSetPos($gr, $x, $y)
        GUICtrlSetPos($lb, $x + 300, $y)
        ;绘图结束
        $aIfEntry = 0
        Sleep(500)
WEnd

Func _Quit()
        Exit
EndFunc   ;==>_Quit

Func _EnumIfEntries()
        Local $iResult, $tBuffer, $pBuffer, $tIfEntry, $tCount, $aResult[1][10]

        $iResult = DllCall("iphlpapi.dll", "dword", "GetIfTable", "ptr", 0, "ulong*", 0, "int", 1)
        $tBuffer = DllStructCreate("ubyte Binary[" & $iResult[2] & "]")
        $pBuffer = DllStructGetPtr($tBuffer, "Binary")

        $iResult = DllCall("iphlpapi.dll", "dword", "GetIfTable", "ptr", $pBuffer, _
                        "ulong*", $iResult[2], "int", 1)
        $tCount = DllStructCreate("ulong NumberofEntries", $pBuffer)
        $aResult[0][0] = DllStructGetData($tCount, "NumberofEntries")
        ReDim $aResult[$aResult[0][0] + 1][10]

        $pBuffer += 4
        For $i = 1 To $aResult[0][0]
                $tIfEntry = DllStructCreate($tagMIB_IFROW, $pBuffer)
                $pBuffer += DllStructGetSize($tIfEntry)

                $aResult[$i][0] = DllStructGetData($tIfEntry, "Name")
                $aResult[$i][1] = DllStructGetData($tIfEntry, "Descr")
                $aResult[$i][2] = DllStructGetData($tIfEntry, "Index")
                $aResult[$i][3] = DllStructGetData($tIfEntry, "Type")
                $aResult[$i][4] = DllStructGetData($tIfEntry, "Speed")
                $aResult[$i][5] = DllStructGetData($tIfEntry, "PhysicalAddr")
                $aResult[$i][6] = DllStructGetData($tIfEntry, "AdminStatus")
                $aResult[$i][7] = DllStructGetData($tIfEntry, "OperStatus")
                $aResult[$i][8] = DllStructGetData($tIfEntry, "InOctets")
                $aResult[$i][9] = DllStructGetData($tIfEntry, "OutOctets")
                $tIfEntry = 0
        Next
        $tBuffer = 0
        Return SetError($iResult[0], 0, $aResult)
EndFunc   ;==>_EnumIfEntries
[code]

绘图。调整  $dy 在 100以内，就能按比例显示了。超过100就超过了绘图控件的顶端。
第一个循环是演示，第二个循环是显示网络连接使用率

评分

参与人数 2金钱 +40 收起 理由
水木子 + 20 效果不错！
pusofalse + 20 学习了。

查看全部评分

回复

举报

itljl
 楼主| 发表于 2010-3-11 11:42:00 | 显示全部楼层
回复 7# pusofalse



我测试了一下，如果sleep时间多一秒获得的使用率就会多一倍(图是我改成3000的时候的截图)。
所以，如果将这个放到其它程序物循环中，其它程序的的其它函数如果占用了时间，这个获取的使用率就不准了。
所以，我想应该是获取一个系统时间，最后程序计算使用率的时候，用使用率来/时间，这样才是每秒的使用率。

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

itljl
 楼主| 发表于 2010-3-11 11:53:09 | 显示全部楼层
回复 9# itljl


    用 $dif = TimerDiff($begin) 解决了这个问题。。
回复

举报

lxz
发表于 2010-3-11 12:01:57 | 显示全部楼层
很好，很强大......
回复

举报

itljl
 楼主| 发表于 2010-3-11 12:05:41 | 显示全部楼层
刚想编辑贴子为已解决，发现没有这个选项了。。
回复

举报

pusofalse
发表于 2010-3-11 12:17:54 | 显示全部楼层
回复 12# itljl


    是的，现在的帖子分类已经去掉“已解决”了，给帖子标题手动加注“已解决”字样即可。
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2025-1-12 07:59 , Processed in 0.127528 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表