С Новым годом! Форум программистов, компьютерный форум, киберфорум
C# .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
1 / 1 / 1
Регистрация: 26.03.2016
Сообщений: 67

Переписать VB скрипт на C#

18.08.2017, 02:00. Показов 1720. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, есть скрип на VB, но мне нужно его переписать на C#, сам я в VB, увы, 0. Может поможет кто переписать?
Скрипт:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim o, WFLogin, WFPassword, WFToken, WFUid, WFSessionKey, WFPersId, WFKey, wsh
WFLogin = "login"
WFPassword = "password"
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "POST", "https://authdl.mail.ru/ec.php?hint=GcAuth", False
o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
o.setRequestHeader "Content-Length", Len("<?xml version=""1.0"" encoding=""UTF-8""?><GcAuth Username="""&WFLogin&""" Password="""&WFPassword&""" ChannelId=""0""/>")
o.setRequestHeader "User-Agent","Downloader/4300"
o.send "<?xml version=""1.0"" encoding=""UTF-8""?><GcAuth Username="""&WFLogin&""" Password="""&WFPassword&""" ChannelId=""0""/>"
Set xmlParser = CreateObject("Msxml2.DOMDocument")
xmlParser.loadXML(o.responsetext)
WFToken = xmlParser.getElementsByTagName("GcAuth").Item(0).getAttribute("Token")
WFUid = xmlParser.getElementsByTagName("GcAuth").Item(0).getAttribute("Uid")
WFSessionKey = xmlParser.getElementsByTagName("GcAuth").Item(0).getAttribute("SessionKey")
o.open "POST", "https://authdl.mail.ru/ec.php?hint=EnazaGetOrdersList", False
o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
o.setRequestHeader "Content-Length", Len("<?xml version=""1.0"" encoding=""UTF-8""?><EnazaGetOrdersList Uid="""&WFUid&""" SessionKey="""&WFSessionKey&""" UidType=""3""/>")
o.setRequestHeader "User-Agent","Downloader/4300"
o.send "<?xml version=""1.0"" encoding=""UTF-8""?><EnazaGetOrdersList Uid="""&WFUid&""" SessionKey="""&WFSessionKey&""" UidType=""3""/>"
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"" GcToken="""&WFToken&"""/>")
o.setRequestHeader "User-Agent","Downloader/4300"
o.send "<?xml version=""1.0"" encoding=""UTF-8""?><AutoLogin ProjectId=""1177"" SubProjectId=""0"" ShardId=""1"" GcToken="""&WFToken&"""/>"
xmlParser.loadXML(o.responsetext)
WFPersid = xmlParser.getElementsByTagName("AutoLogin").Item(0).getAttribute("PersId")
WFKey = xmlParser.getElementsByTagName("AutoLogin").Item(0).getAttribute("Key")
Set wsh = WScript.CreateObject("WScript.Shell")
wsh.Exec("Game.exe --shard_id=0 +online_server s0.warface.ru -uid "&WFPersid&" -token "&WFKey&" ")
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.08.2017, 02:00
Ответы с готовыми решениями:

Переписать скрипт
добрый день! мог бы ли кто-нибудь помочь, с этим скриптом, дело в том что он работает на rad hat а вот при запуске его на hp-ux,...

Переписать VB скрипт на C#
Здравствуйте, есть скрип на VB, но мне нужно его переписать на C#, сам я в VB, увы, 0. Может поможет кто переписать? Скрипт: Dim...

Переписать скрипт рулетки
Здравствуйте! Заручившись поддержкой форумов(ибо в джаве я ни бум-бум, лишь паскалем кое-как владею:) ), мне удалось составить следующий...

6
3 / 3 / 3
Регистрация: 30.09.2014
Сообщений: 79
18.08.2017, 02:41
Можете дать .exe на VB и сказать где находится код, примерно смогу скинуть C#.
0
1 / 1 / 1
Регистрация: 26.03.2016
Сообщений: 67
18.08.2017, 02:43  [ТС]
LiptoN-Mmo-Dev, не понял
0
3 / 3 / 3
Регистрация: 30.09.2014
Сообщений: 79
18.08.2017, 03:07
Цитата Сообщение от Zrefer Посмотреть сообщение
LiptoN-Mmo-Dev, не понял
Скомпилированную программу мне дай и скажи где этот код находится.
0
Эксперт .NET
 Аватар для kolorotur
17823 / 12973 / 3382
Регистрация: 17.09.2011
Сообщений: 21,261
18.08.2017, 03:41
Цитата Сообщение от LiptoN-Mmo-Dev Посмотреть сообщение
Скомпилированную программу мне дай
Это VBScript, он не компилируется.
0
 Аватар для diadiavova
7258 / 2605 / 744
Регистрация: 11.04.2015
Сообщений: 4,148
Записей в блоге: 43
18.08.2017, 13:00
Лучший ответ Сообщение было отмечено Zrefer как решение

Решение

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
        string SendRequest(string url, string content)
        {
            string result;
            HttpWebRequest o = (HttpWebRequest)WebRequest.Create(url);
            o.Method = "POST";
            o.ContentType = "application/x-www-form-urlencoded";
            o.ContentLength = content.Length;
            o.UserAgent = "Downloader/4300";
            byte[] bytes = Encoding.UTF8.GetBytes(content);
            var reqstream = o.GetRequestStream();
            reqstream.Write(bytes, 0, bytes.Length);
            reqstream.Close();
            var response = o.GetResponse();
            using (Stream respstream = response.GetResponseStream())
            {
                using (StreamReader reader = new StreamReader(respstream))
                {
                    result = reader.ReadToEnd();
                }
            }
            return result;
        }
 
 
        void StartGame(string login, string password)
        {
            string WFLogin = login, WFPassword = password, WFToken, WFUid, WFSessionKey, WFPersId, WFKey;
            string content = $@"<?xml version=""1.0"" encoding=""UTF-8""?><GcAuth Username=""{WFLogin}"" Password=""{ WFPassword }"" ChannelId=""0""/>";
            XDocument xdoc = XDocument.Parse(SendRequest(@"https://authdl.mail.ru/ec.php?hint=GcAuth", content));
            XElement GcAuth = xdoc.Element("GcAuth");
            WFToken = GcAuth.Attribute("Token").Value;
            WFUid = GcAuth.Attribute("Uid").Value;
            WFSessionKey = GcAuth.Attribute("WFSessionKey").Value;
            content = $@"<?xml version=""1.0"" encoding=""UTF-8""?><EnazaGetOrdersList Uid=""{ WFUid }"" SessionKey=""{ WFSessionKey }"" UidType=""3""/>";
            SendRequest(@"https://authdl.mail.ru/ec.php?hint=EnazaGetOrdersList", content);
            content = $@"<?xml version=""1.0"" encoding=""UTF-8""?><AutoLogin ProjectId=""1177"" SubProjectId=""0"" ShardId=""1"" GcToken=""{ WFToken }""/>";
            xdoc = XDocument.Parse(SendRequest(@"https://authdl.mail.ru/sz.php?hint=AutoLogin", content));
            XElement AutoLogin = xdoc.Element("AutoLogin");
            WFPersId = AutoLogin.Attribute("PersId").Value;
            WFKey = AutoLogin.Attribute("Key").Value;
            Process.Start("Game.exe", $"--shard_id=0 +online_server s0.warface.ru -uid { WFPersId } -token { WFKey } ");
        }
Надо добавить юзинги (System.IO, System.Net и т.д.). Код не проверял, просто что увидел то и записал, так что могут быть ошибки - надо проверять.

Добавлено через 1 минуту
Вызывать надо второй метод и передавать ему логин и пароль.
0
1 / 1 / 1
Регистрация: 26.03.2016
Сообщений: 67
18.08.2017, 13:02  [ТС]
diadiavova, Спасибо большое, сейчас потестим, что нужно будет если, то исправлю.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.08.2017, 13:02
Помогаю со студенческими работами здесь

Переписать скрипт на сохранение данных в куки
Как переделать, скрипт чтобы Регион и Город сохранялся в куки

Как переписать скрипт с php на jscript?
Помогите вот этот маленький код написанный на php перевести на язык jscript &lt;?php if (isset($_COOKIE)) { ...

Как лучше переписать php скрипт
Как сделать чтобы скрипт искал нужную строку с помощью SQL запроса, а не читал всю таблицу циклом. &lt;?php //first we define the...

Кто может переписать php скрипт в многопоток?
Не очень дорого. Заранее большое спасибо. Аську в лс скиньте плз. Плачу в вебмани.

Как переписать скрипт под мобильные устройства?
Скрипт управления камерой мышкой на пк. У меня слева геймпад а справа область(Пустой GameObject) где можно управлять камерой. Можно ли...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru