服务器关闭时，怎么自定义Inet1返回的信息！ - VB6论坛

已结贴√ 问题点数：20 回复次数：3

服务器关闭时，怎么自定义Inet1返回的信息！

Inet1连接关闭的服务器时返回的网页信息代码如下：
<!DOCTYPE HTML PUBLIC

"-//W3C//DTD HTML 4.01

Transitional//EN">
<html>
<head>
<meta http-equiv="Content-

Type" content="text/html;

charset=gb2312">
<title>404</title>
<meta http-equiv="refresh"

content="0;URL=http://www.2602

</head>
<body>
</body>
</html>
想知道这些代码是从哪儿来的？我能不能自定义消息：如服务器关闭。

程序代码：

Dim strURL As String
Private r As Long
Private entry As String
Private iniPath As String
Private Sub Command1_Click()
Label1.Caption = Inet1.OpenURL(Text1.Text & "/gg/a.txt")
End Sub
Private Sub Form_Load()
Open App.Path & "/wangzhi.data" For Binary As #1 '读取地址
Dim s As String
s = String(LOF(1), " ")
Get #1, , s
Text1.Text = s
Close #1
End Sub

搜索更多相关主题的帖子: 服务器　关闭　 HTML　String　Private　

第 2 楼

得分:20

取HTTP协议的状态代码

如 404 错误页

200 正确内容。

自己去翻一下 HTTP 协议吧

授人于鱼，不如授人于渔
早已停用QQ了

第 3 楼

得分:0

回复 2楼风吹过b

风版主你好！这个我真的不知道怎么搞了，请详解一下，谢谢！
上面的代码就是读取服务器上的a.txt里面的信息显示在界面上：连接成功。若服务器关闭，软件上就显示服务器关闭，但是返回来的是HTTP协议，怎么在软件上变动呢？是不是需要将返回来的信息判断一下是不是连接成功这几个字，如果不是就显示服务器关闭，我做个判断好像在这个控件上不行，请风版主详解一下，谢谢！

第 4 楼

得分:0

好吧！我想简单了，今天才有时间仔细看了一下 Inet1 的属性，
才发现，Inet1 根本就不返回 HTTP 协议状态。

那你这样弄吧！

读返回的内容，如你上面那个返回的页面。
在整个内容中搜索，
如搜索 <title>404</title> ，这个字串，发现，说明文档有错误。再显示提示吧。

我以前是使用 winsock 自己封装 HTTP 协议，需要使用，并且能得到 HTTP状态。
如投票机，自己封装HTTP协议时，当服务器允许一个IP并且允许一个连接重复投票时，可以要求保持连接，
那么当连接上一次时，就可以投100次票。比连接一次，只能投一票，高效多了。
这种情况下，500个并发，每5秒能连上一次就算很不错了，使用 inet1 控件或 webbrorwer 控件基本上就是打不开网页。

授人于鱼，不如授人于渔
早已停用QQ了