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

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

要求用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)，所以，免了，不客气

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

过来学习一下。。

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

其实_IECreateEmbedded的例子套用一下完全可以达到楼主的效果

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大名都没听说过，你落伍了！！！

		自动登录	找回密码
密码			加入

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

评分