标题:服务器关闭时,怎么自定义Inet1返回的信息!
取消只看楼主
事业男儿
Rank: 2
等 级:论坛游民
帖 子:308
专家分:14
注 册:2007-4-25
结帖率:81.69%
已结贴  问题点数:20 回复次数:1 
服务器关闭时,怎么自定义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 
2018-05-26 21:26
事业男儿
Rank: 2
等 级:论坛游民
帖 子:308
专家分:14
注 册:2007-4-25
得分:0 
回复 2楼 风吹过b
风版主你好!  这个我真的不知道怎么搞了,请详解一下,谢谢!
 上面的代码就是读取服务器上的a.txt里面的信息显示在界面上:连接成功。若服务器关闭,软件上就显示服务器关闭,但是返回来的是HTTP协议,怎么在软件上变动呢?是不是需要将返回来的信息判断一下是不是连接成功这几个字,如果不是就显示服务器关闭,我做个判断 好像在这个控件上不行,请风版主详解一下,谢谢!
2018-05-27 10:39



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-487303-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.435273 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved