Url.Post 以Post方式访问地址

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

以Post方式提交数据并获取其网页源文件。

语法

结果 = Url.Post(网址, 数据[, 超时时间])

参数

参数 数据类型 解释
网址 字符串 要访问并获取源文件的网址。
数据 字符串 要提交的Post参数数据。
超时时间 数值型 可选, 单位秒, 设置获取超时时间, 省略默认为30秒

返回值

字符串,读取到的网页源文件内容。

示例

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//下面例子是以post方式自动登录按键精灵论坛
Dim 网页源文件,账号,密码,请求地址,post数据
//先把需要登录的账号和密码进行赋值到变量
账号 = ""//此处设置自己的账号
密码 = ""//此处设置自己的账号
//发送账号登录请求的地址,以及POST请求的内容
请求地址 = "http://bbs.anjian.com/login.aspx?infloat=1&&inajax=1"
post数据 = "username=" & 账号 & "&password=" & 密码 &"&question=0&answer=&templateid=0&expires=43200"
网页源文件= url.post(请求地址, post数据)
TracePrint 网页源文件
If InStr(1,网页源文件, "登录成功") > 0 Then
TracePrint "登陆成功"
Else
TracePrint "登陆失败"
End If
//TracePrint url.get("http://bbs.anjian.com/")

备注

  • Post提交的数据可以使用Fiddler等抓包软件来获取,由于篇幅有限,具体使用方法请自行百度搜索,或者报名紫猫学院学习VIP教程。
  • 该命令仅支持utf-8编码网页,若获取源文件为乱码,可以尝试Linux的iconv命令转换编码。