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


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0428
ぽよサイトが開けるプログラムです。4解決


ぽよ

リンク

2012/4/28(Sat) 17:24:03|NO.46294

;
; IEコンポーネントを使ったブラウザ
;
#define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
#define DISPID_NAVIGATECOMPLETE2 252
cls 1
sdim url,512
url="http://hsp.tv/"
objsize 600,24
pos 0,2:mes "URL:"
pos 0,26:mes "WEB Browser Sample"
pos 40,0:input url
objsize 120,24
pos 520,24:button "移動",*wow
pos 400,24:button "進む",*go_f
pos 280,24:button "戻る",*go_b
pos 0,48
axobj ie, "Shell.Explorer.2",640,480-48
num=stat
comevent ie_event, ie, "{34A715A0-6587-11D0-924A-0020AFC7AC4D}",*event ; DIID_DWebBrowserEvents2
ie->"Navigate" url
*main
stop
*event
; COMイベント処理
dispid = comevdisp(ie_event)
if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2
return

*OnNavigateComplete2
name = ie("LocationURL")
objprm 0,name
pDoc = ie("Document")
name = pDoc("Title")
title name
delcom pDoc
return
*wow
ie->"Navigate" url
goto *main
*go_f
ie->"GoForward"
goto *main
*go_b
ie->"GoBack"
goto *main

これで開けます。



この記事に返信する


TMKL

リンク

2012/4/28(Sat) 19:22:56|NO.46296

?
HSPのサンプルと全く同じようですが . . .
あと、スクリプトはpreタグで囲みましょう



ぽよ

リンク

2012/5/27(Sun) 18:20:53|NO.46893

すいません…
スクリプトは小文字の
で囲むと見やすく表示できます。
と書いてあるということは、囲まなくてもいいんじゃないの?



spider

リンク

2012/5/27(Sun) 18:27:05|NO.46894

いや、preタグを使うと、
Tabがそのまま表示されるので
質問に答える人が困りません。(ないと結構難しい)

答えてもらう気があるなら、
preタグで囲むというのは暗黙の了解のようなものでしょう。



spider

リンク

2012/5/27(Sun) 18:28:00|NO.46895

質問じゃなかったのね・・・・
まあ、どっちみち見てほしかったらpreで囲め。
っということですね。



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