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


HSPTV!掲示板


未解決 解決 停止 削除要請

2017
0428
mega研究所IEコンポネートのことで2つ1未解決


mega研究所

リンク

2017/4/28(Fri) 20:49:13|NO.79344

今ブラウザーを作成してます。で2つ困った事があってそれを教えて星のです
 .瓮縫紂璽弌爾らieコンポネートの使い方
起動したらそのままgoogleに飛ばしたい

screen 0, 1280, 800
url = "google.com"
title"Power escape1.0
#include "user32.as"
pos 0,0
sdim url, 512
input url, ginfo(20), 22
button"←",*back
pos 600,25
button"go",*start
pos 1200,25
button"→",*go
pos 0,50
axobj IE, "Shell.Explorer.2",1200,700
stop


*back
ie->"GoBack"
stop

*start
ie->"Navigate" url
stop

*go
ie->"GoForward"
stop

です!ぜし教えてください。



この記事に返信する


優師¿☯(plugin)

リンク

2017/4/29(Sat) 16:23:37|NO.79361


#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が表示されない時が有りますので、

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



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