home *** CD-ROM | disk | FTP | other *** search
- Function IsConnect
- On error resume next
- Dim xmlhttp : Set xmlhttp = CreateObject("Msxml2.XMLHTTP.4.0")
- xmlhttp.open "POST", "http://go.microsoft.com/fwlink", false
- xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- xmlhttp.send
-
- IF Err.Number = 0 then
- Session.Property("IsConnect") = "1"
- ELSE
- Session.Property("IsConnect") = "0"
- END IF
- End Function
-
- Function ConnectUrl
- Dim shell : Set shell = CreateObject("Shell.Application")
- shell.ShellExecute Session.Property("Genuine web") & "&LegitCheckError=" & Session.Property("LegitCheckResult")
- End Function
-