![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
VB6のshell関数でInternet Explorerを起動し、Internet Explorerが起動するときに表示するページのURLをInternet Explorerに送る方法ご存知の方教えてください。
Internet Explorerの起動は出来たのですが、URLを送る方法が分かりません。
WebBrowserを使ってVB6のフォーム上では表示しようとするホームページのURLの記述が出来ますが、VB6のフォーム上で表示したくない事情があります。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
>VB6のフォーム上で表示したくない事情があります。
何処に記述されたURLを送るのでしょうか?
どこかしらには記述してあるのでしょうか?
これではだめなのですよね、、、
Microsoft.VisualBasic.Shell("explorer.exe http://google.co.jp")
早速の回答有難う御座いました。
すぐこの方法を試してみました、私が希望していた通りの動作をしました。
VBのフォーム上に表示したくない事情は次のような事情によるものです。
アクセスしたいサイトにログイン、パスワード暗証番号などの入力を簡単に行うために、デスクトップ上のアイコンをクリックしたら、
1:Internet Explorerを起動、同時に希望するサイトにアクセスする。
2:ファイルからID、暗証番号などをロードし、クリップボードにはりつける。
3:クリップボードの内容をサイトのログイン画面の入力欄に貼り付ける。
4:ログイン後はこのプログラムを終了しInternet Explorerだけを動作させている状態にする。
という理由によるものです。複数のプログラムを起動していると動作が不安定になる傾向があるためです。
また、銀行の暗証番号などをセキュリティボックスなど使って入力するのは間違いやすく何回もまちがえるとロックがかかってしまいます。
すぐの回答大変有難う御座いました。
No.2
- 回答日時:
やるとすれば AppActivateとSendkeysを組み合わせる方法でしょう
Shell関数の戻り値を記憶しているなら
AppActivate nID などで IEをアクティブにします
記憶していないのであれば IEのタイトルバーの文言を使って
AppActivate "MSN Japan - Microsoft Internet Explorer"
といった具合にします
アドレスバーがあるなら ALT+Dでフォーカスを移動できますので
SendKeys "%d",true
でアドレスバーに入力可能な状態になります
SendKeys "http://www.goo.ne.jp{ENTER}",true
などとしてやれば良いかと思います
Shell関数で起動直後は IEの準備がまだ整っていないので
AppActivateや SendKeysは失敗します
On Error Resume Next
Do
AppActivate nID
loop while Err.Number
on error goto 0
Sendkeys "%d",true
SendKeys "http://www.goo.ne.jp{ENTER}",true
といった具合で エラートラップを仕掛けてみましょう
なお Sendkeysはアクティブなウィンドウに対してキー入力の送信を行います
タイマーなどで割り込まれたウィンドウがアクティブになってしまった場合他のウィンドウに対してキー入力を行ってしまうのでこの点に注意しましょう
私なら IEをオブジェクトとして起動して これのNavigateまたはNavigate2メソッドを使います
dim oIE as Object
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = TRUE
oIE.Navligate2 "http://www.goo.nme.jp"
といった具合です
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
QueryPerformanceCounter の使...
-
アウトルックが起動しているか...
-
EXCEL VBAから他アプリケーショ...
-
ショートカットから初期起動を操作
-
VBSから別のVBS起動するとき変...
-
フォームの最前面が効かない
-
Process.Startで起動したアプリ...
-
Windows上のプログラム。「予め...
-
AppActivateについて
-
MSDOS(バッチファイル)でプロセ...
-
VBによる複数バージョンのEXCEL...
-
VBSで起動したアプリが前面表示...
-
VBで実行中のEXEファイルの情報...
-
phpで、メール自動受信を作りたい
-
VisualStudio2005でのビルドに...
-
VBAでOutlookを終了させたい Ex...
-
vba 時間の引き算 例えば 15:00...
-
「読み込み違反」が起きたとき...
-
Visual Studio 「AnyCpu」について
-
意味不明の実行時エラーで困っ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでOutlookを終了させたい Ex...
-
Windows上のプログラム。「予め...
-
アウトルックが起動しているか...
-
VBSで起動したアプリが前面表示...
-
VBSから別のVBS起動するとき変...
-
EXCEL VBAから他アプリケーショ...
-
Process.Startで起動したアプリ...
-
VBで実行中のEXEファイルの情報...
-
エクセル起動時別プロセスで開く
-
VBAでSeleniumからChromeを起動...
-
ACCESS VBAで別のACCESS(mdb)を...
-
二重起動禁止にする理由とは
-
VBAでIEが起動しているか...
-
64bitで作ったEXEを32bitで起動...
-
Internet ExplorerをC言語プロ...
-
別アプリの起動、終了について
-
フォームの最前面が効かない
-
exeファイルを実行するとすぐに...
-
VB6で呼び出し元の情報を取得す...
-
ウィンドウを終了させたい・・・
おすすめ情報