也就是执行一个HTTP请求.并得到返回信息。谢谢!
解决方案 »
- 请问vb中有什么符号代表中文空格,sql如果要补中文空格应该怎么写
- 如果读取htt://www.sss.com/test.txt文本的内容?
- 【问】如何左键按下、弹出菜单、移到某项、释放左键、触发该菜单点击事件?
- 关于存储过程调用的问题,请高手帮帮我
- 怎样用VB对SQL SERVER进行备份数据和恢复数据的操作
- 我想作一个好像acdsee那种缩略图列表,不知道应该用什么控件那?
- “猫”总版主:是否把我的帐号解封?
- 高手帮我一把,access的问题,在线等待!
- 怎幺把msflexgrid的cell设置成可写!
- 100分有人愿意回答么?关于打印HTML文件!
- 急招vb、asp.net熟练软件开发人员(北京市)。
- 请问在msflexgrid中怎么实现合并.急.....在线等
比如 :Private Sub Download(UrtFile As String, LocalFile As String)
Dim bData() As Byte '数据变量
Dim intFile As Integer '可用文件变量
Dim i As Integer
Dim ttt As String
intFile = FreeFile() '将 intFile 设置为未使用的文件
' OpenURL 方法的结果首先传入 Byte 数组,
'然后将 Byte 数组保存到磁盘。
On Error Resume Next
Kill LocalFile
On Error GoTo 0
bData() = Inet1.OpenURL(UrtFile, icByteArray)
Open LocalFile For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Exit Sub
Err1:
MsgBox "error!"
Resume
End Sub调用方法
Download "http://" & ServerXCAM & "/xcam/xcamCX/chk.asp?meusid=" & Combo1 & "&mepass=" & Text1 & "&port=" & Pub_Port & "&chk=" & Check2, App.Path & "\temp.tmp"
'根据返回的值来判断是否登陆成功、、Open App.Path & "\temp.tmp" For Input As #1
Line Input #1, T1
If Trim(T1) = "yes" Then