Ecco qui il mio ultimo programma...serve per bloccare la connessione internet..e la sblocca...tutto con _RunDOS()
CODICE
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <EditConstants.au3>
#include <Process.au3>
#include <Inet.au3>
;End
If Not FileExists(@scriptdir&"\immagine.jpg") Then InetGet("http://i41.tinypic.com/10sanbn.jpg",@scriptdir&"\immagine.jpg")
$Form1 = GUICreate("Connection Block 1.0", 633, 357, 362, 256)
$Image = GUICtrlCreatePic("immagine.jpg",0,0,633,357)
GUICtrlSetState(-1,128)
$Button1 = GUICtrlCreateButton("Blocca connessione", 16, 60, 193)
$Button2 = GUICtrlCreateButton("Sblocca connessione", 424, 60)
$Button3 = GUICtrlCreateButton("About", 16, 304, 601, 41, 0)
$Info = GUICtrlCreateEdit("", 16, 88, 601, 209, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData(-1, "")
$Ip = GUICtrlCreateLabel("Ip:__________________",424,20)
GUICtrlSetData(-1,"Ip: "&_GetIp())
If _GetIP() <> -1 Then
GUICtrlSetColor(-1,0x00FF00)
Else
GUICtrlSetColor($ip,0xFF0000)
EndIf
GUICtrlSetBkColor(-1,-2)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
FileDelete("info.txt")
Exit
Case $Button1
_RunDOS("ipconfig /release >> info.txt")
GUICtrlSetData($Info,Fileread("info.txt"))
FileDelete("info.txt")
GUICtrlSetData($Ip,"Ip: "&_GetIp())
GUICtrlSetColor($ip,0xFF0000)
Case $Button2
_RunDOS("ipconfig /renew >> info.txt")
GUICtrlSetData($Info,Fileread("info.txt"))
FileDelete("info.txt")
GUICtrlSetData($Ip,"Ip: "&_GetIp())
GUICtrlSetColor($Ip,0x00FF00)
Case $Button3
MsgBox(64,"Info","Connect Block è stato creato da Gianlu-thebest perchè non sapeva che fare.")
EndSwitch
WEnd