HSPTV!掲示板

チャットの「もなちゃと」を快適に利用できる専用ブラウザを
HSPでつくりました、時計機能と天気予報(ウェザーってところのRSSから取得)
がついています。よかったらダウンロード、感想をお願いします。

バージョンは1.0(最初)です。これからのバージョンアップで
機能を増やしていきたいです。

URLです↓

http://fast-uploader.com/file/6964495616233/

なんかダウンロード数が5になっているので


ダウンロードありがとうございます
よかったら感想、不満な点など教えてくれたらありがたいです。
今後のバージョンアップ版で参考にさせていただきます。

感想の前にファイルが開けない件
http://fast-uploader.com/file/6964529006627/

お待ち下さい。で応答なしになります。
その上、ノートンに削除されてしまいました。。。

hsptmp から何とか起動できました。

「もなちゃと」は使ったことありませんが、、、
ちょっと画面が小さいです。
自由に大きさを変えれたらいいな。と思いました。

>>GOMEKIT!さん

ご指摘ありがとうございます。

ファイルのダウンロードはできても、そのファイルが開けない、
ということでしょうか

zipファイルに圧縮したものをアップロードしたのですが、
貼っていただいた画像に見えるファイルがzipファイルの状態なら、
解凍すれば開けるとおもいます(汗



>>ヒラギノさん

ご指摘ありがとうございます。

「お待ちください」の状態は、天気のRSSを取得し、「もなちゃと」のブラウザの画面
になるまでの間に表示させています。(1～10秒ほどかかりました)

そのRSSを取得している間は、応答無し(waitを入れてないrepeat～loopのような状態)
になります。

インターネットに繋がっているなら、RSSを最低10秒ほどで取得、「もなちゃと」のブラウザの画面
に切り替わるとおもいます。(どうして時間がかかってしまうのかは僕もよくわからないです。
すみません>< )

#include "mod_rss.as"のプラグイン(モジュール?)を使い、

rssload でrssを取得するのですが、そのとき、取得できなかった場合はstatに1が代入されます。
そのstat=1のときは、「データの取得に失敗しました」とダイアログを出して、
endで終了させるようにしています。(説明下手ですいません、意味不明な部分があったら指摘
してもらえたらありがたいです＞＜)

>>その上、ノートンに削除されてしまいました。。。

すみません、原因が僕にもわからないです。
でも、もし予想するなら、
・RSSを取得したから
・IEコンポーネントを設置し、勝手にどこかのサイト(もなちゃと)に飛ばしたから
の二つしか思いつきません＞＜

スクリプトを張っておきますので、「これが原因だろ」と指摘してもらえれば
うれしいです。。。


#include "mod_rss.as"

*hajime
suitti=0

title "お待ちください..."

buffer 100,600,630:rssload tenki,link,"http://weather.livedoor.com/forecast/rss/index.xml",50
if stat == 1 : dialog "データの取得に失敗しました。",1,"error:1" : end
tenkik="":repeat 32:tenkik+="\n"+tenki(cnt):loop:color 20,20,20:boxf:color 200,200,200:font "",18:mes tenkik

turl=http://weather.livedoor.com/forecast/rss/1.xml
bload "turl",turl

screen 0,200+750,100+490:title "もなっとブラウザ ver1.0"
title "もなっとブラウザ"

color 20,20,20:boxf

; IEコンポーネントの設置
axobj IE, "Shell.Explorer.2", 750,490


*navigate
url="http://monachat.dyndns.org/monachat_entrance.html"

; ページ移動
IE->"Navigate" url

*byouga

color 20,20,20:boxf 0,0,,490

;時計
color 200,200,200:font "",25:pos 760,10

if gettime(2)=0:yobi="日"
if gettime(2)=1:yobi="月"
if gettime(2)=2:yobi="火"
if gettime(2)=3:yobi="水"
if gettime(2)=4:yobi="木"
if gettime(2)=5:yobi="金"
if gettime(2)=6:yobi="土"
mes ""+gettime(0)+"/"+gettime(1)+"/"+gettime(3)+"("+yobi+")"
font "",70:mes ""+gettime(4)+":"+gettime(5)


sctenk+:if sctenk=630:sctenk=0
pos 0,490-sctenk:gmode 0:gcopy 100,0,0,600,800

if suitti=0:objsize 200,40:pos 750,150:button "御・天気ダイアログ",*tenkidialog
if suitti=0:button "もなちゃと入り口へ",*iriguti
if suitti=0:button "ぐぐる(googleへジャンプ)",*google
if suitti=0:button "データの更新(初期化)",*syokika
suitti=1

goto *teisi

*tenkidialog

dialog ""+tenkik,0,"御・天気ダイアログ"
goto *teisi

*iriguti

url="http://monachat.dyndns.org/monachat_entrance.html"

; ページ移動
IE->"Navigate" url

goto *teisi

*google

url="https://www.google.com/?hl=ja&gws_rd=ssl"

; ページ移動
IE->"Navigate" url

goto *teisi

*syokika
goto *hajime

*teisi

redraw 1:wait 50:redraw 0:goto *byouga




（スクリプトも汚いですがすみません＞＜）

まず拡張子を付けたらファイルに関する問題は解決した。
機能を使うとスクリプトエラーが頻発。
あと時刻なんだが20:09じゃなく20:9になっている。
もなちゃっとを開いても中身は空、表示されるのは上部のメニューと広告一つ。

>>その上、ノートンに削除されてしまいました。。。
>すみません、原因が僕にもわからないです。
何年も前からnortonとhspは敵対している様子ですし、
プログラム以前の問題ですよ。仕方がない。

因みに、昨年も友人宅のnortonにHSP製ベータ版ゲーム消されました。
▼avastの誤検出
http://hsp.tv/play/pforum.php?mode=pastwch&num=45381
▼nortonの誤検出とHSP製exe削除
http://hsp.tv/play/pforum.php?mode=pastwch&num=28686

どうも、男子中学生です。
この掲示板で、不具合があるとわかったので、
急遽、バージョン1.1のソースを公開させていただきます。

＜変更点＞
・読み込みが完了されているか、まだ読み込み中なのかを、
　わかるようにした。
・時刻が2桁になるようにした。(2:5→02:05に)
・天気予報機能を一時的に廃止した。(スクリプトエラーなどの原因を
　条件を絞って見つけるため)


>>まず拡張子を付けたらファイルに関する問題は解決した。

ご指摘ありがとうございます。実行ファイルの名前を変更するときに、
拡張子まで消してしまってました。(完全に僕のミスです。すみません)

>>あと時刻なんだが20:09じゃなく20:9になっている。

ご指摘ありがとうございます。strfで改善することができました。

>>もなちゃっとを開いても中身は空、表示されるのは上部のメニューと広告一つ。

改善点で、読み込みが完了されているか、されていないかがわかるような
使用にしました(ウィンドウのタイトルバーに記述させるようにつくりました)


>>「もなちゃと」は使ったことありませんが、、、
>>ちょっと画面が小さいです。
>>自由に大きさを変えれたらいいな。と思いました

ご指摘ありがとうございます。
もなちゃとは、画面サイズは一定なので、できるだけ、
コンパクトに収まるようにしました。
今後のバージョンアップ版で、機能などが増えれば、もちろん
ウィンドウサイズも大きくしなければならなくなるので、
そのときには、自由に大きさを変えれるような仕様に
したいと考えています。



#include "mod_rss.as"

*Standby

screen 0,950,480:title "Monataro -もなちゃとに接続中...しばらくお待ちください...-
color 20,20,20:boxf
;時計
color 200,200,200:font "",20:pos 760,10:mes "読み込みの完了を\n待っています..."

*IEcomponent

; IEコンポーネントの設置
pos 0,0:axobj IE, "Shell.Explorer.2", 760,480

url="http://monachat.dyndns.org/monachat_entrance.html"


; ページ移動
IE->"Navigate" url


yomikomi=0
repeat
yomikomi+:if yomikomi=50:title "Monataro -もうしばらくお待ちください...もなちゃとに接続しています...-
wait 10
if ie("Busy") = 0 { break }
loop

;button
objsize 950-760,20
pos 760,150
button "もなちゃと入り口へ",*iriguti

;end

title "Monataro -接続が完了しました-":wait 200:title "Monataro"

*main

color 20,20,20:boxf 0,0,,490

gosub *tokei


redraw 1:wait 100:redraw 0:goto *main

*tokei

color 200,200,200:font "",25:pos 770,10

if gettime(2)=0:yobi="日"
if gettime(2)=1:yobi="月"
if gettime(2)=2:yobi="火"
if gettime(2)=3:yobi="水"
if gettime(2)=4:yobi="木"
if gettime(2)=5:yobi="金"
if gettime(2)=6:yobi="土"
mes ""+gettime(0)+"/"+gettime(1)+"/"+gettime(3)+"("+yobi+")"
time = strf("%02d:", gettime(4)) + strf("%02d", gettime(5)):font "",80:mes time

return

*iriguti

IE->"Navigate" url

goto *standby

>>何年も前からnortonとhspは敵対している様子ですし、
>>プログラム以前の問題ですよ。仕方がない。

そうなんですか。。。＞＜
じゃあやっぱりこの問題は回避できないんでしょうか。。。

重要な情報をありがとうございます！

時間ですが、深夜２時０２分に起動したところ
時間の表示が、　「２：２」　と
表示されています「２：０２」になりませんか？

>>時間ですが、深夜２時０２分に起動したところ
>>時間の表示が、　「２：２」　と
>>表示されています「２：０２」になりませんか？

龍一さん、それは一番↑のURLからダウンロードしたものですか？
「時間の表示が２：２のようになってしまう」というご指摘は
以前も言われてしまったので、急遽、改善版のスクリプトだけ
公開させていただいています。(バージョン1.1になります。。)

#include "mod_rss.as"

*Standby

screen 0,950,480:title "Monataro -もなちゃとに接続中...しばらくお待ちください...-
color 20,20,20:boxf
;時計
color 200,200,200:font "",20:pos 760,10:mes "読み込みの完了を\n待っています..."

*IEcomponent

; IEコンポーネントの設置
pos 0,0:axobj IE, "Shell.Explorer.2", 760,480

url="http://monachat.dyndns.org/monachat_entrance.html"


; ページ移動
IE->"Navigate" url


yomikomi=0
repeat
yomikomi+:if yomikomi=50:title "Monataro -もうしばらくお待ちください...もなちゃとに接続しています...-
wait 10
if ie("Busy") = 0 { break }
loop

;button
objsize 950-760,20
pos 760,150
button "もなちゃと入り口へ",*iriguti

;end

title "Monataro -接続が完了しました-":wait 200:title "Monataro"

*main

color 20,20,20:boxf 0,0,,490

gosub *tokei


redraw 1:wait 100:redraw 0:goto *main

*tokei

color 200,200,200:font "",25:pos 770,10

if gettime(2)=0:yobi="日"
if gettime(2)=1:yobi="月"
if gettime(2)=2:yobi="火"
if gettime(2)=3:yobi="水"
if gettime(2)=4:yobi="木"
if gettime(2)=5:yobi="金"
if gettime(2)=6:yobi="土"
mes ""+gettime(0)+"/"+gettime(1)+"/"+gettime(3)+"("+yobi+")"
time = strf("%02d:", gettime(4)) + strf("%02d", gettime(5)):font "",80:mes time

return

*iriguti

IE->"Navigate" url

goto *standby

ありがとう御座います。
間違えてしまいすいません

これからも頑張ってください！