Старый 19.07.2011, 11:14   #1
leh12
RAM 4mb
 
Аватар для leh12
 
Регистрация: 10.04.2010
Сообщений: 5
leh12 Новичок
leh12 вне форума

По умолчанию vb.net


Вот так реализовал Анонимную отправку почты через PHP скрипт..Может кому прегодится..
Код:
Imports System.Runtime.InteropServices
Imports System
Imports System.IO
Imports System.Windows
Imports System.Windows.Forms
Public Class Form1

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementsByTagName("input")(12).InvokeMember("click")

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://ХОСТ/madspamer.php")
        While (WebBrowser1.ReadyState = WebBrowserReadyState.Complete)

        End While
        Application.DoEvents()

        WebBrowser1.Document.GetElementById("replyto").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("from").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("realname").SetAttribute("value", TextBox3.Text)
        WebBrowser1.Document.GetElementById("subject").SetAttribute("value", TextBox4.Text)
        WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox5.Text)
        WebBrowser1.Document.GetElementById("emaillist").SetAttribute("value", TextBox6.Text)
        WebBrowser1.Document.GetElementById("replyto").InnerText = TextBox1.Text

    End Sub
End Class
Сама прога
[Ссылки доступны только зарегистрированным пользователям . Зарегистрируйся, чтобы увидеть ссылку.]
  Ответить с цитированием
Последний раз редактировалось mironich; 19.07.2011 в 21:34.
Ответ: vb.net
Старый 19.07.2011, 19:20   #2
kz_mz
RAM 64MB
 
Аватар для kz_mz
 
Регистрация: 05.04.2011
Сообщений: 77
kz_mz на пути к лучшему
kz_mz вне форума
По умолчанию Ответ: vb.net

Работает!
а обновление будет? отправление на несколько мыл
  Ответить с цитированием
Ответ: vb.net
Старый 20.07.2011, 22:51   #3
leh12
RAM 4mb
 
Аватар для leh12
 
Регистрация: 10.04.2010
Сообщений: 5
leh12 Новичок
leh12 вне форума
Wink Ответ: vb.net

Цитата:
Сообщение от kz_mz Посмотреть сообщение
Работает!
а обновление будет? отправление на несколько мыл
Вообще как я понял правельно сделать это через get & post запросы ..
Чем и занят в данный момент..( используя vb.net функции HttpWebRequest и HttpWebResponse).но впринципе можно сделать и через webblawser(задать список и поставить таймер)- теоритически.Что впринципе не сложно найти на форуме по vb.het или самому написать .Здесь тема ИСХОДНИКИ - я так понял а не хак-проги..
  Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.



взломать аську аську взломать взлом программы сделать взлом программы как сделать взлом программы хакерские сайты как легко взломать аську лучшие хакерские сайты топ список хакерские сайты взлом паролей легкий взлом паролей

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2009, Jelsoft Enterprises Ltd. Перевод: zCarot