如何检测一个HTTPS服务器网址是否正常工作

liuxinzhong

如何检测一个HTTPS服务器网址是否正常工作，是这样的，公司有个VPN服务器，请问AU3用什么方式能够检测正常工作，还是关闭维护了。比如服务器地址为HTTPS://1.1.1.1 代码如何写呢该?

kk_lee69

回复 2# liuxinzhong

方法二

$xPost = ObjCreate("Microsoft.XMLHTTP")
$xPost.Open("GET", "http://www.yahoo.com.tw/", 0)
$xPost.Send()
If $xPost.Status = 404 Then
        MsgBox(0, '檢查鏈結', "該網頁不存在！ ")
ElseIf $xPost.Status < 200 Then
        MsgBox(0, '檢查鏈結', "域名解析錯誤或者網路連接錯誤，資訊： " & $xPost.StatusText)
ElseIf $xPost.Status < 300 Then
        MsgBox(0, '檢查鏈結', "成功，該網頁能訪問。 ")
ElseIf $xPost.Status < 400 Then
        MsgBox(0, '檢查鏈結', "重新定向，資訊： " & $xPost.StatusText)
ElseIf $xPost.Status < 500 Then
        MsgBox(0, '檢查鏈結', "用戶端錯誤，資訊： " & $xPost.StatusText)
ElseIf $xPost.Status < 600 Then
        MsgBox(0, '檢查鏈結', "伺服器錯誤，資訊： " & $xPost.StatusText)
ElseIf $xPost.Status > 600 Then
        MsgBox(0, '檢查鏈結', "域名解析錯誤或者網路連接錯誤，資訊： " & $xPost.StatusText)
EndIf

liuxinzhong

帮个忙看下呢！有没有人懂得呢？想搞的跟服务器一样，比如检测正常，就提示正常，不正常就提示维护。

kk_lee69

簡單  方法一
既然服務器 是自己的.....在服務器裡面放的 特殊檔案
然後 透過程式  去抓 那個檔案  抓地到  表示服務器正常

抓不到 就是不正常

liuxinzhong

回复 4# kk_lee69
您好，代码运行有错误
$xPost.Send()
$xPost.Send()^ ERROR
能否简化代码，2种情况，一种是能打开，一种是打不开网页，HTTP跟HTTPS有区别吗？

austere

liuxinzhong 发表于 2012-2-13 13:24
回复 4# kk_lee69
您好，代码运行有错误
$xPost.Send()

$xPost = ObjCreate("MSXML2.ServerXMLHTTP")
$xPost.Open("GET", "http://www.baidu.com", false)
$xPost.setRequestHeader("Content-Type","application/x-www-form-urlencoded;charset:big5")
$xPost.Send()
If $xPost.Status = 404 Then
        MsgBox(0, '檢查鏈結', "該網頁不存在！ ")
ElseIf $xPost.Status < 200 Then
        MsgBox(0, '檢查鏈結', "域名解析錯誤或者網路連接錯誤，資訊： " & $xPost.StatusText)
ElseIf $xPost.Status < 300 Then
        MsgBox(0, '檢查鏈結', "成功，該網頁能訪問。 ")
ElseIf $xPost.Status < 400 Then
        MsgBox(0, '檢查鏈結', "重新定向，資訊： " & $xPost.StatusText)
ElseIf $xPost.Status < 500 Then
        MsgBox(0, '檢查鏈結', "用戶端錯誤，資訊： " & $xPost.StatusText)
ElseIf $xPost.Status < 600 Then
        MsgBox(0, '檢查鏈結', "伺服器錯誤，資訊： " & $xPost.StatusText)
ElseIf $xPost.Status > 600 Then
        MsgBox(0, '檢查鏈結', "域名解析錯誤或者網路連接錯誤，資訊： " & $xPost.StatusText)
EndIf

3131210

$oError = ObjEvent("AutoIt.Error", "_ErrFunc") ; 捕获错误信息
$_Https = ObjCreate("WinHttp.WinHttpRequest.5.1")
$_Https.Open("GET", "https://www.autoitx.com/", 0)
$_Https.Send()

MsgBox(0, $_Https.Status, $_Https.Status = 200)

Func _ErrFunc()
        Return 0
EndFunc   ;==>_ErrFunc