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


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
0816
N2HSPブラウザについて9解決


N2

リンク

2013/8/16(Fri) 13:49:35|NO.56415

HSP初心者です。HSPでブラウザを作ってみたいと思い、ボタン等は表示したのですが、
IEコンポーネントについてがよくわかりません。

#include "user32.as" screen 0, ginfo(20), ginfo(21) GetWindowLong hwnd, -16 SetWindowLong hwnd, -16, stat | $10000 | $40000 width 1100, 750 title "ブラウザ β1.0" cls 1.9 objmode 2 font "MS ゴシック",12,0 objsize 60,30 pos 10,10 button "<<",*Button1 objsize 45,30 pos 75,10 button ">>",*Button2 pos 150,10 button "ホーム",*Button3 pos 200,10 button "更新",*Button4 pos 250,10 button "中止",*Button5 pos 340,18 mes "URL:" pos 370,15 input1="http://ここに入力/" input input1,630,20, pos 1008,10 button "移動",*Button6 stop *Button1 stop *Button2 stop *Button3 stop *Button4 stop *Button5 stop *Button6 stop
という感じなのですが、続き・修正をしてもらえないでしょうか?



この記事に返信する


とおりすがり

リンク

2013/8/16(Fri) 14:12:33|NO.56416

とりあえず、スクリプトエディタでF1キーを押して「HSPキーワード検索」を起動し、「IE」で検索してみてください。
お探しのサンプルが見つかりますよ。



N2

リンク

2013/8/16(Fri) 14:24:48|NO.56417

見ては見たのですがよくわかりませんでした。できればスクリプトを書いてくれるとうれしい
のですが…



KA

リンク

2013/8/16(Fri) 15:41:48|NO.56418

どこがどう分からないのかを自分で理解していないと、
サンプルを書いても分からないでしょう。



とおりすがり

リンク

2013/8/16(Fri) 15:42:11|NO.56419

私も詳しくはないのですが、サンプルのcomtest7.hspを参考にするとこうなりました。
IEコンポーネントを使ったブラウザの作り方についての質問はよくあるので、ここの掲示板の過去ログを
検索してみるといろいろ参考になると思いますよ。
	;	IEコンポーネントを使う
; #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 sdim url,512 url="http://www.onionsoft.net" sdim homeurl,512 homeurl="http://www.hsp.tv" screen 0,1100,750,0 title "ブラウザ β1.0" cls 1 objmode 2 font "MS ゴシック",12,0 objsize 60,30 pos 10,10 button "<<",*Button1 objsize 45,30 pos 75,10 button ">>",*Button2 pos 150,10 button "ホーム",*Button3 pos 200,10 button "更新",*Button4 pos 250,10 button "中止",*Button5 pos 340,18 mes "URL:" pos 370,15 input1="http://ここに入力/" input input1,630,20 inputid = stat pos 1008,10 button "移動",*Button6 pos 0,50 axobj ie, "Shell.Explorer.2",1100,700 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 inputid,name return *OnNavigateComplete2 pDoc = ie("Document") name = pDoc("Title") title name delcom pDoc return *Button1 ie->"GoBack" goto *main *Button2 ie->"GoForward" goto *main *Button3 ie->"Navigate" homeurl goto *main *Button4 goto *main *Button5 goto *main *Button6 ie->"Navigate" url goto *main



とおりすがり

リンク

2013/8/16(Fri) 15:45:37|NO.56420

まあKAさんのおっしゃる事ももっともだと思いますが。
「どこがわからないのかもわからない」のが初心者の初心者たる所以ですので。



N2

リンク

2013/8/16(Fri) 20:44:42|NO.56442

ありがとうございます!更新ボタンと中止ボタンは何とか自分で解決できましたが、
移動ボタンを押すと

sdim url,512 url="http://www.onionsoft.net"
のアドレス戻ってしまうのですがどうしてでしょうか?



とおりすがり

リンク

2013/8/16(Fri) 22:09:13|NO.56448

ああ本当だ!失礼しました。
最後の部分を次のように書き変えてください。これで移動できると思います。
*Button6
ie->"Navigate" input1 goto *main



とおりすがり

リンク

2013/8/16(Fri) 22:13:51|NO.56451

いちおう説明を付け加えておくと、
ie->"Navigate" input1

は、変数 input1 に代入されているアドレスに移動するよう、ieに指示を送っています。 先ほどは
ie->"Navigate" url
となっていたので、変数 url に代入されていたアドレス"http://www.onionsoft.net"に移動してしまったのです。
初歩的なミスですね。お恥ずかしい限りです。



N2

リンク

2013/8/16(Fri) 23:38:09|NO.56453

今回は親切に教えていただき本当にありがとうございました!
おかげですべて解決いたしました。今度からはもっと自分で調べたりして、
なるべく自分で解決できるようにしたいと思っています。



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