制作“滚动新闻”的软件！

sark · 发表于 2008-9-19 20:28:16

请问一个单独显示“滚动新闻”的软件并能自动/手动更新！
我试过，问题就在如何提取“关键字”。
但还是不成功！
请仁兄指教！
原地址：http://news.163.com/

绿色框就是要提取的框架！

[ 本帖最后由 sark 于 2008-9-19 20:31 编辑 ]

sark · 发表于 2008-9-20 18:14:40

没人回答！

huangke · 发表于 2008-9-20 22:23:05

我来帮你顶一下，我不知道怎么做，用AU3的话`

auto · 发表于 2008-9-20 23:17:56

好像没有框架..直接生成一个html页面,,..分板源码后..取其中所需部分就可以了
刚好有滚动新闻关键字,,应该可以弄的

sark · 发表于 2008-9-21 08:39:20

用以前网友提取关键字的方法试过了！
可是软件显示中“0”！
不知道为什么？

gto250 · 发表于 2008-9-22 11:26:16

$g_szVersion = "My"
If WinExists($g_szVersion) Then
MsgBox(32,"","注意已经运行了")
Exit ; 此脚本已经运行了
EndIf
AutoItWinSetTitle($g_szVersion)
;########################################以上是确保只有一个脚本实例运行##################################

#include <IE.au3>
#include <Inet.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 500, 20, 228, 254,$WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetState(@SW_SHOW)
$str=_INetGetSource("http://news.163.com/")
$a=StringInStr($str,'<marquee')
$b=StringInStr($str,'</marquee></h3>')
$c=StringMid($str,$a,$b+StringLen("</marquee></h3>")-$a)
$c=StringReplace($c,"</h2>","")

$a2=StringInStr($str,'<style type="text/css">')
$b2=StringInStr($str,'</style>')
$c2=StringMid($str,$a2,$b2+StringLen("</style>")-$a2)

$html="<head>"&$c2&"</head><body>"&$c&"</body>"
$oIE = _IECreateEmbedded()
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 520, 20)
_IENavigate ($oIE, "about:blank")
_IEDocWriteHTML ($oIE,$html)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

anyky123 · 发表于 2009-11-24 10:10:14

l100593120 · 发表于 2009-11-24 11:51:00

一般高手都会出现在这里！~

huangke · 发表于 2009-11-24 13:33:33

很多高手？

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

制作“滚动新闻”的软件！

本帖子中包含更多资源

相关帖子

评分