Bagi anda para programmer tentu ingin membuat fungsi cek update otomatis atau manual yang ringan dan cepat pada program anda,sehingga jika ada update versi terbaru maka program anda akan menampilkan info atau semacamnya. Fungsi ini menggunakan WinAPI sehingga lebih cepat dan ringkas daripada harus memakai file *.ocx atau library lainnya yang mungkin ada.
Berikut saya berikan source nya tentang membuat cek update menggunakan VB 6.0.
sebelumnya anda harus mempunyai setidaknya hosting sendiri untuk mengupload file update.txt pada web anda agar URL untuk cek update permanen.pastikan file update.txt berisi versi program updatenya,pada contoh ini maka file update.txt berisi nilai "1.8" tanpa tanda kutip.
Source Code:
Option Explicit
Const scUserAgent = "
N-Shield Update Program"
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const sURL = "http://www.yudha-software.com/sites/default/files/update.txt"
'url file yang berisi info update
Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef _
lpSFlags As Long, ByVal dwReserved As Long) As Long