hp-socket 实现 网页访问() 这个功能!!

j68832688

论坛里面有  hp-socket  写的   POST get   HTTPS  HTTP


实现 网页访问  这个功能的,帖子, 一下找不到了,


前天还看见了, 大神发个地址吧.

xiaoyu1986

https://bbs.125.la/forum.php?mod=viewthread&tid=14786868
https://bbs.125.la/forum.php?mod=viewthread&tid=14717239

j68832688

xiaoyu1986 发表于 2024-12-20 20:42
https://bbs.125.la/forum.php?mod=viewthread&tid=14786868
https://bbs.125.la/forum.php?mod=viewthread ...

你这个是服务器的,

xiaoyu1986

j68832688 发表于 2024-12-20 20:43
你这个是服务器的,

https://bbs.125.la/forum.php?mod=viewthread&tid=14788573

j68832688

xiaoyu1986 发表于 2024-12-20 20:45
https://bbs.125.la/forum.php?mod=viewthread&tid=14788573

呵呵，不是这个

我是要 用HP 来 提交 POST 和 GET ,  

xiaoyu1986

j68832688 发表于 2024-12-20 20:46
呵呵，不是这个

我是要 用HP 来 提交 POST 和 GET ,

新版的HPSocket就支持的。
https://bbs.125.la/forum.php?mod=viewthread&tid=14826946

小情缘

可以实现  不过我也没有找到帖子 但是具体意义不大啊 主要看你为什么要用这个hp做访问  换其他野可以的啊

冬夏

  

子程序名	返回值类型	公开	备 注
HP网页_访问	逻辑型
参数名	类 型	参考	可空	数组	备 注
网址	文本型
方式	文本型				大写的，GET，POST或者其他
提交文本	文本型
提交字节集	字节集
Cookie	文本型
返回状态码	短整数型
返回内容	文本型
返回字节集	字节集
返回协议头	文本型				这里需要传变量，获取指定的协议头，这里内容会改变，为空则没有
返回Cookie	文本型				为空则没有
连接超时	整数型				默认15000（15秒）
等待超时	整数型				默认30000（30秒）
提交协议头	文本型

变量名	类 型	静态	数组	备 注
局_网页	IWinHttpEx
局_协议头	TNVPair		0
i	整数型
局_内容	文本型
局_每行内容	文本型		0
局_文本	文本型		0
局_成员数	整数型
局_名	文本型
局_值	文本型
o	整数型

如果真 (取文本长度 (网址) ＝ 0)
返回 (假)
如果真 (取文本长度 (方式) ＝ 0)
返回 (假)

如果真 (连接超时 ＝ 0)
连接超时 ＝ 15000
如果真 (等待超时 ＝ 0)
等待超时 ＝ 30000

如果真 (局_网页.Open (方式, 网址) ＝ 真)
如果真 (寻找文本 (提交协议头, “：”, , 假) ＞ 0)
提交协议头 ＝ 子文本替换 (提交协议头, “：”, “:”, , , 真)

如果真 (寻找文本 (提交协议头, “:”, , 假) ＞ 0)
局_每行内容 ＝ 分割文本 (提交协议头, #换行符, )
计次循环首 (取数组成员数 (局_每行内容), o)
如果真 (寻找文本 (局_每行内容 [o], “:”, , 假) ＞ 0)
局_文本 ＝ 分割文本 (局_每行内容 [o], “:”, )
局_成员数 ＝ 取数组成员数 (局_文本)
如果真 (局_成员数 ＞ 0 且 局_成员数 ％ 2 ＝ 0)
变量循环首 (1, 局_成员数, 2, i)
局_名 ＝ 删首尾空 (局_文本 [i])
局_值 ＝ 删首尾空 (局_文本 [i ＋ 1])
局_网页.SetRequestHeader (局_名, 局_值)
变量循环尾 ()


计次循环尾 ()

如果真 (取文本长度 (Cookie) ＞ 0)
局_网页.SetRequestHeader (“Cookie”, Cookie)

如果真 (寻找文本 (提交协议头, “Accept:”, , 真) ＝ -1)
局_网页.SetRequestHeader (“Accept”, “*/*”)

如果真 (寻找文本 (提交协议头, “Connection”, , 真) ＝ -1)
局_网页.SetRequestHeader (“Connection”, “keep-alive”)

如果真 (寻找文本 (提交协议头, “accept-language”, , 真) ＝ -1)
局_网页.SetRequestHeader (“accept-language”, “zh-CN,zh”)

如果真 (寻找文本 (提交协议头, “Content-Type”, , 真) ＝ -1)
局_网页.SetRequestHeader (“Content-Type”, “application/x-www-form-urlencoded”)

如果真 (寻找文本 (提交协议头, “User-Agent”, , 真) ＝ -1)
局_网页.SetRequestHeader (“User-Agent”, “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”)

局_网页.SetConnectTimeout (连接超时)
局_网页.SetRequestTimeout (等待超时)
判断 (取文本长度 (提交文本) ＞ 0)
如果真 (局_网页.SendEx (提交文本) ＝ 假)
返回内容 ＝ “”
返回字节集 ＝ {  }
返回状态码 ＝ 0
返回 (假)

判断 (取字节集长度 (提交字节集) ＞ 0)
如果真 (局_网页.SendEx (提交字节集) ＝ 假)
返回内容 ＝ “”
返回字节集 ＝ {  }
返回状态码 ＝ 0
返回 (假)



如果真 (局_网页.Send () ＝ 假)
返回内容 ＝ “”
返回字节集 ＝ {  }
返回状态码 ＝ 0
返回 (假)

返回状态码 ＝ 局_网页.Status ()
如果真 (是否为空 (返回内容) ＝ 假)
返回内容 ＝ 局_网页.ResponseText (真)
如果真 (是否为空 (返回字节集) ＝ 假)
返回字节集 ＝ 局_网页.ResponseBody ()
如果真 (是否为空 (返回协议头) ＝ 假)
如果 (取文本长度 (返回协议头) ＞ 0)
返回协议头 ＝ 局_网页.GetResponseHeader (返回协议头)


如果真 (局_网页.GetAllResponseHeaders (局_协议头))
计次循环首 (取数组成员数 (局_协议头), i)
局_内容 ＝ 局_内容 ＋ 局_协议头 [i].name ＋ “: ” ＋ 局_协议头 [i].value ＋ #换行符
计次循环尾 ()
返回协议头 ＝ 局_内容


局_内容 ＝ 局_网页.GetResponseHeader (“Set-Cookie”)
如果 (取文本长度 (局_内容) ＝ 0)
返回Cookie ＝ Cookie
返回Cookie ＝ 局_内容
Cookie ＝ 局_内容
返回 (真)
返回 (假)

.版本 2<br /> <br /> .子程序 HP网页_访问, 逻辑型<br /> .参数 网址, 文本型<br /> .参数 方式, 文本型, , 大写的，GET，POST或者其他<br /> .参数 提交文本, 文本型, 可空<br /> .参数 提交字节集, 字节集, 可空<br /> .参数 Cookie, 文本型, 可空<br /> .参数 返回状态码, 短整数型, 参考 可空<br /> .参数 返回内容, 文本型, 参考 可空<br /> .参数 返回字节集, 字节集, 参考 可空<br /> .参数 返回协议头, 文本型, 参考 可空, 这里需要传变量，获取指定的协议头，这里内容会改变，为空则没有<br /> .参数 返回Cookie, 文本型, 参考 可空, 为空则没有<br /> .参数 连接超时, 整数型, 可空, 默认15000（15秒）<br /> .参数 等待超时, 整数型, 可空, 默认30000（30秒）<br /> .参数 提交协议头, 文本型, 可空<br /> .局部变量 局_网页, IWinHttpEx<br /> .局部变量 局_协议头, TNVPair, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_内容, 文本型<br /> .局部变量 局_每行内容, 文本型, , "0"<br /> .局部变量 局_文本, 文本型, , "0"<br /> .局部变量 局_成员数, 整数型<br /> .局部变量 局_名, 文本型<br /> .局部变量 局_值, 文本型<br /> .局部变量 o, 整数型<br /> <br /> <br /> .如果真 (取文本长度 (网址) ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (取文本长度 (方式) ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .如果真 (连接超时 ＝ 0)<br />     连接超时 ＝ 15000<br /> .如果真结束<br /> .如果真 (等待超时 ＝ 0)<br />     等待超时 ＝ 30000<br /> .如果真结束<br /> <br /> .如果真 (局_网页.Open (方式, 网址) ＝ 真)<br /> <br />     .如果真 (寻找文本 (提交协议头, “：”, , 假) ＞ 0)<br />         提交协议头 ＝ 子文本替换 (提交协议头, “：”, “:”, , , 真)<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (提交协议头, “:”, , 假) ＞ 0)<br />         局_每行内容 ＝ 分割文本 (提交协议头, #换行符, )<br />         .计次循环首 (取数组成员数 (局_每行内容), o)<br />             .如果真 (寻找文本 (局_每行内容 [o], “:”, , 假) ＞ 0)<br />                 局_文本 ＝ 分割文本 (局_每行内容 [o], “:”, )<br />                 局_成员数 ＝ 取数组成员数 (局_文本)<br />                 .如果真 (局_成员数 ＞ 0 且 局_成员数 ％ 2 ＝ 0)<br />                     .变量循环首 (1, 局_成员数, 2, i)<br />                         局_名 ＝ 删首尾空 (局_文本 <i>)<br />                         局_值 ＝ 删首尾空 (局_文本 [i ＋ 1])<br />                         局_网页.SetRequestHeader (局_名, 局_值)<br />                     .变量循环尾 ()<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br />     .如果真 (取文本长度 (Cookie) ＞ 0)<br />         局_网页.SetRequestHeader (“Cookie”, Cookie)<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (提交协议头, “Accept:”, , 真) ＝ -1)<br />         局_网页.SetRequestHeader (“Accept”, “*/*”)<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (提交协议头, “Connection”, , 真) ＝ -1)<br />         局_网页.SetRequestHeader (“Connection”, “keep-alive”)<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (提交协议头, “accept-language”, , 真) ＝ -1)<br />         局_网页.SetRequestHeader (“accept-language”, “zh-CN,zh”)<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (提交协议头, “Content-Type”, , 真) ＝ -1)<br />         局_网页.SetRequestHeader (“Content-Type”, “application/x-www-form-urlencoded”)<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (提交协议头, “User-Agent”, , 真) ＝ -1)<br />         局_网页.SetRequestHeader (“User-Agent”, “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”)<br />     .如果真结束<br /> <br />     局_网页.SetConnectTimeout (连接超时)<br />     局_网页.SetRequestTimeout (等待超时)<br /> <br />     .判断开始 (取文本长度 (提交文本) ＞ 0)<br />         .如果真 (局_网页.SendEx (提交文本) ＝ 假)<br />             返回内容 ＝ “”<br />             返回字节集 ＝ {  }<br />             返回状态码 ＝ 0<br />             返回 (假)<br />         .如果真结束<br /> <br />     .判断 (取字节集长度 (提交字节集) ＞ 0)<br />         .如果真 (局_网页.SendEx (提交字节集) ＝ 假)<br />             返回内容 ＝ “”<br />             返回字节集 ＝ {  }<br />             返回状态码 ＝ 0<br />             返回 (假)<br />         .如果真结束<br /> <br />     .默认<br /> <br />         .如果真 (局_网页.Send () ＝ 假)<br />             返回内容 ＝ “”<br />             返回字节集 ＝ {  }<br />             返回状态码 ＝ 0<br />             返回 (假)<br />         .如果真结束<br /> <br />     .判断结束<br />     返回状态码 ＝ 局_网页.Status ()<br />     .如果真 (是否为空 (返回内容) ＝ 假)<br />         返回内容 ＝ 局_网页.ResponseText (真)<br />     .如果真结束<br />     .如果真 (是否为空 (返回字节集) ＝ 假)<br />         返回字节集 ＝ 局_网页.ResponseBody ()<br />     .如果真结束<br />     .如果真 (是否为空 (返回协议头) ＝ 假)<br />         .如果 (取文本长度 (返回协议头) ＞ 0)<br />             返回协议头 ＝ 局_网页.GetResponseHeader (返回协议头)<br />         .否则<br /> <br />             .如果真 (局_网页.GetAllResponseHeaders (局_协议头))<br />                 .计次循环首 (取数组成员数 (局_协议头), i)<br />                     局_内容 ＝ 局_内容 ＋ 局_协议头 <i>.name ＋ “: ” ＋ 局_协议头 <i>.value ＋ #换行符<br />                 .计次循环尾 ()<br />             .如果真结束<br />             返回协议头 ＝ 局_内容<br />         .如果结束<br /> <br />     .如果真结束<br /> <br />     局_内容 ＝ 局_网页.GetResponseHeader (“Set-Cookie”)<br />     .如果 (取文本长度 (局_内容) ＝ 0)<br />         返回Cookie ＝ Cookie<br />     .否则<br />         返回Cookie ＝ 局_内容<br />         Cookie ＝ 局_内容<br />     .如果结束<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)

j68832688

冬夏 发表于 2024-12-20 23:41
[e=1]
.版本 2

局_网页.Open (方式, 网址)  返回假

调试输出 (HP网页_访问 (“https://www.baidu.com”, “GET”))