4
« on: May 11, 2014, 05:24:07 PM »
#name "Browser"
sub(Config, $conf_hwnd, $conf_x, $conf_y, $conf_wide, $conf_height)
wndpos($conf_hwnd, $conf_x, $conf_y)
wndsize($conf_hwnd, $conf_wide, $conf_height)
end_sub
sub(WaitOpen)
while(wndfind("Increase") = 0)
waitms(200)
end_cyc
$page_increase=wndfind("Increase")
Config($page_increase, 0, 0, 1000+$yourshiftx, 650+$yourshifty)
logwrite("открылось")
$wait_download = 60000
$time = $_ms + $wait_download
while($time > $_ms)
hset($page_increase, 1)
getscreen
colormode(7,500, 500, 1500,1000)
if_picture_in(700,700, 1500,1500, "Крестик.bmp", 255, 80)
logwrite("lol")
$download_success=1
goto(skip)
end_if
hset($page_increase, 0)
wait(1)
end_cyc
$download_success=0
skip:
logwrite("успех", $download_success)
end_sub
sub(WaitClose)
while(wndfind("Increase") ! 0)
waitms(200)
end_cyc
logwrite("закрылось")
end_sub
sub(Open, $Open_browser, $Open_site)
execute($Open_browser, $Open_site)
WaitOpen()
end_sub
sub(Close, $Close_browser)
execute("TASKKILL",strconcat("/IM ", $browser))
WaitClose()
end_sub
$browser="Chrome.exe"
$site="http://vk.com/increase.online?mid=21650629"
$yourshiftx=300
$yourshifty=300
Open($browser, $site)
halt // for single run
Игра крашится часто, пишу нечто универсальное, дабы можно было переоткрыть, и чтоб работать на компе не мешало. Чтобы не было привязки к координатам, браузерам, да и ссылка ауткеем может быть.
А причина похоже в том, что из if сваливать не хорошо, рано или поздно вернется на end_if