tnfh.net
当前位置:首页 >> vB调用http接口 >>

vB调用http接口

可以用Inet控件或者XMLHTTP组件 Dim HTTP Set HTTP=CreateObject("MSXML2.XMLHTTP") With HTTP .open "POST",LoginPageURL,False .setRequestHeader "Content-Type","application/x-www-form-urlencoded" .send "POST信息:aaa=bbb&ccc=ddd" Msg...

不想一点一点写了,粘贴给你吧 使用 HttpWebRequest 向网站提交数据 HttpWebRequest 是 .net 基类库中的一个类,在命名空间 System.Net 下面,用来使用户通过 HTTP 协议和服务器交互。 HttpWebRequest 对 HTTP 协议进行了完整的封装,对 HTTP 协...

在VB6的菜单“工程”“引用”中添加 Microsoft Scripting Runtime Microsoft ActiveX Data Objects 2.8 Library Microsoft XML, v3.0 代码字数太多,上传在百度网盘pan.baidu.com/s/1gdz0Fon

一个是终端,一个是服务器端 不过,你有asp.net基础,学vb会相当快》。。。

既然是HTTP ,大家常规做法,是在HTTP上面放上公开接口的ASP 或PHP之类的WEB程序,然后本地去调用,比如登录程序Login.asp此WEB程序里面去调用ACCESS数据库(现在大多数的小网站都是这么做的)http://www.xxx.com/Login.asp?user=admin&password=12F5F...

Function GetByWinHttp$(ByVal GetUrl$) On Error Resume Next Dim XmlHttp As Object 'Dim PicBytes() As Byte '验证码字节数组 Set XmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1") With XmlHttp '.SetProxy 2, "IP:Port" '设置代理 If...

Public Function Ajax_Post(ByVal StrUrl As String, Optional ByVal StrData As String, Optional ByVal Index As Long) As Variant On Error GoTo MyError: Dim Object As Object, S As String, B() As Byte Set Object = CreateObject("Micro...

vb6,新建一个工程粘贴以下代码,马上运行,一切OK!!!!!! Private Sub Form_Load() a = getHTTPPage("http://ip138.com/ip2city.asp") b = Split(a, "[")(1) c = Split(b, "]")(0) MsgBox c End Sub Function getHTTPPage(url) On Error Resume Nex...

1.使用socket方式,通过tcp连接web服务器的80端口,发送http协议命令.来实现传输.但太底层.都需要自己来实现.不好, 2.使用xmlhttp控件.vb使用他,快速简单,可以选择get/post方式 下面是使用的封装函数. Function xmlread(url) As String ''用xml读...

你好,获取源码可以用XMLHTTP组件,下面是一个获取源码函数,可以直接使用 Public Function getHtmlStr(strUrl As String) '获取源码 On Error Resume Next Dim XmlHttp As Object, stime, ntime Set XmlHttp = CreateObject("Microsoft.XMLHTTP...

网站首页 | 网站地图
All rights reserved Powered by www.tnfh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com