Membuat aplikasi internet browser sendiri

anda dapat membuat aplikasi internet dengan bantuan salah satu nya component Microsoft Internet Control (Download), ini lah cara cara penggunaanya:

1. Buka Visual Basic 6.0
2. click Project>Component atau click Ctrl+T
3. cari kata Microsoft Internet Control lalu centang seperti pada gambar
4. masukan component kedalam form anda
5. component siap digunakan

ini lah cara cara menggunakan  Microsoft Internet Control

Menentuka URL yg ingin dibuka

cara:

WebBrowser1.Navigate ([alamat web])

contoh:

WebBrowser1.Navigate ("www.google.com") 

'Back' dan 'Foward'

contoh untuk Back (kembali ke alamat sebelumnya):

WebBrowser1.GoBack

contoh untuk Foward (kembali ke alamat selanjutnya)

WebBrowser1.GoForward

'Stop' dan 'Refresh'

contoh untuk Stop (berhenti mengakses internet)

WebBrowser1.Stop

contoh untuk Refresh (mengulang akses internet)

WebBrowser1.Refresh

Status Battery Laptop

Semua laptop atau notebook kita bisa mengetahui info battery laptop yang kita pakai, tinggal berapa
persen battery kita, berapa jam lagi battery akan habis. Nah Kali ini kita akan mencoba membuat sendiri
program untuk menampilkan info battery pada laptop kita dengan menggunakan Visual Basic 6.0. caranya
sebagai berikut :


1. Langkah pertama sudah pasti buka dahulun Visual Basic nya kemudian pilih standard.exe

2. Pada program ini kita membutuhkan 4 komponen visual basic yaitu Timer,Label,ProgressBar dan
SysInfo. Komponen Timer dan Label secara default sudah terdapat pada toolbox, kita perlu
menambahkan komponen ProgressBar dan SysInfo ke dalam toolbox, caranya pilih menu ProjectComponents. Kemudian beri tanda centang pada komponen yang kita inginkan seperti yang
ditunjukkan pada gambar berikut :
Kemudian Klik OK. Aturlah user interface pada form menjadi seperti pada gambar berikut :

3. Selanjutnya copy paste kode program berikut ini :

Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Call Timer1_Timer
End Sub
Private Sub Timer1_Timer()
If SysInfo1.BatteryLifePercent <> 255 Then
ProgressBar1.Value = SysInfo1.BatteryLifePercent
Label1.Caption = "BatteryLifePercent = " & Format$(SysInfo1.BatteryLifePercent / 100,
"Percent")
Label2.Caption = "BatteryLifeTime = " & Format$(Val(SysInfo1.BatteryLifeTime) * (1 / 3600),
"#.##") & " Hours"
Select Case SysInfo1.BatteryStatus
Case 1
Label3.Caption = "BatteryStatus = HIGH"
Case 2
Label3.Caption = "BatteryStatus = LOW"
Case 4
Label3.Caption = "BatteryStatus = CRITICAL"
End Select
ProgressBar1.Enabled = True
Else
Label1.Caption = "No Battery Present"
ProgressBar1.Value = 0
ProgressBar1.Enabled = False
End If
End Sub