Web Browserを作ろう

OFFICIAL/関連

• HSP
• HSPTV!
• OpenHSP-trac
• HSPWiKi
• HSP Users Group
• HSP-users.jp
• Online HDL
• CodeZine-HSP

TUTORIAL

• HSP基礎講座

TOPICS

• ソフト開発
• 小ワザ
• アルゴリズム
• プラグイン
• モジュール
• マクロ

ETC

• 読み物
• 雑談
• IRCチャンネル
• 便利ツール
• ネタ収集BOX
• 用語集
• 外部リンク
• ご意見・ご要望

EDIT

• 練習ページ
• InterWikiName

REFERENCE

• 整形ルール
• プラグインマニュアル
• ここで導入中のプラグイン
• ヘルプ
• 逆引きHSP開発wiki
• Menuedit

LOG

• 人気/今日の100件
• RecentDeleted
• RenameLog

お知らせ

• お知らせ

HSP Web-Ring

---

最新の40件

---

---

ソフト開発

概要 †

HSP3のサンプルにある、WebBrowser?を 使いやすくかつ便利なWebBrowser?に 変える

実装できたら、こんな感じに消してください

• Tabで複数ページ開ける
• 検索窓の追加
• 印刷、ページの名前を付けて保存ができる
• 更新・中止ボタンの追加
• flash再生
• Ctrl+CキーやDelキーなどのショートカットの使用ができる

更新した場合は古いverを消さずにうｐしてください。 ※verも忘れずに。

web.hsp
Web Browser ver.1 初期ファイル

web2.hsp
Web Browser ver.2 更新・中止ボタンを追加しました。

web3.hsp
Web Browser ver.3 ボタンを小さくし、端によせました。

web4..hsp
Web Browser ver.4 ホームボタンを追加し、戻る、進むボタンをIEとほぼ同じ位置にしました。

web5..hsp
Web Browser ver5 Ctrl+CやDelなどのショートカットを使用できるようにしました。戻る、進むボタンの表記方法を←、→にしました。

更新したら書き換えてください。

      #packopt name "InterNet for Windows"
	#packopt type 1 
	;
	;	IEコンポーネントを使ったブラウザ
	;
	title "InterNet for Windows"

#define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"

#define DISPID_NAVIGATECOMPLETE2 252

#define OLECMDID_CUT 11 ; 切り取り ctrl+x

#define OLECMDID_COPY 12 ; コピー ctrl+c

#define OLECMDID_PASTE 13 ; 貼り付け ctrl+v

#define OLECMDID_UNDO 15 ; 元に戻す ctrl+z

#define OLECMDID_DELETE 33 ; 削除 del

	cls 1
	sdim url,512
	url="http://www.yahoo.co.jp/"
	objsize 600,24
	pos 0,2:mes " URL:"
	pos 40,0:input url
	objsize 50,24
	pos 440,24:button "移動",*wow
	objsize 30,20
	pos 29,24:button "→",*go_f
	pos 0,24:button "←",*go_b
	objsize 50,24
	pos 490,24:button "更新",*kousin
	pos 540,24:button "中止",*tyuusi
	pos 590,24:button "ホーム",*home
	pos 0,48
	axobj ie, "Shell.Explorer.2",640,480-48
	num=stat
	comevent ie_event, ie, "{34A715A0-6587-11D0-924A-0020AFC7AC4D}",*event	; DIID_DWebBrowserEvents2     
	ie->"Navigate" url
	
	onkey gosub *pushkey	;

	if wparam=46 {ie->"ExecWB" OLECMDID_DELETE,0,0:return}
	getkey ctrl,17    ; ctrl
	getkey key_c,67   ; c
	getkey key_v,86   ; v
	getkey key_x,88   ; x
	getkey key_z,90   ; z
	if(ctrl & key_c){ie->"ExecWB" OLECMDID_COPY,0,0:return}
	if(ctrl & key_v){ie->"ExecWB" OLECMDID_PASTE,0,0:return}
	if(ctrl & key_x){ie->"ExecWB" OLECMDID_CUT,0,0:return}
	if(ctrl & key_z){ie->"ExecWB" OLECMDID_UNDO,0,0:return}
	

	stop

	;	COMイベント処理
	dispid = comevdisp(ie_event)
	if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2
	return

	name = ie("LocationURL")
	objprm 0,name
	pDoc = ie("Document")
	name = pDoc("Title")
	title name
	delcom pDoc
	return

	ie->"Navigate" url
	goto *main

	ie->"GoForward"
	goto *main

	ie->"GoBack"
	goto *main

	ie->"Refresh"
	goto *main

	ie->"stop"
	goto *main

	ie->"GoHome"
	goto *main

   if wparam=46 {ie->"ExecWB" OLECMDID_DELETE,0,0:return}
   getkey ctrl,17    ; ctrl
   getkey key_c,67   ; c
   getkey key_v,86   ; v
   getkey key_x,88   ; x
   getkey key_z,90   ; z
   if(ctrl & key_c){ie->"ExecWB" OLECMDID_COPY,0,0:return}
   if(ctrl & key_v){ie->"ExecWB" OLECMDID_PASTE,0,0:return}
   if(ctrl & key_x){ie->"ExecWB" OLECMDID_CUT,0,0:return}
   if(ctrl & key_z){ie->"ExecWB" OLECMDID_UNDO,0,0:return}
   

   stop

   ;	COMイベント処理
   dispid = comevdisp(ie_event)
   if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2
   return

   name = ie("LocationURL")
   objprm 0,name
   pDoc = ie("Document")
   name = pDoc("Title")
   title name
   delcom pDoc
   return

   ie->"Navigate" url
   goto *main

   ie->"GoForward"
   goto *main

   ie->"GoBack"
   goto *main

   ie->"Refresh"
   goto *main

   ie->"stop"
   goto *main

   ie->"GoHome"
   goto *main 

要望や、ご意見、バグ報告、実装報告など

• これ動いてんの？ -- damper? 2013-08-26 (月) 23:47:56

お名前:

HSPでインターネットブラウザを作成してみる。

添付ファイル:
web5..hsp 301件 [詳細]
web5.hsp 18件 [詳細]
web4..hsp 111件 [詳細]
web3.hsp 52件 [詳細]
web2.hsp 66件 [詳細]
web.hsp 136件 [詳細]