CODICE
#include <inet.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <guiedit.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("scansionea processi", 466, 300, 192, 124)
$Progress1 = GUICtrlCreateProgress(16, 264, 278, 25)
$can = GUICtrlCreateButton("scasiona", 309, 261, 150, 30, $WS_GROUP)
$virus = GUICtrlCreateEdit("", 8, 32, 441, 217, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
$Label1 = GUICtrlCreateLabel("processi di virus trovati:", 16, 8, 114, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $can
GUICtrlSetData($virus,"scansione in corso...")
FileDelete( "log.txt")
$processi = ProcessList()
for $a=1 to $processi[0][0]
$nome = $processi[$a][0]
$int = "http://www.processlibrary.com/it/directory/files/" & $nome
$codice =_INetGetSource($int)
$inizio = '<div id="content" class="'
$Ret=""
$fine = '">'
For $i=1 to StringLen($codice)
if StringLower(StringMid($codice,$i,StringLen($inizio)))=StringLower($inizio) Then
$ii=$i+StringLen($inizio)-1
While 1
$ii+=1
if StringMid($codice,$ii,StringLen($fine))=$fine then ExitLoop
$Ret&=StringMid($codice,$ii,1)
WEnd
$Ret=StringReplace($Ret,"<br> ",@CRLF)
ExitLoop
EndIf
Next
if $Ret = "un" then $ret = "sconosciuto"
if $ret = "safe" then $ret = "sicuro"
if $ret = "high" then
$ret = "alto rischio"
_GUICtrlEdit_AppendText($virus,$nome)
EndIf
FileWriteline("log.txt",$ret & " " & $nome)
$percentuale = ($a/$processi[0][0])*100
GUICtrlSetData($Progress1,$percentuale)
Next
_GUICtrlEdit_AppendText($virus,"scansione completata per ulteriori informazioni consulta il file log")
EndSwitch
WEnd