Please note, use this for other forums. Don't use this on this forum.
I don't want to turn this sub-forum into a black hat forum, so I don't think I am going to release any keylogger/phishersock/worm tutorials.
[IMG]https://i286.photobucke*****m/albums/ll82/passisnotcat/example.jpg?t=1254605406[/IMG]
Make it look something like this...
If your going to copy paste my source and repost the exact same thing on the forum please atleast give me credit.
Code:
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.ReadOnly = True 'makes it so people cant change their options
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True
TextBox5.ReadOnly = True
TextBox6.ReadOnly = True
TextBox7.ReadOnly = True
TextBox8.ReadOnly = True
Timer1.Start()
Button1.Enabled = False
Button2.Enabled = False
End Sub
Sub Delay(ByVal dblSecs As Double) 'call a delay
Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
Dim dblWaitTil As Date
Now.AddSeconds(OneSec)
dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
Do Until Now > dblWaitTil
Application.DoEvents()
Loop
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = "Timer re-loop"
ListBox1.SelectedIndex = 0 'targets our first link
WebBrowser1.Navigate(ListBox1.SelectedItem)
Call Delay(3)
Label1.Text = CStr(Int(Rnd() * 6)) 'generates a number from 0-6
If Label1.Text = 0 Then
WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox2.Text())
ElseIf Label1.Text = 1 Then
WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox3.Text())
ElseIf Label1.Text = 2 Then
WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox4.Text())
ElseIf Label1.Text = 3 Then
WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox5.Text())
ElseIf Label1.Text = 4 Then
WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox6.Text())
ElseIf Label1.Text = 5 Then
WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox7.Text())
ElseIf Label1.Text = 6 Then
WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox8.Text()) 'posts data into the messagebox
End If
'^ the above acts upon generation, meaning if its a 0 it will send textbox2.text
'^ if its a 1 it will do textbox3, and etc
Call Delay(4)
WebBrowser1.Document.GetElementById("sbutton").InvokeMember("click") 'submits it
ListBox1.Items.RemoveAt(0) 'deletes the link it just posted a thread on
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://www.arguewitheveryone.com") 'the target
Randomize() 'random number generator
MsgBox("Please login first, didn't bother adding that feature, because of people saying I would e-mail it to my gmail.")
End Sub
End Class
Very simple, you can make it spider the forum to gain forum thread links too...
Currently this works for one site.