Mr. Perfectly Fine
Оракул
(62995)
6 лет назад
Создай файл *.vbs с таким содержимым – это конвертер текста в this shit
Option Explicit
Dim strInput : strInput = InputBox("Введите текст на английском", "Ввод", "")
Dim iStrLen : iStrLen = Len(strInput)
If iStrLen = 0 Then WScript.Quit
Dim strResult : strResult = ""
Dim i, ch
For i = 1 to iStrLen
ch = AscW(Mid(strInput, i, 1))
If ch > 32 And ch < 129 Then
strResult = strResult & ChrW(ch + 65248)
ElseIf ch = 32 Then
strResult = strResult & ChrW(8195)
Else
strResult = strResult & ChrW(ch)
End If
Next
strInput = InputBox("Скопируйте результат", "Вывод", strResult)