.net实战(VB):连接网页数据

xwLink19962024-08-12 14:08

先上效果图

在上程序

vbnet 复制代码 
Public Sub SendPostRequest(aa As String)
    'MessageBox.Show(sheet.Name)
    Dim token As String
    Dim xmlhttp As Object
    Dim xmlhttp1 As Object
    Dim url As String
    Dim jsonParams As String
    Dim response As String
    xmlhttp = CreateObject("MSXML2.XMLHTTP")
    url = "http://newstocktest.xxx.com.cn:8088/inventory/login"
    jsonParams = "{""accountId"": ""hai.miao"", ""accountPwd"": ""Mh111"", ""lang"": ""zh_CN""}"
    xmlhttp.Open("POST", url, False)
    xmlhttp.setRequestHeader("Content-Type", "application/json")
    xmlhttp.send(jsonParams)
    response = xmlhttp.responseText
    ' 处理响应数据
    'MsgBox(response)
    Debug.WriteLine(response)
    For i = 0 To UBound(Split(response, ","))
        If InStr(Split(response, ",")(i), "token") > 0 Then
            token = Split(Split(response, ",")(i), ":")(1).Replace("""", "")
            Exit For
        End If
    Next
    'Thread.Sleep(5000)
    xmlhttp1 = CreateObject("MSXML2.XMLHTTP")
    url = "http://newstocktest.xxx.com.cn:8088/inventory/invertory/list"
    Debug.WriteLine(token)
    Dim aa1 = aa
    jsonParams = "{""name2"":""" & aa1 & """}"
    Debug.WriteLine(jsonParams)
    xmlhttp1.Open("POST", url, False)
    xmlhttp1.setRequestHeader("Content-Type", "application/json")
    xmlhttp1.setRequestHeader("tokenkey", token)
    xmlhttp1.send(jsonParams)
    response = xmlhttp1.responseText
    Debug.WriteLine(response)
    Dim o As JObject = JObject.Parse(response)
    Dim results As List(Of JToken) = o.Children().ToList
    userAbout.TextBox1.Text = aa1
    userAbout.DataGridView1.DataSource = Nothing
    userAbout.DataGridView1.Rows.Clear()
    For Each item As JProperty In results
        item.CreateReader()
        Select Case item.Name
            Case "data"
                'Debug.WriteLine(item.Value)
                Dim o1 As JObject = JObject.Parse(item.Value.ToString)
                Dim results1 As List(Of JToken) = o1.Children().ToList
                For Each item1 As JProperty In results1
                    item1.CreateReader()
                    Select Case item1.Name
                        Case "content"
                            Dim i = 1
                            For Each subitem As JObject In item1.Values
                                Debug.WriteLine(subitem("materCode"))
                                Debug.WriteLine(subitem("materCndesc"))
                                Dim rowIndex As Integer = userAbout.DataGridView1.Rows.Add()
                                userAbout.DataGridView1.Rows(rowIndex).Cells(0).Value = i
                                userAbout.DataGridView1.Rows(rowIndex).Cells(1).Value = subitem("materCode")
                                userAbout.DataGridView1.Rows(rowIndex).Cells(2).Value = subitem("materCndesc")
                                userAbout.DataGridView1.Rows(rowIndex).Cells(3).Value = subitem("materAssist")
                                'userAbout.DataGridView1.Rows(rowIndex).Cells(4).Value = subitem("materZl")
                                'userAbout.DataGridView1.Rows(rowIndex).Cells(5).Value = subitem("stockNum")
                                userAbout.DataGridView1.Rows(rowIndex).Cells(6).Value = subitem("stockNum")
                                userAbout.DataGridView1.Rows(rowIndex).Cells(7).Value = subitem("materZl")

                                i = i + 1
                            Next
                        Case "totalElements"
                    End Select
                Next
        End Select
    Next
    'MessageBox.Show("hello")
    Debug.WriteLine("hello")
    'MessageBox.Show(sheet.Name)
    Debug.WriteLine(sheet.Name)
End Sub

解析

1.aa是需要查询的字符串

2.定义一个网页连接，网址，传入的参数；然后打开网址，发送请求，传参。response是获取到返回的文本。如何获取可以传参的网页地址，要传入哪些参数，因网页不同而不同，具体方法请另外私信博主。此处是实现登录并获取返回的数据(主要是为了获取令牌，后续的数据获取都要在传参的同时传入令牌)

vbnet 复制代码 
    xmlhttp = CreateObject("MSXML2.XMLHTTP")
    url = "http://newstocktest.xxx.com.cn:8088/inventory/login"
    jsonParams = "{""accountId"": ""hai.miao"", ""accountPwd"": ""Mh111"", ""lang"": ""zh_CN""}"
    xmlhttp.Open("POST", url, False)
    xmlhttp.setRequestHeader("Content-Type", "application/json")
    xmlhttp.send(jsonParams)
    response = xmlhttp.responseText

3.对返回的数据进行处理，获取token(令牌)

vbnet 复制代码 
    For i = 0 To UBound(Split(response, ","))
        If InStr(Split(response, ",")(i), "token") > 0 Then
            token = Split(Split(response, ",")(i), ":")(1).Replace("""", "")
            Exit For
        End If
    Next

Debug.WriteLine(token)输出的数据如下

43531674-36de-4d4a-a940-db2bd1d2c711

4.登录进去以后，在相应的控件中继续传参，我这个实例中控件的id是name2，传入aa1字符串。这里要注意，发送请求时要传入token（令牌），否则时不会返回数据的。

vbnet 复制代码 
    xmlhttp1 = CreateObject("MSXML2.XMLHTTP")
    url = "http://newstocktest.xxx.com.cn:8088/inventory/invertory/list"
    Debug.WriteLine(token)
    Dim aa1 = aa
    jsonParams = "{""name2"":""" & aa1 & """}"
    Debug.WriteLine(jsonParams)
    xmlhttp1.Open("POST", url, False)
    xmlhttp1.setRequestHeader("Content-Type", "application/json")
    xmlhttp1.setRequestHeader("tokenkey", token)
    xmlhttp1.send(jsonParams)
    response = xmlhttp1.responseText

补充一句，传参的网址和我们手动登录的网址是不一样的，要获取常规网站的传参网址，请私信博主。

5.Debug.WriteLine(response)输出的数据如下，将这一串数据赋值给JObject变量，获取child(子项)，这里面我们主要获取data子项

vbnet 复制代码 
{"status":"SUCCESS","message":"加载完成","data":{"content":[{"id":59679,"materCode":"11726877","materCndesc":"截止阀,1GLN3R V3,S43/38,$$$$","materEndesc":"GLOBE VALVE,1GLN3R V3,S43/38,$$$$","materAssist":"[-GTA-I-IF-MOC-PT,-MOU-B8A/8A.A]","materVspec":"GLN-针形截止阀","materVspecen":"NEEDLE GLOBE VALVE","materCaliber":"1","materPress":"CLASS 300","materConn":"R-突面法兰","materConnen":"R-RAISED FACE END","materShell":"ASTM A182 F316L","materTexture":"S43","materInter":"F316L/HF","optType":"HW","materOpt":null,"materOpten":null,"crtdate":null,"crtuserid":null,"modifydate":null,"muserid":null,"cmaterId":null,"stockNum":1,"custId":null,"custName":null,"custCode":null,"cmaterVspec":null,"cmaterCode":null,"cmaterDesc":null,"cmaterSpecs":null,"cmaterUnit":null,"materLgort":"CHINA","materVbeln":"86592","materPosnr":"131","lineMemo":"/体盖:氧阀订单,O标识,硬度测试：10%数量，晶间腐蚀:ASTM A262 E法,林德新加坡项目,3A标识/阀瓣:硬度测试：10%数量，晶间腐蚀:ASTM A262 E法/焊缝:焊后热处理,体圈AW-PT,硬度测试：10%数量/阀杆:硬度测试：10%数量,晶间腐蚀:ASTM A262 E法/清洗/测试要求：氧气阀清洗/油漆系统:不油漆/挂牌显示内容:GLOBE VALVE/R87853/0012AP0940/3BR112/ASME//阀门整机其他要求:86592-130,131所有阀门务必保证 相同炉号；不与介质接触的螺纹与键处，以及其他必要部位，如果要使用润滑，必须使用氧用LCO36  ","auart":null,"zkclx":null,"materZl":"483","frozenNum":0.0},{"id":59681,"materCode":"11726877","materCndesc":"截止阀,1GLN3R V3,S43/38,$$$$","materEndesc":"GLOBE VALVE,1GLN3R V3,S43/38,$$$$","materAssist":"[-GTA-I-IF-MOC-PT,-MOU-B8A/8A.A]","materVspec":"GLN-针形截止阀","materVspecen":"NEEDLE GLOBE VALVE","materCaliber":"1","materPress":"CLASS 300","materConn":"R-突面法兰","materConnen":"R-RAISED FACE END","materShell":"ASTM A182 F316L","materTexture":"S43","materInter":"F316L/HF","optType":"HW","materOpt":null,"materOpten":null,"crtdate":null,"crtuserid":null,"modifydate":null,"muserid":null,"cmaterId":null,"stockNum":1,"custId":null,"custName":null,"custCode":null,"cmaterVspec":null,"cmaterCode":null,"cmaterDesc":null,"cmaterSpecs":null,"cmaterUnit":null,"materLgort":"CHINA","materVbeln":"86592","materPosnr":"31","lineMemo":"/体盖:氧阀订单,O标识/清洗/测试要求：氧气阀清洗/油漆系统:不锈钢不油漆/阀门整机其他要求:该订单所有阀门务必保证相同炉号；不与介质接触的螺纹与键处，以及其他必要部位，如果要使用润滑，必须使用氧用LCO36   ","auart":null,"zkclx":null,"materZl":"812","frozenNum":0.0},{"id":59680,"materCode":"11726877","materCndesc":"截止阀,1GLN3R V3,S43/38,$$$$","materEndesc":"GLOBE VALVE,1GLN3R V3,S43/38,$$$$","materAssist":"[-GTA-I-IF-MOC-PT,-MOU-B8A/8A.A]","materVspec":"GLN-针形截止阀","materVspecen":"NEEDLE GLOBE VALVE","materCaliber":"1","materPress":"CLASS 300","materConn":"R-突面法兰","materConnen":"R-RAISED FACE END","materShell":"ASTM A182 F316L","materTexture":"S43","materInter":"F316L/HF","optType":"HW","materOpt":null,"materOpten":null,"crtdate":null,"crtuserid":null,"modifydate":null,"muserid":null,"cmaterId":null,"stockNum":1,"custId":null,"custName":null,"custCode":null,"cmaterVspec":null,"cmaterCode":null,"cmaterDesc":null,"cmaterSpecs":null,"cmaterUnit":null,"materLgort":"CHINA","materVbeln":"86592","materPosnr":"61","lineMemo":"/体盖:氧阀订单,O标识,硬度测试：10%数量/阀瓣:硬度测试：10%数量/焊缝:焊后热处理,体圈AW-PT,硬度测试：10%数量/阀杆:硬度测试：10%数量/清洗/测试要求：氧气阀清洗/油漆系统:不锈钢不油漆/挂牌显示内容:GLOBE VALVE/R87853/0012AP0590/3BR112/ASME//阀门整机其他要求:86592-60,61所有阀门务必保证相同炉号；不与介质接触的螺纹与键处，以及其他必要部位，如果要使用润滑，必须使用氧用LCO36   ","auart":null,"zkclx":null,"materZl":"755","frozenNum":0.0}],"totalElements":3},"code":200}

6.data子项下还有子项，我们还要获取content子项，代码体现在如下部分。

vbnet 复制代码 
    Dim o As JObject = JObject.Parse(response)
    Dim results As List(Of JToken) = o.Children().ToList
    userAbout.TextBox1.Text = aa1
    userAbout.DataGridView1.DataSource = Nothing
    userAbout.DataGridView1.Rows.Clear()
    For Each item As JProperty In results
        item.CreateReader()
        Select Case item.Name
            Case "data"
                'Debug.WriteLine(item.Value)
                Dim o1 As JObject = JObject.Parse(item.Value.ToString)
                Dim results1 As List(Of JToken) = o1.Children().ToList
                For Each item1 As JProperty In results1
                    item1.CreateReader()
                    Select Case item1.Name
                        Case "content"

7.获取到content后，根据每个数据的名称填入datagridview控件

vbnet 复制代码 
                        Case "content"
                            Dim i = 1
                            For Each subitem As JObject In item1.Values
                                Debug.WriteLine(subitem("materCode"))
                                Debug.WriteLine(subitem("materCndesc"))
                                Dim rowIndex As Integer = userAbout.DataGridView1.Rows.Add()
                                userAbout.DataGridView1.Rows(rowIndex).Cells(0).Value = i
                                userAbout.DataGridView1.Rows(rowIndex).Cells(1).Value = subitem("materCode")
                                userAbout.DataGridView1.Rows(rowIndex).Cells(2).Value = subitem("materCndesc")
                                userAbout.DataGridView1.Rows(rowIndex).Cells(3).Value = subitem("materAssist")
                                'userAbout.DataGridView1.Rows(rowIndex).Cells(4).Value = subitem("materZl")
                                'userAbout.DataGridView1.Rows(rowIndex).Cells(5).Value = subitem("stockNum")
                                userAbout.DataGridView1.Rows(rowIndex).Cells(6).Value = subitem("stockNum")
                                userAbout.DataGridView1.Rows(rowIndex).Cells(7).Value = subitem("materZl")

                                i = i + 1
                            Next

此项目中Excel侧边栏式窗体是如何实现的？下一节会讲到。

相关推荐
小羊没烦恼！4 天前
微服务化的基石——持续集成
java·大数据·word·powerpoint·.net
_Jonas5 天前
.net framework开发环境正式环境配置文件的切换
.net·wpf
尤鸟倦5 天前
OneNote table复制到Excel遇到的各种问题
excel
2501_930707785 天前
使用C#代码使用条件格式为 Excel 隔行设置颜色
c#·excel
leihefeng6 天前
PX04-用 Python 读 Excel 画折线图，还能直接插回 Excel 文件
python·excel
yanlaifan6 天前
Excel中指定单元格不能输入内容的方法
excel
Y3815326626 天前
C# 调用谷歌搜索 API:HttpClient 与 System.Text.Json 实战
搜索引擎·.net
babe小鑫6 天前
信息与计算科学专业应届生面试 怎么证明自己能解决业务问题
学习·r语言·excel
qq_410194297 天前
.NET 8.0 下基于 PaddleOCRSharp 的离线文字识别落地指南
算法·.net
Data-Miner7 天前
商品ABC分类分析怎么用AI做？脚本复用+图表可编辑的一次完整实操
人工智能·数据分析·excel
热门推荐
01Telegram APK 下载安装完整指南 — 2026年最新02GitHub 镜像站点03国内可直接用、免费额度/永久免费的大模型API清单（含 SiliconFlow、火山、阿里、智谱、百度、Kimi、DeepSeek、DMXAPI 等）042026 爱知・名古屋亚运会怎么看？直播平台+赛程安排分享05历年考研数学一、数学二、数学三真题试卷及答案PDF06蜘蛛磁力 搜索引擎大全，如何使用蜘蛛磁力查找磁力链接07微信历史版本含下载地址（ Windows PC | 安卓 | MAC ）及设置微信不更新08给AI一张“业务概念地图“：本体如何从哲学走向企业智能09jev-ultrafast 深度解析：7 秒订机票的浏览器 Agent 是如何炼成的10算法竞赛C++常用的STL