Private Sub Command1_Click()  Inet1.OpenURL (Text1.Text + "/lin.asp?a=" + Text2.Text + "&s=" + Text3.Text + "&u=" + Text4.Text + "&p=" + Text5.Text + "&r=" + Text7.Text + "&l=" + Text8.Text + "&m=" + Text9.Text + "&pin=" + Text6.Text) '用inet连接网页  aa = InStr(Inet1.GetHeader, "404") '判断页头是否包含字符“404”,返回0则不包含，否则返回其位置  If aa <> 0 Then '页头中包含404  MsgBox "刷信失败！默认收信页面可能被改名！", 48, "失败！" '则说明该网页不存在  Else '如果页头中不包含“404”  MsgBox "刷信成功！请登陆后台查看！", 64, "恭喜！" '说明网页存在  End If  End Sub  Private Sub Command2_Click()  End  End Sub