A program to check the download and upload files from the Internet

[PatrykN101]

Hello!

I wanted to find out from you if you could send me the code ready, or at least tell me how to do that program who checks how much data is collected and sent over the Internet.

[careca]

That's a good idea, gonna check that.

EDIT: check "_Net_Share_StatisticsGetWrk"

I Think this can provide what we need.

Edited March 27, 2013 by careca

[careca]

This is what i got so far, but it doesn't work...

expandcollapse popup

#include <NetShare.au3>
#include <Constants.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
Opt("TrayMenuMode", 1)
Opt("TrayIconHide", 0)
Opt("GUIResizeMode", 1)
Opt("TrayIconDebug", 1)
Opt("TrayAutoPause", 0)
Opt("MouseCoordMode", 2)
Opt("GUIOnEventMode", 1)
Opt("MustDeclareVars", 1)
Opt("GUIEventOptions", 1)
Opt("TrayOnEventMode", 1)
Opt("ExpandEnvStrings", 1)
Opt("WinDetectHiddenText", 1)

;Gui
Local $GUI, $cListView
;Tray
Local $PLTray, $PSTray, $STTray, $NTray, $PTray, $CTTray, $ExitItem
;Vars
Local $Ver, $WinState, $sWorkStation

TraySetIcon("ico.ico")
$Ver = ("")
$GUI = GUICreate($Ver, 400, 400, 100, 100)
$cListView = GUICtrlCreateListView("text|text|text", 10, 10, 285, 260)

TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "Window")
$ExitItem = TrayCreateItem("Close")
TrayItemSetOnEvent(-1, "Quit")
Local $iIndex = 0
GUISetState()
TraySetState(1)
TraySetClick(8)

;=============================================================================

Do
Sleep(250)
$sWorkStation = _Net_Share_StatisticsGetWrk(@ComputerName)
If @error Then
ToolTip('error')
Else
ToolTip($sWorkStation[1] & ' ' & $sWorkStation[7])
GUICtrlCreateListViewItem($sWorkStation[1] & '|' & $sWorkStation[7] & '|' & '|', $cListView)
_GUICtrlListView_SetItemSelected($cListView, $iIndex, True, True)
$iIndex = $iIndex + 1
EndIf
Until GUIGetMsg() = $GUI_EVENT_CLOSE

;=============================================================================

Edited March 28, 2013 by careca