#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が表示されない時が有りますので、
参考にしてくれると嬉しいです(^^