Модераторы: diadiavova, gambit

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вставка картинки (на Стенку вКонтакте) 
:(
    Опции темы
Экскалупатор
Дата 15.11.2009, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
Natapro, согласен, вопрос на счет нравиться это не по теме

так а все таки чем не устраивает уже готовые приложения? если не можешь сделать свое то воспользуйся чужим. есть масса приложений для этого вконтакта с открытым кодом, скачай, посмотри как там реализовано и сделай у себя.
PM MAIL ICQ   Вверх
Natapro
Дата 15.11.2009, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
я ненашла ни один с отрытым иходным кодом,
!! а почему не нравятся потому что через них идёт отсылка паролей  при авторизации, что ведёт за собой Спам ! спам Групп ит д !! а также взлом и много другого... кроми этого крадёт пароли , меняет в хост значения...


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 15.11.2009, 18:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
Приложение с открытым кодом
PM MAIL ICQ   Вверх
Natapro
Дата 15.11.2009, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
и как с этим работать ? smile 


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 15.11.2009, 18:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
Natapro, ты меня пугаешь...
берешь, открываешь и пытаешься разобраться в чужой писанине, ищешь то что тебе нужно, этот код вроде на делфи.
вообще я тебе выложил пример того, что нужные тебе программы (с открытым кодом) существуют и их можно найти. если тебя не устраивает язык, то поищи на том, который тебя устраивает.

Добавлено через 43 секунды
или ты думала там учебник будет?
PM MAIL ICQ   Вверх
Natapro
Дата 15.11.2009, 19:20 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
а что это за язык, вобще как смотреть тот исходный код, ты смотле ? что там ?


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 15.11.2009, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
Natapro, у меня такое чувство, что ты не обременяешь себя прочтением сообщений, которые тебе пишут. я ж написал:
Цитата

этот код на делфи.

я в делфи не шарю, да и разбираться мне не интересно, потому что у меня нету для этого цели. можешь поискать на понятном тебе языке, я думаю найдешь.
PM MAIL ICQ   Вверх
Natapro
Дата 15.11.2009, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
извини но про делфи я что-то не заметила что ты писал :( smile 


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 15.11.2009, 19:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
Цитата

Natapro, ты меня пугаешь...
берешь, открываешь и пытаешься разобраться в чужой писанине, ищешь то что тебе нужно, этот код вроде на делфи.
вообще я тебе выложил пример того, что нужные тебе программы (с открытым кодом) существуют и их можно найти. если тебя не устраивает язык, то поищи на том, который тебя устраивает.


Добавлено через 1 минуту и 41 секунду
к тому же там есть файл в котором указано на чем написано. там есть такая строка:
c:\program files\borland\delphi7\Projects\

и расширения файлов *.pas это тоже наводит на определенные мысли...
PM MAIL ICQ   Вверх
Natapro
  Дата 15.11.2009, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
ну я делфи незнаю ) мне єто просто красивае название файла хах ))) smile 


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 15.11.2009, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
а какой знаешь? и повторю в третий раз: можно найти код на понятном тебе языке. или можно воспользоваться софтом который переводит с одного языка на другой... я надеюсь что тебя в гугле не забанили?
PM MAIL ICQ   Вверх
Natapro
Дата 15.11.2009, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
 знаю ) никакой  хих ) чуть розбираюсь в визуал бейсике Ой как бы было чудесно найти на нём эту програмку.. прям очень чудесно smile
забанили представляешь ? сволочи ужас smile)))
та я искала ненашла :( вот только такие исходники находила :( а я в них не бум бум smile smile 


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Natapro
Дата 16.11.2009, 01:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
Вот в инете на форуме нашла вроди эту программку, ну там только исходный код выставили , кто поможет собрать его в програмку ? буду очень благодарна !
http://www.vbnet.ru/forum/show.aspx?id=197669
Код

Private Sub buttSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttSend.Click 
        Dim b As Bitmap = pict.Image.Clone 
        b = ResizeBitmap(b) 
        'pict.SizeMode = PictureBoxSizeMode.Normal 
        pict.Image = b 
        pict.Refresh() 
        If filepictext = "png" Then 
            pict.Image.Save(My.Application.Info.DirectoryPath + "\picture.png", Drawing.Imaging.ImageFormat.Png) 
        Else 
            pict.Image.Save(My.Application.Info.DirectoryPath + "\picture.jpg", Drawing.Imaging.ImageFormat.Jpeg) 
        End If 
If filepictext = "png" Then 
            SendPNG(id, My.Application.Info.DirectoryPath + "\picture.png") 
        Else 
            SendPNG(id, My.Application.Info.DirectoryPath + "\picture.jpg") 
        End If 
mainFrm.WebBrowser1.Navigate("http://vkontakte.ru/graffiti.php?act=last") 
End Sub 
Public Function ResizeBitmap(ByVal b As Bitmap) As Bitmap 
        If (b Is Nothing) Then Return Nothing 
        Dim scale As Single 
        Dim x As Single = 586 / b.Width '272'586 
        Dim y As Single = 293 / b.Height '136'293 
        If x < y Then scale = x Else scale = y 
        If x >= 1 And y >= 1 Then scale = 1 
        Dim result As Bitmap = New Bitmap(scale * b.Width, scale * b.Height, Imaging.PixelFormat.Format32bppRgb) 
        Using g As Graphics = Graphics.FromImage(result) 
            g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality 
            g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic 
            g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias 
            'Dim matr As New Drawing2D.Matrix() 
            'matr.Scale(scale, scale) 
            'g.Clear(Color.Transparent) 
            'g.Transform = matr 
            g.DrawImage(b, 0, 0, result.Width, result.Height) 
        End Using 
        Dim result2 As Bitmap = New Bitmap(586, 293) '(272, 136)'(586, 293) 
        Using g As Graphics = Graphics.FromImage(result2) 
            g.Clear(Color.White) 
            g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality 
            g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic 
            g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias 
            g.DrawImage(result, Convert.ToInt32(result2.Width / 2 - result.Width / 2), Convert.ToInt32(result2.Height / 2 - result.Height / 2)) 
        End Using 
        Return result2 
    End Function 
Private Function GetMD5Hash(ByVal input As String) As String 
        Dim x As New System.Security.Cryptography.MD5CryptoServiceProvider() 
        Dim bs() As Byte = System.Text.Encoding.UTF8.GetBytes(input) 
        bs = x.ComputeHash(bs) 
        Dim s As New System.Text.StringBuilder() 
        For Each b As Byte In bs 
            s.Append(b.ToString("x2").ToLower()) 
        Next 
        Dim password As String = s.ToString() 
        Return password 
    End Function 
    Private Function file_get_contents(ByVal fileName As String) As Byte() 'String 
        Dim sContents As Byte() 'String = String.Empty 
        'If (fileName.ToLower().IndexOf("http:") > -1) Then 'url 
        '    Dim wc As New System.Net.WebClient() 
        '    Dim response() As Byte = wc.DownloadData(fileName) 
        '    sContents = response 'System.Text.Encoding.ASCII.GetString(response) 
        'Else 
        Dim sr As New System.IO.StreamReader(fileName, System.Text.Encoding.GetEncoding(1251)) 
        sContents = System.Text.Encoding.GetEncoding(1251).GetBytes(sr.ReadToEnd) 'sr.ReadToEnd() 
        sr.Close() 
        'End If 
        Return sContents 
    End Function 
    Private Sub SendPNG(ByVal to_id As String, ByVal filename As String) 
        Dim sock As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp) 
        sock.Connect("vkontakte.ru", 80) 
        If sock.Connected Then 
            Dim head As String = "POST /graffiti.php?to_id=" + to_id + "&group_id=0 HTTP/1.1" + vbNewLine 
            head += "Host: vkontakte.ru" + vbNewLine 
            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 
            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 
            head += "Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3" + vbNewLine 
            head += "Accept-Encoding : gzip, deflate" + vbNewLine 
            head += "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" + vbNewLine 
            head += "Keep-Alive: 300" + vbNewLine 
            head += "Connection: keep-alive" + vbNewLine 
            head += "Cookie: " + mainFrm.cookie + vbNewLine 
            head += "Referer: http://vkontakte.ru/swf/Graffiti.swf?12" + vbNewLine 
            head += "Content-type: multipart/form-data; boundary=--OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST" + vbNewLine 
 
            Dim head2 As String = "----OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST" + vbNewLine 
            head2 += "Content-Disposition: form-data; name=""Signature""" + vbNewLine + vbNewLine 
            head2 += GetMD5Hash(Convert.ToBase64String(file_get_contents(filename)).Substring(0, 1024)) 
            head2 += vbNewLine 
            head2 += "----OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST" + vbNewLine 
            head2 += "Content-Disposition: form-data; name=""Filedata""; filename=""graffiti.png""" + vbNewLine 
            head2 += "Content-Type: image/png" + vbNewLine + vbNewLine 
            head2 += System.Text.Encoding.GetEncoding(1251).GetString(file_get_contents(filename)) 
            head2 += "----OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST" + vbNewLine 
            head2 += "Content-Disposition: form-data; name=""Upload""" + vbNewLine 
            head2 += vbNewLine 
            head2 += "Submit Query" + vbNewLine 
            head2 += "----OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST--" 
 
            head += "Content-length: " + head2.Length.ToString + vbNewLine 
            head += vbNewLine 
            head += head2 
 
            'Dim fw As New IO.StreamWriter(My.Application.Info.DirectoryPath + "\log.txt", False, System.Text.Encoding.GetEncoding(1251)) 
            'fw.Write(head) 
            'fw.Close() 
            'fw.Dispose() 
            sock.Send(System.Text.Encoding.GetEncoding(1251).GetBytes(head)) 
            Dim header(1024) As Byte 
            sock.Receive(header) 
            'Dim headerstr = System.Text.Encoding.GetEncoding(1251).GetString(header).Trim 
            'Dim fw As New IO.StreamWriter(My.Application.Info.DirectoryPath + "\receive.txt", False, System.Text.Encoding.GetEncoding(1251)) 
            'fw.Write(headerStr) 
            'fw.Close() 
            'fw.Dispose() 
        Else 
            MsgBox("Ошибка подключения к vkontakte.ru") 
        End If 
        sock.Close() 
    End Sub


Это сообщение отредактировал(а) Natapro - 16.11.2009, 01:08


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Экскалупатор
Дата 16.11.2009, 01:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 1
Всего: 24
классный коментарий там на сайте, в теме про эту прогу. я бы на твоем месте задумался, может люди правы...
Цитата

Снова повторяю, что нужно писать полезный софт. Рисовалок в этом сраном контакте уже пруд пруди...


Это сообщение отредактировал(а) Экскалупатор - 16.11.2009, 01:35
PM MAIL ICQ   Вверх
Natapro
Дата 16.11.2009, 01:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет
да но на бейсике что-то я не нашла ни пруда ни потичка даже...


--------------------
Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...
PM MAIL   Вверх
Страницы: (5) Все 1 2 [3] 4 5 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1054 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.