| 2019/03/13(Wed) 14:59:10 編集(投稿者)
2019/03/13(Wed) 14:58:24 編集(投稿者)
魔界の仮面弁士 様
大変お世話になっております。
新プロジェクトにて■No90455 を試す事にしました。
下記コードにてPWnd1、PWnd2、PWnd3ともに０になってしまいます。
ＶＢ．ＮＥＴでクラス、タイトル、ハンドル列挙する方法が解らず
このようなコードになってしまいました。
初歩的な事で申し訳ありませんがご教授頂きたく存じます。
宜しくお願いいたします。
Option Strict On ・・・プロジェクトプロパティでOnするとエラーになる為、ここに直接記載
Public Class Form1
Dim PWnd1 As IntPtr
Dim PWnd2 As IntPtr
Dim PWnd3 As IntPtr
Dim aShell As SHDocVw.ShellWindows
Private doc As mshtml.HTMLDocument
Private yahooButton As mshtml.IHTMLElement
Private Event1 As mshtml.HTMLInputTextElementEvents2_Event
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PWnd1 = FindWindowExW(IntPtr.Zero, IntPtr.Zero, vbNullString, "JavaScript テスト")・・・FindWindowExWに変更しました。
Debug.WriteLine(PWnd1)
PWnd2 = FindWindowExW(IntPtr.Zero, IntPtr.Zero, "IEFrame", "JavaScript テスト")
Debug.WriteLine(PWnd2)
PWnd3 = FindWindowExW(IntPtr.Zero, IntPtr.Zero, "Internet Explorer_TridentDlgFrame", "JavaScript テスト")
Debug.WriteLine(PWnd3)
・・・
|