Что нового

[Автоматизация] Не хочет работать AdlibRegister

DarkCrush

Начинающий
Сообщения
63
Репутация
1
Проблема, никак не хочет работать AdlibRegister()
Код:
;.............................
AdlibRegister("_GetUserInfo", 10000)
Func _GetUserInfo()
    Local $Response,$Response2
    Local $PostData = 'user='&$User&'&sig=2580efe69fd4066d670a3b4f5d3b8f14&key='&$Auth&'&method=getInfo' ; запрос на данные пользователя
    $oHTTP.Open('POST', $GetUserInfo)
    $oHTTP.setTimeouts(5000, 5000, 10000, 10000)
    $oHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
    Execute('$oHTTP.Send($PostData)')
    If (@error) Or ($oHTTP.Status <> 200) Then
        Return
    Else
        $oHTTP.WaitForResponse
        $Response = $oHTTP.ResponseText
        If Not $Response Then Return
    EndIf
    $PostData2 = 'user='&$User&'&sig=9657510905665054df4c085a1b359445&key='&$Auth&'&method=getAllBuildingsRewardsInfo' ; запрос на проходную
    $oHTTP.Open('POST', $GetUserInfoRewards)
    $oHTTP.setTimeouts(5000, 5000, 10000, 10000)
    $oHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
    $oHTTP.Send($PostData2)
    $oHTTP.WaitForResponse
    $Response2 = $oHTTP.ResponseText

    $PostData3 = 'user='&$User&'&sig=f86236c0b49d7ed28dd0d5d0efc915a1&key='&$Auth&'&method=office' ; запрос информации о сигаретах
    $oHTTP.Open('POST', $GetInfoCigaret)
    $oHTTP.setTimeouts(5000, 5000, 10000, 10000)
    $oHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
    $oHTTP.Send($PostData3)
    $oHTTP.WaitForResponse
    $Response3 = $oHTTP.ResponseText

    Local $Response2 = 'Авторитет: '&StringRegExpReplace($Response, '(?s).*?<rating>(\d+)</rating>?.*', '\1')& _
    '   Энергия: '&StringRegExpReplace($Response, '(?s).*?<energy>(\d+)</energy>?.*', '\1') & _
    '   Сигарет: '&StringRegExpReplace($Response, '(?s).*?<money>(\d+)</money>?.*', '\1') & _
    '   Рубли: '&StringRegExpReplace($Response, '(?s).*?<diamond>(\d+)</diamond>?.*', '\1')&@CRLF&@CRLF& _
    'Общая прибыль:' &@CRLF& _
    'Авторитет +'&StringRegExpReplace($Response2, '(?s).*?<rating>(\d+)</rating>?.*', '\1')& _
    '   Уважение +'&StringRegExpReplace($Response2, '(?s).*?<love>(\d+)</love>?.*', '\1') & _
    '   Сигарет +'&StringRegExpReplace($Response2, '(?s).*?<money>(\d+)</money>?.*', '\1') &@CRLF&@CRLF& _
    'Сигареты во дворе:' &@CRLF& _
    (StringRegExpReplace($Response3, '(?s).*?<ideascount>(\d+)</ideascount>?.*', '\1')*5)&' Сигарет (cбор за один раз 5 сигарет)'

    GUICtrlSetData($output, $Response2)
    ;Return $sMessage

EndFunc

;..............
 

Guezt

Продвинутый
Сообщения
335
Репутация
82
DarkCrush
Я бы тебя вообще забанил за такое издевательство над сервером, используй этот запрос на чаще раза в минута а не каждые 10 секунд. тебя тупо сервер блокирует, а может и забанить.
 
Автор
D

DarkCrush

Начинающий
Сообщения
63
Репутация
1
Так он даже первичный запрос не возвращает
 

Guezt

Продвинутый
Сообщения
335
Репутация
82
Код:
AdlibRegister()
работает, тебя могли забанить, что неудивительно, так как все работает:
3290694192_20110110_145417.png
 
Автор
D

DarkCrush

Начинающий
Сообщения
63
Репутация
1
У меня показывает только при нажатии на кнопку
 

Guezt

Продвинутый
Сообщения
335
Репутация
82
DarkCrush [?]
У меня показывает только при нажатии на кнопку

зачем тебе тогда вообще AdlibRegister ?
Код:
;.............................
AdlibRegister("_GetUserInfo", 10000) ; вызывает функцию каждые десять секунд за время работы скрипта.
Func _GetUserInfo()


ты и используй тогда прямое обращение к функции через кнопку а не к AdlibRegister.
 
Автор
D

DarkCrush

Начинающий
Сообщения
63
Репутация
1
Ну тогда придется постоянно ее тыкать что бы инфа обновилась :(

Кстати как ты время вставил?))
Я делаю
Код:
' Осталось времени:' & @CRLF & _
			' ' & StringRegExpReplace($Response, '(?s).*?<timetoprofit>(\d+)</timetoprofit>?.*', '\1') & _


И ничего не пашет :smile:
 
Верх