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


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
0912
どろっぷウィンドウに表示したサイトからのリンク処理について0未解決


どろっぷ

リンク

2013/9/12(Thu) 14:05:36|NO.57103

ずっと前に作ったプログラムで、ウィンドウ内にサイトを表示して、その中のリンクをクリックすると、メインブラウザが開いてクリックしたページを表示するという処理を行っていました。

そのプログラムが無くなってしまったので、なんとか思い出して作ろうとしているのですが、最後の「リンクをクリックしたらメインブラウザが開いてページを開く」という部分がうまくいきません。
(ブラウザ内でページ移動してしまいます)

どこが間違っているのか、ご指摘お願いします。





;------------------------------------------------- ブラウザ処理 ------------- #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 ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ブラウザ処理



この記事に返信する


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