Переписать 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");

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5