开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 140|回复: 4
收起左侧

[易语言] 网页_访问_js 用v8引擎怎么调用 总是出现错误

[复制链接]
结帖率:25% (3/12)
发表于 昨天 19:24 | 显示全部楼层 |阅读模式   河北省石家庄市
13精币
  
子程序名返回值类型公开备 注
JS_wyfw变体型 
参数名类 型参考可空数组备 注
JSStr文本型
a文本型
c文本型
变量名类 型静态数组备 注
Js对象 
return变体型 
' 线程_初始化COM库 ()  ' 线程中请初始化COM  否则会出错
Js.创建 (“ScriptControl”, )
Js.写属性 (“Language”, “JavaScript”)
Js.数值方法 (“AddCode”, JSStr)  ' 请在常量_Js中放入调试成功的JS代码段
return = Js.通用方法 (“eval”, “wyfw()”)
a = Js.通用方法 (“eval”, “getHeader()”).取文本 ()
c = Js.通用方法 (“eval”, “getStatus()”).取文本 ()
' 线程_取消COM库 ()
返回 (return)
  
子程序名返回值类型公开备 注
JS_wyfw1文本型 
参数名类 型参考可空数组备 注
JSStr文本型
a文本型
c文本型
变量名类 型静态数组备 注
return文本型 
return = V8JS调试 (JSStr, “eval”, “wyfw()”)
a = V8JS调试 (JSStr, “eval”, “getHeader()”)
c = V8JS调试 (JSStr, “eval”, “getStatus()”)
返回 (return)
[e=0].版本 2
子程序名返回值类型公开备 注
网页_访问_Js文本型 利用Js访问网站
参数名类 型参考可空数组备 注
网址文本型完整的网页地址,必须包含http://或者https://
访问方式整数型0=GET 1=POST 2=HEAD 3=PUT 4=DELETE 5=OPTIONS 6=TRACE 7=CONNECT 8=PATCH
提交信息文本型"POST"专用
提交Cookies文本型本参数传递变量时会自动回传返回的Cookie
返回Cookies文本型返回的Cookie
附加协议头文本型一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误
返回协议头文本型Location
返回状态代码整数型网页返回的状态代码,例如:200;302;404等
禁止重定向逻辑型默认不禁止网页重定向
代理地址文本型代理地址,格式为 8.8.8.8:88
完整协议头文本型返回完整的协议头
超时整数型秒|默认为15秒,-1为无限等待
用户名文本型用户名
密码文本型密码
代理标识整数型代理标识,默认为1,0为路由器
变量名类 型静态数组备 注
局_访问方式文本型 
局_解码对象对象 
局_发送协议头文本型0
局_返回协议头文本型0
局_计次整数型 
局_网页数据字节集 
z_网页数据_zip解压字节集 
Js文本型 
str文本型0
b_a变体型 
局部_返回状态代码文本型 
w_局_网页数据文本型 
局_正则类_正则表达式 
局_网页内容字节集 
局_编码类型文本型 
局_变体型变体型 
线程_初始化COM库 ()
' 局_访问方式 = 选择 (访问方式 = 1, “POST”, “GET”)
局_访问方式 = 选择 (访问方式 < 0 访问方式 > 8, “GET”, 多项选择 (访问方式 + 1, “GET”, “POST”, “HEAD”, “PUT”, “DELETE”, “OPTIONS”, “TRACE”, “CONNECT”, “PATCH”))
Js = “obj = new ActiveXObject('WinHttp.WinHttpRequest.5.1')”#换行符
Js = Js + “allHead='';stat='';”#换行符
Js = Js + “function wyfw(){”#换行符
如果真 (超时 ≠ -1)
如果 (超时 < 1)
超时 = 15000
超时 = 超时 × 1000
Js = Js + “obj.SetTimeouts(”到文本 (超时)“,”到文本 (超时)“,”到文本 (超时)“,”到文本 (超时)“);”#换行符
如果真 (代理地址 ≠ “”)
Js = Js + “obj.SetProxy(2,'” + 代理地址 + “');”#换行符
如果真 (用户名 ≠ “”)
如果真 (是否为空 (代理标识))
代理标识 = 1
Js = Js + “obj.SetProxyCredentials(” + 用户名 + “,” + 密码 + “,”到文本 (代理标识)“);”#换行符

Js = Js + “obj.Open('” + 局_访问方式 + “','” + 网址 + “',false);”#换行符
如果真 (禁止重定向)
Js = Js + “obj.Option(6)=0;”#换行符
Js = Js + “obj.Option(4)=13056;”#换行符
判断 (附加协议头 = “”)
附加协议头 = “Accept: */*”
Js = Js + “  obj.SetRequestHeader('Accept', '*/*');”#换行符
如果真 (寻找文本 (附加协议头, “Accept:”, , ) = -1)
Js = Js + “  obj.SetRequestHeader('Accept', '*/*');”#换行符

如果真 (寻找文本 (附加协议头, “Referer:”, , ) = -1 全_处理返回空 = )
Js = Js + “  obj.SetRequestHeader('Referer', '”“http://” + 网址 + “');”#换行符
如果真 (寻找文本 (附加协议头, “Accept-Language:”, , ) = -1)
附加协议头 = 附加协议头 + #换行符“Accept-Language: zh-cn”
Js = Js + “obj.SetRequestHeader('Accept-Language', 'zh-cn');”#换行符
如果真 (寻找文本 (附加协议头, “User-Agent:”, , ) = -1)
Js = Js + “obj.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.102 Safari/537.36');”#换行符
如果真 (寻找文本 (附加协议头, “Content-Type:”, , ) = -1)
Js = Js + “obj.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded');”#换行符
如果真 (提交Cookies ≠ “”)
Js = Js + “obj.SetRequestHeader('Cookie', '” + 提交Cookies + “');”#换行符
判断 (寻找文本 (附加协议头, #换行符, , ) = -1)
Js = Js + “obj.SetRequestHeader('”内部_协议头取名 (附加协议头)“', '”内部_协议头取值 (附加协议头)“');”#换行符
局_发送协议头 = 分割文本 (附加协议头, #换行符, )
计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
如果真 (局_发送协议头 [局_计次]“”)
Js = Js + “obj.SetRequestHeader('”内部_协议头取名 (局_发送协议头 [局_计次])“', '”内部_协议头取值 (局_发送协议头 [局_计次])“');”#换行符

计次循环尾 ()
Js = Js + “obj.Send('” + 提交信息 + “');”#换行符
Js = Js + “allHead=obj.GetallResponseHeaders();”#换行符
Js = Js + “stat=obj.Status;”#换行符
Js = Js + “return obj.ResponseBody();}”#换行符
Js = Js + “function getHeader(){return allHead;}”#换行符
Js = Js + “function getStatus(){return stat;}”#换行符
调试输出 (Js)
局_网页数据 = 到字节集 (JS_wyfw1 (Js, 返回协议头, 局部_返回状态代码))
如果真 (寻找文本 (返回协议头, “Content-Encoding: gzip”, , ) ≠ -1)
局_网页数据 = Zlib.unzGzip (局_网页数据)
如果真 (寻找文本 (返回协议头, “Content-Encoding: deflate”, , ) ≠ -1)
局_网页数据 = Zlib.unzDeflate (局_网页数据)
返回状态代码 = 到整数 (局部_返回状态代码)
返回协议头 = 子文本替换 (返回协议头, “Set-Cookie”, “Set-Cookie”, , , )
局_返回协议头 = 分割文本 (返回协议头, #换行符, )
返回Cookies = “”
计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”)“Set-Cookie”)
判断 (寻找文本 (局_返回协议头 [局_计次], “;”, , ) ≠ -1)
返回Cookies = 返回Cookies + 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) + “; ”
返回Cookies = 返回Cookies + 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , )) + “; ”


计次循环尾 ()
返回Cookies = 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) - 2)
网页_Cookie合并更新 (提交Cookies, 返回Cookies)
w_局_网页数据 = 到文本 (局_网页数据)
如果真 (局_正则.创建 (“<meta.+?charset=[^\w]?([-\w]+)”, 取文本左边="" (w_局_网页数据,="" 1024)))
局_编码类型 = 局_正则.取子匹配文本 (1, 1)
如果真 (局_编码类型 = “”)
如果真 (局_正则.创建 (“charset=[^\w]?([-\w]+)”, 附加协议头))
局_编码类型 = 局_正则.取子匹配文本 (1, 1)

如果真 (取文本长度 (局_编码类型) > 0)
如果真 (局_编码类型 ≠ “gbk” 局_编码类型 ≠ “gb2312”)  ' 如果为中文就不处理
如果真 (局_解码对象.创建 (“Adodb.Stream”, ))
局_变体型.赋值 (局_网页数据, )
局_解码对象.写属性 (“Type”, 1)
局_解码对象.写属性 (“Mode”, 3)
局_解码对象.方法 (“Open”, )
局_解码对象.方法 (“Write”, 局_变体型)
局_解码对象.写属性 (“Position”, 0)
局_解码对象.写属性 (“Type”, 2)
局_解码对象.写属性 (“Charset”, 局_编码类型)
w_局_网页数据 = 局_解码对象.文本方法 (“ReadText”, )
局_解码对象.方法 (“Close”, )
局_解码对象.清除 ()
局_变体型.清除 ()




线程_取消COM库 ()
返回 (w_局_网页数据)


i支持库列表   支持库注释   
spec特殊功能支持库

<meta.+?charset=[^\w]?([-\w]+)”, 取文本左边="" (w_局_网页数据,="" 1024)))
返回提示 错误 无法加载
是不是v8模块加载不了这个

“obj = new ActiveXObject('WinHttp.WinHttpRequest.5.1')
allHead='';stat='';
function wyfw(){
obj.SetTimeouts(15000,15000,15000,15000);
obj.Open('GET','https://www.***.com/',false);
obj.Option(4)=13056;
  obj.SetRequestHeader('Accept', '*/*');
  obj.SetRequestHeader('Referer', 'http://https://www.***.com/');
obj.SetRequestHeader('Accept-Language', 'zh-cn');
obj.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.102 Safari/537.36');
obj.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
obj.SetRequestHeader('', '');
obj.SetRequestHeader('Accept-Language', ' zh-cn');
obj.Send('');
allHead=obj.GetallResponseHeaders();
stat=obj.Status;
return obj.ResponseBody();}
function getHeader(){return allHead;}
function getStatus(){return stat;}

* “错误所在行:
1

错误信息:
ReferenceError: ActiveXObject is not defined

源文件:
obj = new ActiveXObject('WinHttp.WinHttpRequest.5.1')
          ^

堆栈追踪:
ReferenceError: ActiveXObject is not defined
    at <anonymous>:1:11

被调试易程序运行完毕
<meta.+?charset=[^\w]?([-\w]+)”, 取文本左边="" (w_局_网页数据,="" 1024)))


<meta.+?charset=[^\w]?([-\w]+)”, 取文本左边="" (w_局_网页数据,="" 1024)))



回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值
结帖率:25% (3/12)

签到天数: 2 天

 楼主| 发表于 昨天 19:25 | 显示全部楼层   河北省石家庄市
对象方法可以调用 v8模块调用不了
回复

使用道具 举报

结帖率:25% (3/12)

签到天数: 2 天

 楼主| 发表于 昨天 19:27 | 显示全部楼层   河北省石家庄市
这个是v8 模块
回复

使用道具 举报

结帖率:25% (3/12)

签到天数: 2 天

 楼主| 发表于 昨天 19:27 | 显示全部楼层   河北省石家庄市
这个是v8模块

V8Engine.zip

1.34 MB, 下载次数: 2

回复

使用道具 举报

结帖率:100% (3/3)

签到天数: 3 天

发表于 昨天 20:10 | 显示全部楼层   河北省邯郸市
想不开了啊,用js图啥呢假人,又慢又不安全
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备2025452707号) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表