易语言http服务器，易语言 发送get请求 什么方法最快
大家好，感谢邀请，今天来为大家分享一下易语言http服务器的问题，以及和易语言 发送get请求 什么方法最快的一些困惑，大家要是还不太明白的话，也没有关系，因为接下来将为大家分享，希望可以帮助到大家，解决大家的问题，下面就开始吧！
易语言服务器怎么写代码主动连接客户端
这个可以借鉴下远控的代码啊
需要代码的话我可以给你
.版本
2
.支持库
internet
.支持库
eAPI
.子程序
HTTP上线分析,
文本型
.局部变量
HTTP地址,
文本型
.局部变量
分析HTTP,
文本型,
,
"0"
HTTP地址
＝
“BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB”
'
60个
”
.如果真
(HTTP地址
≠
取重复文本
(60,
“B”))
分析HTTP
＝
分割文本
(HTTP地址,
“|”,
)
返回
(到文本
(HTTP读文件
(分析HTTP
[1])))
.如果真结束
返回
(“”)
.子程序
动态域名分析,
文本型
.局部变量
域名地址,
文本型
.局部变量
分析域名,
文本型,
,
"0"
域名地址
＝
“CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC”
'
50个
.如果真
(域名地址
≠
取重复文本
(50,
“C”))
分析域名
＝
分割文本
(域名地址,
“|”,
)
返回
(取IP地址
(分析域名
[1]))
.如果真结束
返回
(“”)
易语言 发送get请求 什么方法最快
.版本2
.DLL命令CoInitialize,整数型,"ole32.dll",,公开,初始化对象开始
.参数pvReserved,整数型,,0
.DLL命令CoUninitialize,整数型,"ole32.dll",,公开,初始化对象结束
.版本2
.子程序网页访问,字节集,公开,出错或超时将返回空，本命令将设置Cookies到本地
.参数网址,文本型,,完整的网页地址
.参数访问方式,文本型,可空,"GET"or"POST",为空默认"GET"
.参数提交信息,文本型,可空,"POST"专用
.参数提交Cookies,文本型,参考可空,提交的Cookie注：本参数传递变量时会自动回传返回的Cookie
.参数返回Cookies,文本型,参考可空,返回的Cookie
.参数附加协议头,文本型,可空,一行一个请用换行符隔开
.参数返回协议头,文本型,参考可空,Location
.参数禁止重定向,逻辑型,可空,默认不禁止网页重定向
.参数超时,整数型,可空,秒|默认为15秒,-1为无限等待
.参数完整协议头,文本型,参考可空,返回完整的协议头
.参数字节集提交,字节集,可空,提交字节集数据
.局部变量局部_WinHttp,对象
.局部变量局部_返回Cookies,文本型,,"0"
.局部变量局部_计次,整数型
.局部变量局部_网页数据,字节集
.局部变量局部_发送协议头,文本型,,"0"
.局部变量局部_协议头处理,文本型,,"0"
.局部变量局部_变体提交,变体型
CoInitialize(0)
.如果真(局部_WinHttp.创建(“WinHttp.WinHttpRequest.5.1”,)＝假)
返回({})
.如果真结束
'局部_WinHttp.查看()
访问方式＝到大写(访问方式)
.如果真(访问方式＝“”)
访问方式＝“GET”
.如果真结束
.如果真(超时≠-1)
.如果(超时＜1)
超时＝15000
.否则
超时＝超时×1000
.如果结束
局部_WinHttp.方法(“SetTimeouts”,超时,超时,超时,超时)
.如果真结束
.如果真(集_代理地址≠“”)
局部_WinHttp.方法(“SetProxy”,2,集_代理地址)
.如果真(集_用户名≠“”)
局部_WinHttp.方法(“SetProxyCredentials”,集_用户名,集_密码,集_代理标识)
.如果真结束
.如果真结束
局部_WinHttp.方法(“Open”,访问方式,网址,假)
.如果真(禁止重定向)
局部_WinHttp.写属性(“Option”,6,0)
.如果真结束
.如果真(附加协议头＝“”)
附加协议头＝“Referer:”＋网址＋#换行符＋#协议头_网页
.如果真结束
提交Cookies＝COOKIE合并更新(取COOKIE(取域名(网址,真)),提交Cookies)
.如果真(提交Cookies≠“”)
局部_WinHttp.方法(“SetRequestHeader”,“Cookie”,提交Cookies)
.如果真结束
.判断开始(寻找文本(附加协议头,#换行符,,假)＞-1)
局部_发送协议头＝分割文本(附加协议头,#换行符,)
.计次循环首(取数组成员数(局部_发送协议头),局部_计次)
.如果真(寻找文本(局部_发送协议头[局部_计次],“:”,,假)＞-1)
清除数组(局部_协议头处理)
局部_协议头处理＝分割文本(局部_发送协议头[局部_计次],“:”,)
局部_计次＝2
.判断循环首(真)
局部_计次＝局部_计次＋1
.如果真(局部_计次＞取数组成员数(局部_协议头处理))
跳出循环()
.如果真结束
局部_协议头处理[2]＝局部_协议头处理[2]＋“:”＋局部_协议头处理[局部_计次]
.判断循环尾()
局部_WinHttp.方法(“SetRequestHeader”,局部_协议头处理[1],局部_协议头处理[2])
.如果真结束
.计次循环尾()
.默认
.如果真(寻找文本(附加协议头,“:”,,假)＞-1)
局部_协议头处理＝分割文本(附加协议头,“:”,)
局部_计次＝2
.判断循环首(真)
局部_计次＝局部_计次＋1
.如果真(局部_计次＞取数组成员数(局部_协议头处理))
跳出循环()
.如果真结束
局部_协议头处理[2]＝局部_协议头处理[2]＋“:”＋局部_协议头处理[局部_计次]
.判断循环尾()
局部_WinHttp.方法(“SetRequestHeader”,局部_协议头处理[1],局部_协议头处理[2])
.如果真结束
.判断结束
.判断开始(字节集提交＝{})
局部_WinHttp.方法(“Send”,提交信息)
.默认
局部_变体提交.赋值(字节集提交,)
局部_WinHttp.方法(“Send”,局部_变体提交)
.判断结束
局部_网页数据＝局部_WinHttp.读属性(“ResponseBody”,).取字节集()
完整协议头＝局部_WinHttp.读文本属性(“GetallResponseHeaders”,)
局部_返回Cookies＝分割文本(完整协议头,#换行符,)
返回Cookies＝“”
.计次循环首(取数组成员数(局部_返回Cookies),局部_计次)
.如果真(寻找文本(局部_返回Cookies[局部_计次],“Location:”,,假)＞-1)
返回协议头＝删首尾空(子文本替换(局部_返回Cookies[局部_计次],“Location:”,,,1,假))
.如果真结束
.如果真(寻找文本(局部_返回Cookies[局部_计次],“Set-Cookie”,,假)＞-1)
返回Cookies＝返回Cookies＋删首尾空(文本_取出中间文本(局部_返回Cookies[局部_计次],“Set-Cookie:”,“;”))＋“;”
.如果真结束
.计次循环尾()
COOKIE合并更新(提交Cookies,返回Cookies)
设COOKIE(取域名(网址,真),提交Cookies)
.如果真(返回协议头＝“”)
返回协议头＝完整协议头
.如果真结束
CoUninitialize()
返回(局部_网页数据)
易语言服务器和客户怎么样能让局域网外的客户端连接
这个可以借鉴下远控的代码啊需要代码的话我可以给你.版本 2
.支持库 internet
.支持库 eAPI.子程序 HTTP上线分析,文本型
.局部变量 HTTP地址,文本型
.局部变量分析HTTP,文本型,,"0"HTTP地址＝“BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB”' 60个”
.如果真(HTTP地址≠取重复文本(60,“B”))
分析HTTP＝分割文本(HTTP地址,“|”,)
返回(到文本(HTTP读文件(分析HTTP [1])))
.如果真结束
返回(“”).子程序动态域名分析,文本型
.局部变量域名地址,文本型
.局部变量分析域名,文本型,,"0"域名地址＝“CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC”' 50个
.如果真(域名地址≠取重复文本(50,“C”))
分析域名＝分割文本(域名地址,“|”,)
返回(取IP地址(分析域名 [1]))
.如果真结束
返回(“”)
OK，本文到此结束，希望对大家有所帮助。