Find That Sh1t, Troviamo file in rs, mu, ed2k, torrent, google

« Older   Newer »
  Share  
lknokl
CAT_IMG Posted on 26/6/2008, 15:38     +1   -1




ecco la mia ultima creazione, oltre che aggiornamento del vecchio dork abuser
questa versione consente di trovare file in:
megaupload
rapidshare
ed2k (emule e edonkey)
torrent
tramite google dork

ogni tipo di file ha diverse opzioni di ricerca e le google dork hanno un nuovo metodo di costruzione personalizzata a prova di bambino delle elementari (bottoni da schiacciare tongue )

la grafica mi sembra moooooolto carina (tranne la parte di google che ho fatto molto di fretta)
essendo una versione beta ci sono molti bug lloll

programma e esegibile lo trovate qui: http://lknokl.googlepages.com/FindThatSh1t.rar ricordatevi di mettere la cartella grafica nella stessa cartella dell'eseguibile (@scriptdir&"grafica")

qui c'e il sorgente anche se abbastanza inutile

approposito: SCARICARE FILE CON DIRITTI D'AUTORE E' ILLEGALE....non mi assumo responsabilità per utilizzi illegali di questo tool!

CODICE
#include <GUIConstants.au3>
$home=guicreate("Find That Sh1t",300,472,-1,-1,$WS_POPUP)
$pic=GUICtrlCreatePic ( @ScriptDir&"graficasfondo.jpg",0,0,0,0)
GuiCtrlSetState(-1,$GUI_DISABLE)
$Emule= GUICtrlCreateButton("(Not allowed)", 0, 396, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir&"graficaEmule.bmp", 0)
$Torrent = GUICtrlCreateButton("(Not allowed)", 0, 174, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficatorrent.bmp", 0)
$Rs = GUICtrlCreateButton("(Not allowed)", 0, 248, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficaRapidshare.bmp", 0)
$Mu = GUICtrlCreateButton("(Not allowed)", 0, 322, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficamegaupload.bmp", 0)
$Google = GUICtrlCreateButton("(Not allowed)", 0, 100, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficagoogle.bmp", 0)
$min = GUICtrlCreateButton("(Not allowed)", 268, 0, 16, 16, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficaricona.bmp", 0)
$exit = GUICtrlCreateButton("(Not allowed)", 284, 0, 16, 16, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficachiudi.bmp", 0)
guisetstate (@sw_show)
while 1
       Main ()
WEnd







func Main ()

               $home=GUIGetMsg ()
       switch $home
               case $Emule
               ;;;;;;;;;;;;;;;;;;;;;;emule;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                                       $Form1 = GUICreate("Form1", 340, 289, -1, -1)
                                       $pic=GUICtrlCreatePic ( @ScriptDir&"graficasfondoed2k.bmp",0,0,0,0)
                                       GuiCtrlSetState(-1,$GUI_DISABLE)
                                       $Egoogle = GUICtrlCreateButton("(Not allowed)", 48, 165, 254, 69, $BS_BITMAP)
                                       GUICtrlSetImage(-1,  @ScriptDir&"graficaed2kgoogle.bmp", 0)
                                       $Input1 = GUICtrlCreateInput("", 48, 58, 252, 35)
                                       GUICtrlSetFont(-1, 18, 400, 0, "Comic Sans MS")
                                       $Label1 = GUICtrlCreateLabel("Nome File", 115, 18, 116, 37,"",$WS_EX_TRANSPARENT)
                                       GUICtrlSetFont(-1, 18, 400, 0, "Comic Sans MS")
                                       GUICtrlSetColor(-1, 0xffffff)
                                       GUICtrlSetbkColor(-1, 0xbcbcbc)
                                       $Consigli = GUICtrlCreateButton("(Not allowed)", 48, 234, 254, 45, $BS_BITMAP)
                                       GUICtrlSetImage(-1,  @ScriptDir&"graficaed2kconsigli.bmp", 0)
                                       $Emugle = GUICtrlCreateButton("(Not allowed)", 48, 98, 254, 69, $BS_BITMAP)
                                       GUICtrlSetImage(-1,  @ScriptDir&"graficaed2kemugle.bmp", 0)
                                       GUISetState(@SW_SHOW)
                                       $min = GUICtrlCreateButton("(Not allowed)", 307, 0, 16, 16, $BS_BITMAP)
                                       GUICtrlSetImage(-1,  @ScriptDir&"graficaricona.bmp", 0)
                                       $exit = GUICtrlCreateButton("(Not allowed)", 322, 0, 16, 16, $BS_BITMAP)
                                       GUICtrlSetImage(-1,  @ScriptDir&"graficachiudi.bmp", 0)
                                       guisetstate (@sw_show)


                                       While 1
                                               $nMsg = GUIGetMsg()
                                               Switch $nMsg
                                                       case $Egoogle
                                                               ShellExecute ("http:\www.google.it")
                                                               WinWaitActive ("Google -")
                                                               send (guictrlread ($Input1) &" Ed2k")
                                                               send ("{ENTER}")
                                                       case $Emugle
                                                               ShellExecute("http://www.emugle.com/index.php")
                                                               WinWaitActive ("P2P edonkey search engine")
                                                               send (guictrlread ($Input1))
                                                               send ("{ENTER}")
                                                       case $Consigli
                                                               msgbox (0,"Trovare link Ed2k funzionanti","I link Ed2k solitamente hanno questa forma: ed2k://|file|11-slipknot-vermilion pt 2-rns mp3|6416384|4A40109EBA5038BD4AF7B03317C3D009|/ ")
                                                       case $exit
                                                               GUIDelete()
                                                               guiswitch ($home)
                                                               main ()
                                                               
                                                       Case $GUI_EVENT_CLOSE
                                                               exit

                                               EndSwitch
                                       WEnd

               ;;;;;;;;;;;;;;;;;;;/emule;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;megaupload;;;;;;;
case $Mu
$Form1 = GUICreate("Form1", 289, 293, 463, 150)
GUISetFont(12, 400, 0, "Comic Sans MS")
GUISetBkColor(0xFFFF00)
$Input1 = GUICtrlCreateInput("", 17, 40, 257, 31)
$Label1 = GUICtrlCreateLabel("Nome File", 107, 8, 77, 27)
$Button1 = GUICtrlCreateButton("(Not allowed)", 18, 80, 254, 69, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficamugoogle.bmp", 0)
$Button2 = GUICtrlCreateButton("(Not allowed)", 18, 152, 254, 69, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficalvmegaup.bmp", 0)
$Button3 = GUICtrlCreateButton("(Not allowed)", 16, 224, 259, 49, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficamuconsigli.bmp", 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               case $Button1
                               ShellExecute ("http:\www.google.it")
                               WinWaitActive ("Google -")
                               send (guictrlread ($Input1) &" Megaupload")
                               send ("{ENTER}")
                       case $Button2
                               $nomefile=stringreplace(guictrlread ($input1)," ","+",0)
                               $query="http://loadingvault.com/search.php?q="&$nomefile&"&type=0&domain=1&types=on"
                               ShellExecute ($query)
                       case $Button3
                               msgbox (0,"consigli","Se con la normale ricerca con google non si trovano risultati provare con google images"&@crlf&@CRLF&"Nella ricerca in loadingvault si puo specificare il formato nel file nella pagina aperta")
       EndSwitch
WEnd
;;;;;;;/megaupload;;;;;;;;;;;;
;;;;;;;rapidshare;;;;;;;;;;;;
case $Rs
$Form1 = GUICreate("Form1", 289, 293, 463, 150)
GUISetFont(12, 400, 0, "Comic Sans MS")
GUISetBkColor(0xdb090e)
$Input1 = GUICtrlCreateInput("", 17, 40, 257, 31)
$Label1 = GUICtrlCreateLabel("Nome File", 107, 8, 77, 27)
$Button1 = GUICtrlCreateButton("(Not allowed)", 18, 80, 254, 69, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficamugoogle.bmp", 0)
$Button2 = GUICtrlCreateButton("(Not allowed)", 18, 152, 254, 69, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficalvmegaup.bmp", 0)
$Button3 = GUICtrlCreateButton("(Not allowed)", 16, 224, 259, 49, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficamuconsigli.bmp", 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               case $Button1
                               ShellExecute ("http:\www.google.it")
                               WinWaitActive ("Google -")
                               send (guictrlread ($Input1) &" rapidshare")
                               send ("{ENTER}")
                       case $Button2
                               $nomefile=stringreplace(guictrlread ($input1)," ","+",0)
                               $query="http://loadingvault.com/search.php?q="&$nomefile&"&type=0&domain=0&types=on"
                               ShellExecute ($query)
                       case $Button3
                               msgbox (0,"consigli","Se con la normale ricerca con google non si trovano risultati provare con google images"&@crlf&@CRLF&"Nella ricerca in loadingvault si puo specificare il formato nel file nella pagina aperta")
       EndSwitch
WEnd
;;;;;/rapidshare;;;;;;;;;;;;;
;;;;;;;;;;;;;torrent;;;;;
case $Torrent
$Form1 = GUICreate("Form1", 289, 293, 463, 150)
GUISetFont(12, 400, 0, "Comic Sans MS")
GUISetBkColor(0x3A6EA5)
$Input1 = GUICtrlCreateInput("", 17, 40, 257, 31)
$Label1 = GUICtrlCreateLabel("Nome File", 107, 8, 77, 27)
$Button1 = GUICtrlCreateButton("(Not allowed)", 18, 80, 254, 69, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficagoogletor.bmp", 0)
$Button2 = GUICtrlCreateButton("(Not allowed)", 18, 152, 254, 69, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficafindinyt.bmp", 0)
$Button3 = GUICtrlCreateButton("(Not allowed)", 16, 224, 259, 49, $BS_BITMAP)
GUICtrlSetImage(-1,  @ScriptDir&"graficaconsiglitor.bmp", 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
                       case $Button1
                               ShellExecute ("http:\www.google.it")
                               WinWaitActive ("Google -")
                               send (guictrlread ($Input1) &" torrent")
                               send ("{ENTER}")
                       case $Button2
                               $nomefile=stringreplace(guictrlread ($input1)," ","+",0)
                               $query="http://www.youtorrent.com/tag/?q="&$nomefile
                               ShellExecute ($query)

       EndSwitch
WEnd





;;;;;;/torrent
;;;;;;;;;;;;;;;;;;;google
case $Google
$Form2 = GUICreate("Form1", 308, 240, -1, -1)
GUISetFont(12, 400, 0, "MS Sans Serif")
GUISetBkColor(0x3A6EA5)
$Label1 = GUICtrlCreateLabel("Dork Generata", 99, 144, 110, 24)
GUICtrlSetColor(-1, 0xFFFFFF)
$virgolette = GUICtrlCreateButton("''", 80, 8, 25, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$duepunti = GUICtrlCreateButton(":", 112, 8, 25, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$intitle = GUICtrlCreateButton("Intitle", 8, 40, 73, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$indexof = GUICtrlCreateButton("Index of", 88, 40, 81, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$parent = GUICtrlCreateButton("Parent Directory", 176, 40, 121, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$punto = GUICtrlCreateButton(".", 144, 8, 25, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$paropen = GUICtrlCreateButton("(", 176, 8, 25, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$parclose = GUICtrlCreateButton(")", 208, 8, 25, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$nomefile = GUICtrlCreateButton("Nome File", 24, 72, 129, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$estensione = GUICtrlCreateButton("Estensione", 160, 72, 121, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$dorkgen = GUICtrlCreateInput("", 8, 176, 289, 28)
$cerca = GUICtrlCreateButton("Cerca", 72, 208, 169, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$nohtml = GUICtrlCreateButton("-html", 32, 104, 81, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$nophp = GUICtrlCreateButton("-php", 120, 104, 73, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$nohtm = GUICtrlCreateButton("-htm", 200, 104, 65, 25, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
               Case $GUI_EVENT_CLOSE
               Exit
       case $virgolette
               GUICtrlSetData ($dorkgen,'"',1)
       case $duepunti
               GUICtrlSetData ($dorkgen,':',1)
       case $punto
               GUICtrlSetData ($dorkgen,'.',1)
       case $paropen
               GUICtrlSetData ($dorkgen,'(',1)
       case $parclose
               GUICtrlSetData ($dorkgen,')',1)        
       case $intitle
               GUICtrlSetData ($dorkgen,'intitle',1)
       case $indexof
               GUICtrlSetData ($dorkgen,'index of ',1)
       case $parent
               GUICtrlSetData ($dorkgen,'parent directory',1)
       case $nomefile
               $a=InputBox ("Nome File","Inserisci il nome del file da cercare","")
               GUICtrlSetData ($dorkgen,$a,1)
       case $estensione
               $b=InputBox ("Estensione","Inserisci l'estensione del file","")
               GUICtrlSetData ($dorkgen,$b,1)
       case $nohtml
               GUICtrlSetData ($dorkgen,' -html',1)
       case $nohtm
               GUICtrlSetData ($dorkgen,' -htm',1)
       case $nophp
               GUICtrlSetData ($dorkgen,' -php',1)
       case $cerca
               ShellExecute ("http://www.google.it")
               WinWaitActive ("Google")
               sleep (200)
               send (guictrlread ($dorkgen))
               send ("{ENTER}")
EndSwitch
WEnd





;;;;;/google





               case $exit
                       Exit
               case $min
                       GUISetState(@SW_MINIMIZE)
       EndSwitch
       EndFunc
 
Top
Metal Gabber
CAT_IMG Posted on 26/6/2008, 19:57     +1   -1




Bug:
SPOILER (click to view)
-consigli: il pulsante "consigli" nella parte dei torrent non va
-tutte le GUI si chiamano Form1
-chiudendo la GUI, si chiude anche quella principale (tranne che per Ed2k)
-emugle non pare funzionare (non trova la pagina)


per il resto è ottimo ^^
 
Top
lknokl
CAT_IMG Posted on 27/6/2008, 10:28     +1   -1




-consigli: il pulsante "consigli" nella parte dei torrent non va <==mi son dimenticato di programmarlo xD
-tutte le GUI si chiamano Form1<==l'ho fatto con koda....non avevo voglia di stare a fare a mano tutta la grafica xD
-chiudendo la GUI, si chiude anche quella principale (tranne che per Ed2k) <=quello e il bug principale, tra l'altro anche ed2k quando lo si chiude disabilita anche il form home...su questo ci dovro lavorare
-emugle non pare funzionare (non trova la pagina)<=dopo controllo
grazie delle segnalazioni!! :D
 
Top
MatteoJug
CAT_IMG Posted on 27/6/2008, 10:51     +1   -1




Per il problema della chiusura di tutte le finestre, ti ho sistemato il sorgente:
SPOILER (click to view)
CODICE
#include <GUIConstants.au3>
$home = GUICreate("Find That Sh1t", 300, 472, -1, -1, $WS_POPUP)
$pic = GUICtrlCreatePic(@ScriptDir & "graficasfondo.jpg", 0, 0, 0, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Emule = GUICtrlCreateButton("(Not allowed)", 0, 396, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "graficaEmule.bmp", 0)
$Torrent = GUICtrlCreateButton("(Not allowed)", 0, 174, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "graficatorrent.bmp", 0)
$Rs = GUICtrlCreateButton("(Not allowed)", 0, 248, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "graficaRapidshare.bmp", 0)
$Mu = GUICtrlCreateButton("(Not allowed)", 0, 322, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "graficamegaupload.bmp", 0)
$Google = GUICtrlCreateButton("(Not allowed)", 0, 100, 300, 74, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "graficagoogle.bmp", 0)
$min_Main = GUICtrlCreateButton("(Not allowed)", 268, 0, 16, 16, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "graficaricona.bmp", 0)
$exit_Main = GUICtrlCreateButton("(Not allowed)", 284, 0, 16, 16, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "graficachiudi.bmp", 0)
GUISetState(@SW_SHOW)
While 1
       Main()
WEnd

Func Main()

       $home = GUIGetMsg()
       Switch $home
               Case $Emule
                       ;;;;;;;;;;;;;;;;;;;;;;emule;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                       $Form1 = GUICreate("Form1", 340, 289, -1, -1)
                       $pic = GUICtrlCreatePic(@ScriptDir & "graficasfondoed2k.bmp", 0, 0, 0, 0)
                       GUICtrlSetState(-1, $GUI_DISABLE)
                       $Egoogle = GUICtrlCreateButton("(Not allowed)", 48, 165, 254, 69, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficaed2kgoogle.bmp", 0)
                       $Input1 = GUICtrlCreateInput("", 48, 58, 252, 35)
                       GUICtrlSetFont(-1, 18, 400, 0, "Comic Sans MS")
                       $Label1 = GUICtrlCreateLabel("Nome File", 115, 18, 116, 37, "", $WS_EX_TRANSPARENT)
                       GUICtrlSetFont(-1, 18, 400, 0, "Comic Sans MS")
                       GUICtrlSetColor(-1, 0xffffff)
                       GUICtrlSetBkColor(-1, 0xbcbcbc)
                       $Consigli = GUICtrlCreateButton("(Not allowed)", 48, 234, 254, 45, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficaed2kconsigli.bmp", 0)
                       $Emugle = GUICtrlCreateButton("(Not allowed)", 48, 98, 254, 69, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficaed2kemugle.bmp", 0)
                       GUISetState(@SW_SHOW)
                       $min = GUICtrlCreateButton("(Not allowed)", 307, 0, 16, 16, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficaricona.bmp", 0)
                       $exit = GUICtrlCreateButton("(Not allowed)", 322, 0, 16, 16, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficachiudi.bmp", 0)
                       GUISetState(@SW_SHOW)


                       While 1
                               $nMsg = GUIGetMsg()
                               Switch $nMsg
                                       Case $Egoogle
                                               ShellExecute("http:\www.google.it")
                                               WinWaitActive("Google -")
                                               Send(GUICtrlRead($Input1) & " Ed2k")
                                               Send("{ENTER}")
                                       Case $Emugle
                                               ShellExecute("http://www.emugle.com/index.php")
                                               WinWaitActive("P2P edonkey search engine")
                                               Send(GUICtrlRead($Input1))
                                               Send("{ENTER}")
                                       Case $Consigli
                                               MsgBox(0, "Trovare link Ed2k funzionanti", "I link Ed2k solitamente hanno questa forma: ed2k://|file|11-slipknot-vermilion pt 2-rns mp3|6416384|4A40109EBA5038BD4AF7B03317C3D009|/ ")
                                       Case $exit
                                               GUIDelete()
                                               GUISwitch($home)
                                               Main()
                                               
                                       Case $GUI_EVENT_CLOSE
                                               ExitLoop

                               EndSwitch
                       WEnd
                       GUIDelete()
                       ;;;;;;;;;;;;;;;;;;;/emule;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                       ;;;;;;;;;;;;;;;;megaupload;;;;;;;
               Case $Mu
                       $Form1 = GUICreate("Form1", 289, 293, 463, 150)
                       GUISetFont(12, 400, 0, "Comic Sans MS")
                       GUISetBkColor(0xFFFF00)
                       $Input1 = GUICtrlCreateInput("", 17, 40, 257, 31)
                       $Label1 = GUICtrlCreateLabel("Nome File", 107, 8, 77, 27)
                       $Button1 = GUICtrlCreateButton("(Not allowed)", 18, 80, 254, 69, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficamugoogle.bmp", 0)
                       $Button2 = GUICtrlCreateButton("(Not allowed)", 18, 152, 254, 69, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficalvmegaup.bmp", 0)
                       $Button3 = GUICtrlCreateButton("(Not allowed)", 16, 224, 259, 49, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficamuconsigli.bmp", 0)
                       GUISetState(@SW_SHOW)
                       #EndRegion ### END Koda GUI section ###

                       While 1
                               $nMsg = GUIGetMsg()
                               Switch $nMsg
                                       Case $GUI_EVENT_CLOSE
                                               ExitLoop
                                       Case $Button1
                                               ShellExecute("http:\www.google.it")
                                               WinWaitActive("Google -")
                                               Send(GUICtrlRead($Input1) & " Megaupload")
                                               Send("{ENTER}")
                                       Case $Button2
                                               $nomefile = StringReplace(GUICtrlRead($Input1), " ", "+", 0)
                                               $query = "http://loadingvault.com/search.php?q=" & $nomefile & "&type=0&domain=1&types=on"
                                               ShellExecute($query)
                                       Case $Button3
                                               MsgBox(0, "consigli", "Se con la normale ricerca con google non si trovano risultati provare con google images" & @CRLF & @CRLF & "Nella ricerca in loadingvault si puo specificare il formato nel file nella pagina aperta")
                               EndSwitch
                       WEnd
                       GUIDelete()
                       ;;;;;;;/megaupload;;;;;;;;;;;;
                       ;;;;;;;rapidshare;;;;;;;;;;;;
               Case $Rs
                       $Form1 = GUICreate("Form1", 289, 293, 463, 150)
                       GUISetFont(12, 400, 0, "Comic Sans MS")
                       GUISetBkColor(0xdb090e)
                       $Input1 = GUICtrlCreateInput("", 17, 40, 257, 31)
                       $Label1 = GUICtrlCreateLabel("Nome File", 107, 8, 77, 27)
                       $Button1 = GUICtrlCreateButton("(Not allowed)", 18, 80, 254, 69, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficamugoogle.bmp", 0)
                       $Button2 = GUICtrlCreateButton("(Not allowed)", 18, 152, 254, 69, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficalvmegaup.bmp", 0)
                       $Button3 = GUICtrlCreateButton("(Not allowed)", 16, 224, 259, 49, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficamuconsigli.bmp", 0)
                       GUISetState(@SW_SHOW)
                       #EndRegion ### END Koda GUI section ###

                       While 1
                               $nMsg = GUIGetMsg()
                               Switch $nMsg
                                       Case $GUI_EVENT_CLOSE
                                               ExitLoop
                                       Case $Button1
                                               ShellExecute("http:\www.google.it")
                                               WinWaitActive("Google -")
                                               Send(GUICtrlRead($Input1) & " rapidshare")
                                               Send("{ENTER}")
                                       Case $Button2
                                               $nomefile = StringReplace(GUICtrlRead($Input1), " ", "+", 0)
                                               $query = "http://loadingvault.com/search.php?q=" & $nomefile & "&type=0&domain=0&types=on"
                                               ShellExecute($query)
                                       Case $Button3
                                               MsgBox(0, "consigli", "Se con la normale ricerca con google non si trovano risultati provare con google images" & @CRLF & @CRLF & "Nella ricerca in loadingvault si puo specificare il formato nel file nella pagina aperta")
                               EndSwitch
                       WEnd
                       GUIDelete()
                       ;;;;;/rapidshare;;;;;;;;;;;;;
                       ;;;;;;;;;;;;;torrent;;;;;
               Case $Torrent
                       $Form1 = GUICreate("Form1", 289, 293, 463, 150)
                       GUISetFont(12, 400, 0, "Comic Sans MS")
                       GUISetBkColor(0x3A6EA5)
                       $Input1 = GUICtrlCreateInput("", 17, 40, 257, 31)
                       $Label1 = GUICtrlCreateLabel("Nome File", 107, 8, 77, 27)
                       $Button1 = GUICtrlCreateButton("(Not allowed)", 18, 80, 254, 69, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficagoogletor.bmp", 0)
                       $Button2 = GUICtrlCreateButton("(Not allowed)", 18, 152, 254, 69, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficafindinyt.bmp", 0)
                       $Button3 = GUICtrlCreateButton("(Not allowed)", 16, 224, 259, 49, $BS_BITMAP)
                       GUICtrlSetImage(-1, @ScriptDir & "graficaconsiglitor.bmp", 0)
                       GUISetState(@SW_SHOW)
                       #EndRegion ### END Koda GUI section ###

                       While 1
                               $nMsg = GUIGetMsg()
                               Switch $nMsg
                                       Case $GUI_EVENT_CLOSE
                                               ExitLoop
                                       Case $Button1
                                               ShellExecute("http:\www.google.it")
                                               WinWaitActive("Google -")
                                               Send(GUICtrlRead($Input1) & " torrent")
                                               Send("{ENTER}")
                                       Case $Button2
                                               $nomefile = StringReplace(GUICtrlRead($Input1), " ", "+", 0)
                                               $query = "http://www.youtorrent.com/tag/?q=" & $nomefile
                                               ShellExecute($query)

                               EndSwitch
                       WEnd
                       GUIDelete()





                       ;;;;;;/torrent
                       ;;;;;;;;;;;;;;;;;;;google
               Case $Google
                       $Form2 = GUICreate("Form1", 308, 240, -1, -1)
                       GUISetFont(12, 400, 0, "MS Sans Serif")
                       GUISetBkColor(0x3A6EA5)
                       $Label1 = GUICtrlCreateLabel("Dork Generata", 99, 144, 110, 24)
                       GUICtrlSetColor(-1, 0xFFFFFF)
                       $virgolette = GUICtrlCreateButton("''", 80, 8, 25, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $duepunti = GUICtrlCreateButton(":", 112, 8, 25, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $intitle = GUICtrlCreateButton("Intitle", 8, 40, 73, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $indexof = GUICtrlCreateButton("Index of", 88, 40, 81, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $parent = GUICtrlCreateButton("Parent Directory", 176, 40, 121, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $punto = GUICtrlCreateButton(".", 144, 8, 25, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $paropen = GUICtrlCreateButton("(", 176, 8, 25, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $parclose = GUICtrlCreateButton(")", 208, 8, 25, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $nomefile = GUICtrlCreateButton("Nome File", 24, 72, 129, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $estensione = GUICtrlCreateButton("Estensione", 160, 72, 121, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $dorkgen = GUICtrlCreateInput("", 8, 176, 289, 28)
                       $cerca = GUICtrlCreateButton("Cerca", 72, 208, 169, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFBF0)
                       $nohtml = GUICtrlCreateButton("-html", 32, 104, 81, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $nophp = GUICtrlCreateButton("-php", 120, 104, 73, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       $nohtm = GUICtrlCreateButton("-htm", 200, 104, 65, 25, 0)
                       GUICtrlSetColor(-1, 0x0000FF)
                       GUICtrlSetBkColor(-1, 0xFFFFFF)
                       GUISetState(@SW_SHOW)
                       #EndRegion ### END Koda GUI section ###

                       While 1
                               $nMsg = GUIGetMsg()
                               Switch $nMsg
                                       Case $GUI_EVENT_CLOSE
                                               ExitLoop
                                       Case $virgolette
                                               GUICtrlSetData($dorkgen, '"', 1)
                                       Case $duepunti
                                               GUICtrlSetData($dorkgen, ':', 1)
                                       Case $punto
                                               GUICtrlSetData($dorkgen, '.', 1)
                                       Case $paropen
                                               GUICtrlSetData($dorkgen, '(', 1)
                                       Case $parclose
                                               GUICtrlSetData($dorkgen, ')', 1)
                                       Case $intitle
                                               GUICtrlSetData($dorkgen, 'intitle', 1)
                                       Case $indexof
                                               GUICtrlSetData($dorkgen, 'index of ', 1)
                                       Case $parent
                                               GUICtrlSetData($dorkgen, 'parent directory', 1)
                                       Case $nomefile
                                               $a = InputBox("Nome File", "Inserisci il nome del file da cercare", "")
                                               GUICtrlSetData($dorkgen, $a, 1)
                                       Case $estensione
                                               $b = InputBox("Estensione", "Inserisci l'estensione del file", "")
                                               GUICtrlSetData($dorkgen, $b, 1)
                                       Case $nohtml
                                               GUICtrlSetData($dorkgen, ' -html', 1)
                                       Case $nohtm
                                               GUICtrlSetData($dorkgen, ' -htm', 1)
                                       Case $nophp
                                               GUICtrlSetData($dorkgen, ' -php', 1)
                                       Case $cerca
                                               ShellExecute("http://www.google.it")
                                               WinWaitActive("Google")
                                               Sleep(200)
                                               Send(GUICtrlRead($dorkgen))
                                               Send("{ENTER}")
                               EndSwitch
                       WEnd
                       GUIDelete()
                       ;;;;;/google
               Case $exit_Main
                       Exit
               Case $min_Main
                       GUISetState(@SW_MINIMIZE)
       EndSwitch
EndFunc   ;==>Main

L'errore sta nel fatto che quando cliccavi per chiuere la finestra, chiudeva tutto il programma XD...Poi inoltre avevi fatto sballare l'ID alle variabili MIN e EXIT della GUI principale, perche gli assegnavi ogni volta l'ID dei pulsanti delle finestre child...
Per il resto, Complimenti ^^
 
Top
Metal Gabber
CAT_IMG Posted on 27/6/2008, 12:34     +1   -1




Il nome delle gui non è poi così importante, è solo un piccolo dettaglio per rendere il programma più bello
 
Top
RedSkull92
CAT_IMG Posted on 27/6/2008, 21:23     +1   -1




si sta parlando del nome delle variabili o delle Gui?
 
Top
Matrix33
CAT_IMG Posted on 28/6/2008, 13:30     +1   -1




provato, bel prog^^ ;)
 
Top
lknokl
CAT_IMG Posted on 30/6/2008, 09:30     +1   -1




grazie matteo ^^ ora e perfetto ^^
 
Top
7 replies since 26/6/2008, 15:38   169 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity