[Frage]Visual Basic

[P∪dding]

Hey leute,
hab ne frage zu VB.Alsoooo,ich will ein Programm erstellen,das einmal einen text oder whatever in ein bestimmtes fenster schreibt.
das hab ich bis jetzt:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 1 ")
        If RadioButton2.Checked Then My.Computer.Keyboard.SendKeys("/item 2 ")
        If RadioButton3.Checked Then My.Computer.Keyboard.SendKeys("/item 3 ")
        If RadioButton4.Checked Then My.Computer.Keyboard.SendKeys("/item 4 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 5 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 6 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 7 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 8 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 9 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 10 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 11 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 12 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 13 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 14 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 15 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 16 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 17 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 18 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 19 ")
        If RadioButton1.Checked Then My.Computer.Keyboard.SendKeys("/item 20 ")
        My.Computer.Keyboard.SendKeys("{Enter}")

Meine frage nun: Wie mache ich,dass er den Text nur in ein bestimmtes spiel schreibt,als z.b. ich zocke COD und der text wird währendessen in CrossFire "reingespammt"

Hoffe um antwort
PS:Ich will keinen Spambot machen,auch wenn es so aussehen könnte.

[yihaaa]

1. Es wird nicht nach Sourcecode gebettelt.
2. Schau dir die WINAPI Funtkionen an, da wirst du fünding. (Post & SendMessage)
3. Frag nicht wie man die einbindet.
4. Lern die Basics!

MfG

[P∪dding]

Originally Posted by yihaaa

1. Es wird nicht nach Sourcecode gebettelt.
2. Schau dir die WINAPI Funtkionen an, da wirst du fünding. (Post & SendMessage)
3. Frag nicht wie man die einbindet.
4. Lern die Basics!

MfG

1.Wo hab ich nach nem Sourcecode gefragt,ich wollte nur,dass es mr jemand erklärt
2.ich les mir doch net sämliche WINAPI Funktionen durch,am Ende check ichs eh nicht -.-"
3.Was is einbinden,hab keine Ahnung.
4.Dein Kommentar war unnötig,ich hab nicht gefragt,wer mir irgendeinen Müll vor die Nase setzt,sondern wer Mir helfen kann!

[yihaaa]

Ich habe dir die WINAPI Funktion dabei geschrieben! Wenn du das noch nicht mal in google eingegeben bekommst, dann kann man dir auch nich helfen. Ich kann dir nur noch mal ans Herz zu legen, lern die Basics, dann verschwinden solche Fragen schnell wieder!

MfG

Edit: Du kannst noch 500 Zeilen von deinen SendKeys hinzufügen, davon wirds auch nicht besser!

[P∪dding]

Wie schon gesagt bitte ich um eine erklärung,denn durch das googlen von wörtern wie WinApi Sendmessage etc. werd ich auch nicht schlauer.Ausserdem ich bin relativ neu und habe ,wie auch schon gesagt, nich viel ahnung

[yihaaa]

Ja, dann mach erst mal einfachere Sachen und lern die Basics, bevor du mit WINAPI Sachen anfängst.

MfG

[Kraizy​]

[Kronasify]

Also ich habe das Hier gefungen sieht ganz Viel Versprechend Aus und auch nicht so konserviert

Public Class Form1

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As IntPtr) As Integer
Private Declare Function GetForegroundWindow Lib "user32" () As Integer
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
Private Const WM_SETFOCUS As Int32 = &H7

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Process.Start("Notepad.exe")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p As Process = Process.GetProcessesByName("Notepad")(0)
Clipboard.SetText(Me.TextBox1.Text)
Me.Text = "in den vordergrundbringen"
SetForegroundWindowEx(p.MainWindowHandle)
Me.Text = "text senden"
SendKeys.SendWait("^v")
End Sub

'quelle:
' Verwenden Sie die Funktion SetForegroundWindowEx statt der
' API Funktion SetForegroundWindow ausschließlich, wenn das
' betroffene Fenster tatsächlich in den Vordergrund gebracht
' werden muss.
Private Function SetForegroundWindowEx(ByVal hWndWindow As Long) As Boolean
' Dient dem Setzen des Vordergrundfensters mit der Funktion
' SetForegroundWindow, die sich unter neueren Windows-Versionen
' anders verhält als unter Windows 95 und Windows NT 4.0.
' Der Rückgabewert ist True, wenn das Fenster erfolgreich in den
' Vordergrund gebracht werden konnte.
Dim lThreadForeWin As Long ' Thread-ID für das aktuelle Vordergrundfenster
Dim lThreadWindow As Long ' Thread-ID für das in hWndWindow spezifizierte
' Fenster, das in den Vordergrund des Desktops
' gebracht werden soll.
' Falls das Fenster dem gleichen Thread wie das aktuelle
' Vordergrundfenster angehört, ist kein Workaround erforderlich:
lThreadWindow = GetWindowThreadProcessId(hWndWindow, 0)
lThreadForeWin = GetWindowThreadProcessId(GetForegroundWindow(), 0)
If lThreadWindow = lThreadForeWin Then
' Vordergrundfenster und zu aktivierendes Fenster gehören zum
' gleichen Thread. SteForegroundWindow allein reicht aus:
SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
Else
' Das Vordergrundfenster gehört zu einem anderen Thread als das
' Fenster, das neues Vordergrundfenster werden soll. Mittels
' AttachThreadInput erhaten wir kurzzeitig Zugriff auf die
' Eingabeverarbeitung des Threads des Vordergrundfensters,
' so dass SetForegroundWindow wie erwartet arbeitet:
SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
End If
End Function
End Class

Quelle:

Wobei ich dir Empfehle ein solchiges programm mit AutoIt zu Schreiben wenn es dir mit VB zu umständlich ist . Dort is es mit einem kleinen Code geregelt.

Was Mir auch noch Aufgefallen ist , Wenn du CoD Spielst und zum Bleistift die W taste Gedrückt hälst zum laufen und Das Tool dann etwas schreibt kann das zu Problemen beim Spielen führer . Klingt logisch ne ?^^

Und ich mache dich Auf meine Signatur und auf meine Vorposter aufmerksam =3

[P∪dding]

Originally Posted by --cloud--

Also ich habe das Hier gefungen sieht ganz Viel Versprechend Aus und auch nicht so konserviert



Quelle:

Wobei ich dir Empfehle ein solchiges programm mit AutoIt zu Schreiben wenn es dir mit VB zu umständlich ist . Dort is es mit einem kleinen Code geregelt.

Was Mir auch noch Aufgefallen ist , Wenn du CoD Spielst und zum Bleistift die W taste Gedrückt hälst zum laufen und Das Tool dann etwas schreibt kann das zu Problemen beim Spielen führer . Klingt logisch ne ?^^

Und ich mache dich Auf meine Signatur und auf meine Vorposter aufmerksam =3

vielen dank ;Dhabs jetzt endlich gecheckt,aber in meinem Game (Minecraft) funktioniert mein programm leider nicht,da das programm anscheinend auf ein Copy/Paste system zurückgeht,dh.der text in der Textbox wird kopiert und in den chat eingefügt.doch leider geht Str+v bei Minecraft net -.-

aso,und wegen COD,das war nur ein beispiel =D