Tutorial's von A - Z (www.Knuddels.de.ch.at.MFC)  
 
  [TuT] Sendtext Bot 14.05.2024 17:39 (UTC)
   
 
[TuT] Sendtext Bot
So,
Habe mir mal vorgenommen ein einfaches TuT für einen Sendtext bot für euch zu machen.

1.Ihr öffnet Visual Basic Express Edition 2008.
2.Ihr legt eine standart .exe anwendung an.
3.Ihr legt zwei Buttons an, einer wo drauf steht Send, und einer wo draufsteht Stop.
4.Ihr legt eine Textbox an und Daneben ein Label wo draufsteht Massage.
5.Ihr drückt auf euerer Maus Rechtsklick und klickt auf "Code anzeigen".
6.Nun der Code unter Public Class Form1 schreibt ihr:
Dim bot as Object
Dim abbruch As Boolean
7.Und dann: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bot = CreateObject("wscript.shell")
Do


bot.sendkeys(TextBox1.Text + "°dvhjz")

For t As Integer = 1 To 50
System.Threading.Thread.Sleep(300)
If abbruch Then Exit Do
Next
bot.sendkeys(TextBox1.Text + "°zdzhb")
For t As Integer = 1 To 50
System.Threading.Thread.Sleep(300)
If abbruch Then Exit Do
Next
bot.sendkeys(TextBox1.Text + "°audhdhzb")
For t As Integer = 1 To 50
System.Threading.Thread.Sleep(300)
If abbruch Then Exit Do
Next
bot.sendkeys(TextBox1.Text + "°afhdvbfz")
For t As Integer = 1 To 50
System.Threading.Thread.Sleep(300)
If abbruch Then Exit Do
Next

Loop








End Sub
End Class

7.Ihr geht auf Debuggen und dann auf Alle Speichern.
8.Und fertig ist euer SendText



© by Tunnel25
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Heute waren schon 1 Besucher (1 Hits) hier!
Diese Webseite wurde kostenlos mit Homepage-Baukasten.de erstellt. Willst du auch eine eigene Webseite?
Gratis anmelden