Skype Spammer VB.net Tutorial
Einleitung:
Okay heute möchte ich euch zeigen wie ihr mit VB.net einen Spammer für Skype selber erstellen könnt. Wie bei manchen anderen Dingen finde ich es eine Frechheit soetwas simples für soviel Geld zu verkaufen.
Als aller erstes öffnet ihr Visual Basic und erstellt eine neue Windows-Forms-Anwendung. Nun bindet ihr die Skype API erstmal in euer Projekt ein:
Ihr macht bei dem Projektmappen-Explorer einen Rechtsklick auf euer Projekt und wählt "Verweis hinzufügen..." aus. Als nächstes geht öffnet ihr den Tab "Durchsuchen" und wählt die Skype4COM.dll aus. Nun müsst ihr erneut auf "Verweis hinzufügen..." und geht diesmal in den Tab "COM", scrollt runter und wählt eure Skype4COM.dll aus.
Als nächstes macht ihr einen Doppelklick auf eure Form und schreibt in die oberste Zeile:
Code:
Imports SKYPE4COMLib
Dadurch wird die Skype4COM in dem Projekt nutzbar, bzw. importiert.
Unter Public Class Form1 deklarieren wir nun Skype:
Code:
Dim Skype As New SKYPE4COMLib.Skype
Nun machen wir nocheinmal einen Doppelklick auf unsere Form und schreiben in die Form1_Load:
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Skype.Attach()
End Sub
Dadurch wird unser Projekt beim starten mit Skype verbunden, die Anfrage von Skype, das Programm zuzulassen,
müsst ihr annehmen.
!!! Wichtig ist das die Verbindung mit Skype im Debug-Test nicht funktioniert, also müsst ihr erst das Projekt erstellen damit ihr es testen könnt. !!!
Nun kommen wir zum eigentlichen Spammer:
Viele Tutorials oder Tools benutzen einen Timer, welcher nicht nur unpassend sondern auch in manchen fällen Lag erzeugen kann. Deswegen benutzen wir einen Backgroundworker und eine genaue Anzahl an zu versendenen Nachrichten.
Wir fügen also hinzu:- 2x Textbox
- 1x NumericUpDown
- 1x Backgroundworker
- 1x Button
Wir machen es uns ein wenig leichter und deklarieren noch ein paar Strings, falls ihr noch weitere Funktionen in euer Tool einbauen wollt.
Also schreiben wir unter die Skype-Deklaration:
Code:
Dim textnum as Integer
Dim Skypename as String
Dim Skypetext as String
Als nächstes machen wir einen Doppelklick auf Button1 und schreiben folgendes:
Code:
textnum = NumericUpDown1.Value
Skypename = Textbox1.Text
Skypetext = Textbox2.Text
BackgroundWorker1.RunWorkerAsync()
Dadurch werden den Strings die Daten zugewiesen und der Backgroundworker fängt an zu arbeiten, in diesen schreiben wir folgendes:
Code:
Do Until textnum = 0
Skype.SendMessage(skypename, skypetext)
textnum -= 1
Loop
Hier wird eine solange die Nachricht an den Skypenamen gesendet bis unser NumericUpDown = 0 ist, also können wir somit die Anzahl der Nachrichten steuern, unabhängig davon kommt es oft dazu das Skype trotz gutem Internet langsamer die Nachrichten schickt, da es nicht direkt alles verarbeitet.
Hier noch der ganze Code (mit einem extrem leichten Anti-Leech):
Code:
Imports Skype4ComLib
Public Class Form1
Dim Skype As New SKYPE4COMLib.Skype
Dim textnum As Integer
Dim Skypename As String
Dim Skypetext As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Skype.Attach()
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Skypename = TextBox1.Text
Skypetext = TextBox2.Text
textnum = NumericUpDown1.value
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Do Until textnum = 0
'Skype.SendMessage(Skypename, Skypetext)
textnum -= 1
Loop
End Sub
End Class
Das war es auch schon, schon habt ihr euren ganz eigenen Skype-Spammer, kostenlos.
Wenn euch das Tutorial gefallen hat, lasst ein "Thanks" hier.
Wenn ihr wollt kommen mehr Tutorials.
Die Skype API gibt es ganz einfach über Google zu finden, oder hier, wobei ich mir nicht sicher bin ob diese Version funktioniert, weil ich sie einfach noch so auf meinem Rechner gefunden habe:
![[VB.net] Skype Spammer Tutorial l Skype API](https://www.elitepvpers.com/forum/iconimages/coding-tutorials/vb-net-skype-spammer-tutorial-l-skype-api_ltr.gif){kind=small}
