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

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

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

Смена картинок через определенный промежуток времени.

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

Точнее по прямой ссылке на файл.

Dim Кб As Double
Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(TextBox1.Text) ' Обращаемся к нашей ссылке
request.Method = "GET" ' Методом GET
Dim responce As Net.HttpWebResponse = request.GetResponse() ' Получаем ответ
Кб = Val(responce.ContentLength.ToString) / 1024 ' Размер в Кб.
Кб = Math.Round(Кб, 1)
MsgBox("Размер файла - " & Кб & " кб")

Такой вариант не требует прав администратора.

' Добавляем в автозагрузку
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Start As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) ' Возращаем заданый раздел с доступом к нему
Dim Имя_программы As String = IO.Path.GetFileName(Application.ExecutablePath) ' Имя нашей программы с расширением
Start.SetValue(Имя_программы, Application.ExecutablePath) ' Добавляем новое значение
End Sub
' Убираем из автозагрузки
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Start As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) ' Возращаем заданый раздел с доступом к нему
Dim Имя_программы As String = IO.Path.GetFileName(Application.ExecutablePath) ' Имя нашей программы с расширением
Start.DeleteValue(Имя_программы) ' Удаляем наше ранее созданое значение
End Sub

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

Что может :

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

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

Автор : inv.DS

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

Многим наверно не нравиться стандартный контрол 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

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

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