タイトル : ショートカットからでは反映されません 投稿日 : 2018/01/19(Fri) 14:01 投稿者 : susu
度重ね、お世話になります。 環境 OS:Windows XP/7/8/10 VB 6.0 VB歴は長いのですが詳しくはありません。 ショートカットからでは反映されませんにつきまして、ご質問致します。 概要 デスクトップのタスクバ(IEアイコン)起動では問題ありません。しかし デスクトップ上のIEWebページ・アドレスバーからドラッグ&ドロップでデスクトップにショートカットを作成します。 そのショートカットから起動しますとOSによっては以下の参考ソフトが反映されません。 OS・・・反映されました(WindowsXP/7) OS・・・反映されませんでした(Windows8.1/10) IEバージョン・・・Windows7/8.1/10(IE11) WindowsXP(IE8) 反映されました(WindowsXP/7) @タイプは:IShellFolderViewDual2/3 Aタイプは:HTMLDocument BIEみつけたよXXXXXXXXX 反映されませんでした(Windows8.1/10) @タイプは:IShellFolderViewDual3/3 質問 デスクトップに作成しましたショートカットから起動しますとOSによっては、反映されません。 違いの原因が分りません。OS仕様の違いによるもなのでしょうか。 ご教示願えますと幸いであります。 以下をそのまま参考ソフトにして実行しています。 http://ken3memo.hatenablog.com/entry/20110823/1314115156 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Option Explicit Private Sub Command1_Click() 'オブジェクトを格納する変数 Dim objShell As Object, objWindow As Object 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する MsgBox "タイプは:" & TypeName(objWindow.document) Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then 'URLとタイトルを表示する MsgBox "IEみつけたよ" & objWindow.document.Title Debug.Print "タイトル:" & objWindow.document.Title Debug.Print "URL:" & objWindow.document.URL End If Next Set objShell = Nothing End Sub ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' |