Vhaerun

http://www.unsignedbandweb.com/freeuserbars/index.php

Siemens A50 -> Nokia 1100 -> Nokia 6070

Mai sus ai zis : Hotaraste-te . Ofertele astea vin cu * si scrisuri mici . Trebuie sa fie un "catch"

Accepta adevarul : sunt prea rare tipele cu cunostintele necesare . Nu stiu in ce masura ai prefera sa apara plin de fete care sa ceara Conquiztador Killer

HINT: de ce crezi ca iti cere CC ?

Am avut nevoie zilele trecute sa explic la cineva cum functioneaza fork si threaduri , pentru a pune ceva sa se execute in fundal , si respectivul nu a inteles Asa ca am facut un modul perl ( nu prea ma ocup cu ele ,de aceea calitatea s-ar putea sa nu fie chiar punctul forte , dar e functionabil ) , care sa ii dea posibilitatea sa execute subrutine in fundal . package ObjectTasking; $SIG{ALRM}=sub { die "timeout"; }; sub new { my $class=shift; my $func=shift; my $args=shift; my $self={}; $self->{FUNC}=$func; $self->{ARGS}=$args; bless($self,$class); return $self; } sub func { my $self=shift; my @args=@{ shift @_ }; &{ $self->{FUNC} }(@args); } sub multi_task_timer { my $self=shift; my $timer=shift; eval { my $pid=fork(); alarm $timer; if($pid) { $self->func($self->{ARGS}); exit; } else { waitpid($pid,0); alarm 0; } }; if($@=~/timeout/i) { return "exited"; } } sub multi_task { my $self=shift; my $pid=fork(); if($pid) { $self->func($self->{ARGS}); exit; } else { waitpid($pid,0); } } 1; pentru cei care au experienta in perl , codul ar trebui sa fie destul de usor de inteles . pentru ceilalti pun un exemplu : use strict; use warnings; use ObjectTasking; my $task=ObjectTasking->new(\&test,["test1"]); my $result=$task->multi_task_timer(2); print "here\n"; sleep(1); if($result eq "exited") { print "Functia a fost intrerupta\n"; } sub test { my @param=@_; print "@param\n"; sleep(20); print "sfarsitul functiei\n"; } E un quick hack pentru cei care nu stiu folosi fork/alarm/threads . Parametrii unui obiect ObjectTasking sunt referinta spre functie si parametrii ei . Pentru o executie completa se utilizeaza metoda multi_task , pentru a executa functia doar un anumit numar de secunde se utilizeaza metoda multi_task_timer , cu numarul de secunde dupa care executia functiei va fi intrerupta . Ar fi util sa punem ceva module scrise de noi , care sa usureze din munca zilnica . Ce ziceti ?

Te plictisesti ?

Si nu mai bine il puneai la Linkuri Utile ( presupunand ca ii este util cuiva ) ?

Nu vezi pentru ca a fost EDITAT .

Ba , tu citesti unde postezi inainte de a o face ? Nici nu cred ca are rost sa raspunzi , dar o vei face , ca vrei posturi .

Video-ul poate fi gasit AICI . Stiu ca titlul suna cam ciudat ,dar exact despre asta e vorba Dupa ce veti viziona tutorialul asta , chiar daca nu stii sa programezi in perl , o sa stii sa iti faci un web bot ( nu chiar , dar na ) . Vestea cea buna e pt cei care chiar stiu perl : nu o sa mai pierdeti timp cautand dupa form-uri si field-uri , si o sa va puteti concentra asupra chestiilor mai importante din scripturile voastre . Folosirea modulelor HTTP::Proxy si HTTP::Recorder face acest lucru posibil , si mi se pare o chestie folositoare . Modulul Recorder nu am apucat sa il testez pe Linux , dar sunt sigur ca merge . In schimb , desi am lucrat cu HTTP::Proxy mai demult ( pe Linux ) , pe Windows mie imi face figuri , si moare uneori . Oricum , aceste module se folosesc la generarea de cod , si nu la navigarea propriu-zisa . Cred ca asta e ultimul tutorial despre boti web care il fac , pentru ca pana acum ar trebui sa stiti deja cum sa faceti orice

Cred ca ar fi mai ok daca ai pune sursa .

Firefox pentru addon-uri.

Merge cu WinSetState("titlu_fereastra","text",@SW_HIDE) , si apoi acelasi apel cu @SW_SHOW pentru a o face sa apara din nou . Voiam sa gasesc un mod de a ascunde BitTorrent , sa nu mai apara in taskbar sau in tray , si asa merge . Mai apare la procese . Stii cumva cum se poate ascunde din lista de procese ? OFF-TOPIC : prefer viteza de dezvoltare eficientei limbajului . In cazul de fata prefer sa scriu 4 linii . Call me lazy , but this works for me .

Ooops , mi scusi . Aveam solutia , doar ca nu am incercat . Pur si simplu am presupus ca nu merge :oops: . In AutoIT , cu WinSetState poti inchide,minimiza,maximiza,ascunde,arata o fereastra . Si , am presupus ca ea inca o sa apara cand apas ALT-TAB . Se pare ca nu . Pentru moderatori : stergeti acest topic daca il considerati nefolositor . Data viitoare incerc inainte sa postez , scout's honor .

Ma refeream sa poti ascunde orice fereastra , nu a mea , ca aia stiu

E posibil sa ascundem o aplicatie de combinatia de taste ALT-TAB ? In afara de optiunea creerii ca Service/Serviciu a aplicatiei mai exista vreun mod ? Sunt interesat pt. windows doar . Arrigato !

In cazul asta ar trebui sa inveti sa folosesti un calculator.

Nostradamus , fratele meu , ai deja 25 de posturi si te-ai inscris azi . Ma uimesti .

Nu stiu daca AOL este si pentru Linux , de aceea aleg tor.

Ca nu merg proxy-urile asta ii partea a 2-a Dar totusi , uite aici un script care sa va faca rost de proxy-uri . Rulat in fiecare zi ( odata pe zi ) , va face rost de vreo 200 de proxy-uri . use strict; use warnings; use WWW::Mechanize; my $mech=WWW::Mechanize->new(); my $file="prox.txt"; my $site="http://nntime.com/index.php"; my $page=0; $mech->agent_alias("Windows IE 6"); $mech->get($site); NEXT_PAGE: print "Sunt la pagina $page\n"; extract_proxies($mech->content,$file); if($mech->content=~/next/i) { $mech->follow_link( text => "Next" ); sleep(3); $page++; goto NEXT_PAGE; } sub extract_proxies { my $content=shift || die "continut\n"; my $file =shift || die "fisier in care scriu\n"; open(F,">>$file") || die "nu pot deschide fisierul pentru a scrie in el\n"; while($content=~/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5})/g) { print F $1,"\n"; } close F; }

Sunt sigur ca de multe ori ti-ai rugat prietenii sa dea click pe nu stiu ce link , ca sa faci puncte in cine stie ce joc . Avand o lista de proxy-uri bune , ai putea sa dai tu singur click-urile , si uneori sa si scapi basma curata . Va prezint partea a doua a tutorialului de boti . Dupa parerea mea , pentru ca o vizita sa para "unica" , headerele trimise de browser trebuie sa difere intre ele . Printre headerele astea se numara : - Referer - User-agent - Accept - Connection etc. Folosind modulul WWW::Mechanize , poti adauga headere mech-ului in felul urmator : $mech->add_header( Header => Valoare) unde bineinteles , in loc de Header se trece numele unui header si la valoare continutul . Completand cat mai multe headere poti sa maresti sansele de a parea ca fiind o vizita reala serverului . Pentru ca Mechanize se bazeaza pe LWP::UserAgent , se poate apela orice metoda ai apela cu un obiect UserAgent . In felul asta , avem acces la metoda proxy , prin care poti specifica schema si proxy-ul respectiv . Exemplu : daca vrem un proxy pt http , se apeleaza asa metoda : $mech->proxy("http","http://" . $proxy) pentru exemplul de mai sus consideram ca in variabila $proxy , este un proxy valid . Pentru a demonstra toate chestiile scrise mai sus am facut un program care : - accepta o lista de proxy-uri - are o lista foarte mare de user-agents - accepta o lista de referral - poti specifica un numar de vizite care sa-l faca asupra sitului ( vizitele fiind facute doar daca proxy-ul e valid , si ip-ul prin proxy al mech-ului este diferit de ip-ul calculatorului tau ; verificarea e facuta prin ipchicken.com ) Programul poate fi descarcat AICI . Partea principala din program a fost inlocuita cu "pseudocod" , pentru a nu putea fi folosit decat de cei care sunt capabili sa il reconstruiasca . Toate functiile de care aveti nevoie se afla in fisier . Reconstruirea robot-ului mi se pare un exercitiu foarte bun de programare , nu tocmai dificil pentru ca v-am scris in script pas cu pas ce e de facut . Pentru eficienta maxima recomand folosirea lui cu proxy-uri elite . In arhiva , pe langa script , se afla o lista mare cu user-agents . Voi trebuie sa va faceti rost de o lista de proxy-uri si de o lista de referreri ( treaba de 2 minute ) . BTW:Sunteti responsabili de cum il folositi . Have fun !

Propun VIP.

Bagi linkul acolo in pagina direct .

Tare Asta ar trebui postat pe perlmonks.org la "Cool uses for perl"