Доброго дня знатоки.
Пытаюсь изменить запись в календаре Share Point сервера, но особо не получается и ругается на конфликт сохранения:
[box title=]Ошибка
Конфликт сохранения
Внесенные изменения противоречат изменениям, сделанным другим пользователем в это же время. Чтобы применить свои изменения, в веб-браузере нажмите кнопку "Назад", обновите страницу и отправьте их еще раз[/box]
При этом создаётся без проблем. Подскажите други что не так.
Пытаюсь изменить запись в календаре Share Point сервера, но особо не получается и ругается на конфликт сохранения:
[box title=]Ошибка
Конфликт сохранения
Внесенные изменения противоречат изменениям, сделанным другим пользователем в это же время. Чтобы применить свои изменения, в веб-браузере нажмите кнопку "Назад", обновите страницу и отправьте их еще раз[/box]
При этом создаётся без проблем. Подскажите други что не так.
Код:
#include <String.au3>
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open("GET", "http://share.point.local/default.aspx")
$oHTTP.SetCredentials("login", "pass",0)
$oHTTP.Send("")
$oHTTP.WaitForResponse
$RespData=$oHTTP.ResponseText()
$MsgID=_StringBetween($RespData,'&ID=', '" onclick="EditLink2(this,1);return false;" target="_self">123456789')
If @error Then l('Не найдено сообщение')
$MsgID=StringRight($MsgID[0],5)
$oHTTP.Open("GET", "http://share.point.local/Calendar/EditForm.aspx?ID="&$MsgID&"&Source=%2Fit%2FLists%2FCalendar")
$oHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send("")
$oHTTP.WaitForResponse
$RespData=$oHTTP.ResponseText()
#region
$PostData="Bla Bla Bla"
#endregion
$oHTTP.Open("POST", "http://share.point.local/Calendar/EditForm.aspx?ID="&$MsgID&"&Source=%2Fit%2FLists%2FCalendar")
$oHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send($PostData)
$oHTTP.WaitForResponse
$RespData=$oHTTP.ResponseText()
_StringBetween($RespData,"Конфликт сохранения","")
If Not @error Then l("Конфликт сохранения")
ToolTip('Задача выполнена',10,10)
Sleep(2000)
Func l($l)
ToolTip($l,10,10)
FileWrite(@ScriptDir&'\log.txt',@CRLF&'['&@HOUR&':'&@MIN&' '&@MDAY&'.'&@MON&'.'&@YEAR&'] '&@TAB&$l)
Sleep(2000)
Exit
EndFunc