也就是执行一个HTTP请求.并得到返回信息。谢谢!
解决方案 »
- 用InstallShield打包用水晶报表10的vb程序,在英文vista下部分文件不能注册????
- picture控件的使用目的是背景色变成红色?大家进来看看.....
- 存储工程建立?
- 关于word文档的问题(在线急等!!!!)
- 我的VB为什么总是不能加载OCX控件
- 一巨难问题,高手,低手,有手的 请进~!(欢迎讨论)
- 急!急!关于GetCommandLine函数,(用户催的特紧)
- 有关于Base64的问题,急,急,急!!!!
- 关于 DLL 的问题?
- 请问那位大虾知道制作远程应用软件?
- 急招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