ИнтеллигенцияX

Очередной пример работы с социальной сетью - Вконтакте

Что может :

• Авторизовываться
• Добавлять новые записи на свою стену

Загрузить проект

Автор : inv.DS

Некоторые изменения были сделаны мною.

Представляю сырую версию новой задумки.

FastStart - всплывающая панелька, которая будет хранит в себе самые нужные программы.

Выезжает из левого угла рабочего стола.

Функций пока не слишком много :

• Горячие клавиши для трех программ
• Настройка прозрачности
• Добавление в автозагрузку
• Изменение положения панели
• Имеет три вкладки, вмещается всего 9 программ

Загрузить программу

За исходником в комментарии.

Многим наверно не нравиться стандартный контрол WebBrowser на базе IE, потому что выскакивают разные ошибки при загрузке веб страницы и не слишком быстро загружаются страницы, как хотелось бы.

Сегодня мы напишем браузер используя контрол WebKitBrowser.

Скачать WebKit.NET(13.3 мб)

Tutorial WebKit.NET

Теперь создайте новый проект, сохраните его на компьютере.

Извлеките архив.

Содержание архива :

Подробнее »

Получаем цвет пикселя и применяем его.

Код написать для события 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

Опять же даю просто исходник, пояснять там нечего, что нужно было пояснил в самом коде, а если что-то не получается или есть какие-то ошибки, то пишите в комментарии.

Загрузить проект

По снимку, думаю все ясно.

UPD: Сетевые подключения II

Загрузить проект

Простой пример программы, которая через элемент 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

В проекте есть одна ошибка. Вычисляет продолжительность видео не верно.

Загрузить проект