adrese de mail

[AdrianCOM]

Postati aici liste cu adrese de mail

Multumesc.

[Dragos]

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-start

Doar un script sa extraga email-uri din hi5profile.com
Scris de Synthesis

#comments-end

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <String.au3>
#include <INet.au3>
#include <file.au3>
#notrayicon

Opt('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
	endif
wend
msgbox (64, "Terminat", "Am extras " & $pu & " mail-uri")

EndSelect
	WEnd

	GUIDelete()

	Exit
EndFunc

EDIT : 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

[AdrianCOM]

Nu am Windows

[Dragos]

http://syn.xdependent.com/cur.txt

Ce am strans eu..

[Birkoff]

da ar trebui sa dai un search inainte ca sunt o tona... eu am adunat 2.400.000 straine de pe aici...

[lafurat]

Si in ce extensie salvezi aia Synthesis

[Birkoff]

cred ca ar trebui sa citesti tutorialele de autoit vezi aici

[ronin33dan]

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 !!!

[lafurat]

Uite aici am gasit pe net un tutorial cum sa folosesi programul, este in limba engleza.

Auto-IT Guide to Programming

[ronin33dan]

NU-i problema !!E ok si asa ! Multam!

[Dragos]

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

[buves18]

dar nu mai merge profilehi5`atunci cum sa mearga script ul ...

dupa alt site nu se poate?

[kostasalexis]

pai care este codul frate ?