ich habe ein problem mit einem klick bot den ich programmiert habe.
________Form1________
Public Class Form1
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Declare Function apimouse_event Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal pX As Int32, ByVal pY As Int32, ByVal cButton As Int32, ByVal ExtraInfo As Int32) As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rnd As New Random
Timer1.Interval = rnd.Next(TextBox1.Text & "000", TextBox2.Text & "000")
Timer1.Start()
Xposition.SelectedIndex = 1
Yposition.SelectedIndex = 1
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Xloc As String = Xposition.SelectedItem
Dim Yloc As String = Yposition.SelectedItem
Try
Cursor.Position = New Point(Xloc, Yloc)
Call apimouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call apimouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Xposition.SelectedIndex += 1
Yposition.SelectedIndex += 1
Catch ex As Exception
Timer1.Stop()
MsgBox("fertig")
End Try
End Sub
End Class
_______FORM2_______
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
End Sub
Private Sub Form2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
Form1.Xposition.Items.Add(MousePosition.X.ToString )
Form1.Yposition.Items.Add(MousePosition.Y.ToString )
End Sub
Private Sub Label1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick
Form1.Xposition.Items.Add(MousePosition.X.ToString )
Form1.Yposition.Items.Add(MousePosition.Y.ToString )
End Sub
End Class
© Lukas Jeroma
also der ist jez nur aus einem tut auf youtube abgeschrieben.
ich werde bald noch ein paar veränderungen vornehmen.
es funktioniert super aber das problem ist dass es bei metin zwar die maus bewegt aber nicht klickt.
also der zeiger bewegt sich über dem bildschirm aber im metin fenster klickt er nicht.
ich wollte mal fragen ob es einen vb befehl gibt den hshield nicht verweigert.
so wie ich gehört habe funktioniert das richtige ghostmouse ja auch bei metin2.
bitte um schnelle hilfe
ps: hier der link zu dem tut:
