Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
1 из 2 1 2 »
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42

Как извлечь текст с последней записи в Vk через Visual Basic 6.0?

24.10.2016, 13:45. Показов 2477. Ответов 20
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Доброго времени суток!
Есть задача как описано выше, нужно извлеч текст с последней записи в ВК через Visual Basic 6.0
примерно форма с одним элементом Text в котором отображается последняя запись опубликованная на странице ВК.
Гугл не помог, а личного опыта маловато. Прошу помощи у Вас!
Про прощения если создал тему не там.
0
Лучшие ответы (1)
Сообщение: #9693737
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 24.10.2016, 13:45
Ответы с готовыми решениями:

Visual Basic 6 Как вытащить из текстового поля текст компонент WebBrowser
Используется Компонент webbrowser прикол в том что нету name а только имя класса my-input6 а как по нему вытащить из тектового поля текст...

Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net ?
Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net

Вычисление значений функции двух переменных в Visual Basic - Visual Basic
Помогите пожалуйста! В среде VB написать программу вычисления значений функции двух переменных. Ориентировочный вид окна программы и...

20
70 / 62 / 19
Регистрация: 03.05.2013
Сообщений: 397
24.10.2016, 17:12
Цитата Сообщение от mister_x89 Посмотреть сообщение
текст с последней записи в ВК
-последней записи чего?
0
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42
24.10.2016, 18:43  [ТС]
запись последнй опубликованной записи на стене
на пример https://vk.com/simplyjester последня запись это - "Бро с праздником"

или же https://vk.com/mister_x89 это Противоположности всегда идут рука об руку!
0
70 / 62 / 19
Регистрация: 03.05.2013
Сообщений: 397
24.10.2016, 22:36
HTML5
1

<div class="wall_text"><div id="wpt19941379_3086" class="_wall_post_cont"><div class="wall_post_text">Бро с праздником</div><div class="wall_audio_rows _wall_audio_rows"><div class="audio_row _audio_row _audio_row_2000143012_456239026 inlined canadd clear_fix" onclick="return
- например выдирать по первому id - <div id="wpt19941379_3086", но vk может сменить код, и тогда твой парсинг не будет работать. ВК апи вроде для этих целей создан.
0
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42
25.10.2016, 10:25  [ТС]
Не ребята! апи в ВК я не врубился. Больше ни у кого нет идей?
0
Модератор
10057 / 3902 / 884
Регистрация: 22.02.2013
Сообщений: 5,853
Записей в блоге: 79
25.10.2016, 10:29
Цитата Сообщение от mister_x89 Посмотреть сообщение
апи в ВК я не врубился
Врубайся, это единственный верный способ.
0
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42
27.10.2016, 06:52  [ТС]
Доброго времени суток ребята!
Нарыл в сети такой код

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

Dim cnt
Public Function Parsing(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
  Dim zPos As Integer, zEnd As Integer, lenStart As Integer = strStart.Length
  Dim Result As String
  Result = String.Empty
  zPos = strSource.IndexOf(strStart, startPos)
  zEnd = strSource.IndexOf(strEnd, iPos + lenStart)
  If zPos <> -1 AndAlso zEnd <> -1 Then
  Result = strSource.Substring(zPos + lenStart, zEnd - (zPos + lenStart))
  End If
  Return Result
End Function
 
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Open "HTML.txt" For Input As #1
    Dim s As String
    Input #1, s
    Text1.Text = s
    Close #1
   Text2.Text = Parsing(TextBox1.Text, "<div class="pi_text">", "</div>", 0)
End Sub
Нашел способ экспортировать вк старницу в тестовый блокнот.
но функция парсинга не пашет. есть у кого идей

источник http://kbyte.ru/ru/Programming... &mode=show

Добавлено через 10 минут
сорри не тот тег
нужно вытащить тексто из <div class="wall_post_text">", "</div>"

типа так

Text2.Text = Parsing(TextBox1.Text, "<div class="wall_post_text">", "</div>", 0)
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
27.10.2016, 06:54
Цитата Сообщение от mister_x89 Посмотреть сообщение
есть у кого идей
Идей такая. У Вас, судя по названиям контролов, VB6, а функция парсинга написана на VB.Net
0
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42
27.10.2016, 06:55  [ТС]
а можно это перевести на вб6?
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
27.10.2016, 06:59
Цитата Сообщение от mister_x89 Посмотреть сообщение
а можно это перевести на вб6?
можно. Прикрепите HTML.txt
0
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42
27.10.2016, 07:04  [ТС]
Вот тхт
Вложения
Тип файла: rar HTML.rar (8.1 Кб, 10 просмотров)
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
27.10.2016, 07:23
mister_x89,где в документе wall_post_text ?
0
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42
27.10.2016, 07:30  [ТС]
Странно при сохранений веб старницы нужный мне фрагмент заключен в
<div class="pi_text">

а на самой веб странице
wall_post_text


Сорри нужный код - <div class="pi_text">

Короче говоря со страницы https://vk.com/mister_x89
нужно выписать или вычитать последнюю запись на стене.
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
27.10.2016, 07:36
Лучший ответ Сообщение было отмечено mister_x89 как решение

Решение

Цитата Сообщение от mister_x89 Посмотреть сообщение
Сорри нужный код - <div class="pi_text">

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

Option Explicit
Private UTF8Chars() As String
Public Function Pars(ByVal strSource As String, ByRef strStart As String, ByRef strEnd As String, LenS As Long) As String
        Dim iPos As Long, iEnd As Long, S As String, i As Long, strResult As String, k As Long
          Do While InStr(1, strSource, strStart)
            iPos = InStr(1, strSource, strStart) + Len(strStart)
            iEnd = InStr(iPos - 1, strSource, strEnd)
            If iEnd > iPos Then
                strResult = Mid(strSource, iPos, iEnd - iPos)
                If Len(strResult) < LenS Then k = k + 1: S = S & k & "." & vbTab & strResult & vbCrLf
            End If
            strSource = Mid(strSource, iEnd + Len(strEnd))
        Loop
        Do While InStr(S, vbCrLf & vbCrLf): S = Replace(S, vbCrLf & vbCrLf, ""): Loop
        Do While InStr(S, "  "): S = Replace(S, "  ", " "): Loop
        Pars = S
End Function
 
Private Sub Command1_Click()
    Dim S As String, ff As Integer
    InitializeUTF8
    ff = FreeFile
    Open App.Path & "\HTML.txt" For Input As #ff
         S = Input(LOF(ff), #ff)
    Close #ff
    Text1.Text = S
    Text2.Text = UTF8ToANSI(Pars(S, "<div class=""pi_text"">", "</div>", 100))
End Sub
 
Public Function UTF8ToANSI(UTF8 As String) As String
    Dim S As String, i As Long, t As String, j As Long
    S = UTF8
    For i = 128 To 255
         S = Replace(S, UTF8Chars(i - 128), Chr(i))
    Next i
    UTF8ToANSI = S
End Function
Public Sub InitializeUTF8()
Dim S As String
S = Chr(208) + Chr(130) + Chr(38) + Chr(38) + Chr(208) + Chr(131) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(154) + Chr(38) + Chr(38) + Chr(209) + Chr(147) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(158) + Chr(38)
S = S + Chr(38) + Chr(226) + Chr(128) + Chr(166) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(160) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(161) + Chr(38) + Chr(38) + Chr(226) + Chr(130) + Chr(172) + Chr(38) + Chr(38)
S = S + Chr(226) + Chr(128) + Chr(176) + Chr(38) + Chr(38) + Chr(208) + Chr(137) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(185) + Chr(38) + Chr(38) + Chr(208) + Chr(138) + Chr(38) + Chr(38) + Chr(208) + Chr(140) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(139) + Chr(38) + Chr(38) + Chr(208) + Chr(143) + Chr(38) + Chr(38) + Chr(209) + Chr(146) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(152) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(153)
S = S + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(156) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(157) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(162) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(147) + Chr(38)
S = S + Chr(38) + Chr(226) + Chr(128) + Chr(148) + Chr(38) + Chr(38) + Chr(194) + Chr(152) + Chr(38) + Chr(38) + Chr(226) + Chr(132) + Chr(162) + Chr(38) + Chr(38) + Chr(209) + Chr(153) + Chr(38) + Chr(38) + Chr(226) + Chr(128)
S = S + Chr(186) + Chr(38) + Chr(38) + Chr(209) + Chr(154) + Chr(38) + Chr(38) + Chr(209) + Chr(156) + Chr(38) + Chr(38) + Chr(209) + Chr(155) + Chr(38) + Chr(38) + Chr(209) + Chr(159) + Chr(38) + Chr(38) + Chr(194) + Chr(160)
S = S + Chr(38) + Chr(38) + Chr(208) + Chr(142) + Chr(38) + Chr(38) + Chr(209) + Chr(158) + Chr(38) + Chr(38) + Chr(208) + Chr(136) + Chr(38) + Chr(38) + Chr(194) + Chr(164) + Chr(38) + Chr(38) + Chr(210) + Chr(144) + Chr(38)
S = S + Chr(38) + Chr(194) + Chr(166) + Chr(38) + Chr(38) + Chr(194) + Chr(167) + Chr(38) + Chr(38) + Chr(208) + Chr(129) + Chr(38) + Chr(38) + Chr(194) + Chr(169) + Chr(38) + Chr(38) + Chr(208) + Chr(132) + Chr(38) + Chr(38)
S = S + Chr(194) + Chr(171) + Chr(38) + Chr(38) + Chr(194) + Chr(172) + Chr(38) + Chr(38) + Chr(194) + Chr(173) + Chr(38) + Chr(38) + Chr(194) + Chr(174) + Chr(38) + Chr(38) + Chr(208) + Chr(135) + Chr(38) + Chr(38) + Chr(194)
S = S + Chr(176) + Chr(38) + Chr(38) + Chr(194) + Chr(177) + Chr(38) + Chr(38) + Chr(208) + Chr(134) + Chr(38) + Chr(38) + Chr(209) + Chr(150) + Chr(38) + Chr(38) + Chr(210) + Chr(145) + Chr(38) + Chr(38) + Chr(194) + Chr(181)
S = S + Chr(38) + Chr(38) + Chr(194) + Chr(182) + Chr(38) + Chr(38) + Chr(194) + Chr(183) + Chr(38) + Chr(38) + Chr(209) + Chr(145) + Chr(38) + Chr(38) + Chr(226) + Chr(132) + Chr(150) + Chr(38) + Chr(38) + Chr(209) + Chr(148)
S = S + Chr(38) + Chr(38) + Chr(194) + Chr(187) + Chr(38) + Chr(38) + Chr(209) + Chr(152) + Chr(38) + Chr(38) + Chr(208) + Chr(133) + Chr(38) + Chr(38) + Chr(209) + Chr(149) + Chr(38) + Chr(38) + Chr(209) + Chr(151) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(144) + Chr(38) + Chr(38) + Chr(208) + Chr(145) + Chr(38) + Chr(38) + Chr(208) + Chr(146) + Chr(38) + Chr(38) + Chr(208) + Chr(147) + Chr(38) + Chr(38) + Chr(208) + Chr(148) + Chr(38) + Chr(38)
S = S + Chr(208) + Chr(149) + Chr(38) + Chr(38) + Chr(208) + Chr(150) + Chr(38) + Chr(38) + Chr(208) + Chr(151) + Chr(38) + Chr(38) + Chr(208) + Chr(152) + Chr(38) + Chr(38) + Chr(208) + Chr(153) + Chr(38) + Chr(38) + Chr(208)
S = S + Chr(154) + Chr(38) + Chr(38) + Chr(208) + Chr(155) + Chr(38) + Chr(38) + Chr(208) + Chr(156) + Chr(38) + Chr(38) + Chr(208) + Chr(157) + Chr(38) + Chr(38) + Chr(208) + Chr(158) + Chr(38) + Chr(38) + Chr(208) + Chr(159)
S = S + Chr(38) + Chr(38) + Chr(208) + Chr(160) + Chr(38) + Chr(38) + Chr(208) + Chr(161) + Chr(38) + Chr(38) + Chr(208) + Chr(162) + Chr(38) + Chr(38) + Chr(208) + Chr(163) + Chr(38) + Chr(38) + Chr(208) + Chr(164) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(165) + Chr(38) + Chr(38) + Chr(208) + Chr(166) + Chr(38) + Chr(38) + Chr(208) + Chr(167) + Chr(38) + Chr(38) + Chr(208) + Chr(168) + Chr(38) + Chr(38) + Chr(208) + Chr(169) + Chr(38) + Chr(38)
S = S + Chr(208) + Chr(170) + Chr(38) + Chr(38) + Chr(208) + Chr(171) + Chr(38) + Chr(38) + Chr(208) + Chr(172) + Chr(38) + Chr(38) + Chr(208) + Chr(173) + Chr(38) + Chr(38) + Chr(208) + Chr(174) + Chr(38) + Chr(38) + Chr(208)
S = S + Chr(175) + Chr(38) + Chr(38) + Chr(208) + Chr(176) + Chr(38) + Chr(38) + Chr(208) + Chr(177) + Chr(38) + Chr(38) + Chr(208) + Chr(178) + Chr(38) + Chr(38) + Chr(208) + Chr(179) + Chr(38) + Chr(38) + Chr(208) + Chr(180)
S = S + Chr(38) + Chr(38) + Chr(208) + Chr(181) + Chr(38) + Chr(38) + Chr(208) + Chr(182) + Chr(38) + Chr(38) + Chr(208) + Chr(183) + Chr(38) + Chr(38) + Chr(208) + Chr(184) + Chr(38) + Chr(38) + Chr(208) + Chr(185) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(186) + Chr(38) + Chr(38) + Chr(208) + Chr(187) + Chr(38) + Chr(38) + Chr(208) + Chr(188) + Chr(38) + Chr(38) + Chr(208) + Chr(189) + Chr(38) + Chr(38) + Chr(208) + Chr(190) + Chr(38) + Chr(38)
S = S + Chr(208) + Chr(191) + Chr(38) + Chr(38) + Chr(209) + Chr(128) + Chr(38) + Chr(38) + Chr(209) + Chr(129) + Chr(38) + Chr(38) + Chr(209) + Chr(130) + Chr(38) + Chr(38) + Chr(209) + Chr(131) + Chr(38) + Chr(38) + Chr(209)
S = S + Chr(132) + Chr(38) + Chr(38) + Chr(209) + Chr(133) + Chr(38) + Chr(38) + Chr(209) + Chr(134) + Chr(38) + Chr(38) + Chr(209) + Chr(135) + Chr(38) + Chr(38) + Chr(209) + Chr(136) + Chr(38) + Chr(38) + Chr(209) + Chr(137)
S = S + Chr(38) + Chr(38) + Chr(209) + Chr(138) + Chr(38) + Chr(38) + Chr(209) + Chr(139) + Chr(38) + Chr(38) + Chr(209) + Chr(140) + Chr(38) + Chr(38) + Chr(209) + Chr(141) + Chr(38) + Chr(38) + Chr(209) + Chr(142) + Chr(38)
S = S + Chr(38) + Chr(209) + Chr(143)
UTF8Chars = Split(S, "&&")
End Sub
1
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42
27.10.2016, 07:50  [ТС]
Спасибо огромное! Просто поражаюсь Вашему терпению.
Еще раз спаисбо

Добавлено через 11 минут
Рэспект и уважуха, только еще один вопрос.
Как отсечь нумерацию и все последующие записи?
если конечно я Вам не надоел
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
27.10.2016, 07:53
Цитата Сообщение от mister_x89 Посмотреть сообщение
Как отсечь нумерацию и все последующие записи?
А какая нужна запись? №1 или №2 ?
0
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42
27.10.2016, 07:58  [ТС]
запись №1
короче пишу программку для отображения/чтения самой последней записи.

Добавлено через 3 минуты
А все уже разобрался
воспользовался mid функцией
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
27.10.2016, 07:59
Цитата Сообщение от mister_x89 Посмотреть сообщение
запись №1
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Public Function Pars(ByVal strSource As String, ByRef strStart As String, ByRef strEnd As String, LenS As Long) As String
        Dim iPos As Long, iEnd As Long, S As String, i As Long, strResult As String
          Do While InStr(1, strSource, strStart)
            iPos = InStr(1, strSource, strStart) + Len(strStart)
            iEnd = InStr(iPos - 1, strSource, strEnd)
            If iEnd > iPos Then
                strResult = Mid(strSource, iPos, iEnd - iPos)
                If Len(strResult) < LenS Then S = S & strResult: Exit Do  '& vbCrLf
            End If
            strSource = Mid(strSource, iEnd + Len(strEnd))
        Loop
        Do While InStr(S, vbCrLf & vbCrLf): S = Replace(S, vbCrLf & vbCrLf, ""): Loop
        Do While InStr(S, "  "): S = Replace(S, "  ", " "): Loop
        Pars = S
End Function
0
oh my god
 Аватар для fever brain
1456 / 796 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
27.10.2016, 16:29
Со своей стороны, вместо громоздкой процедуры InitializeUTF8
Кликните здесь для просмотра всего текста
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

Public Sub InitializeUTF8()
Dim S As String
S = Chr(208) + Chr(130) + Chr(38) + Chr(38) + Chr(208) + Chr(131) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(154) + Chr(38) + Chr(38) + Chr(209) + Chr(147) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(158) + Chr(38)
S = S + Chr(38) + Chr(226) + Chr(128) + Chr(166) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(160) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(161) + Chr(38) + Chr(38) + Chr(226) + Chr(130) + Chr(172) + Chr(38) + Chr(38)
S = S + Chr(226) + Chr(128) + Chr(176) + Chr(38) + Chr(38) + Chr(208) + Chr(137) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(185) + Chr(38) + Chr(38) + Chr(208) + Chr(138) + Chr(38) + Chr(38) + Chr(208) + Chr(140) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(139) + Chr(38) + Chr(38) + Chr(208) + Chr(143) + Chr(38) + Chr(38) + Chr(209) + Chr(146) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(152) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(153)
S = S + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(156) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(157) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(162) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(147) + Chr(38)
S = S + Chr(38) + Chr(226) + Chr(128) + Chr(148) + Chr(38) + Chr(38) + Chr(194) + Chr(152) + Chr(38) + Chr(38) + Chr(226) + Chr(132) + Chr(162) + Chr(38) + Chr(38) + Chr(209) + Chr(153) + Chr(38) + Chr(38) + Chr(226) + Chr(128)
S = S + Chr(186) + Chr(38) + Chr(38) + Chr(209) + Chr(154) + Chr(38) + Chr(38) + Chr(209) + Chr(156) + Chr(38) + Chr(38) + Chr(209) + Chr(155) + Chr(38) + Chr(38) + Chr(209) + Chr(159) + Chr(38) + Chr(38) + Chr(194) + Chr(160)
S = S + Chr(38) + Chr(38) + Chr(208) + Chr(142) + Chr(38) + Chr(38) + Chr(209) + Chr(158) + Chr(38) + Chr(38) + Chr(208) + Chr(136) + Chr(38) + Chr(38) + Chr(194) + Chr(164) + Chr(38) + Chr(38) + Chr(210) + Chr(144) + Chr(38)
S = S + Chr(38) + Chr(194) + Chr(166) + Chr(38) + Chr(38) + Chr(194) + Chr(167) + Chr(38) + Chr(38) + Chr(208) + Chr(129) + Chr(38) + Chr(38) + Chr(194) + Chr(169) + Chr(38) + Chr(38) + Chr(208) + Chr(132) + Chr(38) + Chr(38)
S = S + Chr(194) + Chr(171) + Chr(38) + Chr(38) + Chr(194) + Chr(172) + Chr(38) + Chr(38) + Chr(194) + Chr(173) + Chr(38) + Chr(38) + Chr(194) + Chr(174) + Chr(38) + Chr(38) + Chr(208) + Chr(135) + Chr(38) + Chr(38) + Chr(194)
S = S + Chr(176) + Chr(38) + Chr(38) + Chr(194) + Chr(177) + Chr(38) + Chr(38) + Chr(208) + Chr(134) + Chr(38) + Chr(38) + Chr(209) + Chr(150) + Chr(38) + Chr(38) + Chr(210) + Chr(145) + Chr(38) + Chr(38) + Chr(194) + Chr(181)
S = S + Chr(38) + Chr(38) + Chr(194) + Chr(182) + Chr(38) + Chr(38) + Chr(194) + Chr(183) + Chr(38) + Chr(38) + Chr(209) + Chr(145) + Chr(38) + Chr(38) + Chr(226) + Chr(132) + Chr(150) + Chr(38) + Chr(38) + Chr(209) + Chr(148)
S = S + Chr(38) + Chr(38) + Chr(194) + Chr(187) + Chr(38) + Chr(38) + Chr(209) + Chr(152) + Chr(38) + Chr(38) + Chr(208) + Chr(133) + Chr(38) + Chr(38) + Chr(209) + Chr(149) + Chr(38) + Chr(38) + Chr(209) + Chr(151) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(144) + Chr(38) + Chr(38) + Chr(208) + Chr(145) + Chr(38) + Chr(38) + Chr(208) + Chr(146) + Chr(38) + Chr(38) + Chr(208) + Chr(147) + Chr(38) + Chr(38) + Chr(208) + Chr(148) + Chr(38) + Chr(38)
S = S + Chr(208) + Chr(149) + Chr(38) + Chr(38) + Chr(208) + Chr(150) + Chr(38) + Chr(38) + Chr(208) + Chr(151) + Chr(38) + Chr(38) + Chr(208) + Chr(152) + Chr(38) + Chr(38) + Chr(208) + Chr(153) + Chr(38) + Chr(38) + Chr(208)
S = S + Chr(154) + Chr(38) + Chr(38) + Chr(208) + Chr(155) + Chr(38) + Chr(38) + Chr(208) + Chr(156) + Chr(38) + Chr(38) + Chr(208) + Chr(157) + Chr(38) + Chr(38) + Chr(208) + Chr(158) + Chr(38) + Chr(38) + Chr(208) + Chr(159)
S = S + Chr(38) + Chr(38) + Chr(208) + Chr(160) + Chr(38) + Chr(38) + Chr(208) + Chr(161) + Chr(38) + Chr(38) + Chr(208) + Chr(162) + Chr(38) + Chr(38) + Chr(208) + Chr(163) + Chr(38) + Chr(38) + Chr(208) + Chr(164) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(165) + Chr(38) + Chr(38) + Chr(208) + Chr(166) + Chr(38) + Chr(38) + Chr(208) + Chr(167) + Chr(38) + Chr(38) + Chr(208) + Chr(168) + Chr(38) + Chr(38) + Chr(208) + Chr(169) + Chr(38) + Chr(38)
S = S + Chr(208) + Chr(170) + Chr(38) + Chr(38) + Chr(208) + Chr(171) + Chr(38) + Chr(38) + Chr(208) + Chr(172) + Chr(38) + Chr(38) + Chr(208) + Chr(173) + Chr(38) + Chr(38) + Chr(208) + Chr(174) + Chr(38) + Chr(38) + Chr(208)
S = S + Chr(175) + Chr(38) + Chr(38) + Chr(208) + Chr(176) + Chr(38) + Chr(38) + Chr(208) + Chr(177) + Chr(38) + Chr(38) + Chr(208) + Chr(178) + Chr(38) + Chr(38) + Chr(208) + Chr(179) + Chr(38) + Chr(38) + Chr(208) + Chr(180)
S = S + Chr(38) + Chr(38) + Chr(208) + Chr(181) + Chr(38) + Chr(38) + Chr(208) + Chr(182) + Chr(38) + Chr(38) + Chr(208) + Chr(183) + Chr(38) + Chr(38) + Chr(208) + Chr(184) + Chr(38) + Chr(38) + Chr(208) + Chr(185) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(186) + Chr(38) + Chr(38) + Chr(208) + Chr(187) + Chr(38) + Chr(38) + Chr(208) + Chr(188) + Chr(38) + Chr(38) + Chr(208) + Chr(189) + Chr(38) + Chr(38) + Chr(208) + Chr(190) + Chr(38) + Chr(38)
S = S + Chr(208) + Chr(191) + Chr(38) + Chr(38) + Chr(209) + Chr(128) + Chr(38) + Chr(38) + Chr(209) + Chr(129) + Chr(38) + Chr(38) + Chr(209) + Chr(130) + Chr(38) + Chr(38) + Chr(209) + Chr(131) + Chr(38) + Chr(38) + Chr(209)
S = S + Chr(132) + Chr(38) + Chr(38) + Chr(209) + Chr(133) + Chr(38) + Chr(38) + Chr(209) + Chr(134) + Chr(38) + Chr(38) + Chr(209) + Chr(135) + Chr(38) + Chr(38) + Chr(209) + Chr(136) + Chr(38) + Chr(38) + Chr(209) + Chr(137)
S = S + Chr(38) + Chr(38) + Chr(209) + Chr(138) + Chr(38) + Chr(38) + Chr(209) + Chr(139) + Chr(38) + Chr(38) + Chr(209) + Chr(140) + Chr(38) + Chr(38) + Chr(209) + Chr(141) + Chr(38) + Chr(38) + Chr(209) + Chr(142) + Chr(38)
S = S + Chr(38) + Chr(209) + Chr(143)
UTF8Chars = Split(S, "&&")
End Sub


я бы мог предложить следущее:
Visual Basic
1
2
3
4

Public Sub InitializeUTF8()
    Const cc = "Р‚&&Рѓ&&‚&&С“&&„&&…&&вЂ*&&‡&&€&&‰&&Р‰&&‹&&РЉ&&РЊ&&Р‹&&РЏ&&С’&&вЂ˜&&’&&“&&”&&•&&–&&—&&В˜&&в„ў&&С™&&›&&Сљ&&Сњ&&С›&&Сџ&&В*&&РЋ&&Сћ&&Р€&&В¤&&Тђ&&В¦&&В§&&РЃ&&В©&&Р„&&В«&&В¬&&В*&&В®&&Р‡&&В°&&В±&&Р†&&С–&&Т‘&&Вµ&&В¶&&В·&&С‘&&в„–&&С”&&В»&&С˜&&Р…&&С•&&С—&&Рђ&&Р‘&&Р’&&Р“&&Р”&&Р•&&Р–&&Р—&&Р˜&&Р™&&Рљ&&Р›&&Рњ&&Рќ&&Рћ&&Рџ&&Р*&&РЎ&&Рў&&РЈ&&Р¤&&РҐ&&Р¦&&Р§&&РЁ&&Р©&&РЄ&&Р«&&Р¬&&Р*&&Р®&&РЇ&&Р°&&Р±&&РІ&&Рі&&Рґ&&Рµ&&Р¶&&Р·&&Рё&&Р№&&Рє&&Р»&&Рј&&РЅ&&Рѕ&&Рї&&СЂ&&СЃ&&С‚&&Сѓ&&С„&&С…&&С†&&С‡&&С€&&С‰&&СЉ&&С‹&&СЊ&&СЌ&&СЋ&&СЏ"
    UTF8Chars = Split(cc, "&&")
End Sub
выложенный текст при копировании в редактор никак не поменяется
Миниатюры
Как извлечь текст с последней записи в Vk через Visual Basic 6.0?  
2
2 / 2 / 1
Регистрация: 23.10.2016
Сообщений: 42
30.10.2016, 20:02  [ТС]
Еще раз всем привет!
наткнулся на тему по адресу Как отправить сообщение на стену Вконтакте и изменить статус
есть у кого идеи как это реализоать на вб6
и что такое "&access_token="
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 30.10.2016, 20:02
Помогаю со студенческими работами здесь

Решение уравнения через массив в Visual Basic
ВСЕМ ПРИВЕТ. Возникли проблемы при написании программы. Тем кто поможет буду очень признателен... Значения массива M и необходимых...

Програмное снятие задач через Visual Basic
Люди!!! Хто-то знает, как снять програмно задачу через Visual Basic 6.0???

ComboBox через фильтр в DataGridView (Visual Basic)
Помогите осуществить фильтр в DataGridView по выбраной из ComboBox строки.

Visual Basic 6 и Visual Basic .NET - в чем различия?
Visual Basic и Visual studio это не одно и тоже? если нет то в чём разница, по мимо оформления?

Visual Basic .Net и Visual Basic 6.0 - В чём разница
В общем возник вопрос: Visual Bisic.Net и Visual Basic - это два разных языка, или же .NET версия это лишь его улучшение. Я так понимаю что...


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
1 из 2 1 2 »
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
 Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
 SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
 Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru