Hi,
zum Anfang mal mein Code:
Das soll ein Metin2 Potter werden. Ich testete es bei Notepad, aber mit den SendKeys geht es nicht. Notepad ist offen, ich aktiviere den Tastensender, bringe Notepad in den Vordergrund und nix passiert. Wo ist der Fehler?
MfG
raupy
zum Anfang mal mein Code:
VB.NET-Quellcode
- Public Class Form1
- Dim Metin2ExePfad As String
- Dim ExterneAnwendung As New System.Diagnostics.Process()
- Dim IstMetinOffen As Boolean
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim OFD As New OpenFileDialog
- With OFD
- OFD.Filter = "Anwendungen (*.exe)|*.exe"
- If .ShowDialog = Windows.Forms.DialogResult.OK Then
- Metin2ExePfad = .FileName
- Else
- MsgBox("Abgebrochen! Ohne Den Pfad geht es nicht!")
- Dim msg
- msg = MsgBox("Soll der Standartinstallationspfad verwendet werden?", MsgBoxStyle.YesNo)
- If msg = MsgBoxResult.Yes Then
- Metin2ExePfad = "C:\Programme\Metin2_Germany\metin2.exe"
- Else
- MsgBox("Ohne den Pfad nix möglische Jungschen. Der Hack zieht nun Leine")
- Application.ExitThread()
- Application.Exit()
- End If
- End If
- End With
- Label6.Text = Metin2ExePfad
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- ExterneAnwendung.StartInfo.FileName = Metin2ExePfad
- ExterneAnwendung.Start()
- Timer1.Start()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- 1:
- If ExterneAnwendung.HasExited = True Then
- IstMetinOffen = False
- MessageBox.Show("-.- Warum beendest du Metin2????? Der Hack zieht nun leine -.- Achja, beende auch den Moblocker -.-")
- Timer1.Stop()
- Application.Exit()
- Else
- IstMetinOffen = True
- End If
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- If IstMetinOffen = True Then
- SendKeys.Send(Keys.Space)
- SendKeys.Send("^")
- Else
- Timer2.Stop()
- End If
- End Sub
- End Class
Das soll ein Metin2 Potter werden. Ich testete es bei Notepad, aber mit den SendKeys geht es nicht. Notepad ist offen, ich aktiviere den Tastensender, bringe Notepad in den Vordergrund und nix passiert. Wo ist der Fehler?
MfG
raupy