| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1814 人关注过本帖, 1 人收藏
标题:服务器关闭时,怎么自定义Inet1返回的信息!
取消只看楼主 加入收藏
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
结帖率:82.19%
收藏(1)
已结贴  问题点数: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
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
收藏
得分:0 
回复 2楼 风吹过b
风版主你好!  这个我真的不知道怎么搞了,请详解一下,谢谢!
 上面的代码就是读取服务器上的a.txt里面的信息显示在界面上:连接成功。若服务器关闭,软件上就显示服务器关闭,但是返回来的是HTTP协议,怎么在软件上变动呢?是不是需要将返回来的信息判断一下是不是连接成功这几个字,如果不是就显示服务器关闭,我做个判断 好像在这个控件上不行,请风版主详解一下,谢谢!
2018-05-27 10:39
快速回复:服务器关闭时,怎么自定义Inet1返回的信息!
数据加载中...
 
   



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

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