membuat browser sederhana dengan vb6

Nah tutorial kali ini membahas tentang visual basic ato VB, gw mo ngasih tutorial buat pemula aja coz kalo yang udah mahir mah gak perlu lagi yang kek gini. hehehe

Disini kita bakalan bikin web browser sederhana pake program VB, biarpun sederhana tapi buatan sendiri kan.,, OK tanpa panjang lebar lagi langsung aja kita mulai tutorialnya…

langkah pertama

Kamu buka program VBnya, Terus pilih project standard exe.

Tekan tombol CTRL + T pada keyboard, pada kotak dialog yang muncul cari komponen Microsoft Internet Controls , dan beri ceklist. Kemudian klik OK.

Langkah Kedua

Buat 4 Command Button dan beri nama command button tersebut dengan.

cmdBack

cmdForward

cmdStop

cmdHome

.

Buat 1 label control dan beri nama dengan : lbCaption

1 combobox control dan beri nama dengan : cboURL

masukan komponen webbrowser control pada form dengan cara double klik pada icon webbrowser control, dan beri nama dengan: wWeb

.

Atur posisi dari masing2 komponen sesuai keinginan kamu.

Langkah tiga

Masukan kode dibawah ini pada tombol cmdBack. Dengan cara double klik pada tombol tersebut.
wweb.GoBack

Masukan kode dibawah ini pada tombol cmdForward. Dengan cara double klik pada tombol tersebut.
wWeb.GoForward

Masukan kode dibawah ini pada tombol cmdStop. Dengan cara double klik pada tombol tersebut.
wWeb.Stop

Masukan kode dibawah ini pada tombol cmdHome. Dengan cara double klik pada tombol tersebut.
wWeb.GoHome

Masukan kode dibawah ini pada Combo Box. Dengan cara double klik pada Combo Box tersebut.
If KeyCode = vbKeyReturn Then
wWeb.Navigate cboURL.Text
End If

Langkah Keempat

mulai menjalankan program browser kita.

Cara Membuat Kakulator Sederhana

-Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
-masing-masing objek disesuaikan dengan gambar diatas.
-Textbox 1:
-(Name) : txtDisplay
-Alignment: 1-Right Justify
-Text : (kosongkan)
-Maxlength : 12
-Command Button 1:
-(Name) : cmdAngka
-Index : 1
-Caption : 1
-Command Button 2:
-(Name) : cmdAngka
-Index : 2
-Caption : 2
-Command Button 3:
-(Name) : cmdAngka
-Index : 3
-Caption : 3
-Command Button 4:
-(Name) : cmdAngka
-Index : 4
-Caption : 4
-Command Button 5:
-(Name) : cmdAngka
-Index : 5
-Caption : 5
-Command Button 6:
-(Name) : cmdAngka
-Index : 6
-Caption : 6
-Command Button 7:
-(Name) : cmdAngka
-Index : 7
-Caption : 7
-Command Button 8:
-(Name) : cmdAngka
-Index : 8
-Caption : 8
-Command Button 9:
-(Name) : cmdAngka
-Index : 9
-Caption : 9
-Command Button 10:
-(Name) : cmdAngka
-Index : 0
-Caption : 0
-Command Button 11:
-(Name) : cmdPlusMinus
-Caption : +/-
-Command Button 12:
-(Name) : cmdKoma
-Caption : .
-Command Button 13:
-(Name) : cmdOperator
-Index : 1
-Caption : +
-Command Button 14:
-(Name) : cmdOperator
-Index : 2
-Caption : –
-Command Button 15:
-(Name) : cmdOperator
-Index : 3
-Caption : x
-Command Button 16:
-(Name) : cmdOperator
-Index : 4
-Caption : /
-Command Button 17:
-(Name) : cmdClearEntry
-Caption : CE
-Command Button 18:
-(Name) : cmdClear
-Caption : C
-Command Button 19:
-(Name) : cmdSamaDengan
-Caption : =
-Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
-setting properties seperti diatas, maka codingnya saya contohkan seperti ini:
-Option Explicit
-Private Hasil As Double
-Private Const opNol = 0
-Private Const opTambah = 1
-Private Const opKurang = 2
-Private Const opKali = 3
-Private Const opBagi = 4
-Private Operator As Integer
-Private NilaiBaru As Boolean
-‘ untuk menghapus karakter terakhir
-Private Sub Hapus()
-Dim txt As String
-Dim min_len As Integer
-txt = txtDisplay.Text
-If Left$(txt, 1) = “-” Then
-min_len = 2
-Else
-min_len = 1
-End If
-If Len(txt) > min_len Then
-txtDisplay.Text = Left$(txt, Len(txt) – 1)
-Else
-txtDisplay.Text = “0”
-End If
-End Sub
-‘ hapus angka, hasil terakhir dan operator
-Private Sub cmdClear_Click()
-cmdClearEntry_Click
-Hasil = 0
-Operator = opNol
-End Sub
-‘ hapus angka
-Private Sub cmdClearEntry_Click()
-txtDisplay.Text = “”
-End Sub
-‘ menambahkan koma (desimal)
-Private Sub cmdKoma_Click()
-If InStr(txtDisplay.Text, “.”) Then
-Beep
-Else
-If NilaiBaru Then
-txtDisplay.Text = “.”
-NilaiBaru = False
-Else
-txtDisplay.Text = txtDisplay.Text & “.”
-End If
-End If
-End Sub
-‘ Menghitung
-Private Sub cmdSamaDengan_Click()
-Dim HasilBaru As Double
-If txtDisplay.Text = “” Then
-HasilBaru = 0
-Else
-HasilBaru = CDbl(txtDisplay.Text)
-End If
-Select Case Operator
-Case opNol
-Hasil = HasilBaru
-Case opTambah
-Hasil = Hasil + HasilBaru
-Case opKurang
-Hasil = Hasil – HasilBaru
-Case opKali
-Hasil = Hasil * HasilBaru
-Case opBagi
-‘Tidak bisa dibagi nol
-If HasilBaru = 0 Then
-MsgBox “Tidak bisa dibagi 0”, vbOKOnly + vbCritical, “Kalku ERROR”
-Call cmdClear_Click
-Else
-Hasil = Hasil / HasilBaru
-End If
-End Select
-Operator = opNol
-NilaiBaru = True
-txtDisplay.Text = Format$(Hasil)
-End Sub
-‘ menuliskan angka
-Private Sub cmdAngka_Click(Index As Integer)
-If NilaiBaru Then
-txtDisplay.Text = Format$(Index)
-NilaiBaru = False
-Else
-txtDisplay.Text = _
-txtDisplay.Text & Format$(Index)
-End If
-End Sub
-‘ tombol tambah/kurang/bagi/kali
-Private Sub cmdOperator_Click(Index As Integer)
-cmdSamaDengan_Click
-Operator = Index
-NilaiBaru = True
-End Sub
-‘ merubah tanda +/-
-Private Sub cmdPlusMinus_Click()
-If NilaiBaru Then
-txtDisplay.Text = “-”
-ElseIf Left$(txtDisplay.Text, 1) = “-” Then
-txtDisplay.Text = Right$(txtDisplay.Text, 2)
-Else
-txtDisplay.Text = “-” & txtDisplay.Text
-End If
-End Sub
-‘ filter untuk angka saja yg dapat diketikkan
-Private Sub Form_KeyPress(KeyAscii As Integer)
-txtDisplay_KeyPress KeyAscii
-End Sub
-Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
-txtDisplay_KeyUp KeyCode, Shift
-End Sub
-‘ supaya kursor tetap di kanan
-Private Sub txtDisplay_Change()
-txtDisplay.SelStart = Len(txtDisplay.Text)
-End Sub
-Private Sub txtDisplay_GotFocus()
-txtDisplay_Change
-End Sub
-‘ untuk mengetikkan angka di keyboard
-Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
-Dim ch As String
-ch = Chr$(KeyAscii)
-Select Case ch
-Case “0”
-cmdAngka_Click 0
-Case “1”
-cmdAngka_Click 1
-Case “2”
-cmdAngka_Click 2
-Case “3”
-cmdAngka_Click 3
-Case “4”
-cmdAngka_Click 4
-Case “5”
-cmdAngka_Click 5
-Case “6”
-cmdAngka_Click 6
-Case “7”
-cmdAngka_Click 7
-Case “8”
-cmdAngka_Click 8
-Case “9”
-cmdAngka_Click 9
-Case “*”, “x”, “X”
-cmdOperator_Click opKali
-Case “+”
-cmdOperator_Click opTambah
-Case vbCrLf, vbCr, “=”
-cmdSamaDengan_Click
-Case “-”
-cmdOperator_Click opKurang
-Case “.”
-cmdKoma_Click
-Case “/”
-cmdOperator_Click opBagi
-Case “C”, “c”
-cmdClearEntry_Click
-End Select
-KeyAscii = 0
-End Sub
-‘ untuk ketikan angka di numpad
-Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
-Select Case KeyCode
-Case vbKeyNumpad0
-cmdAngka_Click 0
-Case vbKeyNumpad1
-cmdAngka_Click 1
-Case vbKeyNumpad2
-cmdAngka_Click 2
-Case vbKeyNumpad3
-cmdAngka_Click 3
-Case vbKeyNumpad4
-cmdAngka_Click 4
-Case vbKeyNumpad5
-cmdAngka_Click 5
-Case vbKeyNumpad6
-cmdAngka_Click 6
-Case vbKeyNumpad7
-cmdAngka_Click 7
-Case vbKeyNumpad8
-cmdAngka_Click 8
-Case vbKeyNumpad9
-cmdAngka_Click 9
-Case vbKeyMultiply
-cmdOperator_Click opKali
-Case vbKeyAdd
-cmdOperator_Click opTambah
-Case vbKeySeparator
-cmdSamaDengan_Click
-Case vbKeySubtract
-cmdOperator_Click opKurang
-Case vbKeyDivide
-cmdOperator_Click opBagi
-Case vbKeyDecimal
-cmdKoma_Click
-Case vbKeyBack, vbKeyDelete
-Hapus
-End Select
-KeyCode = 0
-End Sub

Membuat form login

Membuat Form Login

Pengantar

Form login adalah sebuah form yang dirancang untuk melakukan autentikasi atau pengecekan terhadap user yang bisa masuk kedalam sebuah system. Proses ini diawali dengan pembuatan tabel login untuk menyimpan username dan password setiap user yang terdaftar dalam program tersebut.

Membuat Tabel Login

Atur dan rancang tabel seperti berikut

Field	Type	Value
User	Text	25
Pass	Text	25

Merancang Form Login

Atur objek properti seperti gambar di bawah ini.

Atur property seperti berikut:

Komponen	Property
Label	Name : Label1 Caption : USER
Label	Name : Label1 Caption : PASSWORD
TextBox	Name : Txtuser Text : (dikosongkan)
TextBox	Name : TxtPass Text : (dikosongkan) PasswordChar : *
CommandButton	Name : cmdLogin Caption : LOGIN
CommandButton	Name : cmdKeluar Caption : Keluar
Frame	Name : Frame1 Caption : LOGIN

Ketikkan kode program berikut

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset

Private Sub cmdLogin_Click()

If conn.State = 1 Then conn.Close
conn.Open “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “\login.mdb”

If RS.State = 1 Then RS.Close

RS.Open “select * from login where user= ‘” & txtuser.Text & “‘ And pass = ‘” & txtpass.Text & “‘”, conn, 3, 3
If Not RS.EOF Then
MsgBox “BERHASIL”
Else
MsgBox “Data Salah”, vbCritical, “L O G I N”
Txtuser.Text = “”
Txtpass.Text = “”
Txtuser.SetFocus
End If
End Sub

Private Sub cmdKeluar_Click()
end
End Sub

Penjelasan Kode Program

Kode Program	Penjelasan
Public conn As New ADODB.Connection Public RS As New ADODB.Recordset	Merupakan kode untuk mengkoneksikan form ke database
If conn.State = 1 Then conn.Close conn.Open “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “\login.mdb”	Jika koneksi yang dilakukan sedang terbuka maka tutup dahulu agar tidak terjadi kesalahan. Conn.open digunakan untuk membuka database yang ingin digunakan. Sebagai catatan anda bisa menggunakan bantuan komponen ADODC. Caranya adalah dengan men-copy use connection string-nya. Untuk mempersingkat path (atau alamat) database, anda bisa menggunakan perintah app.path. Maksud dari perintah ini adalah program akan mencari di alamat tempat projek disimpan.
If RS.State = 1 Then RS.Close RS.Open “select * from login where user= ‘” & txtuser.Text & “‘ And pass = ‘” & txtpass.Text & “‘”, conn, 3, 3	Jika recordsetnya terbuka maka tutup Rs.open adalah perintah untuk membuka tabel yang di inginkan dengan menggunakan perintah SQL.
If Not RS.EOF Then frmUtama.show Else MsgBox”Data Salah”,vbCritical,”LOGIN”	Jika data tidak end of file maka tampilkan form utama. Maksud dari EOF adalah data yang dimaksud ada pada tabel. Selain itu maka tampilkan pesan kesalahan

INFO
Photoshop CS5 photographers have access to a function of the new generation to create images with high dynamic range (HDR). Combining pictures with different exposures in one HDR-image, Photoshop CS5 accurately retains the full range of key scenes. New technology allows the HDR Pro to eliminate spurious distortions and provides more precise control of the tone mapping. With features HDR rendering, users can simulate HDR-images using a single image, claim the developers.

In addition, Photoshop CS5 includes revolutionary tools to enhance the creative potential of users. Brand new drawing tools include a tool Mixer Brush, who mixes an infinite number of colors on one brush tool Bristle Tips, creating the effect of this smear brush. With Puppet Warp tool, users can change the position or view of any element of the image, for example, straightened his bent arm on the photos or adjust an image of the landscape to create a new spatial perspective.

OS: Windows XP, Vista, 7
Language: English
The medicine: not required
Size: 122.75 MB

http://rapidshare.com/#!download|328|421629326|RapidshareZone_Adobe_PhotoshopCS5_portable.rar|127498

Peralatan Tempur Buat Kill Sality

uhm,,.emang kadang ga enak yah kalau pc tiba” lemot trs icon” yang ada tiba” ga bisa buka…
wah wah kalau kek gitu kayaknya kena virus dech,.,.
uhmm disini saya coba ngebantu yang kena virus sality.aa

langsung aja dech..daripada kelamaan..tar virusnya nyebar lagi ke drive lain…

Ciri-ciri kena Virus W32/Sality, Tanatos, atau Heur ini adalah seperti sudah umum jika kena Virus, Task Manager, Registry Editor, Configuration, dan option untuk mengconfigurasi Window lainnya didisable oleh Virus untuk mempertahankan dirinya di PC yang di infeksi. Window Safe Mode dirusak oleh Virus, kalau kita berusaha masuk ke dalam safe mode, pc akan reboot. PC masih bisa jalan tapi bolot banget, di beberapa kasus pc akan mengirim email spam. Antivirus gw, Avira yang tanpa realtime protection (sengaja gw matiin RTP nya) ga bisa dibuka, kalau didobel klik akan langsung tertutup dengan sendirinya.

Ciri-ciri Komputer yang terkena virus sality:
1. Tidak dapat melakukan copy-paste dari komputer ke flashdisk, Bila copy-paste dari komputer itu sendiri masih bisa
2. Virus ini akan mendisable fitur penting dalam system seperti Folder Options, Task Manager, Registry Editor, Antivirus, Firewall
3. Anda tidak bisa menginstal antivirus, karena virus ini akan otomatis mendisable proses instalasi. Terkecuali untuk Sality Killer karena tidak perlu instalasi
4. Merestart Komputer jika kita mengakses Registry nya dengan program Tune Up Registry Editor.

Virus Sality ini mampu menginfeksi seluruh Drive (C,D dan E ) dalam komputer anda secara cepat.mungkin dalam hitung menit udah nyebar kemana”….

neh saya coba kasih sedikit peralatan tempur buat kill itu yang namanya sality.aa

hihihi….

nah langsung aja neh Download filenya
Klik Me

sebelumnya saya mau jelasin sedikit..
buat kalian yang pc or laptopnya udah terpasang antivirus tolong didisable dulu AV..karena supaya ga ngegangu neh tool buat kill sality nya..
trs didalam ada bny tool( remove sality,.ngebalik registry yang dirusak itu virus or lain”)..kalian boleh coba semua…karena tool didalam bersifat langsung scan tanpa update terlebih dahulu…
tapi kalau ga mau pake neh file jg bisa..tinggal update aja AV kalian terlebih dahulu trs tinggal scan

tapi kalau yang blm ada AV di pc or laptopnya n kalau udah parah salitynya,,anda ga bakal bisa instal yang nama nya itu AV….
jadi sebelum instal AV lebih dulu gunakan tool yang saya share…itu bertujuan nge kill salitynya…tapi tool diatas ga bakal bisa kill abis salitynya..ini cuman bertujuan supaya kalian setelah memakai tool ini bisa instal AV di pc kalian…

nah setelah scan pake tool di atas…
neh saya kasih anti virus yang bener” bisa kill bersi sampe akar’nya…
Klik Me
itu kenapa saya sarankan pakai tuch AV..karena itu AV disedia fasilitas disinfact..arti disinfact itu sendiri dia menghancurkan itu virus tapi file yang kena itu virus ga rusak..hehehe
kalau kalau ketemu virusnya jgn langsung delete.centang apply all trs disinfact.

by : tewas1 N3

Eset Nod32 Smart Security Or Antivirus + Username Dan Password (Update 1 October 2010)

Esset nod32 smart security 4.0.467

http://www.indowebster.com/esset_nod32_smart_security_40467__1.html


UserName + Password Update 1 october untuk Esset
Username:TRIAL-36686503
Password:ksbbd4rhdn

Username:TRIAL-36686499
Password:pru4kneevx

Username:TRIAL-36567175
Password:xp334b8v37

Username:TRIAL-36567178
Password:urfauph3hv

Username:TRIAL-36567255
Password:xcfam7d4b8

Username:TRIAL-36567270
Password:dk53dejkpd

Username:TRIAL-36567370
Password:d7nfuakvsm

Username:TRIAL-36567398
Password:ubx6r4chhb

Username:TRIAL-36639814
Password:mttt564r82

Username:TRIAL-36639812
Password:e7tvbbr486

Username:TRIAL-36639907
Password:ac4vp8apsm

Username:TRIAL-36639907
Password:ac4vp8apsm

Username:TRIAL-36639999
Password:kdx6p8cck3

Username:TRIAL-36639996
Password:fnh352rj4f
			

Kaspersky Kis 2009 + activation key

Download Kaspersky Internet Security(XP, Vista) final application 2009 v8.0.0.506
http://www28.indoweb…08fddbcd0f5.zip

KAV/KIS 2009/2010/2011 Keys Update ( 1 Oktober 2010 )

http://hotfile.com/d…L-VERS.rar.html

[Share]Ukira Kirara V2 Update

NEW UPDATED

BY KIRARA UKIRA NYIT-NYIT.NET

UNITY_AREA_V2

Tadinya mw q share di VIP tapi berhubung sepi yg ngecit gue doank jadi ya gue share publik aja… ^^V

Fitur bomberman di hapuskan…..

Clue : Temukan Tombol Rahasia di dalam trainer agar trainer bisa di gunakan…..

jangan Lupa baca Readme dalam file instalasi Trainer!!!, karena clue pemakaian ada di dalamnya!!!

DC/BT itu tergantung pemakaian agan dan kehebatan agan dalam memecahkan Clue dari saya…. ^^V NO PM…

Installation Password
QSAD-I37YK-UKE93-N3KRA-****
**** >> cari sendiri sono !! kalo ga tanya widi

Link Download Telah Di Password Ketat untuk Menghindari Bocah2 Kecil, kalo mau tau Passwordnya gampang, TANYA WIDI aja

Nih link Downloadnya
klik disini

[Share]Idc Paket Editor V1

http://www.ziddu.com…EDITOR.rar.html

By Indocheater

*Penggunaan sama seperti RPE
*Source By rEdox pAkET Editor

New Public .dll(Only Misi Major)

Fiture

F1: Misi major

aq akan brusaha buat nambah fiturenya…untuk awalny silahkan coba dlu..

Link Donwload

http://www.4shared.c…Public_Dll.html