![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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で質問しましょう!
似たような質問が見つかりました
- その他(ブラウザ) Edge internet explorer モードのサイトの再読み込みを許可 表示されない 2 2023/03/03 12:10
- Windows 10 Internet Explorer-11 を削除はしたけれど… 3 2022/06/20 17:54
- その他(ブラウザ) Internet Explorer でなければ開けないページ 4 2022/03/25 18:03
- Windows 10 explorerをedgeで開く方法 2 2022/06/05 14:59
- その他(ブラウザ) pythonの既定のブラウザを変更したいです 1 2022/07/06 22:09
- Windows 10 拡張子が .mht というファイルが見れないッ! 1 2023/05/17 09:33
- Web・クリエイティブ EXCELでweb内の表を取込む方法を教えてください 2 2023/04/01 11:28
- その他(ブラウザ) Internet ExplorerからEdgeに変更したときの「お気に入り」についての質問です。 1 2022/05/02 16:02
- フリーソフト TARGET frontier JVから起動するブラウザを変えたい 1 2022/10/09 12:08
- その他(パソコン・周辺機器) EXCELで「WEBオプションの対象ブラウザ」を変更する方法 2 2023/04/12 15:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アウトルックが起動しているか...
-
Process.Startで起動したアプリ...
-
二重起動禁止にする理由とは
-
VBSから別のVBS起動するとき変...
-
Internet ExplorerをC言語プロ...
-
VBSでExcelのUserFormをエクス...
-
フーリエ変換のプログラミング...
-
Windows上のプログラム。「予め...
-
QueryPerformanceCounter の使...
-
Internet Explorer にURLを引...
-
Webブラウザーを起動する方法を...
-
ACCESS VBAで別のACCESS(mdb)を...
-
別アプリの起動、終了について
-
windowsが起動された時にメール...
-
キー操作 (WSH:コピー&ペー...
-
VBで実行中のEXEファイルの情報...
-
VBで別のプログラムを起動し他...
-
64bitで作ったEXEを32bitで起動...
-
C# 他のアプリケーションを優先...
-
VBAでOutlookを終了させたい Ex...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アウトルックが起動しているか...
-
VBAでOutlookを終了させたい Ex...
-
VBSで起動したアプリが前面表示...
-
Windows上のプログラム。「予め...
-
VBで実行中のEXEファイルの情報...
-
Process.Startで起動したアプリ...
-
VBSから別のVBS起動するとき変...
-
EXCEL VBAから他アプリケーショ...
-
exeファイルを実行するとすぐに...
-
VBAでSeleniumからChromeを起動...
-
VBSでExcelのUserFormをエクス...
-
フォームの最前面が効かない
-
AppActivateについて
-
タスクスケジューラでPerlが動...
-
ウィンドウを終了させたい・・・
-
C# 他のアプリケーションを優先...
-
MSペイントを画像ファイル名を...
-
64bitで作ったEXEを32bitで起動...
-
分かる人は簡単なのだろうが、v...
-
ACCESS VBAで別のACCESS(mdb)を...
おすすめ情報