Tutorial Membuat Simple Downloader

 Tutorial Membuat Simple Downloader :

1. Open VB6
2. Masukan Button 1 Command Button, 1 Label, 1 TextBox

Atur Propertinya Seperti Ini :

- TextBox : Text = Kosongkan aja
- CommandButton : Caption = Download
- Label : Caption =  Seterah ente

 3. Lalu View Code Dan Masukan Code Ini :

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal szURL As _
String, ByVal dwReserved As Long) As Long

Private Const S_FALSE = &H1
Private Const S_OK = &H0

Public Function IsGoodURL(ByVal sURL As String) As Boolean
sURL = StrConv(sURL, vbUnicode)
IsGoodURL = (IsValidURL(ByVal 0&, sURL, 0) = S_OK)
End Function


Private Sub Command1_Click()
If IsGoodURL(Text1.Text) Then
DoFileDownload StrConv(Text1.Text, vbUnicode)
Else
MsgBox "Url Tidak Terbaca"
End If
End Sub

Private Sub Form_Load()
MsgBox "Simple Downloader By : VBACTIONS " ' Ganti kata Simple Downloader By : VBACTIONS dengan sesuka anda
End Sub

4. Selesai ,,, Mudah Sekali Bukan :) Tekan F5 Untuk Menjalankan Program


*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Membuat Simple Splash Screen With VB6

 Tutorial Membuat Splash Screen :

1. Buka VB6 And Pilih Standart EXE ( Pastinya :hihi: )
2. Tambahkan 1 Buah Splash Screen Caranya Click Project -> Click Add Form Dan pilih Splash Screen dan click OK Coba Lihat Gambar Dibawah Ini :

Click Project And Sellect Add Form

Pilih Splash Screen And Click Open

 3. Hapus semua button dan code yang sudah ada dari sananya :hehe: lihat gambar deh :

4. Masukan Components Microsoft Winsock Control 6.0 & Microsoft Windows Common Controls 6 (SP6)  Caranya tekan CTRL + T Pada keyboard  :

5. Setelah di masukan sekarang masukan :

- 1 ProgressBar
- 1 Timmer
- 1 Label

Atur Propertinya Seperti Ini :

- Progressbar : Appearance = 0 - ccflat, Scroling = 1
- Timer : Interval = 50
- Label : Caption = seterah sih sesuai kebutuhan

Kira - Kira Menjadi Seperti Ini ( sesudah ane design ) :

 

6. Sudah selesai ? belum selanjutnya Klik Project -> Click Project1 Properties :



7. Pada Startup Objects ganti frmsplash :


8. Masukan Code Ini :

Option Explicit
Dim efek As Integer

Private Sub Timer1_Timer()
On Error Resume Next
efek = efek + 5
ProgressBar1.Value = ProgressBar1.Value + 400 / 400
If efek > 500 Then
    Timer1.Enabled = False
    Screen.MousePointer = vbNormal
    Me.WindowState = 0
    Do
    Me.Left = Me.Left + 20
    Me.Move Me.Left, Me.Top
    DoEvents
    Loop Until Me.Left > Screen.Width
    Load Form1
    Form1.Show
    Unload Me
End If
End Sub

9.Selesai hehe saya memakai splash screen juga pada web browser v.1.0 Tekan F5 untuk menjalankan project

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Buat Form Password menggunakan Visual Basic 6.0 ( Simple )

1.    Buka program VB 6, pilih standart EXE
2.    Masukkan 2 buah form dimana Form1 untuk form password dan Form2 sebagai form programnya sehingga program kita di Form2 tidak dapat dibuka kalau tidak mengetahui Password yang ada di Form1.

Atur Seperti Ini :

- Name Form1 = frmlogin
- Name Form2 =  frmProgram

*Cara menambahkan Form lagi silahkan lihat gambar dibawah ini :



3.    Masukan Button ke Form1 :

- 1 buah TextBox
- 2 buah CommandButton

*Properties :
a.    TextBox  (PasswordChar = * dan Text = “kosongkan”)
b.   CommandButton1 (Caption = OK)
c.   Commandbutton2 ( Caption = Cancel )
 
4. Click 2x di frmlogin dan masukan code ini :

 'Codding from : vbactions.blogspot.com
Private Sub Command1_Click()
If Text1.Text = "vbactions" Then 'vbactions adalah passwordnya silahkan diganti
Frmprogram.Show 'Kalo sudah login form ini yang akan muncul
Text1.Enabled = False
Command1.Enabled = False
Else
MsgBox "Password Salah!! Tolong Diulangi" 'ini juga bisa diganti
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Unload Me
End

 5. Selesai Mudah Bukan :) Tekan F5 untuk menjalankan Program kira2 jadinya seperti ini hehe :

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Tutorial Membuat Web Browser Menggunakan VB6

Posting Kali Ini Tentang Tutorial  Membuat Web Browser Menggunakan VB6  Jika kalian berminat langsung saja kita lakukan tutorial ini. ikuti langkah demi langkah dengan teliti :

1. Open Visual Basic 6.0 dan pilih " Standart EXE "

2. Masukan Components Microsoft Internet Contorls & Microsoft Windows Common Controls 6 (SP6)  dengan cara tekan CTRL + T pada keyboard atau  klik Project dan pilih Components

 
 *Setelah itu beri tanda centang pada Microsoft Internet Contorls Lihat screenshot :




*Jika sudah di centang klik Apply dan Tekan 0K  

3. Lalu Masukan buton2 berikut kedalam form :

• 5 Command Button
• 1 TextBox ( ini akan menjadi URL bar kalian ) 
• 1 Progressbar
• 1 Buah Label

4. Atur Propertinya Menjadi :

Command 1 : ( Caption : Go , Name : Cmdgo )
Command 2 : ( Caption : Back , Name : CmdBack )
Command 3 : ( Caption : Refresh , Name : CmdRefresh )
Command 4 : ( Caption : Forward , Name : CmdForward )
Command 5 : ( Caption : Stop , Name : Cmdstop )
TextBox       : ( Text : Kosongkan )
Progressbar :
Label1        : ( Caption : Done )

5. Codding untuk form1 ( Click 2x pada form1 )  : 

Private Sub Cmdgo_Click()
On Error Resume Next
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Cmdstop_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub

Private Sub Cmdrefresh_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Private Sub cmdforward_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
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) & "%"
End If
Exit Sub
End Sub

 5. Selesai untuk menjalankan Program tersebut Tekan F5 Pada Keyboard

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...

Free Download Visual Basic 6.0 + CD Key

Hello World ... ! Frist Posting Download Visual Basic Full + CD Key Screen Shot : 

Download File : Click here