Cara Membuat ProgressBar Berjalan di Visual Basic 6.0

Berikut Toturial Membuat ProgressBar berjalan :

- Buka Visual Basic 6.0

- Buat Satu Form

- Klik Kanan Toolbox yang terletak paling kiri>Klik Kanan>Component

- Cari Microsoft Common Control 6.0, Lalu Centang Microsoft Common Control 6.0 tadi>Lalu OK

- Masukan ProgressBar dan Timer[Interbal=100] ke Form tersebut

- Double Click Timer Tersebut>Copy Code dibawah ini

ProgressBar1.Value = ProgressBar1.Value + 2 If ProgressBar1.Value = ProgressBar1.Max Then Timer1.Enabled = False Unload Me End If

- Lalu Compile Project yang telah tadi dibuat.

Cara Memanggil Aplikasi Lain di Visual Basic 6.0

- Buat Satu Command Button
- Masukan Code dibawah ini


If Dir(App.Path & "\Object Anda.exe") = "" Then
MsgBox"Tidak Tersedia"
Else
ShellExecute hWnd, "open", App.Path & "\Autorun.exe", vbNullString, vbNullString, 1
End If

- Lalu Compile Project yang anda tadi Buat

Cara Membuat Jam Standard Dengan Visual Basic 6.0

Berikut Toturial Membuat Jam Standard :

- Buka Visual Basic 6.0

- Buat Satu Form dengan Nama : FrmMain

- Buat Satu Label[Caption : 00:00:00]

- Buat satu Timer[Interval:100]

- Masukan Code dibawah ini ke dalam Form yang anda buat

Jam.Caption = Time

- Lalu Compile Project yang sudah anda buat tadi

Cara Membuat Web Browser di Visual Basic 6.0

Berikut Toturial Membuat Web Browser :

- Buka Visual Basic 6.0

- Buat Satu Form

- Klik Kanan Toolbox yang disebelah Kiri

- Lalu Jika terlihat PopUp Maka Tekan Component

- Jika sudah terbuka Form Component maka Cari Microsoft Internet Control

- Lalu Centang Microsoft Internet Control, lalu > Tekan OK

- Buat 1 Web Browser ,5 Command Button dan 1 Textbox[Jangan dirubah Namanya]

- Masing-Masing Control masukan Caption nya Seperti ini :

Command :

- Forward

- Back

- Refresh

- Home

- Go

Text :

- Kosongin Saja

- Jika sudah seperti diatas susunannya Maka silahkan Masukan Kode ke Form tadi yang anda buat, Berikut Code :

----------------------------------------------------------------------------------------------

Double Klik Tombol Forward , Masukan Kode : 

On Error Resume Next

WebBrowser1.GoForward

Double Klik Tombol Back , Masukan Kode : 

On Error Resume Next

WebBrowser1.GoBack

Double Klik Tombol Refresh , Masukan Kode : 

On Error Resume Next

WebBrowser1.Refresh

Double Klik Tombol Refresh , Masukan Kode : 

On Error Resume Next

WebBrowser1.Refresh

Double Klik Tombol Go , Masukan Kode : 

On Error Resume Next

WebBrowser1.Navigate (Text1.Text)

Double Klik Tombol Home , Masukan Kode : 

On Error Resume Next

WebBrowser1.GoHome

Double Klik Web Browser tersebut , Masukan Kode : 

On Error Resume Next

If Progress = -1 Then ProgressBar1.Value = 100

Label1.Caption = "Done"

ProgressBar1.Visible = False

If Progress > 0 And ProgressMax > 0 Then

ProgressBar1.Visible = True

Image1.Visible = False

ProgressBar1.Value = Progress * 100 / ProgressMax

Label1.Caption = "Loading... " & Int(Progress * 100 / ProgressMax) & "%"

Image1.Visible = True

End If

Exit Sub

----------------------------------------------------------------------------------------------

- Jika semua sudah selesai maka Compile Project yang anda telah buat tadi.

Cara Membuat Hwid Checker di Visual Basic 6.0

Berikut Toturial Cara Membuat Hwid Checker di Visual Basic 6 :

• Buat Satu Form [Name : FrmMain]
• Buat Satu TextBox
• Buat Satu Command Button
• Masukan Code dibawah ini :

Private Declare Function GetVolumeInformation Lib _ "kernel32.dll" Alias "GetVolumeInformationA" (ByVal _ lpRootPathName As String, ByVal lpVolumeNameBuffer As _ String, ByVal nVolumeNameSize As Integer, _ lpVolumeSerialNumber As Long, lpMaximumComponentLength _ As Long, lpFileSystemFlags As Long, ByVal _ lpFileSystemNameBuffer As String, ByVal _ nFileSystemNameSize As Long) As Long Function GetSerialNumber(strDrive As String) As Long Dim SerialNum As Long Dim Res As Long Dim Temp1 As String Dim Temp2 As String Temp1 = String$(255, Chr$(0)) Temp2 = String$(255, Chr$(0)) Res = GetVolumeInformation(strDrive, Temp1, _ Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2)) GetSerialNumber = SerialNum End Function Private Sub Command1_Click() Text1.Text = GetSerialNumber("C:\") End Sub Private Sub Form_Load() End Sub

• Double Click Form anda,lalu masukan Code yang telah di Copy
• Lalu Compile Project yang tadi anda Buat