20Q币请人帮忙改一段代码，以前的作者是“风行者”-『脚本交易』-AUTOIT CN

yang3114 发表于 2010-11-4 11:31:42

20Q币请人帮忙改一段代码，以前的作者是“风行者”

要求用hao123打开不要出现新窗口
#include <IE.au3>
_IEErrorHandlerRegister()
Global $oIE = _IECreateEmbedded()
$url = "http://www.hao123.com"
GUICreate("test", 700, 600, (@DesktopWidth - 700) / 2, (@DesktopHeight - 600) / 2)
GUICtrlCreateObj($oIE, 0, 0, 700, 600)
_IENavigate($oIE, $url)
_replace()
GUISetState()

Do
   $nurl = _IEPropertyGet($oIE, "locationurl")
   If $nurl <> $url Then
            _replace()
            $url = $nurl
   EndIf
   Sleep(10)
Until GUIGetMsg() = -3

Func _replace()
   Local $body, $string
   _IELoadWait($oIE)
   $body = _IEBodyReadHTML($oIE)
   $string = StringRegExpReplace($body, '\btarget=_blank', 'target=_self')
   $string = StringRegExpReplace($string, '\btarget="_blank"', 'target=_self')
   _IEBodyWriteHTML($oIE, $string)
EndFunc ;==>_replace

tpj633 发表于 2010-11-4 13:49:15

楼主你的需求是点击网页上的内容，然后就在当前页显示吗？
如果是这样的话，那难度应该是比较大

gooker 发表于 2010-11-4 14:08:49

很简单,搞定了,需要联系我.QQ9674355

helloxaj 发表于 2010-11-4 14:25:40

_IEBody换为_IEDoc

yang3114 发表于 2010-11-4 14:36:13

回复 4# helloxaj

多谢大哥。搞定了，请留下你的QQ号，我给你充Q币！

风行者 发表于 2010-11-4 21:02:41

已经想到更好的方法，一直没放出来，原来还有人关注

helloxaj 发表于 2010-11-5 00:20:20

回复 5# yang3114

本人从来不用QQ(MSN:helloxaj@live.cn)，所以，免了，不客气{:face (396):}

爱问求学 发表于 2010-11-7 13:31:19

过来学习一下。。

komaau3 发表于 2010-11-8 11:58:15

其实_IECreateEmbedded的例子套用一下完全可以达到楼主的效果 {:face (355):}

kood481748 发表于 2010-11-8 12:24:35

回复 3# gooker

gooker是什么时候晋升为超级版主的，以前从来没有见过这么一位版主

seshomaru 发表于 2010-11-8 14:57:56

回复 4# helloxaj

楼主的代码是干什么用的？看了半天没看懂。

hzxymkb 发表于 2010-11-8 23:05:51

回复 10# kood481748

他是高手！能随便看得见的吗？哈哈！

kisyan 发表于 2010-11-9 11:05:55

风行都中级会员了

bob 发表于 2010-11-10 18:09:22

回复 10# kood481748

gooker大名都没听说过，你落伍了！！！

页: [1]

AUTOIT CN's Archiver

20Q币请人帮忙改一段代码，以前的作者是“风行者”