|
#2
风吹过b2018-05-26 22:41
|
<!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
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
