そのプログラムが無くなってしまったので、なんとか思い出して作ろうとしているのですが、最後の「リンクをクリックしたらメインブラウザが開いてページを開く」という部分がうまくいきません。
(ブラウザ内でページ移動してしまいます)
どこが間違っているのか、ご指摘お願いします。
;------------------------------------------------- ブラウザ処理 ------------- #define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}" #define DISPID_NEWWINDOW3 273 ;---------------------------------------------------------------------------- screen 0,300,350 :cls 4 site="http://yahoo.co.jp/" pos 30,50 axobj ie, "Shell.Explorer.2", 250, 240 ie->"Refresh2" 2 comevent ie_event, ie, DIID_DWebBrowserEvents2, *event if netf=0 :ie->"Navigate" site stop *event ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ブラウザ処理 dispid = comevdisp(ie_event) // 新しいウィンドウを開く処理だった場合 if dispid == DISPID_NEWWINDOW3 : gosub *OnNewWindow3 return *OnNewWindow3 comevarg Cancel, ie_event, 1, 2 comevarg _Url, ie_event, 4, 2 // 新しく開く先のURLをゲット ptr = _Url( "bstrptr" ) dupptr newurl, ptr, 512, 2 url = cnvwtos( newurl ) // Unicodeなので変換する delcom _Url // ナビゲートキャンセル Cancel( "val" ) = 1 delcom Cancel exec url, 16 return ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ブラウザ処理