IEコンポネートのことで2つ




	#module
	
	#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
	
	//-------------------------------------------
	// BrowserMove var p1
	//-------------------------------------------
	//
	//	命令説明
	//
	//	指定したurlへ移動します
	//	p1でurlを指定する変数を設定します
	//
	//-------------------------------------------
	#deffunc BrowserMove var prm1
		ie->"Navigate" prm1
		return 0
	
	//-------------------------------------------
	// BrowserDraw var p1
	//-------------------------------------------
	//
	//	命令説明
	//
	//	ブラウザを描画します
	//	p1でurlを指定する変数を設定します
	//
	//-------------------------------------------
	#deffunc BrowserDraw var prm1
		axobj ie, "Shell.Explorer.2",1100,700
		num=stat
		comevent ie_event, ie, DIID_DWebBrowserEvents2,*TestBrowser
		ie->"Navigate" prm1
		dispid = comevdisp(ie_event)
		stop
		*TestBrowser
		if dispid = DISPID_BEFORENAVIGATE2 {
		comevarg name,ie_event,1
		objprm inputid,name
		}
		if dispid = DISPID_NAVIGATECOMPLETE2 {
		pDoc = ie("Document")
		name = pDoc("Title")
		delcom pDoc
		}
		return 0
	
	//-------------------------------------------
	// BrowserBack
	//-------------------------------------------
	//
	//	命令説明
	//
	//	前のURLへ戻ります
	//
	//-------------------------------------------
	#deffunc BrowserBack
		ie->"GoBack"
		return 0
	//-------------------------------------------
	// BrowserForward
	//-------------------------------------------
	//
	//	命令説明
	//
	//	次のURLへ進みます
	//
	//-------------------------------------------
	#deffunc BrowserForward
		ie->"GoForward"
		return 0
	
	#global
	
	sdim url,512
	url="https://www.google.co.jp/"
	
	screen 0,1100,750,0
	title "ブラウザ"
	color 0,0,0
	objmode 2
	font "メイリオ",12,0
	objsize 60,30 
	pos 10,10 
	button "<<",*Back
	pos 75,10
	button ">>",*Forward
	pos 340,18
	mes "URL:"	
	pos 370,15
	input url,630,20
	pos 1008,10
	button "GO",*Go
	pos 0,50
	BrowserDraw url
	stop
	
	*Back
	BrowserBack
	stop
	
	*Forward
	BrowserForward
	stop
	
	*Go
	BrowserMove url
	stop

エラー防止の為、ちょっと変なスクリプトですがどうでしょうか？

あと、

url は https:// を付けておきましょう。

付けないと正しいURLが表示されない時が有りますので、

参考にしてくれると嬉しいです(^^

HSPTV!掲示板