Kan man på något sätt känna av Jag får inte till detKänna av internet
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örenSv: Känna av internet
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 SubSv: Känna av internet
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