Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: работа с vkontakte Добавлено: 18.10.09 19:50  

Автор вопроса:  maza_____ | Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) | ICQ: 9968842 
Всем привет! Подскажите пожалуйста какой нибудь пример работы с вконтакте на VB.NET или C#, хочу что нибудь для Вконтакта написать

Заранее благодарен.

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #1 		Добавлено: 18.10.09 21:11
Что ты хочешь написать?

Ответить

Номер ответа: 2
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #2 		Добавлено: 18.10.09 21:13
ну чо нить типа что бы из проги на стенке рисовать

Ответить

Номер ответа: 3
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #3 		Добавлено: 18.10.09 21:13
там вконтакте на стене рисуэт через flash я не могу посмотреть как это происходит програмно

Ответить

Номер ответа: 4
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #4 		Добавлено: 27.10.09 16:56
  1. Private Sub buttSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttSend.Click
  2.         Dim b As Bitmap = pict.Image.Clone
  3.         b = ResizeBitmap(b)
  4.         'pict.SizeMode = PictureBoxSizeMode.Normal
  5.         pict.Image = b
  6.         pict.Refresh()
  7.         If filepictext = "png" Then
  8.             pict.Image.Save(My.Application.Info.DirectoryPath + "\picture.png", Drawing.Imaging.ImageFormat.Png)
  9.         Else
  10.             pict.Image.Save(My.Application.Info.DirectoryPath + "\picture.jpg", Drawing.Imaging.ImageFormat.Jpeg)
  11.         End If
  12. If filepictext = "png" Then
  13.             SendPNG(id, My.Application.Info.DirectoryPath + "\picture.png")
  14.         Else
  15.             SendPNG(id, My.Application.Info.DirectoryPath + "\picture.jpg")
  16.         End If
  17. mainFrm.WebBrowser1.Navigate("http://vkontakte.ru/graffiti.php?act=last")
  18. End Sub
  19. Public Function ResizeBitmap(ByVal b As Bitmap) As Bitmap
  20.         If (b Is Nothing) Then Return Nothing
  21.         Dim scale As Single
  22.         Dim x As Single = 586 / b.Width '272'586
  23.         Dim y As Single = 293 / b.Height '136'293
  24.         If x < y Then scale = x Else scale = y
  25.         If x >= 1 And y >= 1 Then scale = 1
  26.         Dim result As Bitmap = New Bitmap(scale * b.Width, scale * b.Height, Imaging.PixelFormat.Format32bppRgb)
  27.         Using g As Graphics = Graphics.FromImage(result)
  28.             g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
  29.             g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
  30.             g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
  31.             'Dim matr As New Drawing2D.Matrix()
  32.             'matr.Scale(scale, scale)
  33.             'g.Clear(Color.Transparent)
  34.             'g.Transform = matr
  35.             g.DrawImage(b, 0, 0, result.Width, result.Height)
  36.         End Using
  37.         Dim result2 As Bitmap = New Bitmap(586, 293) '(272, 136)'(586, 293)
  38.         Using g As Graphics = Graphics.FromImage(result2)
  39.             g.Clear(Color.White)
  40.             g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
  41.             g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
  42.             g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
  43.             g.DrawImage(result, Convert.ToInt32(result2.Width / 2 - result.Width / 2), Convert.ToInt32(result2.Height / 2 - result.Height / 2))
  44.         End Using
  45.         Return result2
  46.     End Function
  47. Private Function GetMD5Hash(ByVal input As String) As String
  48.         Dim x As New System.Security.Cryptography.MD5CryptoServiceProvider()
  49.         Dim bs() As Byte = System.Text.Encoding.UTF8.GetBytes(input)
  50.         bs = x.ComputeHash(bs)
  51.         Dim s As New System.Text.StringBuilder()
  52.         For Each b As Byte In bs
  53.             s.Append(b.ToString("x2").ToLower())
  54.         Next
  55.         Dim password As String = s.ToString()
  56.         Return password
  57.     End Function
  58.     Private Function file_get_contents(ByVal fileName As String) As Byte() 'String
  59.         Dim sContents As Byte() 'String = String.Empty
  60.         'If (fileName.ToLower().IndexOf("http:") > -1) Then 'url
  61.         '    Dim wc As New System.Net.WebClient()
  62.         '    Dim response() As Byte = wc.DownloadData(fileName)
  63.         '    sContents = response 'System.Text.Encoding.ASCII.GetString(response)
  64.         'Else
  65.         Dim sr As New System.IO.StreamReader(fileName, System.Text.Encoding.GetEncoding(1251))
  66.         sContents = System.Text.Encoding.GetEncoding(1251).GetBytes(sr.ReadToEnd) 'sr.ReadToEnd()
  67.         sr.Close()
  68.         'End If
  69.         Return sContents
  70.     End Function
  71.     Private Sub SendPNG(ByVal to_id As String, ByVal filename As String)
  72.         Dim sock As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
  73.         sock.Connect("vkontakte.ru", 80)
  74.         If sock.Connected Then
  75.             Dim head As String = "POST /graffiti.php?to_id=" + to_id + "&group_id=0 HTTP/1.1" + vbNewLine
  76.             head += "Host: vkontakte.ru" + vbNewLine
  77.             head += "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7" + vbNewLine
  78.             head += "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5" + vbNewLine
  79.             head += "Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3" + vbNewLine
  80.             head += "Accept-Encoding : gzip, deflate" + vbNewLine
  81.             head += "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" + vbNewLine
  82.             head += "Keep-Alive: 300" + vbNewLine
  83.             head += "Connection: keep-alive" + vbNewLine
  84.             head += "Cookie: " + mainFrm.cookie + vbNewLine
  85.             head += "Referer: http://vkontakte.ru/swf/Graffiti.swf?12" + vbNewLine
  86.             head += "Content-type: multipart/form-data; boundary=--OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST" + vbNewLine
  87.  
  88.             Dim head2 As String = "----OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST" + vbNewLine
  89.             head2 += "Content-Disposition: form-data; name=""Signature""" + vbNewLine + vbNewLine
  90.             head2 += GetMD5Hash(Convert.ToBase64String(file_get_contents(filename)).Substring(0, 1024))
  91.             head2 += vbNewLine
  92.             head2 += "----OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST" + vbNewLine
  93.             head2 += "Content-Disposition: form-data; name=""Filedata""; filename=""graffiti.png""" + vbNewLine
  94.             head2 += "Content-Type: image/png" + vbNewLine + vbNewLine
  95.             head2 += System.Text.Encoding.GetEncoding(1251).GetString(file_get_contents(filename))
  96.             head2 += "----OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST" + vbNewLine
  97.             head2 += "Content-Disposition: form-data; name=""Upload""" + vbNewLine
  98.             head2 += vbNewLine
  99.             head2 += "Submit Query" + vbNewLine
  100.             head2 += "----OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST--"
  101.  
  102.             head += "Content-length: " + head2.Length.ToString + vbNewLine
  103.             head += vbNewLine
  104.             head += head2
  105.  
  106.             'Dim fw As New IO.StreamWriter(My.Application.Info.DirectoryPath + "\log.txt", False, System.Text.Encoding.GetEncoding(1251))
  107.             'fw.Write(head)
  108.             'fw.Close()
  109.             'fw.Dispose()
  110.             sock.Send(System.Text.Encoding.GetEncoding(1251).GetBytes(head))
  111.             Dim header(1024) As Byte
  112.             sock.Receive(header)
  113.             'Dim headerstr = System.Text.Encoding.GetEncoding(1251).GetString(header).Trim
  114.             'Dim fw As New IO.StreamWriter(My.Application.Info.DirectoryPath + "\receive.txt", False, System.Text.Encoding.GetEncoding(1251))
  115.             'fw.Write(headerStr)
  116.             'fw.Close()
  117.             'fw.Dispose()
  118.         Else
  119.             MsgBox("Ошибка подключения к vkontakte.ru")
  120.         End If
  121.         sock.Close()
  122.     End Sub

Ответить

Номер ответа: 5
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #5 		Добавлено: 29.10.09 10:42
Снова повторяю, что нужно писать полезный софт. Рисовалок в этом сраном контакте уже пруд пруди...

Ответить

Номер ответа: 6
Автор ответа:
 Natali



Вопросов: 0
Ответов: 1
  Профиль | | #6 Добавлено: 17.11.09 02:13
а можно б это только в нормальной форме, а то собрать никак немогу :(

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам