有什么方法吧“红色”框中独立显示出来！

sark

有什么方法吧“红色”框中独立显示出来！
原地址：http://www.weather-forecasting.cn/shanghai/ShangHai.htm
这样编译显示出来是“整个页面”！

#include <IE.au3>
$Url=_IECreate("http://www.weather-forecasting.cn/shanghai/ShangHai.htm")
$oIE = _IECreate ($url, 0, 0)
$sHTML = _IEBodyReadHTML ($oIE)
$sHTML=StringRegExpReplace ($sHTML, "\r\n", "")
$sHTML= StringRegExp($Url, "<!-- .*?//-->",1)

[ 本帖最后由 sark 于 2008-8-31 18:55 编辑 ]

asdf

霉，打不开这网页= =

sark

可以打开的！
原地址：http://www.weather-forecasting.cn/shanghai/ShangHai.htm

asdf

个人网络问题

sark

有人回答我吗？

xkbin

很清楚的码,你再琢磨一下就可以想得出来了

[ 本帖最后由 xkbin 于 2008-8-29 16:45 编辑 ]

sark

提示一下！

sark

希望斑竹能帮我一下！
谢谢！

itljl

谁能帮帮楼主?

gooker

走了弯路了
The au3 Code:关于插件打印代码保存代码复制代码普通浏览

• #include <GUIConstantsEx.au3>
• #include <WindowsConstants.au3>
• #include <IE.au3>
• 
• $sURL ="http://www.weather-forecasting.cn/shanghai/ShangHai.htm"
• $oIE = _IECreateEmbedded()
• $GUI = GUICreate("Embedded Web control Test", 734, 160, Default, Default)
• $GUIActiveX = GUICtrlCreateObj($oIE, -11, -16, 756, 230)
• _IEAction($oIE, "disable")
• _IENavigate($oIE, $sURL)
• $oTable = _IETableGetCollection ($oIE, 1)
• $oTableheight = _IEPropertyGet ($oTable,"height")
• $oTablewidth  = _IEPropertyGet ($oTable,"width")
• $oTableHtml = StringReplace(_IEPropertyGet ($oTable,"outerhtml"),'"../','"http://www.weather-forecasting.cn/')
• _IEDocWriteHTML ($oIE, $oTableHtml)
• $oIE.document.body.scroll = "no"
• GUISetState()
• 
• While 1
•     $msg = GUIGetMsg()
•     Select
•         Case $msg = $GUI_EVENT_CLOSE
•             ExitLoop
•     EndSelect
• WEnd
• 
• GUIDelete()
• 
• Exit
  

#include <GUIConstantsEx.au3><br />#include <WindowsConstants.au3><br />#include <IE.au3><br /><br />$sURL ="http://www.weather-forecasting.cn/shanghai/ShangHai.htm"<br />$oIE = _IECreateEmbedded()<br />$GUI = GUICreate("Embedded Web control Test", 734, 160, Default, Default)<br />$GUIActiveX = GUICtrlCreateObj($oIE, -11, -16, 756, 230)<br />_IEAction($oIE, "disable")<br />_IENavigate($oIE, $sURL)<br />$oTable = _IETableGetCollection ($oIE, 1)<br />$oTableheight = _IEPropertyGet ($oTable,"height")<br />$oTablewidth  = _IEPropertyGet ($oTable,"width")<br />$oTableHtml = StringReplace(_IEPropertyGet ($oTable,"outerhtml"),'"../','"http://www.weather-forecasting.cn/')<br />_IEDocWriteHTML ($oIE, $oTableHtml)<br />$oIE.document.body.scroll = "no"<br />GUISetState()<br /><br />While 1<br />    $msg = GUIGetMsg()<br />    Select<br />        Case $msg = $GUI_EVENT_CLOSE<br />            ExitLoop<br />    EndSelect<br />WEnd<br /><br />GUIDelete()<br /><br />Exit


[ 本帖最后由 gooker 于 2008-8-31 13:53 编辑 ]
附件 2008-08-31_135041.png (26.34 KB) 2008-8-31 13:51

sark

谢谢版主！！！