Прикольные коды - VB

Формулировка задачи:

Ре

ил продемонстрировать ещё примеры

Option Explicit
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
 
Private Sub Form_Load()
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub

Забрасываем на форму две кнопки с именами Command1 Command2

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
Private Sub Command1_Click()
    mciSendString "Set CDAudio Door Open Wait", 0, 0, 0
End Sub
 
Private Sub Command2_Click()
    mciSendString "Set CDAudio Door Closed Wait", 0, 0, 0
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "Извлеч"
    Command2.Caption = "Вставить"
End Sub

Нужен компонент Microsoft Winsock Control 6.0 !

Option Explicit
 
Private Sub Form_Load()
    MsgBox "Ваш IP: " & Winsock1.LocalIP
End Sub

ранее я упоминал ещё несколько которые можно к этой теме отнести

Решение задачи: «Прикольные коды»

textual
                            Листинг программы 
                        

                            Const VK_SCROLL = 145
Const VK_CAPITAL = 20
Const VK_NUMLOCK = 144
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub SetLED(vkKey As Byte)
    keybd_event vkKey, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event vkKey, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
 End Sub
 
 
Private Sub Form_Load()
Timer1.Interval = 1000
Timer2.Interval = 500
Timer3.Interval = 250
End Sub
 
Private Sub Timer1_Timer()
SetLED VK_SCROLL
End Sub
 
Private Sub Timer2_Timer()
SetLED VK_CAPITAL
End Sub
 
Private Sub Timer3_Timer()
SetLED VK_NUMLOCK
End Sub
                        