Изменить кодировку текста в поле Text1 на VB6

@Alexnet84 · Регистрация: 27.02.2023

Студворк — интернет-сервис помощи студентам

Нужен код, при нажатии на кнопку Command1 (UTF-8) или Command2 (Win-1251)
меняется кодировка текста в поле Text1.

[Пример формы]

@Jack Famous · 28.03.2024, 16:22

Сообщение от SergioJek

А кто то так заступался за кого то?

вот именно. Если было желание, то ещё по моей ссылке из #2 можно было взять апишку для перегона из чего угодно во что угодно. С примером использования, прошу заметить.
Но нет — разжуй бесплатно всё до атомов. Тут даже базы нет (или лень просто)

Вот пусть нянчится теперь

@HackerVlad · 29.03.2024, 14:17

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
30
31
32
Option Explicit
 
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
Private Declare Function SysAllocStringByteLen Lib "oleaut32" (ByVal olestr As Long, ByVal BLen As Long) As Long
Private Declare Function SysAllocStringLen Lib "oleaut32" (ByVal olestr As Long, ByVal BLen As Long) As Long
Private Declare Sub PutMem4 Lib "msvbvm60" (ByVal Ptr As Long, ByVal Value As Long)
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileW" (ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As Long, ByVal nNumberOfBytesToWrite As Long, ByRef lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OemToChar Lib "user32.dll" Alias "OemToCharA" (ByVal lpszScr As String, ByVal lpszDst As String) As Long
 
Private Const CP_UTF8 As Long = 65001
Private Const GENERIC_WRITE As Long = &H40000000
Private Const FILE_SHARE_READ = &H1
Private Const CREATE_ALWAYS = 2
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const INVALID_HANDLE_VALUE As Long = -1
 
Dim strTXT As String
 
Private Sub Command1_Click()
    Dim hFile As Long
    Dim str As String
    
    strTXT = CreateObject("WScript.Shell").Exec("powershell.exe " & Text1.Text).StdOut.ReadAll()
    
    str = Space$(Len(strTXT))
    OemToChar strTXT, str
    Text2.Text = str
End Sub

@HackerVlad · 29.03.2024, 19:04

Сообщение от Jack Famous

Если было желание, то ещё по моей ссылке из #2 можно было взять апишку для перегона из чего угодно во что угодно.

Я изучил твою тему и там нет ответа как преобразовывать из кодировки OEM. Поэтому зря ты хвастаешься тем, что мол сразу ответил на всё.

Сообщение от Jack Famous

из чего угодно во что угодно

кроме OEM

Добавлено через 1 минуту
Правильный ответ дал только я, со всеми необходимыми примерами. Кроме меня никто не захотел помогать человеку.

@Тим70 · 02.04.2024, 10:57

HackerVlad, Тоже в VB.NET

VB.NET
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
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Co()
    End Sub
 
    Sub Co()
        Dim SSI, AA1, Lis1 As String
        Dim SW As New Stopwatch
        SW.Start()
        Lis1 = TextBox1.Text
        SSI = Lis1.Split(" ")(0)
        AA1 = Lis1.Split(" ")(1)
        Dim p As Process = New Process()
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.FileName = SSI
        p.StartInfo.Arguments = AA1
        p.StartInfo.CreateNoWindow = True
        p.StartInfo.StandardOutputEncoding = System.Text.Encoding.GetEncoding(866)
        p.Start()
        Dim output As String = p.StandardOutput.ReadToEnd()
        p.WaitForExit()
        TextBox2.Text = output
        SW.Stop()
        Dim AA2 As String = SW.Elapsed.ToString
        TextBox2.AppendText(vbCrLf & "Затраченное время: " & AA2)
    End Sub
End Class

@HackerVlad · 02.04.2024, 19:26

Тим70, у тебя там в архиве есть файл 1.txt так вот он в досовской кодировке, ну может так и надо)))
как ты всё это делаешь без вызова PowerShell?

@Тим70 · 03.04.2024, 03:20

HackerVlad, С этими кодировками сам черт ногу сломит.Этот код я использовал в разных своих программах и все время с кодировками приходилось эксперементировать. Началось все от сюда Вот

@HackerVlad · 03.04.2024, 14:53

Тим70, большое спасибо за полезную ссылку, там действительно есть все ответы, единственное что непонятно это как сделать тоже самое на VB6

Добавлено через 2 часа 4 минуты
По этой теме на VB6 мне непонятно зачем использовать именно PowerShell а не простой cmd.exe

Добавлено через 1 минуту
Например в WindowsXP нет PowerShell. Поэтому я и удивлён.

@Тим70 · 03.04.2024, 15:29

Сообщение от HackerVlad

По этой теме на VB6 мне непонятно зачем использовать именно PowerShell а не простой cmd.exe

тут ничего сказать не могу.
Вот еще по кодировкам,взял с этого же форума.

@HackerVlad · 03.04.2024, 15:33

Да на кодировки мне наплевать, если честно

@Jack Famous · 03.04.2024, 15:58

Тим70, смотреть больно

В хорошем качестве

KAK - определить язык по виду иероглифов-закорючек и р

@testuser2 · 03.04.2024, 16:48

Интересная страничка про консольный вывод. Просто попалось, вообще искал про "Implements"..

@Тим70 · 03.04.2024, 16:49

Сообщение от Jack Famous

KAK - определить язык по виду иероглифов-закорючек и р

И какое тут расширение? В чем смотреть?

@HackerVlad · 03.04.2024, 16:53

Сообщение от Тим70

И какое тут расширение? В чем смотреть?

Сам офигел, когда скачал, скорее всего это файл без расширения который нужно переименовывать в PDF но я не открывал ещё побоялся вдруг вирус подумал

Добавлено через 1 минуту
Тим70, переименовал, да, это PDF нормальный хороший документ. Очень красивая таблица очень всё красиво оформлено очень приятно выглядет. Хорошо всё описано.

Добавлено через 1 минуту
Тим70, это такой же документ который ты наверное отправлял ксерокопию, на которую смотреть больно, без обид конечно Тим, но у тебя файл просто отвратительный конечно

@Jack Famous · 03.04.2024, 17:10

Тим70, обычный PDF же. Браузер должен открыть, если программы нет

@HackerVlad · 03.04.2024, 17:11

Jack Famous, ты выложил файл без расширения. Надо получается самому переименовывать в PDF...

@Jack Famous · 03.04.2024, 17:11

Перезалил. Кибер обрезал часть имени вместе с расширением

KAK - определить язык по виду иероглифов ….pdf

HackerVlad, да — уже проверил. Спасибо.

@Alexnet84 · 08.04.2024, 17:08 **[ТС]**

HackerVlad, что можно добавить в твой код на VB6, чтобы данные выгружались но без окна PowerShell как у Тим70
я находил пример скрыть окно (дописать , 0, False), это не работает на VB6
strTXT = CreateObject("WScript.Shell").Exec("powe rshell.exe, 0, False " & Text1.Text).StdOut.ReadAll()

@HackerVlad · 08.04.2024, 18:22

Надо найти описание для WScript.Shell.Exec

Добавлено через 16 минут
Alexnet84, я ещё заметил, что пока я не закрою окно, то управление в VB6 назад не передаётся. Это значит, что если бы я даже и скрыл окно то оно бы всё зависло...

Добавлено через 20 минут
Alexnet84, кажется я нашёл нужный код, чтобы окошко консоли закрывалось само по себе после завершения работы консоли

@HackerVlad · 08.04.2024, 18:50

Alexnet84, я много чего опробовал, много разных комбинаций и пришёл к выводу, что PowerShell вообще не нужен для пинга, и даже запуск cmd.exe тоже не нужно... Вот этот код работает, пинг когда проходит, то окошко автоматически закрывается само по себе (скрыть его так и не получилось) но зато теперь не надо самому нажимать на крестик и закрывать консоль, всё работает вот так вот:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
Private Declare Function SysAllocStringByteLen Lib "oleaut32" (ByVal olestr As Long, ByVal BLen As Long) As Long
Private Declare Function SysAllocStringLen Lib "oleaut32" (ByVal olestr As Long, ByVal BLen As Long) As Long
Private Declare Sub PutMem4 Lib "msvbvm60" (ByVal Ptr As Long, ByVal Value As Long)
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileW" (ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As Long, ByVal nNumberOfBytesToWrite As Long, ByRef lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OemToChar Lib "user32.dll" Alias "OemToCharA" (ByVal lpszScr As String, ByVal lpszDst As String) As Long
 
Private Const CP_UTF8 As Long = 65001
Private Const GENERIC_WRITE As Long = &H40000000
Private Const FILE_SHARE_READ = &H1
Private Const CREATE_ALWAYS = 2
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const INVALID_HANDLE_VALUE As Long = -1
 
Private Sub Command1_Click()
    Dim strTXT As String
    Dim hFile As Long
    Dim str As String
    Dim WshShell As Object
    Dim WshExec
    Dim InStream
    
    Set WshShell = CreateObject("WScript.Shell")
    Set WshExec = WshShell.Exec(Text1.Text) ' Даже без POWERSHELL и без CMD.EXE
    'Set WshExec = WshShell.Exec("nslookup")
    Set InStream = WshExec.StdIn
    
    ' ... даже и не надо..
    ' Это тот самый нужный код, чтобы окошко консоли само закрывалось
    'InStream.WriteLine "exit"
    
    strTXT = WshExec.StdOut.ReadAll()
    
    str = Space$(Len(strTXT))
    OemToChar strTXT, str
    Text2.Text = str
End Sub

@Alexnet84 · 09.04.2024, 11:14 **[ТС]**

HackerVlad, спасибо! хорошая идея, а если мне нужно проверить другие команды PowerShell:
например: get-process, get-psdrive, get-printer.
P.s. вводишь любую команду PowerShell в Text1 результат отображается в Text2 в форме vb6,
окно Powershell не отображается или сразу свёрнутым.

Новые блоги и статьи Все статьи Все блоги /
Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .	Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .
Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .

@Alexnet84 62 / 5 / 0 Регистрация: 27.02.2023 Сообщений: 128

	Изменить кодировку текста в поле Text1 на VB6 20.03.2024, 10:00. Показов 5453. Ответов 63 Метки нет (Все метки) Нужен код, при нажатии на кнопку Command1 (UTF-8) или Command2 (Win-1251) меняется кодировка текста в поле Text1. [Пример формы] Миниатюры 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	02.04.2024, 19:26
	Тим70, у тебя там в архиве есть файл 1.txt так вот он в досовской кодировке, ну может так и надо))) как ты всё это делаешь без вызова PowerShell? 0

@Тим70 Любитель 1074 / 786 / 161 Регистрация: 27.01.2019 Сообщений: 1,552
	03.04.2024, 03:20
	HackerVlad, С этими кодировками сам черт ногу сломит.Этот код я использовал в разных своих программах и все время с кодировками приходилось эксперементировать. Началось все от сюда Вот 1

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	03.04.2024, 14:53
	Тим70, большое спасибо за полезную ссылку, там действительно есть все ответы, единственное что непонятно это как сделать тоже самое на VB6 Добавлено через 2 часа 4 минуты По этой теме на VB6 мне непонятно зачем использовать именно PowerShell а не простой cmd.exe Добавлено через 1 минуту Например в WindowsXP нет PowerShell. Поэтому я и удивлён. 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	03.04.2024, 15:33
	Да на кодировки мне наплевать, если честно 0

@Jack Famous 933 / 366 / 43 Регистрация: 10.05.2021 Сообщений: 1,564 Записей в блоге: 10
	03.04.2024, 15:58
	Тим70, смотреть больно В хорошем качестве KAK - определить язык по виду иероглифов-закорючек и р 1

@testuser2 1412 / 878 / 93 Регистрация: 08.02.2017 Сообщений: 3,753 Записей в блоге: 2
	03.04.2024, 16:48
	Интересная страничка про консольный вывод. Просто попалось, вообще искал про "Implements".. 2

@Jack Famous 933 / 366 / 43 Регистрация: 10.05.2021 Сообщений: 1,564 Записей в блоге: 10
	03.04.2024, 17:10
	Тим70, обычный PDF же. Браузер должен открыть, если программы нет 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	03.04.2024, 17:11
	Jack Famous, ты выложил файл без расширения. Надо получается самому переименовывать в PDF... 0

@Alexnet84 62 / 5 / 0 Регистрация: 27.02.2023 Сообщений: 128
	08.04.2024, 17:08 [ТС]
	HackerVlad, что можно добавить в твой код на VB6, чтобы данные выгружались но без окна PowerShell как у Тим70 я находил пример скрыть окно (дописать , 0, False), это не работает на VB6 strTXT = CreateObject("WScript.Shell").Exec("powe rshell.exe, 0, False " & Text1.Text).StdOut.ReadAll() 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	08.04.2024, 18:22
	Надо найти описание для WScript.Shell.Exec Добавлено через 16 минут Alexnet84, я ещё заметил, что пока я не закрою окно, то управление в VB6 назад не передаётся. Это значит, что если бы я даже и скрыл окно то оно бы всё зависло... Добавлено через 20 минут Alexnet84, кажется я нашёл нужный код, чтобы окошко консоли закрывалось само по себе после завершения работы консоли 0

@Alexnet84 62 / 5 / 0 Регистрация: 27.02.2023 Сообщений: 128
	09.04.2024, 11:14 [ТС]
	HackerVlad, спасибо! хорошая идея, а если мне нужно проверить другие команды PowerShell: например: get-process, get-psdrive, get-printer. P.s. вводишь любую команду PowerShell в Text1 результат отображается в Text2 в форме vb6, окно Powershell не отображается или сразу свёрнутым. 0

Изменить кодировку текста в поле Text1 на VB6

Решение