Swf Downloader 0.5

« Older Newer »

Sora2000

Posted on 8/7/2011, 17:42

Come dice il nome questo programma permette di scaricare da internet i giochi formato .swf per poi giocarci offline basta copiare il link del gioco ed è fatto, è ancora in costruzione AVVERTENZE:Non scarica ovunque, comunque ecco il Source:

SPOILER (clicca per visualizzare)

CODICE

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: Sora2000
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <guiedit.au3>
#include <file.au3>
#include <INet.au3>
#include <stringsearch.au3>
#include <GuilistView.au3>
#include <GuiButton.au3>
#include <Firma.au3>
#include <Crypt.au3>
If not FileExists("log\log.log") Then
DirCreate("log")
_FileCreate("log\log.log")
EndIf
Global $ListView1,$Button3,$flag1=1,$flag2=1,$flag3=1,$flag4=1,$CHECK_LINK=0
$Form1 = GUICreate("Swf Downloader V 0.5", 557, 296, 190, 124)
$Edit1 = GUICtrlCreateEdit("", 2, 0, 553, 145)
GUICtrlSetData(-1, "Benvenuto in Swf Downloader V 0.5 creato da Sora2000"&@CRLF&"Ricordati di visitare il forum www.autoitfanclub.com"&@CRLF&@CRLF)
$Input1 = GUICtrlCreateInput("Inserisci qui il Link", 2, 164, 413, 21)
$Label1 = GUICtrlCreateLabel("Link Download:>", 2, 146, 84, 17)
$Button1 = GUICtrlCreateButton("Incolla da ClipBoard", 414, 162, 141, 25)
$Button2 = GUICtrlCreateButton("Download SWF", 133, 228, 291, 45)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Narrow")
$ProgressBar = GUICtrlCreateProgress(2, 192, 552, 33)
$Button4 = GUICtrlCreateButton("About", 424, 228, 127, 45)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Narrow")
$Label2 = GUICtrlCreateLabel("Versione 0.5", 492, 282, 63, 13)
$Label3 = GUICtrlCreateLabel("Seguici su AutoitFanClub", 198, 274, 160, 20)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Narrow")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)

_FileWriteLog("log\Log.log","Programma Inizializzato!!")
_GUICtrlEdit_BeginUpdate($Edit1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_MOUSEMOVE
Colora(GUIGetCursorInfo())
Case $GUI_EVENT_CLOSE
_FileWriteLog("log\Log.log","Programma Chiuso!")
Exit
Case $Button1
_FileWriteLog("log\Log.log","Copia da Clipboard")
GUICtrlSetData($Input1,ClipGet())
Case $Button2
Check_Download(GUICtrlRead($Input1),$Edit1,$ProgressBar)
Case $Button4
About("Swf Downloader V 0.5","Sora2000","Permette di scaricare i giochi online"&@CRLF&"formato .swf Premi ESC per uscire","0.5",100,100)
Case $Label3
ShellExecute("http://autoit.forumcommunity.net/")
EndSwitch
WEnd

Func Colora($pos)
If $pos[4] = $Label3 And $flag1 = 1 Then
GUICtrlSetColor($Label3, 0x3399FF)

$flag1 = 0
ElseIf $pos[4] <> $Label3 And $flag1 = 0 Then
GUICtrlSetColor($Label3, 0x000000)
$flag1= 1
EndIf
If $pos[4] = $Button2 And $flag2 = 1 Then
GUICtrlSetColor($Button2, 0x00853E)
GUICtrlSetBkColor($Button2,0xD6DDEF)
$flag2 = 0
ElseIf $pos[4] <> $Button2 And $flag2 = 0 Then
GUICtrlSetColor($Button2, 0x000000)
GUICtrlSetBkColor($Button2,0xF0F0F0)
$flag2= 1
EndIf
If $pos[4] = $Button4 And $flag3 = 1 Then
GUICtrlSetColor($Button4, 0xFFFF00)
GUICtrlSetBkColor($Button4,0xD6DDEF)
$flag3 = 0
ElseIf $pos[4] <> $Button4 And $flag3 = 0 Then
GUICtrlSetColor($Button4, 0x000000)
GUICtrlSetBkColor($Button4,0xF0F0F0)
$flag3= 1
EndIf
If $pos[4] = $Button1 And $flag4 = 1 Then
GUICtrlSetColor($Button1, 0xB60000)
GUICtrlSetBkColor($Button1,0xD6DDEF)
$flag4 = 0
ElseIf $pos[4] <> $Button1 And $flag4 = 0 Then
GUICtrlSetColor($Button1, 0x000000)
GUICtrlSetBkColor($Button1,0xF0F0F0)
$flag4= 1
EndIf
EndFunc

Func Check_Download($Link,$hEdit,$Progress1)
_GUICtrlEdit_EndUpdate($Edit1)
GUICtrlSetData($Progress1,10) ;Modalita Scarica Source;
_GUICtrlEdit_AppendText($hEdit,"Scarico il Source Attendere 10%"&@CRLF)
$source=_INetGetSource($Link)
_GUICtrlEdit_AppendText($hEdit,"Scarico il Source Attendere 20%"&@crlf)
GUICtrlSetData($Progress1,20) ;Modalita Scarica Source FINE;
Sleep(500)
$Url=_StringFetch($source,"value="&Chr(34),".swf"&Chr(34)&">") ;Modalita Ricerca Link;
GUICtrlSetData($Progress1,40)
_GUICtrlEdit_AppendText($hEdit,$Url&".swf"&@CRLF)
_FileWriteLog("log\Log.log","Download da:"&$Url&".swf")
$Name_Game=_StringFetch($source,"<html><head><title>","|")
Sleep(500) ;Modalita Ricerca Link FINE;
GUICtrlSetData($Progress1,50) ;Scarica File SWF;
_GUICtrlEdit_AppendText($hEdit,"Download gioco... TiToLo=> "&$Name_Game&@CRLF)
_GUICtrlEdit_AppendText($hEdit,"scarico da:>"&$Url&".swf 30%"&@CRLF)
InetGet($Url&".swf",$Name_Game&".swf")
GUICtrlSetData($Progress1,60)
Sleep(500) ;Scarica File SWF FINE;
GUICtrlSetData($Progress1,100) ;Controllo file;
_GUICtrlEdit_AppendText($hEdit,"Download completato 100"&@CRLF)
_GUICtrlEdit_AppendText($hEdit,"Controllo esistenza file..."&@CRLF)
If FileExists($Name_Game&".swf") Then
$Result=True
_FileWriteLog("log\Log.log","Download da URL:"&GUICtrlRead($Input1)&" ----->> ESITO: POSITIVO"&@CRLF)
Else
$Result=False
_FileWriteLog("log\Log.log","Download da URL:"&GUICtrlRead($Input1)&" ----->> ESITO: NEGATIVO"&@CRLF)

EndIf
Sleep(1000)
_GUICtrlEdit_AppendText($hEdit,"Risultati:> "&$Name_Game&"="&$Result&@CRLF)
_GUICtrlEdit_AppendText($hEdit,"A-----------------------------------------A------------------------------------A"&@CRLF&@CRLF)
_GUICtrlEdit_BeginUpdate($hEdit)
Sleep(1000)
GUICtrlSetData($Progress1,0) ;Controllo file Fine;
EndFunc