Серый форум — AHK: всё работает кроме {Enter} Flash ActiveX

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

null@example.com (teadrinker) — Thu, 13 Feb 2014 12:30:46 +0000

flud, ознакомьтесь с этой темой, отредактируйте свои сообщения.

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

null@example.com (flud) — Thu, 13 Feb 2014 11:33:17 +0000

Все ссылаются на эту страницу.

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

null@example.com (wisgest) — Thu, 13 Feb 2014 06:51:33 +0000

Может это как-то поможет: http://www.autohotkey.com/board/topic/5 … ntry346213?

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

null@example.com (flud) — Thu, 13 Feb 2014 06:12:05 +0000

Так нечего и не получилось.

всего то хотел сделать клиент для игры
http://www.transformice.com/

перекопал все примеры с swf и пытался activex разобраться
если и удавалось Enter починить то ломался ctrl+v программа вообще вылетала с эррорм

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

null@example.com (flud) — Thu, 08 Aug 2013 13:43:56 +0000

Подниму-ка еще раз эту избитую тему, неужели не у кого такой проблемы нет?
проклятый этот Enter

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

null@example.com (flud) — Thu, 18 Apr 2013 06:31:56 +0000

К сожаление мой вариант тоже с костылями а точней не работает 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"

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

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

null@example.com (creature.ws) — Fri, 05 Apr 2013 19:11:59 +0000

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

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

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

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

null@example.com (flud) — Fri, 05 Apr 2013 18:35:14 +0000

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

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

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

null@example.com (creature.ws) — Fri, 05 Apr 2013 14:49:34 +0000

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

Кстати,
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%

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

null@example.com (flud) — Fri, 05 Apr 2013 06:17:33 +0000

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


#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

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

null@example.com (flud) — Thu, 04 Apr 2013 21:39:36 +0000

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

www.autohotkey.com/board

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

null@example.com (flud) — Thu, 04 Apr 2013 01:06:38 +0000

Доброе время, прошу помощи разобраться в флеш игре совершенно не работает 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