[AutoIt] METIN2 hidden ansteuern

Page 4 of 6

« First

03/26/2010 21:07 HardCore.1337#46

_KeySend

_ vergessen

03/26/2010 21:58 Visonar#47

bei mir klapps leider auch nicht:(

€: habe folgendes prob:

Spoiler

habe ich das script richtig?

03/27/2010 01:35 Memphiisto#48

trotz dem _ gehts ned =(

03/27/2010 01:42 Memphiisto#49

So jetzt kommt wenigstens nicht mehr befehl fehler..
aber es schribt nichts in metin rein...
kannst du mir bitte helfen ?

PHP Code:


			
#RequireAdmin
#include  <KeySend.au3>
for $1 = 1 to 10
        _SendKey ("METIN2", "{A}")
        sleep ($SleepDelay)
        next

03/27/2010 07:31 HardCore.1337#50

ohne die {}

03/27/2010 09:51 Memphiisto#51

Macht leider keinen unterschied...

03/29/2010 02:01 Memphiisto#52

Wenn du mal einen Code rein stellen k�nntest der z.b. a oder si an metin schickt , w�re es sehr nett.
Bitte =)

Wenn es dann noch nicht funktioniert dann fersuche ich es auf eine andere art und weise..(vll mit weiterer hilfe von dir)

lg MagicDave

p.s Am besten w�re es wenn du einen code machen k�nntest bei dem man ein metin2 fenster ausuchen kann damitt es immer an den richtigen prozess sendet...

03/29/2010 02:05 Visonar#53

Quote:

Originally Posted by MagicDave

Wenn du mal einen Code rein stellen k�nntest der z.b. a oder si an metin schickt , w�re es sehr nett.
Bitte =)

Wenn es dann noch nicht funktioniert dann fersuche ich es auf eine andere art und weise..(vll mit weiterer hilfe von dir)

lg MagicDave

p.s Am besten w�re es wenn du einen code machen k�nntest bei dem man ein metin2 fenster ausuchen kann damitt es immer an den richtigen prozess sendet...

bin ich auch daf�r:D

03/29/2010 19:46 HardCore.1337#54

Auf Wunsch der Com.

Spoiler

Code:

library KeySend;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs;

{$R *.res}

function GetHandle(Titel: PChar): HWnd;
var wnd: HWnd;
begin
  wnd := FindWindow(nil, Titel);
  if wnd = 0 then
    wnd := FindWindow(Titel, nil);
    if wnd = 0 then
      ShowMessage ('Handle nicht gefunden!');
    wnd := FindWindow(nil, Titel);
    if wnd  <> 0 then
      Result := wnd;
end;

procedure SendKey(Handle: HWnd; key: PChar; const shift: TShiftState;
  const specialkey: Boolean);
type
  TBuffers = array [0..1] of TKeyboardState;
var
  pKeyBuffers: ^TBuffers;
  lParam: LongInt;
  Taste: Word;
begin
  Taste := Word(Key);

  if IsWindow(Handle) then
  begin
  
    pKeyBuffers := nil;
    lParam := MakeLong(0, MapVirtualKey(Ord(Taste), 0));

  
    if specialkey then
      lParam := lParam or $1000000;

   
    New(pKeyBuffers);
    try
      GetKeyboardState(pKeyBuffers^[1]);
      FillChar(pKeyBuffers^[0], SizeOf(TKeyboardState), 0);

      
      if ssShift in shift then
        pKeyBuffers^[0][VK_SHIFT] := $80;
      if ssAlt in shift then
      begin
       
        pKeyBuffers^[0][VK_MENU] := $80;
        lParam := lParam or $20000000;
      end;
      if ssCtrl in shift then
        pKeyBuffers^[0][VK_CONTROL] := $80;
      if ssLeft in shift then
        pKeyBuffers^[0][VK_LBUTTON] := $80;
      if ssRight in shift then
        pKeyBuffers^[0][VK_RBUTTON] := $80;
      if ssMiddle in shift then
        pKeyBuffers^[0][VK_MBUTTON] := $80;

      
      SetKeyboardState(pKeyBuffers^[0]);
      
      if ssAlt in Shift then
      begin
        PostMessage(Handle, WM_SYSKEYDOWN, Ord(Taste), lParam);
        PostMessage(Handle, WM_SYSKEYUP, Ord(Taste), lParam or $C0000000);
      end
      else
      begin
        PostMessage(Handle, WM_KEYDOWN, Ord(Taste), lParam);
        PostMessage(Handle, WM_KEYUP, Ord(Taste), lParam or $C0000000);
      end;
      
      Application.ProcessMessages;

    
      SetKeyboardState(pKeyBuffers^[1]);
    finally
      
      if pKeyBuffers <> nil then
        Dispose(pKeyBuffers);
    end; { If }
  end;
end; { PostKeyEx }

exports
  SendKey index 1,
  GetHandle index 2;


begin
  ShowMessage ('By General Desert');
end.

03/30/2010 14:08 Memphiisto#55

Quote:

Originally Posted by General Desert

Auf Wunsch der Com.

Spoiler

Code:

library KeySend;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs;

{$R *.res}

function GetHandle(Titel: PChar): HWnd;
var wnd: HWnd;
begin
  wnd := FindWindow(nil, Titel);
  if wnd = 0 then
    wnd := FindWindow(Titel, nil);
    if wnd = 0 then
      ShowMessage ('Handle nicht gefunden!');
    wnd := FindWindow(nil, Titel);
    if wnd  <> 0 then
      Result := wnd;
end;

procedure SendKey(Handle: HWnd; key: PChar; const shift: TShiftState;
  const specialkey: Boolean);
type
  TBuffers = array [0..1] of TKeyboardState;
var
  pKeyBuffers: ^TBuffers;
  lParam: LongInt;
  Taste: Word;
begin
  Taste := Word(Key);

  if IsWindow(Handle) then
  begin
  
    pKeyBuffers := nil;
    lParam := MakeLong(0, MapVirtualKey(Ord(Taste), 0));

  
    if specialkey then
      lParam := lParam or $1000000;

   
    New(pKeyBuffers);
    try
      GetKeyboardState(pKeyBuffers^[1]);
      FillChar(pKeyBuffers^[0], SizeOf(TKeyboardState), 0);

      
      if ssShift in shift then
        pKeyBuffers^[0][VK_SHIFT] := $80;
      if ssAlt in shift then
      begin
       
        pKeyBuffers^[0][VK_MENU] := $80;
        lParam := lParam or $20000000;
      end;
      if ssCtrl in shift then
        pKeyBuffers^[0][VK_CONTROL] := $80;
      if ssLeft in shift then
        pKeyBuffers^[0][VK_LBUTTON] := $80;
      if ssRight in shift then
        pKeyBuffers^[0][VK_RBUTTON] := $80;
      if ssMiddle in shift then
        pKeyBuffers^[0][VK_MBUTTON] := $80;

      
      SetKeyboardState(pKeyBuffers^[0]);
      
      if ssAlt in Shift then
      begin
        PostMessage(Handle, WM_SYSKEYDOWN, Ord(Taste), lParam);
        PostMessage(Handle, WM_SYSKEYUP, Ord(Taste), lParam or $C0000000);
      end
      else
      begin
        PostMessage(Handle, WM_KEYDOWN, Ord(Taste), lParam);
        PostMessage(Handle, WM_KEYUP, Ord(Taste), lParam or $C0000000);
      end;
      
      Application.ProcessMessages;

    
      SetKeyboardState(pKeyBuffers^[1]);
    finally
      
      if pKeyBuffers <> nil then
        Dispose(pKeyBuffers);
    end; { If }
  end;
end; { PostKeyEx }

exports
  SendKey index 1,
  GetHandle index 2;


begin
  ShowMessage ('By General Desert');
end.

Ehhm ist das jetzt die KeySend.au3 oder wie?

03/31/2010 18:09 marmalada#56

Bei mir sturtzt immer autoit ab. (Autoit hat ein Problem festgestellt ...). Hab Win. XP

03/31/2010 18:29 X0R0N#57

Klar geht ControlSend beim Metin2 Fenster. Ist in jedem meiner Bots drin... oO

03/31/2010 23:04 Visonar#58

Quote:

Originally Posted by marmalada

Bei mir sturtzt immer autoit ab. (Autoit hat ein Problem festgestellt ...). Hab Win. XP

me, too...hab allerdings vista.

04/09/2010 13:48 Memphiisto#59

Quote:

Originally Posted by MagicDave

Ehhm ist das jetzt die KeySend.au3 oder wie?

Ja ich hab mich selbst zittiert ^-^.
Ich wurde einfach ignoriert und wollte nochmas nachfragen... wie verwendet man jetzt diesen Code????

lg MagicDave

04/09/2010 19:34 .ŋight#60

Das hei�t man kann auch nen Angelbot im Hintergrund laufen lassen?

Page 4 of 6

« First