vb.net 关于javascript

[verybelial]

我用HttpWebRequest做一个网页访问. 但他的首页是以下javascript脚本来跳转到对应的网页.脚本是自动生成.每次都不同.

javascript如下(已经格式化过.本来就一行的) :
<script>
var mr = "",
nr = "",
qr, or = new Array(),
pr;
function kr(lr) {
for (qr = 0; qr < pr.length; qr++) or[qr] = pr.charCodeAt(qr);
qr = 52;
while (qr >= 1) {
or[qr] = ( - (( - or[qr]) & 0xff)) & 0xff;
or[qr] = (or[qr] + 35) & 0xff;
qr--;
}
qr = 1;
while (true) {
if (qr > 53) break;
or[qr] = ((((or[qr] ^ 52) - 138) & 0xff) >> 1) | (((((or[qr] ^ 52) - 138) & 0xff) << 7) & 0xff);
qr++;
}
qr = "qr=2;while(qr<=51){or[qr]=(((or[qr]+188)&0xff)+114)&0xff;or[qr]=((or[qr]<<2)&0xff)|(or[qr]>>6);qr++;}";
eval(qr);
pr = "";
for (qr = 1; qr < or.length - 1; qr++) if (qr % 6) pr += String.fromCharCode(or[qr] ^ lr);
eval(pr);
}
pr = "3\xb3O\xd9\xd6ZmN\xb9Z\xd4Uv\xd9\xb0Y\xd30\xc8\xbb:2\xcf\xd6\x97\xd5NPU\xe7\x801h\xad\xd33\xb9\xb3\xb3\xbb0\xd9\x1b\xd3\xba\xbb\xe2TIU\xda\xd5%Z}";
kr(91);
</script>


VB.net有什么办法得到它跳转的结果.求大神指点.小弟感激不尽

[verybelial]

我没用过这插件.怎么试都错误................帮看下是不是这样写

         Dim script As New ScriptControl

        script.Language = "JScript"

        script.Reset()

        script.AddCode("var mr="""",nr="""",qr,or=new Array(),pr;function kr(lr){for(qr=0;qr<pr.length;qr++)or[qr]=pr.charCodeAt(qr);qr=52;while(qr>=1){or[qr]=(-((-or[qr])&0xff))&0xff;or[qr]=(or[qr]+35)&0xff;qr--;}qr=1;while(true){if(qr>53)break;or[qr]=((((or[qr]^52)-138)&0xff)>>1)|(((((or[qr]^52)-138)&0xff)<<7)&0xff);qr++;}qr=""qr=2;while(qr<=51){or[qr]=(((or[qr]+188)&0xff)+114)&0xff;or[qr]=((or[qr]<<2)&0xff)|(or[qr]>>6);qr++;}"";eval(qr);pr="""";for(qr=1;qr<or.length-1;qr++)if(qr%6)pr+=String.fromCharCode(or[qr]^lr);eval(pr);}pr=""3\xb3O\xd9\xd6ZmN\xb9Z\xd4Uv\xd9\xb0Y\xd30\xc8\xbb:2\xcf\xd6\x97\xd5NPU\xe7\x801h\xad\xd33\xb9\xb3\xb3\xbb0\xd9\x1b\xd3\xba\xbb\xe2TIU\xda\xd5%Z}"";kr(91);")

        Dim result As Object


        result = script.Eval("")

        Console.WriteLine(result)

[verybelial]

在AddCode就出错了

[threenewbee]

要先引用下scriptcontrol

[宝_爸]

引用 1 楼 caozhy 的回复:

可以借助ScriptControl运行js代码，不用转换了 http://www.oksvn.com/Article/Detail-15.shtml

学习了，javascript的网站，我一般都用WebBrowser Control.

[verybelial]

已经引用了的.就是加代码时出错了...

[verybelial]

引用 4 楼 caozhy 的回复:

要先引用下scriptcontrol

第4行的AddCode那里的代码.有很多分号和引号不知道是不是这个原因

[threenewbee]

可以借助ScriptControl运行js代码，不用转换了 http://www.oksvn.com/Article/Detail-15.shtml