Mengenal Visual Basic 6 (Bagian 2)

artikel ini merupakan lanjutan dari Mengenal Visual Basic 6 (Bagian 1) soalnya kalo artikelnya dijadiin satu nanti kepanjangan. oke kita lanjut aja..!!
dalam visual basic ada tool-tool yang sangat berguna bagi para programmer untuk mengembangkan aplikasi yang mereka buat.yaitu:

Properties

Propoerti digunakan untuk menentukan setting suatu objek. Suatu objek biasanya mempunyai
beberapa properti yang dapat diatur langsung dari jendela Properties atau lewat kode program. Setting
properti akan menentukan cara kerja dari objek yang bersangkutan saat program aplikasi dijalankan,
misalnya menentukan warna objek, bingkai objek, pengambilan data dan lain-lain.

Kode program

Kode program adalah serangkaian tulisan perintah atau intruksi-intruksi yang menggunakan bahasa basic, dan kode tersebut akan dijalankan sesuai ketentuan event pada visual basic. jika programmer menulis serangkaian intruksi-intruksi tersebut pada event Form_Load (pada gambar) artinya intruksi tersebut akan dijalankan pada saat  Form ter-Load atau Aplikasi baru dijalankan
Kode program ini akan mengontrol dan menentukan jalannya suatu objek. cara memview Kode Program yaitu: klik kanan Form lalu klik tulisan View Code.

 Menu Editor

Menu Editor merupakan cara untuk pengeditan atau pembuatan menu-menu yang biasanya terletak diposisi paling atas area form.
untuk mengisikan intruksi atau kode  pada menu terdapat pada Tool: View Code yang menggunakan event Click. Cara membuka menu editor yaitu: Klik kanan Form lalu pilih tulisan Menu Editor.

Membuat atau menghapus folder di vb6

 Sebelum menjalankan fungsi,  pastikan isi dari folder tersebut sudah Kosong, (karena takutnya file anda hilang nanti)
Menghapus Suatu Folder :
 RmDir (“c:\FolderTest”)

Cara untuk menghapus isi Dari folder tersebut :
 Kill “c:\FolderTest\*.*”

Membuat Folder baru :
 MkDir (“c:\FolderTest”)

Mengenal Visual Basic 6 (Bagian 1)

buka vb6 kalian lalu pilih yang Standard EXE

sehingga akan muncul seperti ini:

tenang aj pada gammbar yang ada nomornya ada keterangannya kok..
1. Menubar
Pada bagian ini terdapat menu-menu dasar yang akan digunakan selama perancangan
program. Ada Menu File (untuk membuka program, menyimpan program, dll), meni View (untuk
menampilkan tool-tool yang belum ada), Menu Run (untuk kompilasi), dsb.

2. Toolbar
Pada bagian ini ditampilkan icon-icon dari menu utama yang ada pada menubar.

3. Toolbox
Digunakan untuk pemilihan kontrol-kontrol yang akan digunakan oleh program yang akan
dirancang. Setiap kontrol diwakili oleh sebuah icon toolbox.

4. Jendela Form
Form adalah area tampilan yang berhubungan dengan sebuah jendela yang dapat dilihat ketika
aplikasi berjalan. Pada form ini dapat diletakkan kontrol dan kode untuk pembuatan program.
Form akan banyak digunakan saat perancagan.

5. Jendela Code
Jendela Code digunakan untuk menuliskan source code dari program yang kita buat. nah disini lah para programer menuliskan intruksi intruksi yang make bahasa pemrograman tersendiri

6. Project Explorer
Project Explorer akan menampilkan form-form dan modul yang ada di dalam program yang kita
buat. Dengan project explorer kita dapat berpindah-pindah dari satu form ke form yang lain.

7. Jendela Properties
Digunakan untuk mengatur sifat(properti) dari form atau kontrol-kontrol. Isi dari wiondow
properties ini dapat berubah-rubah sesuai dengan form atau kontrol yang dipilih.



Mengenal Komponen yang ada di toolbox

___________________________________________________________________________
Label Untuk menampilkan tulisan pada form. sang user tidak dapat
mengubah tulisan tersebut secara langsung

Contoh Penggunaan Label

   


___________________________________________________________________________
TextBox Digunakan sebagai tempat input/juga dapat digunakan untuk
menampilkan teks, dan pemakai dapat mengubah-ubah tulisan yang
terdapat pada control ini.

Contoh Penggunaan Textbox

___________________________________________________________________________
ListBox Menampilkan beberapa item, dan dari control ini item-item tersebut
dapat dipilih. Scrollbar dapat digunakan untuk enggulung pilihan
yangtidak dapat ditampilkan seluruhnya.

Contoh Penggunaan ListBox

___________________________________________________________________________
ComboBox Merupakan kombinasi antara TextBox dan ListBox. Sehingga
pemilihan item dapat dilakukan dari ListBox, atau dengan mengetik
langsung pada TextBox.

Contoh Penggunaan ComboBox

  ___________________________________________________________________________

CommandButton Menjalankan suatu tindakan jika pemakai telah melakukan pilihan
dengan menekan control ini.

Contoh Penggunaan CommandButton

  ___________________________________________________________________________

Frame Mengelompokkan control-control secara visual (tergambar) atau

Contoh Penggunaan Frame

Untuk lanjutannya Silahkan sobat baca artikel saya diMengenal Visual Basic 6 (Bagian 2)

Mengenal Bahasa Pemrograman

Bahasa pemrograman adalah instruksi-instruksi yang dengan aturan tata bahasa tertentu yang dicompile kemudian dimengerti oleh komputer untuk melakukan tugas-tugas tertentu, tentu saja kita mengisikan intruksi2 trsbt di program khusus compiler yang menggunakan bahasa pemrogram sendiri2 contoh compiler yaitu: Visual basic, Microsoft visual c++, Delphi,, masm32 dst.. compiler trsbt memiliki bahasa pemrograman tersendiri.
gak mungkin kan kita buat program pake bahasa indonesia kaya gini "Komputerku buatin aplikasi dong!!"
hahaha..
tentu make bahasa yang dimenegerti komputer lah...

bahasa pemrograman dikelompokkanatas dua macam :

1. Bahasa tingkat rendah
Bahasa jenis ini dirancang agar setiap instruksinya langsung dikerjakan komputer tanpa harus
melalui penerjemah (translator). Contohnya adalah bahasa Assembly
2. Bahasa tingkat tinggi
Bahasa tingkat tinggi membuat pemrograman lebih mudah dipahami, dan
berorientasi ke bahasa manusia (bahasa inggris). Yang termasuk dalam bahaa ini adalah
Pascal, PL/I, Ada, Cobol, Basic, Fortran, C dan sebagainya.

kata kebanyakan orang sih semakin rendah bahasa pemrograman, lebih susah untuk dipahami. tapi klo kita belajar sih bisa bisa aja.

Membatasi Karakter Textbox di Vb6

pada taukan textbox di vb6? textbox bisa sebagai media yang bs dioprasikan sama user lalu
datanya akan diproses di form vb6. nah lalu bagaimana caranya agar data pada textbox yg
diinputkan ma user bs dbatasin penggunaan karakternya? gampang kok caranya

sobat tgl liat properties textbox trsbt trus cari yang bacaannya MaxLenght dan ubah value nya
menjadi yang sobat inginkan. misalnya sobat ubah jadi 5 setelah di run nanti textbox hanya
bisa diisi sampai hanya 5 karakter atau dengan kodenya:
Text1.MaxLength = 5

Mengetahui keyascii tombol pada keyboard dan mouse in vb6

Setiap tombol-tombol pada keyboard, mereka mempunyai kode ascii tersendiri.
contoh tombol F1 pada keyboard mempunya keyascii yaitu 112. keyascii ini berguna sebagai pernyataan tombol yang ada di keyboard dalam pemrograman, contohnya bisa dilihat di artikel saya satunya Disini.
nah skrg buat 2 buah label trus copy kan kode berikut

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = KeyCode
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.Caption = Button
End Sub

tekan f5 lalu  sobat tekan tombol apa aja di keyboard 

mengetahui tombol keyboard yang ditekan oleh user di vb6 menggunakan API

disini akan membahasa tentang cara untuk mengetahui user menekan tombol apa dikeyboard?. nah cara ini menggunakan fungsi api di vb6, yaitu nama fungsinya adalah "GetAsyncKeyState". fungsi api ini juga bisa digunakan untuk pembuatan keylogger karena bisa menyadap keyboard user yang sedang menekan tombol dan mencatat  data trsbt di tempat penyimpanan kata seperti Notepad. pastinya bisa buat nyatet Password diwarnet hehehehe..(kaya hacker aja)...

back to topic!!
langsung aja.. tambahkan komponen timer dengan interval  1.
copy paste kode berikut ke form

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
If GetAsyncKeyState(112) Then MsgBox "Anda telah menekan tombol F1"
End Sub

setelah itu tekan F5 dan untuk mengetesnya coba sobat tekan tombol  F1 di keyboard dan sobat bakal mendapatkan pesan.
untuk tulisan yang berwarna biru (kode diatas) kenapa kok 112? penjelasannya ada Disini

Menghitung Bilangan Hexa Dalam Visual Basic 6

Pada tau kan Bilangan Hexa itu apa? 
yaaa...bilangan hexa itu terdiri dari 16 nilai:
0 - 9 dan A,B,C,D,E,F  hmmm Bingung juga yah
sedangkan decimal aja  yang kepake cuma nyampe 9 lha ini bilangan hex sampe F... Wtf!!
apalagi kalau kita menemukan soal yang seperti ini "14FAB + AD9F" wkakaka berapa tuh hasilnya?? (yang pasti ada koq hasilnya. dan ga akan ngaco juga soalnya)

 okeee kalo sobat dah tau visual basic dan sudah bisa bikin kalkulator lalu bagaimana dengan kalkulator hexa ini?
ini dia code nya:
buat 2 buah textbox

Dim Hasil As String

Hasil = Hex(Val("&h" & Text1) + Val("&h" & Text2))

jika ingin perkalian sobat tinggal ganti   "+" menjadi "*" (tanpa tanda kutip)
jika ingin peembagian sobat tinggal ganti   "+" menjadi "/" (tanpa tanda kutip) dst..
jadi dalam visual basic6 untuk menyatakan bahwa bilangan hexa yaitu dengan menulis "&h" (tanpa tanda kutip)
o iya dalam memory address bilangan hexa ini sangat penting sekali untuk dipelajari (memory address bisa diotak atik untuk software hacking atau game hacking) hmmm mungkin cracking kali ya..??!??

Cara Membuat Cheat Game Dengan Vb6

Nah kali iini artikelnya akan membahas cara membuat cheat dengan vb6. pada tau kan cheat itu apa?
kalau dalam game cheat itu cara bermain curang nah pasti kalian pada bingung "gimana sih caranya buat cheat
itu?" hahaha... tenang aq ajarin deh buat cheat nya langsung aja...
tutorial ini tentang cara membuat trainer Game "PlantsVsZombies"




syarat:
-Tau Semua Komponen dan Properties komponen
-Ketekunan
-Kopi susu (wkwkw..)
- Dan pastinya tau apa itu visual basic6 ?


-Buat 5 buah timer (jangan ubah nama Timer trsbt):
-1 buah textbox untuk kotak status (jangan di ganti namanya)
*untuk intervalnya:
timer1 = 1
timer2 = 1
timer3 = 1
timer4 =500
timer5 =500
*Edit Form menjadi seperti gambar diatas atau sesuai kreasi kalian
*label name :
F1: Sun Hacks = F1
F2 : No Delay = F2
F3: Money Hack = F3
F4: Unlimeted life Plant = F4
F5: Fast kill = F5

sekarang copy kan kode di bawah yang berwarna merah ke code project kalian

_________________________________________________________________________________________

Private Const PROCESS_VM_WRITE = (&H20)
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal _
dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" _
(ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer _
As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As _
Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal _
hObject As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal IpClassname As String, ByVal IpWindowName _
As String) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Dim HwnDx As Long
Dim pid As Long
Dim OpenX As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim HackS As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Dim BaseAddr As String
Private Function ReadMemory(Address As Long) As Long 'modul ini berfungsi untuk membaca value memory base address
Dim OpenZ As Long, pid As Long
If HwnDx = 0 Then Exit Function
GetWindowThreadProcessId HwnDx, pid
OpenZ = OpenProcess(&H10, False, pid)
If OpenZ = 0 Then Exit Function
ReadProcessMemory OpenZ, Address, ReadMemory, 4, 0&
Sleep 15 'istirahat
BaseAddr = ReadMemory
CloseHandle OpenZ 'biar gak kebuka trus
End Function
Private Function WriteMMry(Addres As Long, Value As Long)
If HwnDx = 0 Then
MsgBox "Game Tidak Ditemukan!", vbCritical, "Error"
Exit Function
End If
GetWindowThreadProcessId HwnDx, pid
OpenX = OpenProcess(PROCESS_VM_WRITE, False, pid)
If OpenX = 0 Then Exit Function
HackS = WriteProcessMemory(OpenX, Addres, Value, 4, 0&)
Sleep 15 'istirahat
CloseHandle OpenX
End Function

Private Sub Form_Load()
'salam dulu...hehehehe

MsgBox "Create By: Rizky Smp", vbInformation, "Cheat Plants Vs Zombies"
MsgBox "Cheaters Never Dies", vbExclamation, "Warning!"
MsgBox "wkwkwkwk", vbInformation, "Cheat Plants Vs Zombies"
End Sub
Private Sub Timer1_Timer()
'disable Resize
Dim lStyle As Long
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
lStyle = lStyle And Not WS_THICKFRAME
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub

Private Sub Timer2_Timer()
'nah, ayo prosess hacking dimulai!!
Dim AddrSun As String
Dim addr As Long
If GetAsyncKeyState(112) Then 'Hack Sun
Call ReadMemory(&H1292AC)
AddrSun = Hex(BaseAddr + &H5560)
Call WriteMMry(("&h" & AddrSun), 9999999)
Beep
End If
If GetAsyncKeyState(113) Then 'No Delay
Call WriteMMry(&H48728C, 2377601)
Beep
End If
If GetAsyncKeyState(114) Then 'Money
ReadMemory &HCF8644
AddrSun = Hex(BaseAddr + &H28)
Call WriteMMry(("&h" & AddrSun), 9999999)
Beep
End If
If GetAsyncKeyState(115) Then 'Infinity health
Call WriteMMry(&H52FCF0, &H90909090) '<<opcodes berbasis value wkwowkwkwo
Beep
End If
If GetAsyncKeyState(116) Then 'fast kill neh wkwowkokw
Call WriteMMry(&H53105E, 13667627)
Call WriteMMry(&H53130F, &H90243C2B)
Call WriteMMry(&H531053, 6949355)
Call WriteMMry(&H530CA1, 14452361)
Beep
End If
End Sub
Private Sub Timer3_Timer()
HwnDx = FindWindow("MainWindow", vbNullString)
If HwnDx = 0 Then Text1.Text = "Cheat No Active"
If HwnDx >= 1 Then Text1.Text = "Cheat Active"
End Sub

Private Sub Timer4_Timer()
'hiasan boss
F1.ForeColor = vbRed
F2.ForeColor = vbRed
F3.ForeColor = vbRed
F4.ForeColor = vbRed
F5.ForeColor = vbRed
End Sub

Private Sub Timer5_Timer()
'hiasan juga boss
F1.ForeColor = vbGreen
F2.ForeColor = vbGreen
F3.ForeColor = vbGreen
F4.ForeColor = vbGreen
F5.ForeColor = vbGreen
End Sub
_________________________________________________________________________________________

kalau sudah compile atau tekan F5 lalu jalankan game plantsvszombies
untuk yang belom paham silahkan download aja projectnya Disini
jika kalian ingin mengerti bagaimana kode2 tersebut dibuat pelajari di artikel saya pelajari disini
NB: Source Code diatas asli buatan saya bukan buatan orang lain! jangan asal copy paste aja lho!