TomCat Posted July 31, 2007 Share Posted July 31, 2007 Hi is there any way to lock complete network traffic and unlock it again with an Autoit script? And if it's possible how can i do it ? Link to comment Share on other sites More sharing options...
martin Posted July 31, 2007 Share Posted July 31, 2007 Hi is there any way to lock complete network traffic and unlock it again with an Autoit script?And if it's possible how can i do it ?I don't really know the best answer and maybe you should search the forums, but one way you could do it is to set your IP address to something completely different so that you would effectively loose connection. Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script. Link to comment Share on other sites More sharing options...
DW1 Posted July 31, 2007 Share Posted July 31, 2007 If you want LAN but no access to the "internet" then possibly change the DNS server to something that doesn't exist AutoIt3 Online Help Link to comment Share on other sites More sharing options...
ptrex Posted August 1, 2007 Share Posted August 1, 2007 @all Maybe this can give you a start. expandcollapse popup#include <GUIConstants.au3> #include <Constants.au3> Opt("GUIOnEventMode", 1) ; == GUI generated with Koda ==); $NetGUI = GUICreate("NetStats", 293, 190, 195, 148) GUICtrlCreateLabel("Uploaded", 8, 8, 73, 20, $WS_GROUP) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $UpLoad = GUICtrlCreateLabel("Upload", 8, 32, 100, 20, BitOR($SS_SUNKEN,$WS_GROUP)) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("Downloaded", 176, 8, 91, 20, $WS_GROUP) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Download = GUICtrlCreateLabel("Download", 176, 32, 105, 20, BitOR($SS_SUNKEN,$WS_GROUP)) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Up = GUICtrlCreateLabel("TodayUp", 8, 96, 100, 20, BitOR($SS_SUNKEN,$WS_GROUP)) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Down = GUICtrlCreateLabel("TodayDown", 176, 96, 100, 20, BitOR($SS_SUNKEN,$WS_GROUP)) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("Today", 8, 72, 49, 20, $WS_GROUP) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Reset = GUICtrlCreateButton("Reset", 104, 156, 73, 25) ;GUICtrlSetOnEvent ( $Reset, "_reset" ) GUISetOnEvent(-3, "_exit") GUISetState(@SW_SHOW) $UpStr = 0 $DownStr = 0 $Tup = 0 $Tdwn = 0 _netstat($UpStr,$DownStr); Get inital values $Tup = $UpStr $Tdwn = $DownStr While 1 _netstat($UpStr,$DownStr) GUICtrlSetData($Download,$DownStr) GUICtrlSetData($Upload,$UpStr) $TodayUp = $UpStr - $Tup $TodayDown = $DownStr - $Tdwn GUICtrlSetData($Up, $TodayUp) GUICtrlSetData($Down, $TodayDown) Sleep(1000) WEnd Func _netstat( ByRef $UpStr, ByRef $DownStr) $NetStat = Run(@comspec & " /c netstat -e", @SystemDir, @SW_HIDE,2) $Line = StdOutRead ($NetStat,130) $Start = StringInStr ( $Line, "Bytes") $Line = StringMid ( $Line, $start + 5 ) $Line = StringStripWS ( $Line, 7 ) $Lines = StringSplit($Line," ") $UpStr = $Lines[2] $DownStr = $Lines[1] EndFunc ;Func _Reset(ByRef $TUp, ByRef $TDwn) ; _netstat($UpStr,$DownStr) ; $Tup = $UpStr ; $Tdwn = $DownStr ;EndFunc Func _exit() Exit EndFunc regards, ptrex Contributions :Firewall Log Analyzer for XP - Creating COM objects without a need of DLL's - UPnP support in AU3Crystal Reports Viewer - PDFCreator in AutoIT - Duplicate File FinderSQLite3 Database functionality - USB Monitoring - Reading Excel using SQLRun Au3 as a Windows Service - File Monitor - Embedded Flash PlayerDynamic Functions - Control Panel Applets - Digital Signing Code - Excel Grid In AutoIT - Constants for Special Folders in WindowsRead data from Any Windows Edit Control - SOAP and Web Services in AutoIT - Barcode Printing Using PS - AU3 on LightTD WebserverMS LogParser SQL Engine in AutoIT - ImageMagick Image Processing - Converter @ Dec - Hex - Bin -Email Address Encoder - MSI Editor - SNMP - MIB ProtocolFinancial Functions UDF - Set ACL Permissions - Syntax HighLighter for AU3ADOR.RecordSet approach - Real OCR - HTTP Disk - PDF Reader Personal Worldclock - MS Indexing Engine - Printing ControlsGuiListView - Navigation (break the 4000 Limit barrier) - Registration Free COM DLL Distribution - Update - WinRM SMART Analysis - COM Object Browser - Excel PivotTable Object - VLC Media Player - Windows LogOnOff Gui -Extract Data from Outlook to Word & Excel - Analyze Event ID 4226 - DotNet Compiler Wrapper - Powershell_COM - New Link to comment Share on other sites More sharing options...
martin Posted August 1, 2007 Share Posted August 1, 2007 @all Maybe this can give you a start. expandcollapse popup#include <GUIConstants.au3> #include <Constants.au3> Opt("GUIOnEventMode", 1) ; == GUI generated with Koda ==); $NetGUI = GUICreate("NetStats", 293, 190, 195, 148) GUICtrlCreateLabel("Uploaded", 8, 8, 73, 20, $WS_GROUP) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $UpLoad = GUICtrlCreateLabel("Upload", 8, 32, 100, 20, BitOR($SS_SUNKEN,$WS_GROUP)) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("Downloaded", 176, 8, 91, 20, $WS_GROUP) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Download = GUICtrlCreateLabel("Download", 176, 32, 105, 20, BitOR($SS_SUNKEN,$WS_GROUP)) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Up = GUICtrlCreateLabel("TodayUp", 8, 96, 100, 20, BitOR($SS_SUNKEN,$WS_GROUP)) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Down = GUICtrlCreateLabel("TodayDown", 176, 96, 100, 20, BitOR($SS_SUNKEN,$WS_GROUP)) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlCreateLabel("Today", 8, 72, 49, 20, $WS_GROUP) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Reset = GUICtrlCreateButton("Reset", 104, 156, 73, 25) ;GUICtrlSetOnEvent ( $Reset, "_reset" ) GUISetOnEvent(-3, "_exit") GUISetState(@SW_SHOW) $UpStr = 0 $DownStr = 0 $Tup = 0 $Tdwn = 0 _netstat($UpStr,$DownStr); Get inital values $Tup = $UpStr $Tdwn = $DownStr While 1 _netstat($UpStr,$DownStr) GUICtrlSetData($Download,$DownStr) GUICtrlSetData($Upload,$UpStr) $TodayUp = $UpStr - $Tup $TodayDown = $DownStr - $Tdwn GUICtrlSetData($Up, $TodayUp) GUICtrlSetData($Down, $TodayDown) Sleep(1000) WEnd Func _netstat( ByRef $UpStr, ByRef $DownStr) $NetStat = Run(@comspec & " /c netstat -e", @SystemDir, @SW_HIDE,2) $Line = StdOutRead ($NetStat,130) $Start = StringInStr ( $Line, "Bytes") $Line = StringMid ( $Line, $start + 5 ) $Line = StringStripWS ( $Line, 7 ) $Lines = StringSplit($Line," ") $UpStr = $Lines[2] $DownStr = $Lines[1] EndFunc ;Func _Reset(ByRef $TUp, ByRef $TDwn) ; _netstat($UpStr,$DownStr) ; $Tup = $UpStr ; $Tdwn = $DownStr ;EndFunc Func _exit() Exit EndFunc regards, ptrex Not obvious how that can be used to block traffic. Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now