精华内容
下载资源
问答
  • VB利用post登陆网页webqq简单一例,通过WEB在VB窗体中登录QQ,仅此功能,发上来供有用者参考,牵扯验证码验证之类的东西,谢谢。
  • 主要介绍了VB使用XMLHTTP实现Post与Get的方法,有一定的借鉴价值,需要的朋友可以参考下
  • VB6 http post 发送与返回内容处理
  • 异步处理主球,能有效地解决xmlhttp组件卡死问题
  • VB的HttpPost请求

    千次阅读 2019-05-23 20:21:13
    注意:URL最后要“/”结尾,否则会导致格式不正确无法正常接收。我就在这里踩过坑,不加“/”服务端就是收不到POST数据,后面才发现加了“/”就可以收到了。...下面是VB6的HTTP POST 发送数据的代码: '函数返回值是...

    注意:URL最后要“/”结尾,否则会导致格式不正确无法正常接收。我就在这里踩过坑,不加“/”服务端就是收不到POST数据,后面才发现加了“/”就可以收到了。

    函数使用示列:
    HttpPost(“http://172.20.11.114/KormeeDbHicky/devpsot/","data1=88&data2=99”)

    下面是VB6的HTTP POST 发送数据的代码:

    '函数返回值是返回信息
    'Url:发送的Url地址
    'PostMsg:要发送的数据
    
    Function HttpPost(Url As String, PostMsg As String) As String
    On Error GoTo er
    Dim XMLHTTP As Object
    Set XMLHTTP = CreateObject("Msxml2.XMLHTTP")
    If Not IsObject(XMLHTTP) Then
        Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
        If Not IsObject(XMLHTTP) Then Exit Function
    End If
    XMLHTTP.Open "POST", Url, False
    XMLHTTP.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
    'XMLHTTP.send PostMsg
    XMLHTTP.send UTF8EncodeURI(PostMsg)
    
    Do While XMLHTTP.ReadyState <> 4
        DoEvents
    Loop
    
    If XMLHTTP.Status = 200 Then
        HttpPost = XMLHTTP.ResponseText
    Else
        HttpPost = ""
    End If
    
    Exit Function
    er:
        MsgBox "发送POST请求失败!", , "提示"
    End Function
    
    '发送的内容转为utf8
    Public Function UTF8EncodeURI(szInput)
    Dim wch, uch, szRet
    Dim X
    Dim nAsc, nAsc2, nAsc3
    
    If szInput = "" Then
        UTF8EncodeURI = szInput
        Exit Function
    End If
    
    For X = 1 To Len(szInput)
        wch = Mid(szInput, X, 1)
        nAsc = AscW(wch)
        If nAsc < 0 Then nAsc = nAsc + 65536
        If (nAsc And &HFF80) = 0 Then
            szRet = szRet & wch
        Else
            If (nAsc And &HF000) = 0 Then
                uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
                szRet = szRet & uch
            Else
                uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
                Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
                Hex(nAsc And &H3F Or &H80)
                szRet = szRet & uch
            End If
        End If
    Next
    
    UTF8EncodeURI = szRet
        
    End Function
    

    扫码下方二维码关注本人公众号分享编程相关知识,共同进步吧。

    工众号回复【我要资源免费获取,获取更多学习资源及视频教程 (Linux\Python\Java\PHP\Labview和大数据等视频资料)。

    联系邮箱:898109004@qq.com

    在这里插入图片描述

    微 信 号:yang10242019


    展开全文
  • VBPOST代码示例

    热门讨论 2010-09-04 16:33:21
    VBPOST代码示例VBPOST代码示例VBPOST代码示例
  • 在https的链接中vb使用post提交xml数据

    千次阅读 2016-01-04 01:35:22
    由于工作需要,需要vb提交xml数据到服务器上,所以,需要找到一个好的方法。  之前有代码使用了MSXML2.XMLHTTP对象进行xml数据取得,而且链接是https形式的,于是就参照代码提交,写了下面这么一个函数,来进行...

      由于工作需要,需要vb提交xml数据到服务器上,所以,需要找到一个好的方法。

      之前有代码使用了MSXML2.XMLHTTP对象进行xml数据取得,而且链接是https形式的,于是就参照代码提交,写了下面这么一个函数,来进行操作

     1 Private Function CallAPI(url1 As String, filePath As String)
     2     'load file
     3     Dim document As MSXML2.DOMDocument
     4     Set document = CreateObject("MSXML2.DOMDocument")
     5     document.Load filePath  'load xml file
     6     'send data to server
     7     Dim xmlHttp As MSXML2.XMLHTTP
     8     Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
     9     xmlHttp.Open "POST", url1, False 'post method to
    10     xmlHttp.setRequestHeader "Content-Type", "application/xml" 'xml type of http request xml,not text/xml
    11     xmlHttp.send (document.xml)
    12     'clear
    13     Set xmlHttp = Nothing
    14     Set document = Nothing
    15 End Function

      但是,提交总是失败,在下面的这句代码就被中断,一直找不到原因。

    1     xmlHttp.send (document.xml)

      突然想到http协议和https协议是不同的,可能在提交数据时有差异,猜测MSXML2.XMLHTTP对象应该不支持https,经过寻找找到另一个对象WinHttp.WinHttpRequest,于是有了下面的代码

     1 Private Function CallAPI(url1 As String, filePath As String)
     2     'load file
     3     Dim document As MSXML2.DOMDocument
     4     Set document = CreateObject("MSXML2.DOMDocument")
     5     document.Load filePath
     6 
     7     Dim xmlHttps As WinHttp.WinHttpRequest
     8     Set xmlHttps = CreateObject("WinHttp.WinHttpRequest.5.1")
     9     xmlHttps.Open "POST", url1, False
    10     xmlHttps.setRequestHeader "Content-Type", "application/xml"
    11 
    12     xmlHttps.send document.xml
    13  
    14     DoEvents
    15     
    16 End Function

      执行了上面的代码之后程序正常结束,但是远端的服务器中的数据没有变化,查看了xmlHttps.status之后发现,提示没有权限,嗯,服务器那边需要用户名和密码验证的,这边没有设置登录用户名和密码,于是加了一句

     1 Private Function CallAPI(url1 As String, filePath As String)
     2     'load file
     3     Dim document As MSXML2.DOMDocument
     4     Set document = CreateObject("MSXML2.DOMDocument")
     5     document.Load filePath
     6 
     7     Dim xmlHttps As WinHttp.WinHttpRequest
     8     Set xmlHttps = CreateObject("WinHttp.WinHttpRequest.5.1")
     9     xmlHttps.Open "POST", url1, False
    10     xmlHttps.setRequestHeader "Content-Type", "application/xml"
    11     xmlHttps.SetCredentials "用户名 ", "密码", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    12 
    13     xmlHttps.send document.xml
    14  
    15     DoEvents
    16     
    17 End Function

      执行了代码之后发现,xml对象的数据被正常提交。

    总结:

      1. MSXML2.XMLHTTP对象不能提交https数据到服务器上

      2. WinHttp.WinHttpRequest对象需要显式的设置用户名和密码,在MSXML2.XMLHTTP对象使用的过程中,没有登录的话,会弹出用户名和密码输入框,而WinHttp.WinHttpRequest对象没有,直接提交数据后,提示没有权限

      3. 提交xml对象时,设置的请求头部应该是"Content-Type", "application/xml"而不是"Content-Type", "text/xml"

    其它对象也可以达到https提交的效果:

    1 ...    
    2     Dim serverxml As MSXML2.ServerXMLHTTP
    3     Set serverxml = CreateObject("MSXML2.ServerXMLHTTP")
    4     serverxml.Open "POST", url1, False, "用户名", "密码"
    5     serverxml.setRequestHeader "Content-Type", "application/xml"
    6     serverxml.send document.xml
    7 ...

      注:WinHttp.WinHttpRequest对象需要添加Microsoft WinHTTP Services, version 5.1组件的引用

        MSXML2.XMLHTTP和MSXML2.ServerXMLHTTP需要添加Microsoft MsXml组件的引用

    展开全文
  • VFP VB多线程下载http https Post Get网络组件,内部封装了 HttpGet HttpPost HttpDown 带回调,显示进度。
  • httppost提交数据VB.rar

    2019-12-14 22:44:25
    VB开发的通过httppost向服务器提交数据。Http协议Post提交。VB开发的通过httppost向服务器提交数据。Http协议Post提交
  • vb post 登录网站

    热门讨论 2011-12-21 10:37:58
    vb post 登录 仅供学习测试使用,非商业软件
  • VB XMLHTTP使用方法

    2020-09-06 01:32:50
    VB判断地址是否存在的XMLHTTP方法
  • vb.net抓取需要post 数据的网页

    千次阅读 2019-01-20 22:35:54
    以csdn问答里面的一个例子吧。...这是一个需要post查询数据的API. 我这里会隐藏一下别人提供的token。 新建一个控制台。代码如下: Imports System.Net Imports System.Text Module Module1 Sub Main() ...

    以csdn问答里面的一个例子吧。

    参考调用接口教程网址:
    https://tushare.pro/document/1?doc_id=130

    这是一个需要post查询数据的API.

    我这里会隐藏一下别人提供的token。

    新建一个控制台。代码如下:

    Imports System.Net
    Imports System.Text
    Module Module1
    
        Sub Main()
            Dim http As New WebClient
            Dim url As String
            Dim postdata As String
            Dim Responsetext As String
            url = "http://api.tushare.pro/"
            postdata = "{""api_name"": ""stock_basic"", ""token"": ""你自己的token"", ""params"": {""list_stauts"":""L""}, ""fields"": ""ts_code,name,area,industry,list_date""}"
            http.Headers(HttpRequestHeader.ContentType) = "application/x-www-form-urlencoded"
            http.Encoding = Encoding.UTF8
            Responsetext = RegularExpressions.Regex.Unescape(http.UploadString(url, postdata))
            Console.Write(Responsetext)
            Console.ReadKey()
        End Sub
    End Module

    我根据token最后得到了数据:

     

     

    后面处理json数据就不写了。 

    展开全文
  • VB.NET 的HTTP访问,并POST数据

    千次阅读 2019-07-31 21:48:05
    VB.NET 的HTTP访问,并POST数据前言项目需要生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少的KaTeX数学公式新的甘特图功能,丰富你的...

    VB.NET 的HTTP访问,并POST数据

    前言

    第一次写博客,以前都是OneNote上私有的,但是今天换了电脑,还没来得及装。想着,有技术还是分享出来吧,不涉及机密的部分以后就上CSDN了。

    项目需要

    前天,接了一个项目,需要将传感器的数值采集回来,然后上传到云服务器上。
    为了让现场采集站维护人员好用,得要有界面,用VB.net做界面还是极好的。采集回来的数据解析好,打包发往服务器代码如下:

    '准备接口
    Dim request = System.Net.WebRequest.Create("http://www.baidu.cn/com/api/api.php?mode=setIsee")
    request.Method = "POST"
    request.ContentType = "application/x-www-form-urlencoded"
    
    '准备post内容
    Dim encoding = New System.Text.UTF8Encoding
    Dim bytes = encoding.GetBytes("isee=setIsesadfasdfasdfadfasfe")
    
    '写入post内容
    request.ContentLength = bytes.Length
    Dim restream = request.GetRequestStream()
    restream.Write(bytes, 0, bytes.Length)
    restream.Close()
    
    '发送服务器请求,并接受返回
    Dim stream = request.GetResponse().GetResponseStream()
    Dim sr = New System.IO.StreamReader(stream, System.Text.Encoding.GetEncoding("GB18030"))
    Debug.Print(sr.ReadToEnd())
    sr.Dispose()
    
    展开全文
  • VB POST数据

    千次阅读 2015-07-21 11:33:35
    INET:高效的获取网页源码控件,可以自己定义POST和GET方式,使用灵活,推荐使用 WSOCK:效率最高,但是所有东西都要自己定义 一、用Webbrowser 代码:Webbrowser.navigate (http://xxx/1.htm?name=apple&i
  • VB PostMessage操作计算器

    热门讨论 2010-11-06 17:36:32
    VB PostMessage操作计算器
  • 内容索引:VB源码,系统相关,窗口管理 看到朋友用枚举法写的窗口管理器,功能不错,很强大 ,就是感觉用有点俗,而且有点乱,我改进了一下,使用PostMessage来获取当前的所有窗口信息,并列举出来,实现关闭、退出、...
  • 前段时间写的获取速度还不错 post还是get忘记了有兴趣的可以指教下
  • "POST", PostVars) '获取返回信息 Dim sRemoteInfo As String = System.Text.Encoding.[Default].GetString(byRemoteInfo) '这是获取返回信息 Dim str5 As String = sRemoteInfo Catch End Try Catch ex As ...
  • VB6 中使用JSON的类库,有完整示例工程。亲测可用,仅需5积分,比同类资源动辄几十分性价比高多了。赶紧下载用吧。
  • VB6调用webservice

    2018-12-27 22:06:03
    VB6调用webservice的例子,工程引用了Microsoft soap sdk 3.0 和 xml 6.0 (A vb6.0 program for webservice,using Microsoft soap sdk 3.0 and xml 6.0)
  • VB INET控制post提交网页表单源码

    热门讨论 2011-12-04 13:22:24
    VB INET控制post提交网页表单源码
  • Vb程序实现HTTP方式下载文件 利用VB实现软件下载,类似于IE浏览器的“另存为”方式下载文件,通过API直接调用系统的下载功能和界面,程序依赖于操作系统自带的shdocvw.dll组件。
  • VB利用post登陆网页webqq简单一例,通过WEB在VB窗体中登录QQ,仅此功能,发上来供有用者参考,牵扯验证码验证之类的东西
  • VB Post登陆网页Web QQ

    2013-02-01 10:47:44
    VB Post登陆网页Web QQ
  • JSON VB6使用模块

    2018-03-01 15:48:16
    JSON VB6中使用模块,带有有一个例子程序,请大家参考。
  • VB调用curl

    2018-09-20 09:42:10
    asp微信支付,再加上这个调试下,就可以实现中间插件的。
  • 完整websocket 的vb2010工程服务端示例,直接能用于搭建WEBSOCKET服务器。
  • VB发送HTTP请求

    2018-09-08 15:00:58
    VB发送HTTP请求,返回网络请求的结果,内部还包含网络中各种制式转换的代码。
  • vb l利用Inet 控件 post 数据包,实现部分功能 供新手 学习用,望高手 改进!!有意见加 QQ278698593探讨

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 19,370
精华内容 7,748
关键字:

postvb