AHK: всё работает кроме {Enter} Flash ActiveX (Страница 1) — AutoHotkey — Общение

1 Тема от flud 2013-04-04 05:06:38 (изменено: flud, 2013-04-04 05:14:54)

flud
Участник
Неактивен

Рейтинг : [0|0]

Тема: AHK: всё работает кроме {Enter} Flash ActiveX

Доброе время, прошу помощи разобраться в флеш игре совершенно не работает Enter.
Для проверки введите в игре ник и нажмите Enter, также нет возможности писать в чате, хотя все остальные кнопки вроде есть, всю ночь ломаю голову просто не понимаю что не так.


w = 800
h = 600

Gui, SWF: Margin, 0, 0
Gui, SWF: Add, ActiveX, xm w%w% h%h% vpwb, ShockwaveFlash.ShockwaveFlash
Gui, SWF: Show, AutoSize Center

pwb.Movie := "http://www.transformice.com/TransformiceChargeur.swf"
pwb.Scale := "noScale"
pwb.AlignMode := "8"
Return

GuiClose: 
  Esc::
  Gui, SWF: Destroy 
  ExitApp
Return

2 Ответ от flud 2013-04-05 01:39:36

flud
Участник
Неактивен

Рейтинг : [0|0]

Re: AHK: всё работает кроме {Enter} Flash ActiveX

Иностранные коллеги что то подсказали, но я все равно не понимаю

www.autohotkey.com/board

3 Ответ от flud 2013-04-05 10:17:33

flud
Участник
Неактивен

Рейтинг : [0|0]

Re: AHK: всё работает кроме {Enter} Flash ActiveX

Сам разобрался, все отлично работает


#SingleInstance force
#NoEnv
#KeyHistory 0
#NoTrayIcon

DetectHiddenWindows, on
SetWorkingDir %A_ScriptDir%
Process, Priority, , High

Gui, SWF:Margin, 0, 0
Gui, SWF:-Caption -SysMenu +ToolWindow +Owner +ToolWindow +OwnDialogs +LastFound
Gui, SWF:Add, ActiveX, w%A_ScreenWidth% h%A_ScreenHeight% vpwb, ShockwaveFlash.ShockwaveFlash
Gui, SWF:Show, AutoSize Center Maximize

pwb.Movie := "http://www.transformice.com/TransformiceChargeur.swf"
pwb.Scale := "noScale"
pwb.AlignMode := "8"

MouseGetPos, , , id, control
MsgBox %control%
Control, Style, 0x17000000, %control%


Return

GuiClose: 
  Esc::
  Gui SWF:Destroy 
  ExitApp
Return

4 Ответ от creature.ws 2013-04-05 18:49:34 (изменено: creature.ws, 2013-04-05 19:00:18)

creature.ws
Разработчик
Неактивен

Рейтинг : [3|0]

Re: AHK: всё работает кроме {Enter} Flash ActiveX

Интересен путь поиска решения, раз уж разобрались — объясните другим

Кстати,
DetectHiddenWindows, on
+ToolWindow
+LastFound
Не нужны
pwb лучше переименовать в swf, например.

MouseGetPos, , , id, control
MsgBox %control%
Control, Style, 0x17000000, %control%

Правильнее заменить на


...
Gui, SWF:Add, ActiveX, w%A_ScreenWidth% h%A_ScreenHeight% vSWF hwndhwndSWF, ShockwaveFlash.ShockwaveFlash
...
Control, Style, 0x17000000,, ahk_id %hwndSWF%

5 Ответ от flud 2013-04-05 22:35:14 (изменено: flud, 2013-04-05 22:41:35)

flud
Участник
Неактивен

Рейтинг : [0|0]

Re: AHK: всё работает кроме {Enter} Flash ActiveX

Благодарю, теперь вообще все просто получается .

А нашел я это играясь с WinSpy-ем и заметил что после удаления WS_CHILD у MacromediaFlashPlayerActiveX нажатия Enter работает, жаль не сразу понял что ActiveX является контролером а не окном 3 часа убил на поиски не существующего окна

6 Ответ от creature.ws 2013-04-05 23:11:59 (изменено: creature.ws, 2013-04-05 23:14:26)

creature.ws
Разработчик
Неактивен

Рейтинг : [3|0]

Re: AHK: всё работает кроме {Enter} Flash ActiveX

Понятно, спасибо.

Control, Style, -0x40000000,, ahk_id %hwndSWF% ; -0x40000000 — убрать стиль WS_CHILD

Метка GuiClose будет активироваться при попытке закрытия окна, созданного без указания имени, уместно её заменить на SWFGuiClose, если SWF единственное окно скрипта.

7 Ответ от flud 2013-04-18 10:31:56 (изменено: flud, 2013-04-18 10:44:08)

flud
Участник
Неактивен

Рейтинг : [0|0]

Re: AHK: всё работает кроме {Enter} Flash ActiveX

К сожаление мой вариант тоже с костылями а точней не работает CTRL+V CTRL+C
как не пытался не как не получается решить задачу.


Gui, Color, FFFFFF
Gui, Show, w800 h600 , % ( Title := "Transformice" )

CLSID := "{D27CDB6E-AE6D-11cf-96B8-444553540000}"                

hModule := DllCall( "LoadLibrary", Str,"atl.dll" ), DllCall( "atl\AtlAxWinInit" )
hCtrl := DllCall( "CreateWindowEx", UInt,0, Str,"AtlAxWin", UInt,&CLSID, UInt,0x50000000
   , Int,0, Int,0, Int,800, Int,600, UInt,WinExist( Title ), UInt,0, UInt,0, UInt,0 )
DllCall( "atl\AtlAxGetControl", UInt,hCtrl, UIntP,ppunk )
flash := ComObjEnwrap(ppunk), ObjRelease(ppunk)
ComObjConnect(flash, "SWF_")

     flash.ScaleMode := 3
     flash.Menu := 0
     flash.Quality2 := "High"
     flash.AlignMode := "8"
     flash.Movie := "http://condor.depaul.edu/sjost/hci430/flash-examples/swf4/key-up.swf"

Return

Esc::
GuiClose:
 DllCall( NumGet(pwb+4*2),UInt,ppwb )
 ExitApp
 
Enter::
ControlSend, ppunk, {Enter}, "AtlAxWin"

натворил сам не понимаю что