Nefakt
Новичок
- Сообщения
- 74
- Репутация
- 3
Всем привет.
Пишу кликер для приложения в ВК.
Хотел узнать, как сделать отсчет координат именно от выделенной зоны на скриншоте,
то есть что бы отсчет начинался от начало приложения а не от начало браузера.
или как можно запустить именно приложения без меню ВК в GUI
нашел на форуме код
Но он не работает.
В начале открывается страница в вк с игрой, и через пару секунд когда в GUI должно открыться именно приложения без меню появляется просто белый экран.
Заранее спасибо.
Пишу кликер для приложения в ВК.
Хотел узнать, как сделать отсчет координат именно от выделенной зоны на скриншоте,
или как можно запустить именно приложения без меню ВК в GUI
нашел на форуме код
Код:
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>
#Include <IE.au3>
#Include <array.au3>
$oIE = ObjCreate("Shell.Explorer.2")
; Create a simple GUI for our output
GUICreate("Embedded Web control Test", 800, 680, -1, -1)
GUICtrlCreateObj($oIE, 10, 10, 780, 600)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 640, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 640, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 640, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 330, 640, 100, 30)
GUISetState() ;Show GUI
_IENavigate($oIE, "http://vk.com/app3069891")
sleep(5000)
$oFlashContainer = _IEGetObjById($oIE, 'apps') ; получаем объект, в котором содержится флэш
If @Error Then MsgBox(0, '', @Error)
$sHTML = _IEPropertyGet($oFlashContainer, "outerhtml") ; получаем HTML этого объекта
$aFlashvars = StringRegExp($sHTML, 'flashvars.*?value(.*?)</object>', 1) ; убираем лишнее
$aFlashvars_params = StringRegExpReplace($aFlashvars[0], '<param name="(.*?){1}" value="(.*?){2}">', ' $1="$2"') ; убираем лишнее
;_ArrayDisplay($aFlashvars)
$aFlashvars_params = StringRegExpReplace($aFlashvars_params, '&', '&') ; убираем лишнее
$aFlashvars_params = StringRegExpReplace($aFlashvars_params, '>', @LF) ; убираем лишнее
$aFlashvars_params = StringRegExpReplace($aFlashvars_params, 'movie', 'src') ; убираем лишнее
$width = StringRegExp($sHTML, 'width="(.*?)"', 1)
$height = StringRegExp($sHTML, 'height="(.*?)"', 1)
$HTMLtoWhrite = '<div id="flash_api_external_cont">' & _
'<embed type="application/x-shockwave-flash" id="flash_app" name="flash_app" ' & 'wdith="' & $width[0] & '" height="' & $height[0] & '" preventhide="1" quality="high"' & _
' flashvars' & $aFlashvars_params & _
' style="width: ' & $width[0] & 'px; height: ' & $height[0] & 'px;"></div>'
;MsgBox(0, '', $sHTML)
;MsgBox(0, '', $aFlashvars_params)
;MsgBox(0, '', $HTMLtoWhrite)
_IEBodyWriteHTML($oIE, $HTMLtoWhrite)
; Waiting for user to close the window
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
; $oIE.navigate("http://vk.com/app1979194_11647078?ref=1")
Case $msg = $GUI_Button_Back
$oIE.GoBack
Case $msg = $GUI_Button_Forward
$oIE.GoForward
Case $msg = $GUI_Button_Stop
$oIE.Stop
EndSelect
WEnd
GUIDelete()
Но он не работает.
В начале открывается страница в вк с игрой, и через пару секунд когда в GUI должно открыться именно приложения без меню появляется просто белый экран.
Заранее спасибо.