Kan man på något sätt känna av
Om datorn är uppkopplad mot internet
Tänkte få till det,
så att programmet känner av automatisk när det finns en update att hämta

Detta fungerar när man är uppkopplad mot internet
Men om man inte är det så låser sig programmet

Dim versiondata
Dim version
Dim svar
svar = MsgBox(" Är du uppkopplad mot Internet" & vbCrLf & "", vbYesNo, ""
If svar = vbYes Then
version = ReadURL("www. sökväg/version.dat")
versiondata = version
version = App.Major & "." & App.Minor
If versiondata > version Then MsgBox "Update finns"
Else
End If



Sören

Private Declare Function InternetGetConnectedState _
Lib "wininet" _
(ByVal lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean

Private Sub Command1_Click()
Dim Flag As Long, Reserved As Long

MsgBox " " & InternetGetConnectedState(Flag, Reserved)
End Sub

Jag får inte till det
Ska nämnas att jag sitter med Adsl
Så om det finns en lösning som tar både Modem & Adsl vore det bra




Sören