AdrianCOM Posted April 9, 2010 Report Share Posted April 9, 2010 Postati aici liste cu adrese de mail Multumesc. Quote Link to comment Share on other sites More sharing options...
Moderators Dragos Posted April 9, 2010 Moderators Report Share Posted April 9, 2010 (edited) Ia-ti AutoIT si baga mare.. Inveti si tu cate ceva cu ocazia asta..Numarul incepe de pe la 44000. Poti extrage 200 de email-uri pe minut.#comments-startDoar un script sa extraga email-uri din hi5profile.comScris de Synthesis#comments-end#include <GUIConstantsEx.au3>#include <EditConstants.au3>#include <String.au3>#include <INet.au3>#include <file.au3>#notrayiconOpt('MustDeclareVars', 1)_Main()Func _Main() Local $okbutton, $pu, $i, $link, $ss, $id Local $msg, $syninc, $synend, $fisier, $aduna Local $end, $adunaid, $a, $a1, $a2 GUICreate("Email extractor", 240, 40) $fisier = "cur.txt" $syninc = guictrlcreateinput ("",10,10,50,20,$ES_NUMBER) $synend = guictrlcreateinput ("",70,10,50,20,$ES_NUMBER) $okbutton = GUICtrlCreateButton("OK", 130, 10, 30, 20) $adunaid = guictrlcreateinput ("",170,10,25,20,$ES_NUMBER) $aduna = guictrlcreatebutton ("+",200,10,30,20) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop case $msg=$aduna $a = guictrlread ($adunaid) $a1 = guictrlread ($syninc)+$a $a2 = guictrlread ($synend)+$a guictrlsetdata ($syninc, $a1) guictrlsetdata ($synend, $a2) case $msg=$okbutton $pu = 0 $i = guictrlread ($syninc) $end = guictrlread ($synend) while $i <= $end $link = "http://www.profilehi5.com/hi5-" & $i & ".html" $ss = _inetgetsource ($link) $id = _StringBetween ($ss,'<title> Hi5 ',' </title>') if @error Then $i = $i+1 elseif $id[0]=="" Then $i = $i + 1 elseif stringinstr ($id[0],":") then $i = $i + 1 elseif stringinstr ($id[0],"!") then $i = $i + 1 else if stringinstr ($id[0],"@") then fileopen ($fisier,1) filewriteline ($fisier, $id[0]) fileclose ($fisier) $i = $i+1 $pu = $pu + 1 Else $id[0] = $id[0] & "@yahoo.com" fileopen ($fisier,1) filewriteline ($fisier, $id[0]) fileclose ($fisier) $i = $i+1 $pu = $pu + 1 endif endifwendmsgbox (64, "Terminat", "Am extras " & $pu & " mail-uri")EndSelect WEnd GUIDelete() ExitEndFuncEDIT : Nu ai postat la sectiunea potrivita..PS : Nu merita sa faci un post nou pentru asta. Puteai sa dai un search pe forum.. Edited April 9, 2010 by Dragos Quote Link to comment Share on other sites More sharing options...
AdrianCOM Posted April 9, 2010 Author Report Share Posted April 9, 2010 Nu am Windows Quote Link to comment Share on other sites More sharing options...
Moderators Dragos Posted April 9, 2010 Moderators Report Share Posted April 9, 2010 http://syn.xdependent.com/cur.txtCe am strans eu.. Quote Link to comment Share on other sites More sharing options...
Birkoff Posted April 9, 2010 Report Share Posted April 9, 2010 da ar trebui sa dai un search inainte ca sunt o tona... eu am adunat 2.400.000 straine de pe aici... Quote Link to comment Share on other sites More sharing options...
lafurat Posted April 9, 2010 Report Share Posted April 9, 2010 Si in ce extensie salvezi aia Synthesis Quote Link to comment Share on other sites More sharing options...
Birkoff Posted April 9, 2010 Report Share Posted April 9, 2010 cred ca ar trebui sa citesti tutorialele de autoit vezi aici Quote Link to comment Share on other sites More sharing options...
ronin33dan Posted April 9, 2010 Report Share Posted April 9, 2010 Am citi tutorialele , nu am gasit nimic in legatura cu extragerea adreselor de email cu "autoIT".Chiar vreau sa invat sa-l folosesc !!!Daca cineva are timp si imi poate explica si mie modul de utilizare al rog si ai si multumesc anticipat !!! Quote Link to comment Share on other sites More sharing options...
lafurat Posted April 9, 2010 Report Share Posted April 9, 2010 Uite aici am gasit pe net un tutorial cum sa folosesi programul, este in limba engleza.Auto-IT Guide to Programming Quote Link to comment Share on other sites More sharing options...
ronin33dan Posted April 9, 2010 Report Share Posted April 9, 2010 NU-i problema !!E ok si asa ! Multam! Quote Link to comment Share on other sites More sharing options...
Moderators Dragos Posted April 10, 2010 Moderators Report Share Posted April 10, 2010 (edited) Luati autoit de aici si il instalati. Dupa instalare, faceti click dreapta pe desktop si selectati new si apoi aveti optiunea cu autoit. O selectati. Se va crea un nou fisier gen New AutoIT 3 script. Click dreapta pe el, edit si vi se va deschide o noua fereastra. Acolo bagati codul dupa care apasati tasta f5 si va rula programul.Daca aveti intrebari in legatura cu autoit, dati-mi pm sau add sters. Edited July 5, 2010 by Dragos Quote Link to comment Share on other sites More sharing options...
buves18 Posted July 16, 2011 Report Share Posted July 16, 2011 dar nu mai merge profilehi5`atunci cum sa mearga script ul ...dupa alt site nu se poate? Quote Link to comment Share on other sites More sharing options...
kostasalexis Posted August 3, 2011 Report Share Posted August 3, 2011 pai care este codul frate ? Quote Link to comment Share on other sites More sharing options...