VB.NET|Вконтакте I
Очередной пример работы с социальной сетью - Вконтакте
Что может :
- Авторизовываться
- Добавлять новые записи на свою стену
Автор :
Некоторые изменения были сделаны мною.
Очередной пример работы с социальной сетью - Вконтакте
Что может :
Автор :
Некоторые изменения были сделаны мною.
Представляю сырую версию новой задумки.
FastStart - всплывающая панелька, которая будет хранит в себе самые нужные программы.
Выезжает из левого угла рабочего стола.
Функций пока не слишком много :
За исходником в комментарии.
Многим наверно не нравиться стандартный контрол WebBrowser на базе IE, потому что выскакивают разные ошибки при загрузке веб страницы и не слишком быстро загружаются страницы, как хотелось бы.
Сегодня мы напишем браузер используя контрол WebKitBrowser.
Теперь создайте новый проект, сохраните его на компьютере.
Извлеките архив.
Содержание архива :
Получаем цвет пикселя и применяем его.
Код написать для события MouseClick у PictureBox.
Dim bmp As Bitmap = New Bitmap(PictureBox1.Image) ' Создаем новый рисунок Label1.ForeColor = Color.FromArgb(bmp.GetPixel(e.X, e.Y).ToArgb) ' Получаем цвет точки пикселя в этом рисунке Label1.Text = "Цвет - " & Label1.ForeColor.ToString ' Выводи цвет в формате ARGB
Запустите проект, кликните мышкой на нужную область в PictureBox
Не давно увидел статью на C#, где писали ICQ клиент.
Решил переписать под VB.NET
Работа осуществляется с помощью библиотеки vbicq4.dll
Опять же даю просто исходник, пояснять там нечего, что нужно было пояснил в самом коде, а если что-то не получается или есть какие-то ошибки, то пишите в комментарии.
По снимку, думаю все ясно.
Простой пример программы, которая через элемент WebBrowser будет авторизовываться на сайте mail.ru и будет получать количество входящих сообщений.
Узнаем какой браузер выбран по умолчанию.
Dim regshell As Object Dim DefaultBrowser As String regshell = CreateObject("Wscript.Shell") DefaultBrowser = regshell.regread("HKEY_CLASSES_ROOT\HTTP\shell\open\command\") DefaultBrowser = LSet(DefaultBrowser, InStr(1, DefaultBrowser, ".exe", vbTextCompare) + 4) DefaultBrowser = Replace(DefaultBrowser, Chr(34), vbNullString) MsgBox(IO.Path.GetFileName(DefaultBrowser), , "Браузер по умолчанию")
Сырой пример, как воспроизвести видео файлы в PictureBox.
Чтобы видео файлы воспроизводились нормально, нужно установить кодек XVid , он будет прилагаться в месте с проектом.
Чтобы добавить новый функционал - юзайте функции winmm.dll
В проекте есть одна ошибка. Вычисляет продолжительность видео не верно.