Trimite IP la un email...

#1
alexande_R

Posted 11 July 2009 - 22:32

New Member

Grup: Members
Posts: 4
Înscris: 19.06.2009

Salutare... cine ma poate ajuta sa creez un mic program care la rulare sa transmita IP-ul calcultorului gen 89.x.x.x. la un email...
Multumesc Anticipat

Back to top

#2
_Gio_

Posted 21 July 2009 - 10:16

Member

Grup: Members
Posts: 577
Înscris: 11.06.2006

Facusem eu unul mai demult. Parca il mai am acasa. Da-mi un PM sa-mi amintesti.

Back to top

#3
msmihai

Posted 21 July 2009 - 10:54

Senior Member

Grup: Senior Members
Posts: 5,271
Înscris: 02.09.2006

De aflat IP-ul e relativ usor, folosesti functia gethostbyname si iterezi prin structurile returnate de ea.
Pentru trimis mail , ori urmezi protocolul SMTP ori folosesti deja o librarie cu ajutorul careia poti trimite mail

Back to top

#4
ady_chesnoiu

Posted 23 July 2009 - 16:06

Supercharged

Grup: Senior Members
Posts: 4,605
Înscris: 27.05.2007

Uite :

Pune un control Winshock pe Form1 .

Apoi pune asa la cod :

La declara�ii (�n sususul paginii) :

 Imports System.Net.Mail

�i codul :

Dim ip As String
		ip = AxWinsock1.LocalIP
		

		Dim mesajmail As New MailMessage()
		Try
			mesajmail.From = New MailAddress("[email protected]") ' adresa de gmail "de unde" se trimite
			mesajmail.To.Add("[email protected]") ' adresa unde se va trimite
			mesajmail.Subject = "EXEMPLU SUBIECT" ' subiectul e-mailului
			mesajmail.Body = ip
			Dim SMTP As New SmtpClient("smtp.gmail.com")
			SMTP.Port = 587
			SMTP.EnableSsl = True
			SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "parola") ' adresa de unde se trimte si parola acesteia
			SMTP.Send(mesajmail)
		Catch ex As Exception
		End Try

Edited by ady_chesnoiu, 23 July 2009 - 16:07.

Back to top

#5
msmihai

Posted 23 July 2009 - 16:42

Senior Member

Grup: Senior Members
Posts: 5,271
Înscris: 02.09.2006

parerea mea este ca e acelasi tip care a postat de 2 ori ... si nu ii trebuie cod, ii trebuie direct un executabil.

Edited by msmihai, 23 July 2009 - 16:45.

Back to top

#6
shiva

Posted 24 July 2009 - 11:11

Nameless hero. Professional bug slayer mom.

Grup: Senior Members
Posts: 14,862
Înscris: 06.10.2003

Acelasi motiv de inchidere ca in topicul precedent. Nu oferim mura-n-gura programe!

CLOSED.

Back to top

Anunturi

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

Trimite IP la un email...

#1 alexande_R Posted 11 July 2009 - 22:32

#2 _Gio_ Posted 21 July 2009 - 10:16

#3 msmihai Posted 21 July 2009 - 10:54

#4 ady_chesnoiu Posted 23 July 2009 - 16:06

#5 msmihai Posted 23 July 2009 - 16:42

#6 shiva Posted 24 July 2009 - 11:11