keyboard.bas

VB病毒“我爱你”病毒源代码,很好的病毒源代码

Attribute VB_Name = "Keyboard"
Declare Function GetCaretBlinkTime Lib "user32" () As Long
Public Const SPI_GETKEYBOARDSPEED = 10
Public Const SPI_GETKEYBOARDDELAY = 22
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long