タイトル : マウス直下の文字読み取り 投稿日 : 2015/10/22(Thu) 22:29 投稿者 : おおしろ
お世話になっています。 先日も書き込ませていただきましたが、以下のURLを参考にマウス直下の文字読み取るVB6のコードを.NETへと移行しています。 http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200803/08030016.txt (先頭にhをつけて下さい) 現状のソースは以下です。 コンパイルエラーは起きないのですが、ブラウザの画面が真っ白になってしまいます。 リファレンスの閲覧、検索等など行ったのですが行き詰ってしまいました。 どなたかご教授いただけないでしょうか。 ________________________________________________ Option Explicit On Imports System.Runtime.InteropServices Public Class Form1 Private Structure POINTAPI Dim x As Integer Dim y As Integer End Structure Private Declare Function GetCursorPos Lib "user32" _ (ByRef xyScreen As Long) As Long <DllImport("oleacc.dll", CharSet:=CharSet.Auto)> _ Private Shared Function AccessibleObjectFromPoint( _ ByVal x As Integer, _ ByVal y As Integer, _ ByRef ppoleAcc As Accessibility.IAccessible, _ ByRef pvarElement As Object) As Integer End Function Private Sub Form_Load() Timer1.Interval = 250 Timer1.Enabled = True WebBrowser1.Navigate("hhttps://www.microsoft.com/ja-jp/dev/default.aspx") End Sub Private Sub Timer1_Timer() Dim xy(1) As Integer GetCursorPos(xy(0)) Dim objAcc As Accessibility.IAccessible Dim child As Object AccessibleObjectFromPoint(xy(0), xy(1), objAcc, child) List1.Items.Clear() On Error Resume Next Dim ltwh(3) As Integer objAcc.accLocation(ltwh(0), ltwh(1), ltwh(2), ltwh(3), child) List1.Items.Add("Pos:" _ & "Left" & CStr(ltwh(0)) & "," _ & "Top" & CStr(ltwh(1)) & "," _ & "Width" & CStr(ltwh(2)) & "," _ & "Height" & CStr(ltwh(3))) List1.Items.Add("Name=" & objAcc.accName(child)) List1.Items.Add("Value=" & objAcc.accValue(child)) List1.Items.Add("Description=" & objAcc.accDescription(child)) End Sub End Class _____________________________________________________________________________ |