Есть чтение и отправка сообщений mail.ru, а вот как тоже самое для «Мой мир». Пока лишь мысль выложил, дополню позже тем что у меня выйдет. Есть у кого идеи?
Добавлено:
c cookies не выходит что то
Добавлено:
Сообщение автоматически объединено:
Код:
Global $cookie
$sEmail='login'
$sPass='password'
$sDomain='mail.ru'
Func login()
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("POST","http://my.mail.ru/")
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader("Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*")
$oHTTP.SetRequestHeader("Accept-Language", "ru")
$oHTTP.SetRequestHeader("Referer","http://my.mail.ru/cgi-bin/login?") ;http://my.mail.ru/my/dialogues
$oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)")
$oHTTP.SetRequestHeader("Host","my.mail.ru")
$oHTTP.SetRequestHeader("Proxy-Connection", "Keep-alive")
$oHTTP.Send('Login='&$sEmail&'$Domain='&$sDomain&'Password='&$sPass)
$oHTTP.WaitForResponse
$resp=$oHTTP.ResponseText
;достаем cookies
$cookie=StringRegExp($resp,'.*ue=.(.*). />',3)
$cookie='x_reg_id='&$cookie[4]
EndFuncc cookies не выходит что то
