[Visual Basics] SpamBot [HELP]

[waswaswas]

Hi
undzwar bin ich gerade dabei ein bisschen zu lernen und versuche gerade einen spambot mit visual basics 2008 zu basteln

der sourcekey...





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = TextBox1.Text
Timer1.Enabled = True
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = TextBox1.Text
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(TextBox2.Text)
SendKeys.Send("{Enter}")
End Sub

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





nur leider klapp das ganze nicht aber ich kann eht kin fehler enddecken. könnt ihr mir helfen

[12354]

Versuch mal feste Werte (für TimerIntervall udn SendKeys) zu nehmen.

Wenns dann immer noch nicht funzt machstes mit PostMessage : D

EDIT:Bei mir funktioniert der Code mit nem Intervall von 100 und nem "abc" als Text : D

[19panos19]

12354 what u say is good, or follow a tut on youtube,

[lujaluja]

Originally Posted by waswaswas

Hi
undzwar bin ich gerade dabei ein bisschen zu lernen und versuche gerade einen spambot mit visual basics 2008 zu basteln

der sourcekey...





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = TextBox1.Text
Timer1.Enabled = True
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = TextBox1.Text
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(TextBox2.Text)
SendKeys.Send("{Enter}")
End Sub

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





nur leider klapp das ganze nicht aber ich kann eht kin fehler enddecken. könnt ihr mir helfen

Mach mal das End weg, wenn du damit bewirken willst, dass dir Form sich beeendet, solltest du Me.Close() schreiben.

[vwap]

End wird durch den Compiler zum selben Code wie TerminateProcess übersetzt, würgt den Prozess also ab.
Daher eher schlecht als normal-gebrauch.

Und was bitte ist ein Sourcekey? Und btw, es heißt Visual Basic, nicht Visual Basics.

[hattabatatta]

ganz zu schweigen davon, dass solche codestücke einem das grausen bescheren:
Timer1.Interval = TextBox1.Text

ein grober fehler, den vb.net in den standardeinstellungen leider zulässt.
einen string in ein feld vom typ integer schreiben...autsch.

schmeiss mal onkel google an und such nach impliziten und expliziten typkonvertierungen...dann verstehst du vielleicht, warum der beruf des informatikers (bzw. programmierers) eine abgeschlossene lehre, oder ein studium erfordert.

[Kraizy​]

Originally Posted by hattabatatta

Timer1.Interval = TextBox1.Text

Das würde nicht passieren, wenn man Option Strict On in die 1. Zeile schreibt (was leider standardmäßig aus ist).

[vwap]

Ich hab Option Strict immer ein.

Btw, er meint damit, das ".Text" ein String ist, und ".Interval" ein 32 Bit Integer.

[hattabatatta]

@xKraizy:
genau deshalb habe ich ja geschrieben: "ein grober fehler, den vb.net in den standardeinstellungen leider zulässt"

headpuster hat es richtig erkannt, was ich meinte

[mrapc]

Ich verwende klassischerweise timer1.start
und timer1.stop
Aber jeh nachdem welche Anwendung die verwendest desto unterschiedlicher verhält sich dein "Bot"

Process.Start("Notepad.exe")                    'Notepad öffnen
        My.Computer.Keyboard.SendKeys("Zeile1")         'Textschreiben
        My.Computer.Keyboard.SendKeys("{ENTER}")        'Neue Zeile
        My.Computer.Keyboard.SendKeys("Text in Zeile 2") 'Zeile 2 schreiben


        'oder

        Dim zu_sendender_Text As String                         'Legt einen Neuen Wert fest (String)
        zu_sendender_Text = ("Zeile1" + vbNewLine + "Zeile2")   'Gibt an was der Wer sein soll
        'Wenn du einen Text aus einer Textbox senden willst benutze:
        'zu_sendender_Text = (Textbox1.text)
        My.Computer.Keyboard.SendKeys(zu_sendender_Text)

und ich denke solange er weiß das in seine Texbox ein Integer soll kann es jedem andern halbwegs egal sein, das Problem ist das steht leider auch in den VB Handbüchern drin
(Zumindest in manchen)


Achja guckt euch mal das Datum an

[Kraizy​]

Originally Posted by mrapc

das Problem ist das steht leider auch in den VB Handbüchern drin

Dann hol dir ein gescheites Buch..