Xhack

Un forum dedicato all'hacking
 
IndiceIndice  PortalePortale  CalendarioCalendario  FAQFAQ  CercaCerca  RegistratiRegistrati  Lista UtentiLista Utenti  GruppiGruppi  Accedi  

Condividi | 
 

 [SOURCE]Web Search BETA

Andare in basso 
AutoreMessaggio
DrA93
apprendista
apprendista
avatar

Numero di messaggi : 64
Età : 107
Localizzazione : Bergamo(parenti salernitani)
Data d'iscrizione : 29.08.07

MessaggioTitolo: [SOURCE]Web Search BETA   Dom Ott 14, 2007 10:18 pm

CIAO AMICI, SONO DrA, SONO TORNAAAAATO!!!!!
Ho fatto questo programma stupidissimo( l'idea mi è venuta l'estate ormai passata, non riuscivo a dormire) che cerca keywords nei migliori motori di ricerca e di video, è beta perchè i siti in cui cerca sono ancora pochi, ma poco male: basta consigliarmi qualche sito e io aggiornerò lo script.
Ma ora passiamo al codice e alla sua descrizione:
PS:FUNZIONA ANCHE CON QUERY CON PIU' DI UNA KEYWORD(ES: CIAO CICCIO)

Codice:

;Una inputbox che chiede in che sito cercare...
$var = InputBox("Dove devo cercare?","LEGENDA(digitare il comando corrpisondente)" & @CRLF & @CRLF & @CRLF & "YOUTUBE=Cerca video su youtube" & @CRLF & @CRLF & "YOUTUBEPROFILE=visualizza profilo di youtube" & @CRLF & @CRLF & "METACAFE=cerca video su metacafe" & @CRLF & @CRLF & "GOOGLE=cerca qualcosa su google" & @CRLF & "IMG=cerca immagini su google"& @CRLF & "VIDEO=cerca video su google",""," ","-1","300","-1","-1")

;cerca video su metacafe
if $var =  'METACAFE' then
   
  $metacafe = InputBox('Cosa devo cercare?', 'Scrivi ciò che vuoi cercare su Metacafe')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando il tag...")
;la progressbar è tutta scena hihi :D
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)

  ShellExecute("http://www.metacafe.com/tags/"& $metacafe &"/")
  ProgressSet(100)
  ProgressOff()
elseif $var = 'YOUTUBE' then
   
   $youtube = InputBox('Cosa devo cercare?', 'Scrivi ciò che vuoi cercare su youtube')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando il tag...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://it.youtube.com/results?search_query=" & $youtube & "&search=Cerca")
  ProgressSet(100)
  ProgressOff()
   elseif $var = 'YOUTUBEPROFILE' then
      
   $profile = InputBox('Cosa devo cercare?', 'Scrivi il nick che vuoi cercare su youtube')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando il nick...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://it.youtube.com/profile?user="&$profile)
  ProgressSet(100)
  ProgressOff()
 elseif $var = 'GOOGLE' then
   
   $google = InputBox('Cosa devo cercare?', 'Scrivi quello che vuoi cercare su Google')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando su Google...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://www.google.it/search?hl=it&q="&$google&"&btnG=Cerca+con+Google&meta=")
  ProgressSet(100)
  ProgressOff()
 
elseif $var = 'VIDEO' then
   
   $video = InputBox('Cosa devo cercare?', 'Scrivi il video che vuoi cercare su Google')
   ProgressOn("Ricerca in corso", "Il programma sta ricercando su Google Video...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://video.google.it/videosearch?q="&$video)
  ProgressSet(100)
  ProgressOff()
 
  elseif $var = 'IMG' then
   $img = InputBox('Cosa devo cercare?', "Scrivi l' immagine che vuoi cercare su Google")
   ProgressOn("Ricerca in corso", "Il programma sta ricercando su Google Immagini...")
   Sleep(300)
   ProgressSet(10)
   Sleep(300)
   ProgressSet(20)
   Sleep(300)
   ProgressSet(30)
   Sleep(300)
   ProgressSet(40)
   Sleep(300)
   ProgressSet(50)
   sleep(300)
   ProgressSet(60)
   Sleep(300)
   ProgressSet(70)
   Sleep(300)
   ProgressSet(80)
   Sleep(300)
   ProgressSet(90)
   Sleep(300)
  ShellExecute("http://images.google.it/images?hl=it&q="&$img&"&btnG=Cerca+immagini&gbv=2")
  ProgressSet(100)
  ProgressOff()
 
  elseif $var = $var then
   MsgBox(16, "Errore...", $var & " non è un comando valido...")
   
    elseif $var = "" then
   MsgBox(16, "Errore...","Scrivi qualcosa,idiota...")
 
endif
Il codice da qui è un po' un casino, ma vedrete che su SciTE è molto leggibile, e scoprirete come fa ad eseguire le ricerche(un modo becero, ma originale afro hehe)
Dalla mia camera è tutto, linea allo studio! Very Happy
PS:Anche se non conosco un motivo preciso per cui qualcuno debba farlo XD, vi prego di citare l'autore(DrA) se doveste postarlo su altri forum e/o pubblicarlo su altri siti, grazie.
PPS:Si possono postare anche programmi già eseguiti?
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 6:32 pm

bravo dra, non mancheremo di postare il tuo nome se lo duplicheremo... fra poco mi sa che dovremmo farlo io e certain... abbiamo in mente una certa cosetta, giusto certain Wink
comunuqe comlimenti...
in che senso programmi gia eseguiti?

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 6:40 pm

confermo dark..
ancora un po' di tempo e...

comunque bravo DrA93,
vedo che abbiamo trasformato i nostri membri in programmatori di autoit veri e propri , ne dark?
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 6:42 pm

ebbene si, è da anni e anni che aspetto questo momento... ora.. Sad sono commosso... sigh sigh

comunque bravo Dra

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 6:54 pm

possiamo assere fieri dei nostri membri(a parte uno dark...
indovina chi??? indizio: gli piacciono i pokemon...)
Torna in alto Andare in basso
Visualizza il profilo
DrA93
apprendista
apprendista
avatar

Numero di messaggi : 64
Età : 107
Localizzazione : Bergamo(parenti salernitani)
Data d'iscrizione : 29.08.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 15, 2007 7:33 pm

:DGrazie!!Very Happy
Hehe, avete trasformato metà(anzi, tutto il forum) forum in crackerz Very Happy
PS:ho un'idea megaLOLlosa!!!
Un argomento un cui ci divertiamo a scrivere volutamente lamerate che vanno spostate in discarica!!!Troppo divertente!!Che ne dite?
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mar Ott 16, 2007 1:28 pm

bah... credo che dovremmo aspettare che qualcuno ci parli di queste lamerate ma non facendolo apposta, ma che gli arrivino dal cuore... voi non sapete che bello è per un admin vedere ste cose, perche il puntatore del mouse si muove irrimediabilmente verso "sposta in discarica"... è una sensazione che ognuno di noi dovrebbe provare almeno una volta nella vita...

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mar Ott 16, 2007 5:32 pm

giusto dark,
@DrA93 la progress bar è tutta scena davvero!!!!
comunque ci hai risparmiato di spiegare un argomento(se qualcuno dovesse fare un progress bar non solo per scena)
Torna in alto Andare in basso
Visualizza il profilo
DrA93
apprendista
apprendista
avatar

Numero di messaggi : 64
Età : 107
Localizzazione : Bergamo(parenti salernitani)
Data d'iscrizione : 29.08.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mar Ott 16, 2007 5:42 pm

Citazione :
bah... credo che dovremmo aspettare che qualcuno ci parli di queste lamerate ma non facendolo apposta, ma che gli arrivino dal cuore... voi non sapete che bello è per un admin vedere ste cose, perche il puntatore del mouse si muove irrimediabilmente verso "sposta in discarica"... è una sensazione che ognuno di noi dovrebbe provare almeno una volta nella vita...
Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing
Hehe, dovrò aprire un forum e attirare uno,due lamer da Eurohackers!!

@certaindeath: io non ho mai fatto uso utile di progressbar!!!!!! Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing
Torna in alto Andare in basso
Visualizza il profilo
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mar Ott 16, 2007 5:57 pm

indiciamo n concorso "chi porta più lamer su xhack!!!" Very Happy Very Happy Very Happy Very Happy Very Happy
P.S. è solo uno scherzo,non prendetemi sul serio, non vogliamo ritrovarci invasi da lamer!

comunque, DrA, la progress bar serve se devi farci delle istruzioni complicate e che richiedono tempo(e non sleep come nel tuo programma)
in questo modo:

istruzione complicata;
progresset(numero);
istruzione complicata;
progresset(numero)

comunque leggendo il tuo commento vedo che l'hai già capito...
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mer Ott 17, 2007 6:34 pm

allora chiariamo un po' di cose: intanto, evitiamo l'uso esagerato di smile come Very Happy Very Happy Very Happy Very Happy Very Happy solo perchè sono gratis... adesso le metto a pagamento cosi vediamo quanto le usate Laughing
poi, certain.. perchè non far venire qui un lamerotto oni tanto, così ci facciamo due risate?
preleviamo qualcuno da eurohackers o da geky chan e lo forziamo ad iscriversi da noi e cosi poi ci fa un po'di richieste lamere, a turno do i privilegi di admin a qualcuno e cosi prova l'ebrezza di buttare in discarica e di bannere.. non è una buona idea:?:
io la trovo ottima... ah, il prossimo lamero che arriva è mio, ho gia preso il ticket, se ne volete bannare uno mettetevi in fila... Laughing lol!

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
abe93
membro importante
membro importante
avatar

Numero di messaggi : 205
Età : 25
Localizzazione : Piacenza
Data d'iscrizione : 18.08.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Mer Ott 17, 2007 7:37 pm

oh io sono il secondo veeee non dimenticatevi di me....
Torna in alto Andare in basso
Visualizza il profilo http://www.abe93.altervista.org
DrA93
apprendista
apprendista
avatar

Numero di messaggi : 64
Età : 107
Localizzazione : Bergamo(parenti salernitani)
Data d'iscrizione : 29.08.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Gio Ott 18, 2007 4:39 pm

Io sono il terzooooo!!!!
Torna in alto Andare in basso
Visualizza il profilo
darkjoker
Admin
Admin
avatar

Numero di messaggi : 813
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Gio Ott 18, 2007 6:26 pm

vabbe, allora io mi riprenoto come quarto....

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

Torna in alto Andare in basso
Visualizza il profilo
darkphantom
hack-member
hack-member
avatar

Numero di messaggi : 398
Data d'iscrizione : 03.09.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Lun Ott 29, 2007 2:24 pm

davvero un bel programma(un po' inutile...)
trovo solo un errore:
Citazione :

elseif $var = $var then
MsgBox(16, "Errore...", $var & " non è un comando valido...")

elseif $var = "" then
MsgBox(16, "Errore...","Scrivi qualcosa,idiota...")
se fai così, se non scrivi niente ti dice comunque "non è un comando valido".
dovresti invece fare così:
Codice:

elseif $var=""  then
    MsgBox(16, "Errore...","Scrivi qualcosa,idiota...")
else
    MsgBox(16, "Errore...", $var & " non è un comando valido...")
così, se non scrivi nulla ti dice "scrivi qualcosa", se scrivi un comando invalido dice "non è un comando valido". così si toglie un (minuscolo) bug
Torna in alto Andare in basso
Visualizza il profilo
darkphantom
hack-member
hack-member
avatar

Numero di messaggi : 398
Data d'iscrizione : 03.09.07

MessaggioTitolo: Re: [SOURCE]Web Search BETA   Gio Nov 15, 2007 8:55 pm

ho accorciato sensibilmente lo script di web search.
Codice:

$var=InputBox("Dove devo cercare?","LEGENDA(digitare il comando corrpisondente)" & @CRLF & @CRLF & @CRLF & "YOUTUBE=Cerca video su youtube" & @CRLF & @CRLF & "YOUTUBEPROFILE=visualizza profilo di youtube" & @CRLF & @CRLF & "METACAFE=cerca video su metacafe" & @CRLF & @CRLF & "GOOGLE=cerca qualcosa su google" & @CRLF & "IMG=cerca immagini su google"& @CRLF & "VIDEO=cerca video su google",""," ","-1","300","-1","-1")
$ric=InputBox("Cosa devo cercare?","inserisci cosa vuoi cercare")
ProgressOn("Ricerca in corso", "Il programma sta ricercando il tag...")
For $progr=10 to 90 Step 10
   Sleep(300)   
   ProgressSet($progr)
Next
If $var="youtube" Then
   ShellExecute("http://it.youtube.com/results?search_query=" & $ric & "&search=Cerca")
   ProgressSet(100)
   ProgressOff()
ElseIf $var="metacafe" Then
   ShellExecute("http://www.metacafe.com/tags/"&$ric&"/")
   ProgressSet(100)
   ProgressOff()
ElseIf $var="youtubeprofile" Then
   ShellExecute("http://it.youtube.com/profile?user="&$ric)
   ProgressSet(100)
   ProgressOff()
ElseIf $var="google" Then
   ShellExecute("http://www.google.it/search?hl=it&q="&$ric&"&btnG=Cerca+con+Google&meta=")
   ProgressSet(100)
   ProgressOff()
ElseIf $var="img" Then
   ShellExecute("http://images.google.it/images?hl=it&q="&$ric&"&btnG=Cerca+immagini&gbv=2")
   ProgressSet(100)
   ProgressOff()
ElseIf $var="video" Then
   ShellExecute("http://video.google.it/videosearch?q="&$ric)
   ProgressSet(100)
   ProgressOff()
ElseIf $var="" Then
   MsgBox(0,"Cretino...","Scrivi qualcosa,scemo...")
Else
   MsgBox(0,"Non valido!","Comando non valido!")
EndIf
dettaglio: quando lo compili, la differenza è di più o meno un kb...
P.S. come hai fatto a mettere l'icona con la cinepresa? dove l'hai pescata?
Torna in alto Andare in basso
Visualizza il profilo
Contenuto sponsorizzato




MessaggioTitolo: Re: [SOURCE]Web Search BETA   

Torna in alto Andare in basso
 
[SOURCE]Web Search BETA
Torna in alto 
Pagina 1 di 1
 Argomenti simili
-
» Perché il pesce combattente beta è gonfio?
» Come passare a Steam con Euro Truck Simulator 2
» Mod Renault Gamma T (beta) - Euro Truck Simulator 2
» Pesce combattente beta femmina
» Ambiente ideale per un pesce combattente beta

Permessi di questa sezione del forum:Non puoi rispondere agli argomenti in questo forum
Xhack :: Programmazione :: Autoit-
Vai verso: