HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
0215
kaiHSPでブラウザをつくったけど・・・4解決


kai

リンク

2014/2/15(Sat) 16:36:48|NO.59997

自作ブラウザを作ったのですが、なぜか戻るボタンを押しても同じページが表示されます。(無限ループ)
なぜでしょうか?
どこが悪いか教えてください!!

#define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}" #define DISPID_COMMANDSTATECHANGE 105 #define DISPID_BEFORENAVIGATE2 250 #define DISPID_NAVIGATECOMPLETE2 252 #define DISPID_ONQUIT 253 #define DISPID_ONMENUBAR 256 #define DISPID_ONSTATUSBAR 257 #define DISPID_ONFULLSCREEN 258 #define DISPID_WINDOWSETLEFT 264 #define DISPID_WINDOWSETTOP 265 #define DISPID_WINDOWSETWIDTH 266 #define DISPID_WINDOWSETHEIGHT 267 #define DISPID_ONTHEATERMODE 260 cls 1 sdim url,512 url="http://meganekundazo.web.fc2.com/sb.index.html" objsize 480,24 pos 0,2:mes " URL:" pos 0,26:mes " Browser 0.1" pos 40,0:input url objsize 120,24 pos 520,0:button "移動",*wow pos 400,24:button "-->",*go_f pos 280,24:button "<--",*go_b pos 160,24:button "更新",*ref objsize 60,24 pos 0,48 axobj ie, "Shell.Explorer.2",640,480-48 num=stat comevent ie_event, ie, DIID_DWebBrowserEvents2,*event ie->"Navigate" url *main stop *event ; COMイベント処理 dispid = comevdisp(ie_event) if dispid = DISPID_BEFORENAVIGATE2 : gosub *OnBeforeNavigate if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2 return *OnBeforeNavigate comevarg name,ie_event,1 objprm 0,name return *ref ie->"Refresh" goto *main *OnNavigateComplete2 pDoc = ie("Document") name = pDoc("Title") title name delcom pDoc return *wow ie->"Navigate" url goto *main *go_f ie->"GoForward" goto *main *go_b ie->"GoBack" goto *main



この記事に返信する


E.T

リンク

2014/2/16(Sun) 10:10:32|NO.60020

実行してみましたけど僕の環境は正常です。
開いたページからHSPと検索してHSPTVを開き
戻る*2で最初に戻りました。



kai

リンク

2014/2/16(Sun) 17:15:33|NO.60037

そうでしたか・・・OSがwindows8.1っていうのも関係しているのでしょうかね?

一応、まだ未解決にしておきます。



hamyuu

リンク

2014/2/16(Sun) 20:56:49|NO.60041

自分の環境でも正常でした。(windows8.1)
ページの仕様だったりしませんか?
他のブラウザでも同じだったり。



kai

リンク

2014/2/16(Sun) 21:12:49|NO.60042

おーそうですか・・・

ありがとうございます!!



ONION software Copyright 1997-2023(c) All rights reserved.