sark 发表于 2008-8-29 10:24:51

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

有什么方法吧“红色”框中独立显示出来！
原地址：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 发表于 2008-8-29 10:30:15

霉，打不开这网页= =

sark 发表于 2008-8-29 10:32:15

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

asdf 发表于 2008-8-29 10:36:00

个人网络问题:face (32):

sark 发表于 2008-8-29 15:11:26

有人回答我吗？

xkbin 发表于 2008-8-29 16:41:32

hehe

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

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

sark 发表于 2008-8-29 16:55:16

提示一下！

sark 发表于 2008-8-31 10:05:59

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

itljl 发表于 2008-8-31 16:38:54

谁能帮帮楼主?

gooker 发表于 2008-8-31 17:29:34

走了弯路了
The au3 Code:关于插件打印代码保存代码复制代码普通浏览
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif#include <GUIConstantsEx.au3>
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif#include <WindowsConstants.au3>
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif#include <IE.au3>
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif$sURL ="http://www.weather-forecasting.cn/shanghai/ShangHai.htm"
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif$oIE = _IECreateEmbedded()
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif$GUI = GUICreate("Embedded Web control Test", 734, 160, Default, Default)
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif$GUIActiveX = GUICtrlCreateObj($oIE, -11, -16, 756, 230)
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif_IEAction($oIE, "disable")
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif_IENavigate($oIE, $sURL)
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif$oTable = _IETableGetCollection ($oIE, 1)
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif$oTableheight = _IEPropertyGet ($oTable,"height")
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif$oTablewidth= _IEPropertyGet ($oTable,"width")
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif$oTableHtml = StringReplace(_IEPropertyGet ($oTable,"outerhtml"),'"../','"http://www.weather-forecasting.cn/')
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif_IEDocWriteHTML ($oIE, $oTableHtml)
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif$oIE.document.body.scroll = "no"
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gifGUISetState()
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif
[*]http://www.autoitx.com/plugins/AU3/jssc_shrink.gifWhile 1
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif    $msg = GUIGetMsg()
[*]http://www.autoitx.com/plugins/AU3/jssc_shrink.gif    Select
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif      Case $msg = $GUI_EVENT_CLOSE
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif            ExitLoop
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif    EndSelect
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gifWEnd
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gifGUIDelete()
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gif
[*]http://www.autoitx.com/plugins/AU3/jssc_none.gifExit

#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 编辑 ]
附件http://www.autoitx.com/images/attachicons/image.gif 2008-08-31_135041.png (26.34 KB) 2008-8-31 13:51
http://www.autoitx.com/attachment.php?aid=1340&k=7ef59102a0aba3abd22c10786317354f&t=1220174891&noupdate=yes

sark 发表于 2008-8-31 18:53:26

谢谢版主！！！
页: [1]
查看完整版本: 有什么方法吧“红色”框中独立显示出来！