С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
LisikXp
0 / 0 / 0
Регистрация: 07.08.2012
Сообщений: 6
1

Как отправить сообщение на стену Вконтакте и изменить статус

09.08.2012, 15:57. Просмотров 1731. Ответов 9
Метки нет (Все метки)

Помогите пожалуйста очень нужно! вот есть код но он не очень(
vb.net
1
2
3
4
5
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a As String
a = "Text message"
WebBrowser1.Navigate("https://api.vk.com/method/wall.post?message=" & a & "&access_token=" & TextBox1.Text)
End Sub
сдесь только можно на английском отправлять, если на русском, то получаються иероглифы(
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.08.2012, 15:57
Ответы с готовыми решениями:

Как отправить сообщение в TelegramDesktop?
Есть DataGridView, заполняется через sql Нужно по нажатию кнопки Butonn...

Как отправить сообщение на телефон
Как отправить сообщение на любую сотовою связь (платно бесплатно неважно)....

Как отправить сообщение на E-mail
Как отправить сообщение на E-mail? Пробовал старым способомDim smtpclient As...

Как отправить сообщение с одного компьютера на другой компьютер в локальной сети?
Необходимо, зная ip адрес или имя компьютера вывести сообщение с одного...

Отправить собщение на стену Вконтакте VK API
Доброе время суток, форумчане! Прошу вашей помощи! У меня такая задача: есть...

9
MLF
27 / 27 / 4
Регистрация: 14.02.2012
Сообщений: 135
09.08.2012, 16:06 2
Попробуй преобразовать текст как тут, скорей всего будет работать)
0
LisikXp
0 / 0 / 0
Регистрация: 07.08.2012
Сообщений: 6
09.08.2012, 16:13  [ТС] 3
Цитата Сообщение от MLF Посмотреть сообщение
Попробуй преобразовать текст как тут, скорей всего будет работать)
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
Function UrlEncode(ByVal SourceString As String)
        Dim result As String = Nothing
        For Each tChar As Char In SourceString
            Dim ChrCode As Byte = Asc(tChar)
            Select Case ChrCode
                Case 48 To 57, 65 To 90, 97 To 122 '0-9, A-Z, a-z добавляем как есть
                    result += tChar
                Case 32 '+ вместо пробела
                    result += "+"
                Case Else 'для всех остальных добавляем % и код символа двумя знаками
                    result += "%" & ChrCode.ToString("X2")
            End Select
        Next
        Return result
    End Function
 
   
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a As String
        a = TextBox2.Text
        WebBrowser1.Navigate("https://api.vk.com/method/wall.post?message=" & a & uid & "&access_token=" & accessToken, False)
        HttpUtility.UrlEncodeUnicode(TextBox2.Text)
        Uri.EscapeUriString(a)
    End Sub
не получается


не получается, русские буквы под какими цифрами т.е. --- "Case 48 To 57, 65 To 90, 97 To 122 '0-9, A-Z, a-z добавляем как есть" это англ!
0
MLF
27 / 27 / 4
Регистрация: 14.02.2012
Сообщений: 135
09.08.2012, 16:21 4
Цитата Сообщение от LisikXp Посмотреть сообщение
не получается
Ну ты функцию то мою не использовал. Пробуй так:
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function UrlEncode(ByVal SourceString As String)
        Dim result As String = Nothing
        For Each tChar As Char In SourceString
            Dim ChrCode As Byte = Asc(tChar)
            Select Case ChrCode
                Case 48 To 57, 65 To 90, 97 To 122 '0-9, A-Z, a-z добавляем как есть
                    result += tChar
                Case 32 '+ вместо пробела
                    result += "+"
                Case Else 'для всех остальных добавляем % и код символа двумя знаками
                    result += "%" & ChrCode.ToString("X2")
            End Select
        Next
        Return result
    End Function
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a As String= UrlEncode("Твой русский текст")
        WebBrowser1.Navigate("https://api.vk.com/method/wall.post?message=" & a & uid & "&access_token=" & accessToken, False)
End Sub
0
LisikXp
0 / 0 / 0
Регистрация: 07.08.2012
Сообщений: 6
09.08.2012, 16:27  [ТС] 5
Ну ты функцию то мою не использовал. Пробуй так:
не получается((((
мне кажеться что нужно вместо "65 To 90, 97 To 122" подставить коды русских букв, но я не могу их найти
0
MLF
27 / 27 / 4
Регистрация: 14.02.2012
Сообщений: 135
09.08.2012, 16:35 6
Цитата Сообщение от LisikXp Посмотреть сообщение
мне кажеться что нужно вместо "65 To 90, 97 To 122" подставить коды русских букв, но я не могу их найти
Не то тебе кажется. Это коды символов, которые ненужно преобразовывать, так как это латинские буквы и цифры.
Могу проконсультировать в скайпе, если хочешь. (либо пиши свой, либо включай у себя приём личных сообщений на форуме)
0
LisikXp
0 / 0 / 0
Регистрация: 07.08.2012
Сообщений: 6
09.08.2012, 16:42  [ТС] 7
они включены
0
MLF
27 / 27 / 4
Регистрация: 14.02.2012
Сообщений: 135
09.08.2012, 16:49 8

Не по теме:

Цитата Сообщение от LisikXp Посмотреть сообщение
они включены
Мне пишет:
Вы не можете отправить сообщение LisikXp, поскольку он(а) не разрешил(а) принимать личные сообщения, либо ему(ей) не разрешено это делать.

0
LisikXp
0 / 0 / 0
Регистрация: 07.08.2012
Сообщений: 6
09.08.2012, 16:57  [ТС] 9
та вроде включены!
0
sst.djager
1 / 1 / 0
Регистрация: 17.08.2012
Сообщений: 104
21.08.2012, 16:39 10
Нужно кодировку unicode включить то есть ANSI или Windows 1251


vb.net
1
Dim кодировка As System.Text.Encoding= System.Text.Encoding.GetEncoding(1251) 'Чтобы русские буквы читались,объявляем объект кодировки.
0
21.08.2012, 16:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.08.2012, 16:39

Как программно отправлять сообщение на стену Вконтакте
Доброго времени суток. Подскажите Как программно отправлять сообщение на стену...

POST запрос Вконтакте: разместить сообщение на стену
Здравствуйте, пришел на форум из-за проблемы, хочу написать программу на С#,...

Как отправить сообщение вконтакте из программы
Задача: Как отправить сообщение вконтакте из программы, Допустим сообщение -...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru