Private Sub Turn(ByVal PageName As String)
Dim Reg As RegistryKey
Dim DomainValue As String
Try '检查在注册表里是否有服务器的地址
Reg = Registry.CurrentUser.OpenSubKey("Software\Conis\Verify Ship 1.0")
DomainValue = Reg.GetValue("Domain")
Catch Ex As Exception
Dim UpDomain As New UpDomain
UpDomain.ShowDialog()
Exit Sub
End Try
'================================以下检查页面是否可以访问=====================
Try
Dim wReq As WebRequest = WebRequest.Create(DomainValue & "/" & PageName)
Dim wRes As WebResponse = wReq.GetResponse
ieBrowser.Navigate2(DomainValue & "/" & PageName) '访问页面
Exit Sub
Catch
If MessageBox.Show("服务器不能正常访问,请配置您的服务器地址。", "服务器不能访问", MessageBoxButtons.YesNo, MessageBoxIcon.Error) = DialogResult.OK Then
Dim UpDomain As New UpDomain
UpDomain.ShowDialog()
Else
Me.Dispose() '用户取消,关闭窗口
End If