hinekure.net が http://hspdev-wiki.net/ から自動クローリングした結果を表示しています。画像やリソースなどのリンクが切れています。予めご了承ください。
Web Browserを作ろう - HSP開発wiki
トップ    編集凍結 差分バックアップ添付複製名前変更リロード   新規一覧単語検索最終更新   最終更新のRSS

ソフト開発

カウンター 3133
入室中 1
HSP3用です。

概要

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

実装予定

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

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

ダウンロード

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

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

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

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

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

fileweb5..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

OnNavigateComplete2

	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

OnNavigateComplete2

   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

URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リンク

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


添付ファイル:
fileweb5..hsp
301件 [詳細]
fileweb5.hsp
18件 [詳細]
fileweb4..hsp
111件 [詳細]
fileweb3.hsp
52件 [詳細]
fileweb2.hsp
66件 [詳細]
fileweb.hsp
136件 [詳細]
トップ    編集凍結 差分バックアップ添付複製名前変更リロード   新規一覧単語検索最終更新   最終更新のRSS
Last-modified: 2013-08-26 (月) 23:47:57 (103d)