Thema
:
Kann das wer erstellen mit Visual Basic Express?
Einzelnen Beitrag anzeigen
08.03.21, 18:40
#
1
nissan_skyline
Schon Lange dabei :)
Registriert seit: Jul 2009
Ort: Germany
Beiträge: 773
Bedankt: 588
Kann das wer erstellen mit Visual Basic Express?
Hallo ich kenne mich damit leider nicht aus aber ne freundin sucht das Kann das wer erstellen mit Visual Basic Express?
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("ws*****.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
https://k-tutorial.de.tl/%5BTuT%5D-Sendtext-Bot.htm
Dankeschon mal.
__________________
Geändert von nissan_skyline (08.03.21 um
19:06
Uhr)
nissan_skyline
Öffentliches Profil ansehen
Eine Private Nachricht an nissan_skyline schicken
Mehr Beiträge von nissan_skyline finden