|
发表于 2025-4-16 23:25:40
|
显示全部楼层
四川省广元市
.版本 2
.支持库 HPSocket
.程序集 窗口程序集_启动窗口
.程序集变量 http, IWinHttp
.子程序 _按钮_发送_被单击
' 创建IWinHttp对象
http.创建()
' 设置目标URL
http.Open("POST", "http://www.example.com/api/post")
' 设置请求头(表单格式)
http.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
' 构造POST参数并进行URL编码
参数1名称 = "username"
参数1值 = 编码_URL编码("测试用户", 真)
参数2名称 = "password"
参数2值 = 编码_URL编码("123456", 真)
' 组合参数字符串
post数据 = 参数1名称 + "=" + 参数1值 + "&" + 参数2名称 + "=" + 参数2值
' 发送POST请求
http.Send(post数据)
' 获取响应内容
响应内容 = http.GetResponseText()
输出调试文本("服务器响应:", 响应内容)
' 销毁对象
http.销毁()
.子程序 __启动窗口_创建完毕
编码_URL编码初始化() ' 初始化URL编码支持库 |
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |
查看全部评分
|