PATCH请求 有没有请求模块 谢谢了

faithfullyo

PATCH请求 有没有请求模块 谢谢了 我在网上找了 好像是cookie 问题 我用COOKIE传递 也没用 显示cookie 过期  能有解决办法吗

Patek

  

子程序名	返回值类型	公开	备 注
网页_访问x	字节集		ServerXMLHTTP
参数名	类 型	参考	可空	数组	备 注
网址	文本型				完整的网页地址,必须包含http://或者https://
访问方式	整数型				0=GET 1=POST  2=PUT  3=OPTIONS  4=DELETE  5=PATCH
提交信息	文本型				POST专用
提交Cookies	文本型				本参数传递变量时会自动回传返回的Cookie
返回Cookies	文本型				返回的Cookie
附加协yi头	文本型				一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误
返回协yi头	文本型				返回的协yi头
禁止重定向	逻辑型				默认不禁止网页重定向
字节集提交	字节集
代理IP	文本型				8.8.8.8:8080   8.8.8.8:8080|user|pwd
超时	整数型

变量名	类 型	静态	数组	备 注
Xmlhttp	对象
heard	文本型		0
Pxyi	文本型		0
Pxyu	文本型			代理帐号
Pxyp	文本型			代理密码
I
X
RevCode	字节集
变体字节集	变体型

' CoInitialize (0)
如果真 (Xmlhttp.创建 (“MSXML2.ServerXMLHTTP.6.0”, ) ＝ 假)
返回 ({  })

Xmlhttp.方法 (“setOption”, 2, 13056)  ' 忽略所有ssl错误
Xmlhttp.方法 (“setOption”, 3, “VeriSign Class 3 Public Primary CA”)  ' 设置 CA 证书
Xmlhttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)  ' 设置超时
如果真 (寻找文本 (代理IP, “:”, , 假) ＞ 0)
如果真 (寻找文本 (代理IP, “|”, , 假) ＞ 0)
Pxyi ＝ 分割文本 (代理IP, “|”, )
Pxyu ＝ Pxyi [2]
Pxyp ＝ Pxyi [3]
代理IP ＝ Pxyi [1]
Xmlhttp.方法 (“SetProxy”, 2, 代理IP)

如果真 (访问方式 ＝ 0)
Xmlhttp.方法 (“Open”, “GET”, 网址, 假, Pxyu, Pxyp)  ' , 代理帐号, 代理密码
如果真 (访问方式 ＝ 1)
Xmlhttp.方法 (“Open”, “POST”, 网址, 假, Pxyu, Pxyp)
如果真 (访问方式 ＝ 2)
Xmlhttp.方法 (“Open”, “PUT”, 网址, 假, Pxyu, Pxyp)
如果真 (访问方式 ＝ 3)
Xmlhttp.方法 (“Open”, “OPTIONS”, 网址, 假, Pxyu, Pxyp)
如果真 (访问方式 ＝ 4)
Xmlhttp.方法 (“Open”, “DELETE”, 网址, 假, Pxyu, Pxyp)
如果真 (访问方式 ＝ 5)
Xmlhttp.方法 (“Open”, “PATCH”, 网址, 假, Pxyu, Pxyp)

如果真 (禁止重定向)
Xmlhttp.写属性 (“Option”, 6, 0)

如果真 (寻找文本 (附加协yi头, “: ”, , 假) ＞ 0)
Pxyi ＝ 分割文本 (附加协yi头, #换行符, )
计次循环首 (取数组成员数 (Pxyi), I)
如果真 (寻找文本 (Pxyi [I], “: ”, , 假) ＞ 0)
heard ＝ 分割文本 (Pxyi [I], “: ”, )
Xmlhttp.方法 (“SetRequestHeader”, heard [1], heard [2])

计次循环尾 ()

如果真 (Pxyu ≠ “”)
Xmlhttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ Base64Enc (Pxyu ＋ “:” ＋ Pxyp))

如果真 (提交Cookies ≠ “”)
Xmlhttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)

判断 (字节集提交 ＝ {  })
Xmlhttp.方法 (“Send”, 提交信息)
变体字节集.赋值 (字节集提交, )
Xmlhttp.方法 (“Send”, 变体字节集)
RevCode ＝ Xmlhttp.读属性 (“ResponseBody”, ).取字节集 ()
返回协yi头 ＝ Xmlhttp.读文本属性 (“GetallResponseHeaders”, )
heard ＝ 分割文本 (返回协yi头, #换行符, )
返回Cookies ＝ “”
计次循环首 (取数组成员数 (heard), I)
如果真 (寻找文本 (heard [I], “Set-Cookie”, , 假) ≠ -1)
判断 (寻找文本 (heard [I], “;”, , 假) ≠ -1)
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (jkGs1 (heard [I], “Set-Cookie:”, “;”)) ＋ “; ”
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (heard [I], “Set-Cookie:”, , , , 假)) ＋ “; ”


计次循环尾 ()
返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
Xmlhttp.清除 ()
' CoUninitialize ()
返回 (RevCode)

子程序名	返回值类型	公开	备 注
jkGs1	文本型		代码来自 精易模块
参数名	类 型	参考	可空	数组	备 注
欲取全文本	文本型				比如：欲取全文本为 12345
前面文本	文本型				3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>"
后面文本	文本型				3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>"
起始搜寻位置	整数型				可空,这里是指搜寻 参数二 前面文本 的开始位置
是否不区分大小写	逻辑型				为真不区分大小写，为假区分。

变量名	类 型	静态	数组	备 注
局_前面文本位置	整数型
局_后面文本位置	整数型
局_前面文本	文本型
局_后面文本	文本型

局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)
如果真 (局_前面文本位置 ≠ -1)
局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)
局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)
如果真 (局_前面文本位置 ＝ -1 或 局_后面文本位置 ＝ -1)
返回 (“”)
返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))

.版本 2<br /> <br /> .子程序 网页_访问x, 字节集, 公开, ServerXMLHTTP<br /> .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://<br /> .参数 访问方式, 整数型, 可空, 0=GET 1=POST  2=PUT  3=OPTIONS  4=DELETE  5=PATCH<br /> .参数 提交信息, 文本型, 可空, POST专用<br /> .参数 提交Cookies, 文本型, 可空, 本参数传递变量时会自动回传返回的Cookie<br /> .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie<br /> .参数 附加协yi头, 文本型, 可空, 一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误<br /> .参数 返回协yi头, 文本型, 参考 可空, 返回的协yi头<br /> .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向<br /> .参数 字节集提交, 字节集, 可空<br /> .参数 代理IP, 文本型, 可空, 8.8.8.8:8080   8.8.8.8:8080|user|pwd<br /> .参数 超时, 整数型, 可空<br /> .局部变量 Xmlhttp, 对象<br /> .局部变量 heard, 文本型, , "0"<br /> .局部变量 Pxyi, 文本型, , "0"<br /> .局部变量 Pxyu, 文本型, , , 代理帐号<br /> .局部变量 Pxyp, 文本型, , , 代理密码<br /> .局部变量 I<br /> .局部变量 X<br /> .局部变量 RevCode, 字节集<br /> .局部变量 变体字节集, 变体型<br /> <br /> ' CoInitialize (0)<br /> .如果真 (Xmlhttp.创建 (“MSXML2.ServerXMLHTTP.6.0”, ) ＝ 假)<br />     返回 ({  })<br /> .如果真结束<br /> <br /> Xmlhttp.方法 (“setOption”, 2, 13056)  ' 忽略所有ssl错误<br /> Xmlhttp.方法 (“setOption”, 3, “VeriSign Class 3 Public Primary CA”)  ' 设置 CA 证书<br /> Xmlhttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)  ' 设置超时<br /> <br /> .如果真 (寻找文本 (代理IP, “:”, , 假) ＞ 0)<br />     .如果真 (寻找文本 (代理IP, “|”, , 假) ＞ 0)<br />         Pxyi ＝ 分割文本 (代理IP, “|”, )<br />         Pxyu ＝ Pxyi [2]<br />         Pxyp ＝ Pxyi [3]<br />         代理IP ＝ Pxyi [1]<br />     .如果真结束<br />     Xmlhttp.方法 (“SetProxy”, 2, 代理IP)<br /> .如果真结束<br /> <br /> .如果真 (访问方式 ＝ 0)<br />     Xmlhttp.方法 (“Open”, “GET”, 网址, 假, Pxyu, Pxyp)  ' , 代理帐号, 代理密码<br /> .如果真结束<br /> .如果真 (访问方式 ＝ 1)<br />     Xmlhttp.方法 (“Open”, “POST”, 网址, 假, Pxyu, Pxyp)<br /> .如果真结束<br /> .如果真 (访问方式 ＝ 2)<br />     Xmlhttp.方法 (“Open”, “PUT”, 网址, 假, Pxyu, Pxyp)<br /> .如果真结束<br /> .如果真 (访问方式 ＝ 3)<br />     Xmlhttp.方法 (“Open”, “OPTIONS”, 网址, 假, Pxyu, Pxyp)<br /> .如果真结束<br /> .如果真 (访问方式 ＝ 4)<br />     Xmlhttp.方法 (“Open”, “DELETE”, 网址, 假, Pxyu, Pxyp)<br /> .如果真结束<br /> .如果真 (访问方式 ＝ 5)<br />     Xmlhttp.方法 (“Open”, “PATCH”, 网址, 假, Pxyu, Pxyp)<br /> .如果真结束<br /> <br /> <br /> .如果真 (禁止重定向)<br />     Xmlhttp.写属性 (“Option”, 6, 0)<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (附加协yi头, “: ”, , 假) ＞ 0)<br />     Pxyi ＝ 分割文本 (附加协yi头, #换行符, )<br />     .计次循环首 (取数组成员数 (Pxyi), I)<br />         .如果真 (寻找文本 (Pxyi [I], “: ”, , 假) ＞ 0)<br />             heard ＝ 分割文本 (Pxyi [I], “: ”, )<br />             Xmlhttp.方法 (“SetRequestHeader”, heard [1], heard [2])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> .如果真 (Pxyu ≠ “”)<br />     Xmlhttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ Base64Enc (Pxyu ＋ “:” ＋ Pxyp))<br /> .如果真结束<br /> <br /> <br /> .如果真 (提交Cookies ≠ “”)<br />     Xmlhttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)<br /> .如果真结束<br /> <br /> .判断开始 (字节集提交 ＝ {  })<br />     Xmlhttp.方法 (“Send”, 提交信息)<br /> .默认<br />     变体字节集.赋值 (字节集提交, )<br />     Xmlhttp.方法 (“Send”, 变体字节集)<br /> .判断结束<br /> RevCode ＝ Xmlhttp.读属性 (“ResponseBody”, ).取字节集 ()<br /> <br /> 返回协yi头 ＝ Xmlhttp.读文本属性 (“GetallResponseHeaders”, )<br /> heard ＝ 分割文本 (返回协yi头, #换行符, )<br /> 返回Cookies ＝ “”<br /> .计次循环首 (取数组成员数 (heard), I)<br />     .如果真 (寻找文本 (heard [I], “Set-Cookie”, , 假) ≠ -1)<br />         .判断开始 (寻找文本 (heard [I], “;”, , 假) ≠ -1)<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (jkGs1 (heard [I], “Set-Cookie:”, “;”)) ＋ “; ”<br />         .默认<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (heard [I], “Set-Cookie:”, , , , 假)) ＋ “; ”<br />         .判断结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)<br /> Xmlhttp.清除 ()<br /> ' CoUninitialize ()<br /> 返回 (RevCode)<br /> .版本 2<br /> <br /> .子程序 jkGs1, 文本型, , 代码来自 精易模块<br /> .参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345<br /> .参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>"<br /> .参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>"<br /> .参数 起始搜寻位置, 整数型, 可空, 可空,这里是指搜寻 参数二 前面文本 的开始位置<br /> .参数 是否不区分大小写, 逻辑型, 可空, 为真不区分大小写，为假区分。<br /> .局部变量 局_前面文本位置, 整数型<br /> .局部变量 局_后面文本位置, 整数型<br /> .局部变量 局_前面文本, 文本型<br /> .局部变量 局_后面文本, 文本型<br /> <br /> 局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)<br /> 局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)<br /> 局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)<br /> .如果真 (局_前面文本位置 ≠ -1)<br />     局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)<br /> .如果真结束<br /> 局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)<br /> .如果真 (局_前面文本位置 ＝ -1 或 局_后面文本位置 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> 返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))

Patek

网页_访问x("https://www.baidu.com",5)

faithfullyo

Patek 发表于 2018-12-10 13:32
网页_访问x("https://www.baidu.com",5)

这是哪个? 能提供模块吗 谢谢

Patek

z497478013 发表于 2018-12-10 15:24
这是哪个? 能提供模块吗 谢谢

你复制过去就用了，还用什么模块....

faithfullyo

Patek 发表于 2018-12-10 15:37
你复制过去就用了，还用什么模块....

错了  我用过这个 总是COOKIE 过期   测试了其它COOKIE传递 没用啊

Patek

z497478013 发表于 2018-12-11 09:13
错了  我用过这个 总是COOKIE 过期   测试了其它COOKIE传递 没用啊

那你应该找找其他问题了

faithfullyo

Patek 发表于 2018-12-11 10:37
那你应该找找其他问题了

错误(37): 找不到指定的命令／子程序／Dll命令调用名称“Base64Enc”。 找不到这个

Patek

faithfullyo 发表于 2019-1-14 10:51
错误(37): 找不到指定的命令／子程序／Dll命令调用名称“Base64Enc”。 找不到这个

删掉那行即可

faithfullyo

Patek 发表于 2019-1-14 11:26
删掉那行即可

谢谢  用了 返回为空 不知道是什么原因