Переписать VB скрипт на C# - C# (245726)
Формулировка задачи:
Здравствуйте, есть скрип на VB, но мне нужно его переписать на C#, сам я в VB, увы, 0. Может поможет кто переписать?
Скрипт:
Dim o, o2, accesstoken, uid, token, wsh, location, str, mpop, str2,a1,a2 Set o = CreateObject("Microsoft.XMLHTTP") o.open "POST", "https://o2.mail.ru/token", False o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" o.setRequestHeader "Content-Length", Len("client_id=gamecenter.mail.ru&grant_type=password&username=removed@mail.ru&password=pass") o.setRequestHeader "User-Agent","Downloader/4300" o.send "client_id=gamecenter.mail.ru&grant_type=password&username=removed@mail.ru&password=pass" Set xmlParser = CreateObject("Msxml2.DOMDocument") xmlParser.loadXML(o.responsetext) str = right(o.responsetext,50) accesstoken = left (str, 48) o.open "POST", "https://authdl.mail.ru/ec.php?hint=MrPage2", False o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" o.setRequestHeader "Content-Length", Len("<?xml version=""1.0"" encoding=""UTF-8""?><MrPage2 SessionKey="""&accesstoken&""" Page=""http://dl.mail.ru/robots.txt""/>") o.setRequestHeader "User-Agent","Downloader/4300" o.send "<?xml version=""1.0"" encoding=""UTF-8""?><MrPage2 SessionKey="""&accesstoken&""" Page=""http://dl.mail.ru/robots.txt""/>" xmlParser.loadXML(o.responsetext) str2 = o.responsetext location = xmlParser.getElementsByTagName("MrPage2").Item(0).getAttribute("Location") Replace location, "&", "&" o.open "GET", location, false o.setRequestHeader "User-Agent","Downloader/4300" o.send mpop=o.getResponseHeader ("Set-Cookie") a1=instr (mpop,"Mpop") a2=instr (mpop,"ru:") mpop=mid (mpop,a1+5, a2+3-a1-5) o.open "POST", "https://authdl.mail.ru/sz.php?hint=AutoLogin", False o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" o.setRequestHeader "Content-Length", Len("<?xml version=""1.0"" encoding=""UTF-8""?><AutoLogin ProjectId=""1177"" SubProjectId=""0"" ShardId=""1"" Mpop="""&mpop&"""/>") o.setRequestHeader "User-Agent","Downloader/4300" o.send "<?xml version=""1.0"" encoding=""UTF-8""?><AutoLogin ProjectId=""1177"" SubProjectId=""0"" ShardId=""1"" Mpop="""&mpop&"""/>" xmlParser.loadXML(o.responsetext) uid = xmlParser.getElementsByTagName("AutoLogin").Item(0).getAttribute("PersId") token = xmlParser.getElementsByTagName("AutoLogin").Item(0).getAttribute("Key") Set wsh = WScript.CreateObject("WScript.Shell") wsh.Exec("Game.exe --shard_id=0 +online_server s2.warface.ru -uid "&uid&" -token "&token&" ")
Решение задачи: «Переписать VB скрипт на C#»
textual
Листинг программы
HttpWebRequest HttpWebRequest = (HttpWebRequest)WebRequest.Create(Location); HttpWebRequest.Method = "GET"; HttpWebRequest.UserAgent = "Downloader/4300"; HttpWebResponse HttpWebResponse = (HttpWebResponse)HttpWebRequest.GetResponse(); MPOP = HttpWebResponse.GetResponseHeader("Set-Cookie");
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д