HSPTV!掲示板

どうもおひさしぶりですww302jpです

RSSって便利ですよねー...

そこでhttp://weather.goo.ne.jp/area/4410.rdfのRSSを

リストボックスで表示させてクリックするとページにアクセスさせるにはどうすればいいですか?
~~~~~~~~~~~~~~
よろしくおねがいします!

>そこでhttp://weather.goo.ne.jp/area/4410.rdfのRSSを
>リストボックスで表示させてクリックするとページにアクセスさせるにはどうすればいいですか?
つまり、リストボックスにRSS表示ってことですか？
でもページにアクセスってのがわかりません(^^;
どこにアクセスするのですか？
Google?

とりあえず、方法だけを。
まず、「表示したいところだけ」をきりとり、リストボックスに表示します...

でアクセスは...ボタンとか？？？....やっぱりわかりません(^^;)

ちなみに、
exec URL
でページはひらけます。

>つまり、リストボックスにRSS表示ってことですか？
>でもページにアクセスってのがわかりません(^^;
>どこにアクセスするのですか？

すみません説明不足でした
リストボックスをクリックするとRSSの規定のリンクに飛ぶということです

サンプルスクリプト参照です

#include "mod_rss.as"

	;	RSSリーダーサンプル
	;
	url="http://hotwired.goo.ne.jp/news/index.rdf"
	rssload desc, link, url, 6
	;
	if stat=1 : dialog "取得に失敗しました。" : end
	if stat=2 : dialog "RSSではありません。" : end
	;
	mes "RSSの内容を表示します。"
	mes url
	mes "----------------------------------------------------------------"

	foreach desc
	mes ""+cnt+":"+desc(cnt)
	mes "    ("+link(cnt)+")"
	loop

	stop

ウィンドウメッセージを
oncmd命令でキャッチしてexecで飛ばすのは？
ウィンドウメッセージはGoogleとかで検索すれば分かると思うよ

#module
//RSSの制御開始
//p1: url
#deffunc rssset str p1
rss_start=1		//フラグ
url=p1
newcom oDom,"Microsoft.XMLDOM"
oDom("async")="FALSE"		; 同期読み込みを行う
oDom->"load" url		; URLを指定する時
oRoot = oDom("documentElement")


	
	//RSSが存在するかチェック
	//戻り値: 存在しない場合0が返る
	#defcfunc rsschek
	if oRoot("tagName")!="rdf:RDF" :return 0
	return 1

	//RSSのタイトル返す
	#defcfunc rsstitle
	comres elm_ch
	oDom->"getElementsByTagName" "title"
	node = elm_ch("item",0)
	node2 = node("firstChild")
	return node2("nodeValue")

	//RSSのリンク先を返す
	#defcfunc rsslink
	comres elm_link
	oDom->"getElementsByTagName" "link"
	node = elm_link("item",0)
	node2 = node("firstChild")
	link = node2("nodeValue")
	return link

	//RSSのデータを配列変数に代入
	//p1: 読みこむ文字列型配列変数(関数内初期化)
	//p2: 最低の読み込む行数(0の場合デフォルト値)
	#deffunc rssload array p1, int p2

	max=elm_ch("length")
	if p2=0:max=15:else:{
		if max>11 : max=11
	}

	//一応このくらいは確保しておく。
	sdim p1,64,15,3
	
	repeat max-1
		i=cnt+1
		node = elm_ch("item",i)
		node2 = node("firstChild")
		p1(cnt,0)=node2("nodeValue")		//アイテムのタイトル
	
		node = elm_link("item",i)
		node2 = node("firstChild")
		link = node2("nodeValue")
		p1(cnt,1)=link						//URL

	loop
	return
#global









#define global	WM_COMMAND			0x0111	//メニューアイテムの選択・コントロールからの通知	
#define global ctype	LOWORD(%1) (%1 & 0xFFFF)	//下位ワード値を取得
#define global ctype	HIWORD(%1) ((%1 >> 16 ) & 0xFFFF)	//下位ワード値を取得


	oncmd gosub *ON_WM_COMMAND,WM_COMMAND


	rssset "http://hspwiki.nm.land.to/?cmd=rss&ver=1.0"
	if rsschek()=0:dialog "エラー"
	mes rsstitle()
	mes rsslink()
	rssload list,15

	sdim strlist,64
	repeat length(list)
		strlist+=list(cnt,0)+"\n"
	loop

	objsize 200
	listbox ilist,100,strlist
	hlist=objinfo(stat,2)


stop

*ON_WM_COMMAND


	if lparam=hlist{

		if HIWORD(wparam)=2{


			exec list(ilist,1),16
			
		}

	}

return

Asさん
ちょっと難しいので簡単にでないですか?


アキスさん
それではRSSの取得は出来ないと思います...

よろしおねがいします!

君が作ろうとしているスクリプトには最低これだけ必要、ということなんだけどな。

僕が言いたいのはリストボックスの項目をクリックしたときのジャンプについてです。
オブジェクトは操作があるとウィンドウメッセージが送信されます。
それをoncmd命令でキャッチして、Webページを呼び出す。
RSSを載せたリストボックスは自分で作れるでしょう。
僕はそのURLにジャンプする部分を言っているのです。