|
| Autor |
Nachricht |
Windowsnutzer_
Newbie
Anmeldedatum: 27.02.2007
Beiträge: 17
|
vb .net Spammer
Verfasst am: 10.04.2007, 09:46 |
|
|
| Hi.Könnte mir jemand mal text oder vid tut machen wie man einen Spammer in vb .net codet? |
|
| |
|
 |
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
|
|
| |
|
|
Windowsnutzer_
Newbie
Anmeldedatum: 27.02.2007
Beiträge: 17
|
Verfasst am: 10.04.2007, 15:52 |
|
|
| Okay dann kommentierten Source Code^^.Hauptsächlich das senden und mit den Timer.Aber wenn du Zeit und Lust hast dann mal einen vernüftigen ^^. |
|
| |
|
|
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
|
|
| |
|
|
Windowsnutzer_
Newbie
Anmeldedatum: 27.02.2007
Beiträge: 17
|
Verfasst am: 10.04.2007, 19:30 |
|
|
Danke.
Was hat es sich mit KeyPressed auf sich?
Ich habe es mal abgeschr. oder halt auswendig gelernt ^^.Um es mal zu schreiben.Immerhin kann man ja net so viel damit machen^^.
Aufjedenfall funzt meiner net
| Code: | Public Class Form1
Private Sub timer_spam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer_spam.Tick
System.Windows.Forms.SendKeys.Send(txt_spam.Text)
System.Windows.Forms.SendKeys.Send("{enter}")
End Sub
Private Sub timer_keys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer_keys.Tick
If GetKeys(vbKeyF1) = KeyPressed Then
ElseIf Me.txt_spam.Text = "" Then
MsgBox("Spamtext eingeben!")
Exit Sub
ElseIf Me.txt_intervall.Text = "" Then
MsgBox("Bitte Intervall eingeben")
Exit Sub
Me.timer_spam.Interval = Me.txt_intervall.Text
Me.timer_spam.Enabled = True
ElseIf GetKeys(vbKeyF1) = KeyPressed Then
Me.timer_spam.Enabled = False
End If
End Sub
End Class |
| Code: | Module Keys
Public Declare Function GetKeys Lib "user32.dll" (ByVal nVirtKey As Single) As Short
Public Const KeyPressed As Short = -32767
Public Const vbKeyF1 = &H70S
Public Const vbKeyF2 = &H71S
End Module
|
|
|
| |
|
|
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
|
Verfasst am: 10.04.2007, 22:09 |
|
|
Du hast n paar Fehler in der entscheidenden IF-Schleife:
| Code: |
If GetKeys(vbKeyF1) = KeyPressed Then
If Me.txt_spam.Text = "" Then '<-- If nicht Elseif
MsgBox("Spamtext eingeben!")
Exit Sub
ElseIf Me.txt_intervall.Text = "" Then
MsgBox("Bitte Intervall eingeben")
Exit Sub
Me.timer_spam.Interval = Me.txt_intervall.Text
Me.timer_spam.Enabled = True
End if <-- wegen oben dem If statt Elseif nochmal End if
ElseIf GetKeys(vbKeyF2) = KeyPressed Then '<-- F2 !!
Me.timer_spam.Enabled = False
End If
|
So sollte es gehen, is aber untested, nur die Fehler die mir beim überfliegen aufgefallen sind. Außerdem brauchst du die ganzen Me.´s gar nicht.
Und zu dem Keypressed, das ist einfach eine Konstante, du könntest z.B auch immer das schreiben:
| Code: | | If GetKeys(vbKeyF1) = -32767 Then |
Warums ausgerechnet -32767 ist, weiß ich auch nicht....32768 is ein Quadrat von 2 und wenn man also 32768 Zahlen unter null zulassen will und die 0 zählt, ergibt das -32757 als äußerste Zahl. Außerdem hat Windows NT(2000,NT,XP) 32Bit System etc. hängt alles damit zusammen... kp, frag doch den Bill ^^
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/ |
|
| |
|
|
Windowsnutzer_
Newbie
Anmeldedatum: 27.02.2007
Beiträge: 17
|
Verfasst am: 11.04.2007, 13:05 |
|
|
Ja gut danke werde es nachher mal ausprobieren.
Ja was bill sich alles gedacht hat 
Haste vielleicht noch andere gute Sources?Z.b Keylogger odeer sowas? |
|
| |
|
|
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
|
Verfasst am: 11.04.2007, 15:49 |
|
|
Mit dem Keypressed kann man einen Keylogger machen, aber man muss umbedigt noch den Titel des aktiven Fensters rauskriegen. Könnt mich mal an sowas versuchen.
Hab außerdem noch n bisschen was zur Maus (Position bestimmen, bewegen, etc.), werde ich später (wenn ich drandenk) mal kommentieren und so.
Ansonsten hab ich im Moment noch 2 Projekte zu denen ich aber nicht vorhabe den Source rauszugeben, das eine ist ein Clipboard Manager, den ich für mich selber gebastelt habe (werd mal die .exe uppen), das andere ist geheim 
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/ |
|
| |
|
|
Windowsnutzer_
Newbie
Anmeldedatum: 27.02.2007
Beiträge: 17
|
Verfasst am: 11.04.2007, 17:58 |
|
|
Jepp natürlich nur die du public machen willst ^^.
Wie heißt der Code denn für das aktuelle Fenster?
Mit der Maus ist auch gut. |
|
| |
|
|
Bahamut_
« Moderator »
Anmeldedatum: 12.12.2006
Beiträge: 250
|
|
| |
|
|
Windowsnutzer_
Newbie
Anmeldedatum: 27.02.2007
Beiträge: 17
|
Verfasst am: 12.04.2007, 13:38 |
|
|
 Lol.
Naja der Spammer macht es immer noch net:( |
|
| |
|
|
Registrieren
Login
Irgendwas mit Einsprungpunkt in ner DLL und so, muss ich morgen nochmal überarbeiten.