Tastendruck im Spiel soll Ereignis auslösen

RattenJunge · 23. August 2008, 17:51

Hallo bin Einsteiger,
lege aber gleich los wenn es auch unhöflich ist.
Ich hab nen kleines Tool geplant, aber mir fehlen halt die restlichen kenntnisse.
Vielleicht könnt ihr mir ja helfen

Also das tool sollte können:

-Programmaufruf durch Tastendruck im Spiel (zB. Num 9)
-Nach dem Port (:4000) und den Servern (.83) kann gesucht werden

-cmd.exe soll unsichtbar aufgerufen werden
-soll auf allen Rechnern gestartet werden (Shareware)
-netstat -n Befehl mit Enter abschliessen
-Server mit der richtigen Portnummer (:4000) raussuchen
-cmd.exe schliessen (resourcen sparen)

-Mit der Suchliste vergleichen (Serverabgleich)
-Ausgabe des Servers im Spiel (enter >> chatfenster >> "Server .83" >> enter)

Ich würde gerne wissen wie ich durch nen tastendruck in egal welchem spiel, fenster, oder ordner mit der taste das ereignis auslösen kann.
Macro nennt man das glaube.

naja lasse das mal so stehen, schlecht geschrieben im moment nicht mehr zeit dafür, editeire es vielelicht später falls es überhaupt keiner versteht xD

danke schonmal in voraus an die netten Helfer.

Alex2000 · 23. August 2008, 19:28

Hai !
Dann schau in MSDN unter Tastatur Ereignisse !

Mfg Alex

RattenJunge · 23. August 2008, 20:35

Die hab ich nicht, leider.

Suchmaske:
Dazu startet man die DiaClone.exe trägt die Server ein die man suchen will.
Num 9 soll eine Zusatzfunktion bekommen. (Hier komm ich bis jetzt nicht weiter).
Man könnte auch oft gesagte sätze eintragen, so als Beispiel aber wir planen das mit dem Netstat Befehl.

Netstat soll man nicht sehen.

Spiel, Diablo 2 Klassiker

Tja leute ich geb nicht nach, helft mir

Agent · 23. August 2008, 22:45

Wie man den Konsoleninhalt in einen String lädt und wie man die Tastatur simuliert wurde schon öfter hier behandelt. Da es sich hier aber wahrscheinlich um ein DirectX-Spiel handelt, wird das simulieren evtl nicht funktionieren da die Hardware direkt abgefragt werden könnte.

RattenJunge · 24. August 2008, 10:04

Nö es geht, das Spiel nennt man auch "The Mother of all Hacks".

Meines ist kein Hack, es spart mir halt paar Tastendrücke, Klicks,
den mit diesem Tool bräuchte ich nicht mehr aus dem Game zu switchen und manuell nachschauen.

Quellcode

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
If CompKey(vbKeyNumlock) Then
DoEvents
SendKeys "{Enter}"
SendKeys "vb-paradise.de", True
SendKeys "vb-paradise.de", True
SendKeys "{Enter}"
End If
End Sub
Private Function CompKey(KCode As Long) As Boolean
Dim Result As Integer
Result = GetAsyncKeyState(KCode)
CompKey = (Result = -32767)
End Function

vb-paradise.de muss ich 2 mal eintragen weil im internet eine verzögerung gibt aber vielelicht kann man das irgendwie mit einem break lösen, aber da müst ihr auch helfen, bin nähmlich noob

hab des jetzt mit numlock gelöst kennt jemand die tasten combination für num9 ?

Alex2000 · 24. August 2008, 10:16

hai !
Schau mal hier rein !

Mfg Alex

RattenJunge · 24. August 2008, 10:25

Danke Alex,
Mit Num9 funktionierts und nur mit Num9, dass ist sehr schön.

Nun könnte man sich der konsole widmen

Falls jemand ne idee zum delay hat, dass man die sachen nicht 2 mal eintragen muss, dann her damit

mfg

Alex2000 · 24. August 2008, 10:29

Schau alles in Online MSDN da gibs jede menge Hilfe !

Mfg Alex

{

Thema.Closing();

}

RattenJunge · 24. August 2008, 11:33

Also Leute hab die konsoleninhalt in einen String laden können.

Quellcode

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("netstat -n")
strPingResults = LCase(objExec.StdOut.ReadAll)
Platzhalter = (strPingResults)
Text2.Text = Platzhalter

Brauche vorschläge wie man am besten diese :4000 sucht
und die zahl davor in einer variablen abspeichert.
in der Konsole können mehrere IP's mit dieser :4000 vorkommen, deshalb wäre es
von vorteil die mit zu führen.

Bitte nicht schliessen wir fassen alles am schluss zusammen

wird nen schöner guide

Alex2000 · 24. August 2008, 11:35

Ich würde mit Funktion "Instr" probieren !

Mfg Alex

RattenJunge · 24. August 2008, 12:16

Quellcode

Private Sub Command1_Click()
Dim RemoteText As String
Dim Zahl As Integer
Dim Server As String
'Shell "CMD /k netstat -n"
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("netstat -n")
strPingResults = LCase(objExec.StdOut.ReadAll)
RemoteText = (strPingResults)
Zahl = InStr(1, RemoteText, ":4000", vbTextCompare)
For i = (Zahl - 3) To (Zahl - 1) Step 1
Server = Server + Mid(RemoteText, i, 1)
Next
Text2.Text = Server
End Sub

Also so funktionierst aufjedenfall mit einem server, umständlich aber es geht

Was ist wenn 2 ":4000" im string sind wie sagt man dem das der weiter suchen soll ?

[Edit] ok ich wüste wie aber ist sehr blöde programmierung, kentn da jemand nicht was besseres ?

Alex2000 · 24. August 2008, 12:18

Muß die Schleife um "1" erhöhen !

Mfg Alex

RattenJunge · 24. August 2008, 13:25

Quellcode

Zahl = InStr(1, RemoteText, ":4000", vbTextCompare)
If Zahl <> 0 Then
zahl2 = InStr((Zahl + 1), RemoteText, ":4000", vbTextCompare)
End If
If zahl2 <> 0 Then
zahl3 = InStr((zahl2 + 1), RemoteText, ":4000", vbTextCompare)
End If
If Zahl <> 0 Then
For i = (Zahl - 3) To (Zahl - 1) Step 1
Server = Server + Mid(RemoteText, i, 1)
Next
End If
If zahl2 <> 0 Then
For i = (zahl2 - 3) To (zahl2 - 1) Step 1
Server2 = Server2 + Mid(RemoteText, i, 1)
Next
End If
If zahl3 <> 0 Then
For i = (zahl3 - 3) To (zahl3 - 1) Step 1
Server3 = Server3 + Mid(RemoteText, i, 1)
Next
End If
Text2.Text = Server
Text3.Text = Server2
Text4.Text = Server3

so funktioniert es, mußte 6 Variablen deklarieren, des geht bestimmt schöner.

Mit der Schleife weis ich nicht wie du das meinst, wie gesagt Anfänger,
lerne aber eigentlich schnell...

arrays wären bestimmt sinnvoll aber bis jetzt kriege ich das nicht hin...

Alex2000 · 24. August 2008, 13:32

ich würde dir gernen helfen aber ich verstehe nicht was du vorhast und was du machen willst !
Was hat das ganze mit IP und Ports zu tun ?

Mfg Alex

RattenJunge · 24. August 2008, 13:41

Ich versuche es nochmal zu erklären.

Was ich schon mit deiner hilfe realisiert habe,

wenn ich auf einen cmd_Button klicke liest er die Server mit der portnummer :4000 aus dem konsoleninhalt raus,
speichert diese in einer variablen (auch textbox).

wenn ich num9 druecke schreibt der im spiele chat irgendeinen satz den ich reinschreibe.

so nun versuche ich beides zu koppeln am besten ohne cmd_button,

also das im spiel einfach im chat fenster erscheint server xxx

Hier nochmal der komplette code:

Brainfuck-Quellcode

Dim RemoteText As String
Dim Zahl As Integer
Dim zahl2 As Integer
Dim zahl3 As Integer
Dim Server As String
Dim Server2 As String
Dim Server3 As String
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Command1_Click()
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("netstat -n")
strPingResults = LCase(objExec.StdOut.ReadAll)
RemoteText = (strPingResults)
'------------------------------------------------
Zahl = InStr(1, RemoteText, ":4000", vbTextCompare)
If Zahl <> 0 Then
zahl2 = InStr((Zahl + 1), RemoteText, ":4000", vbTextCompare)
End If
If zahl2 <> 0 Then
zahl3 = InStr((zahl2 + 1), RemoteText, ":4000", vbTextCompare)
End If
'-------------------------------------------------
If Zahl <> 0 Then
For i = (Zahl - 3) To (Zahl - 1) Step 1
Server = Server + Mid(RemoteText, i, 1)
Next
End If
If zahl2 <> 0 Then
For i = (zahl2 - 3) To (zahl2 - 1) Step 1
Server2 = Server2 + Mid(RemoteText, i, 1)
Next
End If
If zahl3 <> 0 Then
For i = (zahl3 - 3) To (zahl3 - 1) Step 1
Server3 = Server3 + Mid(RemoteText, i, 1)
Next
End If
Text2.Text = Server
Text3.Text = Server2
Text4.Text = Server3
End Sub
Private Sub Timer1_Timer()
If CompKey(vbKeyNumpad9) Then
DoEvents
SendKeys "{Enter}"
SendKeys "Hallo dies ist ein text den ich in ein macro gepackt ahbe xD", True
SendKeys "Hallo dies ist ein text den ich in ein macro gepackt ahbe xD", True
SendKeys "{Enter}"
End If
End Sub
Private Function CompKey(KCode As Long) As Boolean
Dim Result As Integer
Result = GetAsyncKeyState(KCode)
CompKey = (Result = -32767)
End Function

ich suche den :4000 port weil der zum spiel gehört,
es finden evetns statt und die sind nur auf einigen servern die man halt sucht...

Alex2000 · 24. August 2008, 14:15

Ok gut, mit Server oder Spiele hab bis jetz nicht ausseinander gestzt, kann hier weniger helfen, aber ich versuche wenigstens was lösen damit du weiter kommst.
Also du sagst du hast mir Arrays noch nie gearbeitet, ok ich schreib ein kleines Beispiel dann muß das in deine Code rein integrieren.

Visual Basic-Quellcode

Private zPort as Long
Private PortVerleichen As Boolean
Private Port() As String 'Array
Ptivate i As Long
Private PortNumber As Long
'anzahl der Zeilen in Console ermitteln
'z.B Anzahl der Zeilen 5 dann laufe in die Schleife und füge
'alle Ports mit 4000
i = 0
For zPort = 1 to 5
'hier die Code "Suchen das Zahl 4000"
PortVergleichen = 4000 like PortNumber 'Gefudende Ports mit "4000" vergleichen
If PortVergleichen = True Then
Redim Preserve Port(i) 'ein Datenfeld in Array resarvieren
Port(i) = PortNumber 'Wert in Array schreiben
i = i + 1 'weiter Datenfeld in Array resarvieren
Next
Port(i) = '
'Und hier die Code für Anzeige inhalt der Array

Mfg Alex

RattenJunge · 24. August 2008, 14:51

Jo Beispiel verstehe ich aber beim umsetzen wirds bei mir länger dauern,
bei mir bin ich fast schon durch, im spiel kann ich mir alle server anzeigen lassen.
Geht also schon, hat aber noch paar bugs.

z.B der erste probier mal den code hier aus:

Quellcode

Private Sub Command1_Click()
strTarget = "127.0.0.1"
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget)
strPingResults = LCase(objExec.StdOut.ReadAll)
MsgBox (strPingResults)
End Sub

da erscheint kurz das dos fenster, kann man das abstellen?
das es garnicht aktiv wird also im hintergrund aufspringt?

Alex2000 · 24. August 2008, 14:56

Du rufst in deine Code das DOS auf

Visual Basic-Quellcode

Set objExec = objShell.Exec("netstat -n")

lösche das raus und probier ob dann Funktioniert !

Mfg Alex

RattenJunge · 24. August 2008, 15:05

Alex2000 schrieb:

Du rufst in deine Code das DOS auf

Visual Basic-Quellcode

Set objExec = objShell.Exec("netstat -n")

lösche das raus und probier ob dann Funktioniert !

Mfg Alex

Nee ohne diese Zeile funktioniert es nicht !

Dosbox auslesen
Dieses Script gibt das Ergebnis einer Dosbox in einer Messagebox wieder.
Bei diesem Beispiel wird ein Ping ausgeführt und das Ergebnis ausgegeben.

strTarget = "127.0.0.1"
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget)
strPingResults = LCase(objExec.StdOut.ReadAll)
msgbox(strPingResults)

Jetzt aber meine Frage: wie verhindere ich, dass das Konsolenfenster jedesmal erscheint?

wenn du das handle der dosbox hast....

SetParent AppHandle, Form1.Picture1.hwnd

damit wird die dosbox in deine anwendung geladen(in eine PICBox) und du kannst sie "verschwinden lassen"

das letzte zitat vestehe ich nicht, ich will es verschwinden lassen maaaaaaaaaaan!!!!!!!!!!!!
Raste gleich aus

Alex2000 · 24. August 2008, 15:16

Hmmm hier habe ich noch eine Beipiel Code wie du Fremd Fenster unterdrücken kannst, merh weise ich nicht :

Visual Basic-Quellcode

'Control ListBox: List1
'Control TextBox: Text1
'Control CommandButton: Command2
'Control CommandButton: Command1
'Control Label: Label1
Option Explicit
Private Declare Function GetWindow Lib "user32" (ByVal hwnd _
As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) _
As Long
Private Declare Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString _
As String, ByVal cch As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2
Const WM_CLOSE = &H10
Private Sub Command1_Click()
Call EnumWindows
End Sub
Private Sub EnumWindows()
Dim hwnd&, Result&, Title$
List1.Clear
hwnd = GetWindow(Me.hwnd, GW_HWNDFIRST)
Do
Result = GetWindowTextLength(hwnd) + 1
Title = Space$(Result)
Result = GetWindowText(hwnd, Title, Result)
Title = Left$(Title, Len(Title) - 1)
If InStr(1, Title, Text1.Text) Then
List1.AddItem Title
List1.ItemData(List1.NewIndex) = hwnd
End If
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Loop Until hwnd = 0
If List1.ListCount > 0 Then
Command2.Enabled = True
Else
Command2.Enabled = False
End If
End Sub
Private Sub Command2_Click()
Dim x&, y&, hwnd&
x = List1.ListCount
If x > 0 Then
For y = 0 To x - 1
hwnd = List1.ItemData(y)
If hwnd = Me.hwnd Then MsgBox ("Nagut, wie gewünscht!")
SendMessage hwnd, WM_CLOSE, ByVal 0&, ByVal 0&
Next y
End If
Command2.Enabled = False
End Sub
Private Sub Form_Load()
Command2.Enabled = False
End Sub

oder schau mal hier rein, oder hier !

Mfg Alex

Tastendruck im Spiel soll Ereignis auslösen

Tastendruck im Spiel soll Ereignis auslösen

Quellcode

Quellcode

Quellcode

Quellcode

Brainfuck-Quellcode

Visual Basic-Quellcode

Quellcode

Visual Basic-Quellcode

Alex2000 schrieb:

Visual Basic-Quellcode

Visual Basic-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben