cyl675 发表于 2012-6-23 20:29:23

[已解决]求教，一段这样的htm代码，如何用AU3将里面的文字显示出来

本帖最后由 cyl675 于 2012-6-24 20:18 编辑

求教，一段这样的htm代码，如何用AU3将里面的文字显示出来，用IE_UDF可以吗，该怎么操作，可以用AU3调用JS来解密吗                           <!-- -->
                            <script>var wapType=1;var nowHost="http://q32.3g.qq.com";var nowUrlPath="http://q32.3g.qq.com/g/";var replace_img="";</script><script type="text/javascript"id="dowap_decode">var js_engine_content="<script>wapType=1;<\/script><script src=\"http:\/\/static.pctowap.com\/dowap2\/1.16-050804\/js\/wml_index.js\" type=\"text\/javascript\" ><\/script><script>var adkw= new Array( new Array(\"@do5bfc@do822a\",\"123WAP@do5feb@do901f@do5bfc@do822a\",\"http:\/\/123.pctowap.com\/?fr=kyad\")
                                        用览器打开里面的文字是这样的，如果不用浏览器，用au3怎么实现呢

cyl675 发表于 2012-6-23 20:39:33

本帖最后由 cyl675 于 2012-6-23 22:05 编辑

丛IE6升级到IE8,怎么_IECreate 都不能用了，一用就崩溃

cyl675 发表于 2012-6-23 21:57:06

有人能帮我下吗

ebhb 发表于 2012-6-23 23:45:59

给个连接，直接用xmlhttp就行了

komaau3 发表于 2012-6-24 03:06:23

网页被unicode编码了，解码后正则匹配下你想要的信息

Local $str = '@do706b]@do6d4f@do89c8@do5668@do5e26@do4f60@do4f53@do9a8c@do6781@do901f@do4e0a@do7f51'

ConsoleWrite(UniDecode($str, '\@do') & @CRLF)

Func UniDecode($sUni, $sExp = '\\u')
        Local $sStr = ''
        $sHex = StringRegExp($sUni, $sExp & '(\w{4})', 3)
        If @error = 0 Then
      For $i = 0 To UBound($sHex) - 1
                        $sText = ChrW(Dec($sHex[$i]))
                        $sStr = StringRegExpReplace($sUni, $sExp & $sHex[$i], $sText, 1)
                        $sUni = $sStr
      Next
        EndIf
        Return $sStr
EndFunc   ;==>UniDecode

cyl675 发表于 2012-6-24 20:17:21

网页被unicode编码了，解码后正则匹配下你想要的信息
komaau3 发表于 2012-6-24 03:06 http://www.autoitx.com/images/common/back.gif


   此方法完美解决，另我想到另一的办法，浏览器虽打不开wap网站但源码还是可以下载的，绕过
代理站点直接丛3gqq下载源码

komaau3 发表于 2012-6-24 20:47:25

回复 6# cyl675

没那么复杂，伪造个user agent就行了

fhqbbfcu2050 发表于 2012-6-26 14:52:49

你这什么意思还是没懂。。。
页: [1]
查看完整版本: [已解决]求教，一段这样的htm代码，如何用AU3将里面的文字显示出来