Visual Basic 2008 Spammer Modul [Suche]

[xxleoxx3 0]

Hey Leute ich suche ein Modul womit man einen spammer in Warrock zum Laufen bekommt

[bobi 1]

ich weiss nicht ob du erwartest ob dir hier jemand einen kompletten sourcecode postet.

 

am besten schaust du dir mal die funktion "SendKeys" an.

 

msdn:

http://msdn.microsoft.com/en-us/library/8c6yea83(VS.85).aspx

 

oder ein beispiel bei vb@rchiv:

 

http://www.vbarchiv.net/commands/SendKeys.php

[xxleoxx3 0]

nein ich frage ob man überhaubt einen braucht

[bobi 1]

weisst du was ein modul macht?

 

theoretisch bräuchtest du für NICHTS ein modul. du könntest ALLES in die form schreiben ;-)

 

schau dir mal das vbarchiv faq zu modulen an.

 

http://www.vbarchiv.net/faq/allg_module.php

Edited March 12, 2009 by bobi

[xxleoxx3 0]

Kannst du pls sagen was daran Falsch ist ???

 

Public Class Form1
   Dim anti As Integer = 0

   Public Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer


   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If anti = 0 Then
           SendKeys.Send(TextBox2.Text)
           anti = 1
       Else
           SendKeys.Send("!!" & TextBox2.Text & "!!")
           anti = 0
       End If
       SendKeys.Send("{Enter}")
   End Sub

   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       Dim Starthotkey As Boolean
       Dim stophotkey As Boolean
       Starthotkey = GetAsyncKeyState(Keys.F2)
       stophotkey = GetAsyncKeyState(Keys.F4)
       If Starthotkey = True Then
           Timer1.Enabled = True
       End If
       If stophotkey = True Then
           Timer1.Enabled = False
       End If
   End Sub

   Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Integer

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Process.Start("Http://www.german-hacks.deghbsys.net")
       Process.Start("http://www.Biene Maja-site.de/183242")
   End Sub

   Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
       Timer1.Interval = TextBox1.Text
   End Sub

   Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
       End
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       MsgBox("Creditz by EddyFreddy")
   End Sub
End Class

[bobi 1]

hast du dich versichert das bei timer 2 der interval stimmt, + er auf enabled ist?

Edited March 12, 2009 by bobi

[xxleoxx3 0]

hast du tv oder icq