Проблема, никак не хочет работать 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
;..............