private declare function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd as long, ByVal lpOperation as string, ByVal lpFile as string, ByVal lpParameters as string, ByVal lpDirectory as string, ByVal nShowCmd as long) as long
private sub cmdDownload_Click()
WB.Navigate ("http://jouwsite.nl/jouwprogramma.rar")
end sub
private sub Form_Load()
lblVersion.Caption = "Current version is " & App.Major & "." & App.Minor & "." & App.Revision
end sub
'krijgt het versie nummer van het programma
'van het programma en bewaart het in C:\
public sub GetVersionNumber()
dim bytes() as Byte
dim fnum as integer
Screen.MousePointer = vbHourglass
doevents
' Download de Version.txt.
bytes() = Inet1.OpenURL( _
"http://jouwsite.nl/Version.txt", icByteArray)
' Slaat Version.txt op.
fnum = freefile
open "c:\Version.txt" for Binary Access write as #fnum
put #fnum, , bytes()
close #fnum
Screen.MousePointer = vbDefault
beep
end sub
'Laat de nummer zien van je versie
public sub OpenVersionNumber()
rtfVersion.LoadFile "c:\Version.txt"
end sub
private sub cmdCheckNow_Click()
'krijgt het versienummer
GetVersionNumber
'laat het versienummer zien
OpenVersionNumber
'delete de version.txt
kill "c:\version.txt"
end sub
