脚本获取excel工作簿内容

HHAAMM · 发表于 2010-4-2 01:54

脚本获取excel工作簿内容，这个是读出内容的，（写、修改的下次发帖）
这个html文件的

HHAAMM · 发表于 2010-4-2 02:00

同时俺也试了试javascript的加密技术，看看附件里的代码，应该没人能看懂了

lb_bn · 发表于 2010-4-2 07:53

版主也是很晚才睡啊.

辛苦了.

hiyou · 发表于 2010-4-2 08:08

楼主的做法,只是一个简单的散射,因为在DOCUMNET对象写入之后是TEXT原型
你可以试试在那个IE WEB网页的地址栏上,打入这行，代码就显出来了，当然在其它程序中也可以，比如VBA里取到IE对象后一样做
vbscript:window.alert(mid(document.documentElement.outerhtml,2700,4420))

或完整的(这个时间长一点，上面那个我算过长度，跳过前面的SCRIPT，方面看）
vbscript:window.alert(document.documentElement.outerhtml)

[ 本帖最后由 hiyou 于 2010-4-2 08:09 编辑 ]

hiyou · 发表于 2010-4-2 07:01

.......楼主最近很喜欢脚本么
1。WEB的脚本，有安全权限限制
在客户端，建议你用WSH。图形界面可以考虑用HTA，特别是你用惯了WEB页面可以转用HTA。这两个都是基本随用户权限走的，而用IE启动的，那就是IE的权限，本质要随浏览器权限，脚本在数据、文件安全性触碰到一定范围，会受到保护，由最终用户解除，即使能绕过，本身也是个BUG。
2。那个加密
怎么说呢....建议直接用脚本编码器做成VBScript.Encode吧（虽然本质上而言，脚本是很难加密的，破解容易得多）

HHAAMM · 发表于 2010-4-2 14:35

原帖由 hiyou 于 2010-4-2 08:08 发表
楼主的做法,只是一个简单的散射,因为在DOCUMNET对象写入之后是TEXT原型
你可以试试在那个IE WEB网页的地址栏上,打入这行，代码就显出来了，当然在其它程序中也可以，比如VBA里取到IE对象后一样做
vbscript:window. ...

真的是呀，都看到了

hiyou · 发表于 2010-4-2 16:44

看一下附件
1。TESTENCODE是你那个文档加过密的SCRIPT
它是用MS标准的SCRIPT.Encode算法加密，其中你那一大段的OOXX就是JSCRIPT.Encode，算法在第3方有讨论，我说过这是公开算法（什么加密都一样，但起码比你那个好一点，MS没有简单的UNCODE，只有第3方有）
2。另外一个EXE就是ENCODE用的文件安装版。
刚从MS那里下的，不放心安全性，可以用同一个关键词到MICROSOFT去找。

hiyou · 发表于 2010-4-2 16:47

顺便说一下，那个ENCODE对HTML元素不起作用（HTTP协议也没有标准的编码算法），只对打了SCRIPT标记的有效，所以在ENCODE的文档里，你原来那个下面没有特别注明SCRIPT标记的INPUT内部，SCRIPT还是原形

HHAAMM · 发表于 2010-4-2 17:09

原帖由 hiyou 于 2010-4-2 16:44 发表
看一下附件
1。TESTENCODE是你那个文档加过密的SCRIPT
它是用MS标准的SCRIPT.Encode算法加密，其中你那一大段的OOXX就是JSCRIPT.Encode，算法在第3方有讨论，我说过这是公开算法（什么加密都一样，但起码比你 ...

这个附件里的厉害，俺弄不懂了

问个问题
WebBrowser1里
<html>
<head>
<script type="text/javascript">
function ABC(arr)
{
alert(arr)
var a = arr;
b=a.split(",");
for(j=0;j<b.length;j++)
{
alert(b[j]);
}
}
</script>
</head>

<body>
<input type="button" value="读取" onClick="ABC('1,2,3');"/>
</body>
</html>
然后这样传参调用可以
arr = "6,2,3"
WebBrowser1.Document.parentWindow.execScript "ABC('" & arr & "')", "javascript"

但要把数组传过去，提示数据类型不对
能直接传数组吗

hiyou · 发表于 2010-4-2 18:47

我想你的问题和脚本关系不大
这个函数本来就是一个变量
function ABC(arr)，默认是arr
（在VBSCRIPT/JSCRIPT/JAVASCRIPT里，变量只有一种，Variant/var万用型的，也就是相当于VBA的那个Variant）
在这个函数里，它的功能是把传进去的变量当成字符串切开，这个不管它，但显然不是数组

至于怎么分辩，VBS可以用isarray函数（VBS有，VBA也有，JS有参数对象）
下面这段是例子，我没有写到XLS和WEB控件测试，直接用一个VBS封装就可以，也就是WSH
'____________________________________
dim a,b(39)
a="xx"
msgbox "a:" & test(a)
msgbox "b:" & test(b)

function test(varx)
if IsArray(varx) then
strX="这是数组"
else
strX="不是数组"
end if
test=strX
end function
,---------------------------------------------------------------

		自动登录	找回密码
密码			免费注册