сидиром,клава и прочая прелесть

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

785412
Обычный пользователь
Обычный пользователь
 
Сообщения: 79
Зарегистрирован: 12.06.2009 (Пт) 19:25

сидиром,клава и прочая прелесть

Сообщение 785412 » 02.09.2009 (Ср) 14:53

Кто знает как открыть\закрыть задвижку дисковода? Как зажечь\потушить лампочки на клаве(вариант со спичками и кружкой воды не предлогать :D ) И вообще что можно еще делать с примбабасами на компе? (может, монитор вырубить, или врубить и пр.) vbnet///Заранее благодарен. :D

Williams
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1280
Зарегистрирован: 06.05.2008 (Вт) 18:35
Откуда: System.Reflection.Williams (увидел себя в зеркале :))

Re: сидиром,клава и прочая прелесть

Сообщение Williams » 02.09.2009 (Ср) 15:56

И вы думаете, что вас оставят в живых после прочтения этого поста?

percilacus
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 12.07.2009 (Вс) 18:13

Re: сидиром,клава и прочая прелесть

Сообщение percilacus » 03.09.2009 (Чт) 20:29

Можешь использовать для этого методы WinApi. Они объявляются с помощью Declare
И вообще с помощью WinApi можно делать такое, что офигеишь!

Williams
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1280
Зарегистрирован: 06.05.2008 (Вт) 18:35
Откуда: System.Reflection.Williams (увидел себя в зеркале :))

Re: сидиром,клава и прочая прелесть

Сообщение Williams » 04.09.2009 (Пт) 1:10

percilacus писал(а):Можешь использовать для этого методы WinApi. Они объявляются с помощью Declare


Не надо советовать то, что уже давно не в теме. Declare оставлен для совместимости. P/Invoke, аттрибут DllImport
И вы думаете, что вас оставят в живых после прочтения этого поста?

percilacus
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 12.07.2009 (Вс) 18:13

Re: сидиром,клава и прочая прелесть

Сообщение percilacus » 04.09.2009 (Пт) 19:14

Может у человека 2005 :twisted: :drunken:
перцилакус такой маленький а уже знает что такое хорошо а что такое плохо

MIT
Мега гуру
Мега гуру
Аватара пользователя
 
Сообщения: 2211
Зарегистрирован: 17.09.2006 (Вс) 22:46

Re: сидиром,клава и прочая прелесть

Сообщение MIT » 04.09.2009 (Пт) 20:29

Скажу тебе по секрету, что даже FW 1.1 поддерживает DllImport.
Изображение
You can change your face, but can`t change your mind. No matter what you do.
Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера. (с) Баш

773FF
Обычный пользователь
Обычный пользователь
 
Сообщения: 86
Зарегистрирован: 07.02.2008 (Чт) 10:51

Re: сидиром,клава и прочая прелесть

Сообщение 773FF » 06.09.2009 (Вс) 14:35

Я использую для включения светодиодов на клавиатуре класс ToggleKeyControl:
Код: Выделить всё
Public Class ToggleKeyControl

    Public Const VK_NUMLOCK As Short = &H90S
    Public Const VK_SCROLL As Short = &H91S
    Public Const VK_CAPITAL As Short = &H14S
    Public Const KEYEVENTF_EXTENDEDKEY As Short = &H1S
    Public Const KEYEVENTF_KEYUP As Short = &H2S
    Public Const VER_PLATFORM_WIN32_NT As Short = 2
    Public Const VER_PLATFORM_WIN32_WINDOWS As Short = 1


    Private Structure OSVERSIONINFO
        Dim dwOSVersionInfoSize As Integer
        Dim dwMajorVersion As Integer
        Dim dwMinorVersion As Integer
        Dim dwBuildNumber As Integer
        Dim dwPlatformId As Integer
        <VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> Public szCSDVersion As String '  Maintenance string for PSS usage
    End Structure

    Public Enum KeyToggleStatus As Integer
        StatusOn = 0
        StatusOff
    End Enum
    Public Enum ToggleKey As Integer
        CapsLock = 0
        NumLock
        ScrollLock
    End Enum

    ' API declarations:

    'UPGRADE_WARNING: Structure OSVERSIONINFO may require marshalling attributes to be passed as an argument in this Declare statement. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1050"'
    Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Integer
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Private Declare Function GetKeyboardState Lib "user32" (ByRef pbKeyState As Byte) As Integer
    Private Declare Function SetKeyboardState Lib "user32" (ByRef lppbKeyState As Byte) As Integer

    Public Shared Sub SetLock(ByVal targetKey As ToggleKey, ByVal status As KeyToggleStatus)
        Dim o As OSVERSIONINFO
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx(o)
        Dim keys(255) As Byte
        Dim index As Short
        GetKeyboardState(keys(0))
        If GetLockStatus(targetKey) = status Then
            'Nothing to do as the required status is already set
        Else
            Select Case targetKey
                Case ToggleKey.CapsLock : index = VK_CAPITAL
                Case ToggleKey.NumLock : index = VK_NUMLOCK
                Case ToggleKey.ScrollLock : index = VK_SCROLL
            End Select
            If status = KeyToggleStatus.StatusOn Then
                If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then '=== Win95/98
                    keys(index) = 1
                    SetKeyboardState(keys(0))
                ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then  '=== WinNT
                    'Simulate Key Press
                    keybd_event(index, &H45S, KEYEVENTF_EXTENDEDKEY Or 0, 0)
                    'Simulate Key Release
                    keybd_event(index, &H45S, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
                End If
            Else
                If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then '=== Win95/98
                    keys(index) = 0
                    SetKeyboardState(keys(0))
                ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then  '=== WinNT
                    'Simulate Key Press
                    keybd_event(index, &H45S, KEYEVENTF_EXTENDEDKEY Or 0, 0)
                    'Simulate Key Release
                    keybd_event(index, &H45S, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
                End If
            End If
        End If
    End Sub

    Public Shared Function GetLockStatus(ByVal targetKey As ToggleKey) As KeyToggleStatus
        Dim LockState As Boolean = False
        Dim keys(255) As Byte
        GetKeyboardState(keys(0))
        Select Case targetKey
            Case ToggleKey.CapsLock : LockState = keys(VK_CAPITAL)
            Case ToggleKey.NumLock : LockState = keys(VK_NUMLOCK)
            Case ToggleKey.ScrollLock : LockState = keys(VK_SCROLL)
        End Select
        Return ToKeyToggleStatus(LockState)
    End Function

    Public Shared Function ToKeyToggleStatus(ByVal value As Boolean) As KeyToggleStatus
        If value Then
            Return KeyToggleStatus.StatusOn
        Else
            Return KeyToggleStatus.StatusOff
        End If
    End Function

End Class


Пример использования:
Код: Выделить всё
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ToggleKeyControl.GetLockStatus(ToggleKeyControl.ToggleKey.ScrollLock) = ToggleKeyControl.KeyToggleStatus.StatusOff Then
            ToggleKeyControl.SetLock(ToggleKeyControl.ToggleKey.ScrollLock, ToggleKeyControl.KeyToggleStatus.StatusOn)
        Else
            ToggleKeyControl.SetLock(ToggleKeyControl.ToggleKey.ScrollLock, ToggleKeyControl.KeyToggleStatus.StatusOff)
        End If
    End Sub


Всё бы хорошо, да и по сути - это те же API, что и в http://www.pinvoke.net/default.aspx/user32/SetKeyboardState.html. В Windows Vista и Windows 7 класс работает - "Scroll" мигает, но только пока окно приложения не потеряло фокус. А окно "сворачивается" в трей (обл. сист. уведомл.) и тогда никак не может влиять на светодиоды клавиатуры. Как бы это исправить?


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 67

    TopList