|
You last visited: Today at 15:49
Advertisement
Visual Basic Formen unklickbar machen?
Discussion on Visual Basic Formen unklickbar machen? within the .NET Languages forum part of the Coders Den category.
10/04/2010, 20:24
|
#1
|
elite*gold: 0
Join Date: Aug 2010
Posts: 462
Received Thanks: 1,618
|
Visual Basic Formen unklickbar machen?
Hi,
Ich habe ein big problem!
Ich habe einen Bot für ein spiel geschreiben alles geht AUSER :
Er soll im spiel den zeiger bewegen und das wenn man F12 drückt das Problem ist das Programm merkt erst wenn man AUF es klickt und dann F12 das man die taste gedrückt hat wenn ich im Spiel F12 Drücke passiert garnichts Help pls
|
|
|
10/04/2010, 20:40
|
#2
|
elite*gold: 0
Join Date: Oct 2010
Posts: 287
Received Thanks: 111
|
Bisschen undeutlich ausgedrückt.
Dein Problem hab ich so verstanden:
du hast nen Bot gemacht, aber wenn du per Key [F12] den Bot Aktivieren willst und in einem anderen Fenster bist, wird der Bot nicht aktiviert !?
Also poste mal deinen Code.
Und natülich für welches Game ^_^
gibt Games die ham gegen so wad natülich ne sicherung, ansonsten googlen =)
|
|
|
10/04/2010, 20:47
|
#3
|
elite*gold: 0
Join Date: Aug 2010
Posts: 462
Received Thanks: 1,618
|
 ok hier ist er und perfect verstanden !
Vorwort:
game: s4 league (Bot funct aber halt net so wie ich will)
Habs schon bei OnTop auf True gestellt:
Option Explicit On
Public Class Form1
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Declare Function apimouse_event Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dX As Int32, ByVal dY As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32) As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
Dim XW As String = 0
Dim YW As String = 0
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKeys As Integer) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Starten As Boolean
Dim Pause As Boolean
Dim Schliesen As Boolean
Starten = GetAsyncKeyState(Keys.F12)
Pause = GetAsyncKeyState(Keys.F11)
Schliesen = GetAsyncKeyState(Keys.F10)
If Schliesen = True Then
Me.Close()
End If
If Starten = True Then
Do
Windows.Forms.Cursor.Position = New Point(391, 521)
Call apimouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call apimouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Sleep(6000)
Windows.Forms.Cursor.Position = New Point(46, 280)
Sleep(6000)
Windows.Forms.Cursor.Position = New Point(682, 251)
Sleep(TextBox1.Text)
Sleep(10000)
Windows.Forms.Cursor.Position = New Point(655, 562)
Call apimouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call apimouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Loop While (Starten = True)
End If
If Pause = True Then
MsgBox("Das Tool wurde Pasusiert zum Starten F12 drücken")
End If
End Sub
End Class
|
|
|
10/04/2010, 20:55
|
#4
|
elite*gold: 1329
Join Date: Jun 2009
Posts: 1,873
Received Thanks: 960
|
ich weiß was du meinst XD
Du musst gaaanz einfach nen globalen Hotkey registrieren... GidFuH!!!
Schau hier:
|
|
|
10/04/2010, 20:56
|
#5
|
elite*gold: 0
Join Date: Oct 2010
Posts: 287
Received Thanks: 111
|
€: war wohl jmd schneller ^^
|
|
|
10/04/2010, 20:58
|
#6
|
elite*gold: 0
Join Date: Aug 2010
Posts: 462
Received Thanks: 1,618
|
Wie geht das genau?
sry fabge erst mit Vb an !
|
|
|
10/04/2010, 21:00
|
#7
|
elite*gold: 1329
Join Date: Jun 2009
Posts: 1,873
Received Thanks: 960
|
|
|
|
10/04/2010, 21:11
|
#8
|
elite*gold: 0
Join Date: Aug 2010
Posts: 462
Received Thanks: 1,618
|
Ich kapiere kein Wort XD erklärst du es mir pls
|
|
|
10/04/2010, 21:44
|
#9
|
elite*gold: 0
Join Date: Sep 2009
Posts: 62
Received Thanks: 26
|
so wie ich das verstanden hab soll die form einfach weg?
wenn das so ist dann einfach so:
Code:
Dim Hotkey1 As Boolean
Hotkey1 = GetAsyncKeyState(Keys.F12)
Me.hide()
und dann beim deaktivieren dann eben:
Code:
Dim Hotkey2 As Boolean
Hotkey2 = GetAsyncKeyState(Keys.F11)
me.show()
|
|
|
10/04/2010, 21:46
|
#10
|
elite*gold: 0
Join Date: Aug 2010
Posts: 462
Received Thanks: 1,618
|
Form weg wie meinst du das?
|
|
|
10/04/2010, 22:32
|
#11
|
elite*gold: 1329
Join Date: Jun 2009
Posts: 1,873
Received Thanks: 960
|
QUARK...
Ihr versteht das Problem nich?
Er will, dass sein Bot irgendwas macht, während der Handle des Spielfensers aktiv ist. So, dass er nicht den Fensterhandle vom Bot aktiv hat. Dazu braucht er globale statt loke Hotkeys.
Also, As, ich kann zwar nur Pascal und n bisl c++, aber ich kann dir soviel sagen:
Geh auf den 1. Link, kopier dir alles...und dann schau dir mal die Funktion gaaaaanz unten an
(die heißt sooo:
Code:
Private Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
If m.Msg = WM_HOTKEY Then
RaiseEvent HotKeyPressed(mHotKeyList(CShort(m.WParam)).HotKeyID)
End If
End Function
)
Da rufst du den ganzen Krempel von davor auf. Musst es nurnoch für dich anpassen und gut is^^
|
|
|
10/04/2010, 23:17
|
#12
|
elite*gold: 42
Join Date: Jun 2008
Posts: 5,425
Received Thanks: 1,888
|
Wieviele threads willst du noch erstellen für deine lächerlichen Probleme? Lern die Sprache erstmal.
|
|
|
10/05/2010, 00:13
|
#13
|
elite*gold: 0
Join Date: Aug 2010
Posts: 462
Received Thanks: 1,618
|
Ach ne deshalb Frage ich weil ich es lernen will du Pfosten XD
|
|
|
10/05/2010, 15:18
|
#14
|
elite*gold: 42
Join Date: Jun 2008
Posts: 5,425
Received Thanks: 1,888
|
Quote:
Originally Posted by ♣As♣
Ach ne deshalb Frage ich weil ich es lernen will du Pfosten XD
|
Kauf dir ein Buch du pfosten :>
|
|
|
10/05/2010, 18:23
|
#15
|
elite*gold: 1329
Join Date: Jun 2009
Posts: 1,873
Received Thanks: 960
|
Bücher sind mist XD
Man kann das Programmieren am Besten lernen, indem man sich hinsetzt und was programmiert. Und alles, was man nicht weiß, holt man sich ausm Inet. Nach nem halben Jahr is man dann ganz gut, wenn man das täglich macht ;P
|
|
|
Similar Threads
|
Visual Basic 6
07/26/2012 - Conquer Online 2 - 3 Replies
Where can i get this program from for free? A trail? I tried getting it from isohunt, but everytime i install it. It says need more memory. I have a shitload of memory, its something wrong with that verison i got, but is there somewhere i can download a trail?
|
Visual C++ (C++), Visual Basic, oder AutoIT?
06/24/2010 - .NET Languages - 11 Replies
Hallo Zusammen
Ich würde gerne mit dem Programmieren anfangen.
Meine Vorstellungen:
Es müsste möglich sein, eigene Programme zu schreiben wie z. B. MSN, Emule oder ähnliches. Natürlich nie in dieser Grösse nur als Beispiel.
Als weiteres sollte mit der gleichen Programmiersprache auch die Möglichkeit bestehen einen WoW Bot zu schreiben. Habe gehört die meisten Bots sind in Auto IT geschrieben. Gibt es unterschiede wegen des Warden schutzes oder kommt es nicht darauf an?
|
All times are GMT +1. The time now is 15:49.
|
|