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

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

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

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

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

Если хотите создать красивый и приятный интерфейс для своей программы то эта статья для вас!

Вот один из примеров использования Aero в Win 7:

И так приступим. Ну конечно создадим новый проект и вставим туда вот этот код:

<StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public Destra As Integer
        Public Sinistra As Integer
        Public Su As Integer
        Public Giu As Integer
    End Structure

    Declare Auto Function DwmIsCompositionEnabled Lib "dwmapi.dll" Alias "DwmIsCompositionEnabled" (ByRef pfEnabled As Boolean) As Integer

    Declare Auto Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As IntPtr, ByRef pMargin As MARGINS) As Integer

    Dim pMargins As New MARGINS With {.Su = -1, .Sinistra = -1, .Destra = -1, .Giu = -1}

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim en As Boolean = False
        DwmIsCompositionEnabled(en)
        If en Then
            DwmExtendFrameIntoClientArea(Me.Handle, pMargins)
        End If
        Me.TransparencyKey = Color.FromKnownColor(KnownColor.ActiveCaption)
        Me.BackColor = Me.TransparencyKey
    End Sub

Ну вот собственно и всё, можно запускать!

Но что если вам нужно "заполнить" Aero не всю форму а допустим только её верхнею часть?

За это отвечает вот этот участок кода:

Dim pMargins As New MARGINS With {.Su = -1, .Sinistra = -1, .Destra = -1, .Giu = -1}

Мы видим что если всем параметрам присвоено -1, то форма вся становится прозрачной.

Каждый параметр отвечает за свой "отступ" от краев формы:

".Su" - с верху

".Sinistra" - с права

".Destra" - с лева

".Giu" - соответственно с низу

То есть если мы хотим вот так:

То пишем:

Dim pMargins As New MARGINS With {.Su = 25, .Sinistra = 1, .Destra = 1, .Giu = 1}

Ну я надеюсь что все всё поняли, но на всякий случай вот исходник.

Написал не большой пример плавного всплывающего окна.

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

Привет!

В этом уроке я вкратце расскажу вам как при помощи API эмитировать клик мыши.

Вот собственно сама функция:

Declare Function Мышь Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dX As Int32, ByVal dY As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32) As Boolean
    Const Нажать_Левую_Кнопку = &H2
    Const Отпустить_Левую_Кнопку = &H4
    Const Нажать_Правою_Кнопку = &H8
    Const Отпустить_Правою_Кнопку = &H10

Как пользоваться:

Мышь(Нажать_Левую_Кнопку, 0, 0, 3, 3)
Мышь(Отпустить_Левую_Кнопку, 0, 0, 3, 3)
'1 клик левой кнопкой мыши

Так же и с правой кнопкой:

Мышь(Нажать_Правою_Кнопку, 0, 0, 3, 3)
Мышь(Отпустить_Правою_Кнопку, 0, 0, 3, 3)
'1 клик правой кнопкой мыши

Ну вот и всё!

Вот пример использования: КликМышью

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

Вариант завершения работа с помощью командной строки:

System.Diagnostics.Process.Start("ShutDown", "/s") ' Выключение
System.Diagnostics.Process.Start("ShutDown", "/r") ' Перезагрузка
System.Diagnostics.Process.Start("ShutDown", "/l") ' Выход из пол-ля
System.Diagnostics.Process.Start("ShutDown", "/h") ' Спящий режим

Вариант с помощью инструмента управления Windiws и еще один вариант, с помощью готовый библиотеки.

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