keine reaktion auf Postmessage

[Valvepro]

Originally Posted by xSharkoonX

hmm... also ich finde vb / vb.net voll fürn ***** ...
macht es nicht sinn es in c++ zu transformieren?

Hmm also ich würde nich sagen das VB fürn ***** ist ich würde dann eher sagen das Autoit fürn ***** ist :-P

[xachimx]

also das Divided by 0 ding ist gelöst ^^
habe nur den falschen datentypen gehabt

aber irgendwie aktiviert das prog immernoch keine skills, liegt es daran das gw nicht im Vollbild modus ist sondern windowed ?
( habe auch im notepad probiert, funktioniert hervorragend, aber halt in gw nicht *cry* )

wäre nett wenn ihr noch ein paar ideen hättet

[xachimx]

YEAHHHHH,
es funktioniert, hatte probleme mit dem window handle, keine ahnung warum ^^
auf jedenfall gehts jetzt, thx

[NBA]

Dann tues in ne .dll und poste den code Will wissen wie effektiv damit ne resignfunc ist

[tonitusch666]

so oki, also ja öh hab da bissl zuviel code mit reinkopiert, aber dann haste schon mal den halben weg um ReadMem zu implementieren falls das auch noch brauchst kann ich den Teil aber auch gern posten..

Also zum Thema "fürn *****" will ich ja jetzt kein Grundsatzstreit losbrechen, ist oft recht Geschmackssache und hängt vom Anwendungsfall ab. 2 Gründe warum ich mit AutoIt nicht so voll zufrieden ist das Multithreading und die miese Debug Möglichkeit, dafür hat man ne ganze Menge nützlicher Funktionen schon out of the box. Also hatte auch schon paar Teile in C++ realisiert, aber ich fand den GUI Editor in VC2005 für .net einfacher zum handhaben und hatte eigentlich keinen Nerv mit MFC rumzumachen und einfache Threads über BackgroundWorker zum erstellen hat mich grad mal 2 klicks und 30s Zeit gekostet.

Was mich eigentlich interessieren würde ist, ob es Sinn machen könnte sich gemeinsam die notwendigen Routinen zusammenzustellen, um ohne AutoIt Bots bauen zu können (ggf. in einer DLL), weil man sich wahrscheinlich nicht auf eine Programmiersprache einigen wird...

[Valvepro]

Schau mal hier...

Option Explicit
Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" ( _
                                        ByVal hwnd As Long, _
                                        ByVal wMsg As Long, _
                                        ByVal wParam As Long, _
                                        ByVal lParam As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                                        (ByVal lpClassName As String, _
                                        ByVal lpWindowName As String) As Long

Public Function SendKey(ByVal window As String, ByVal key As String) As Boolean
    Dim hwnd As Long, i As Integer
    hwnd = FindWindow(vbNullString, window)
    For i = 1 To Len(key)
        PostMessage hwnd, &H100, Asc(UCase(Mid(key, i, 1))), 0&
    Next
End Function