ScreenHwndクラス ImageSearchBrowserメソッド
ブラウザ内を検索して、色を示す2次元配列とマッチしたブラウザ座標値をPoint構造体で返します。
見つからない場合はPoint(-1,-1)を返します。
2次元配列について:
4x3ピクセル画像の配列を示します。サイトロジーは画像から配列に変換する機能を有しています。
1行目の色が左から連続していると、その連続数分検索速度は速くなります。
1
2
3
4
5
6
7
8
9
'赤赤赤赤
'青青白白
'緑緑緑白
 
Dim pixAry As Integer(,) = New Integer(,) { _
      {&H0000FF,&H0000FF,&H0000FF,&H0000FF} _
    , {&HFF0000,&HFF0000,&HFFFFFF,&HFFFFFF} _
    , {&H00FF00,&H00FF00,&H00FF00,&HFFFFFF} _
}
使用法
1
2
3
4
5
6
7
'ブラウザ内を検索して、色を示す2次元配列とマッチしたブラウザ座標値をPoint構造体で返します
Dim instance As ScreenHwnd
Dim pixAry As Integer(,)
Dim returnValue As System.Drawing.Point
 
'Overloads
returnValue = instance.ImageSearchBrowser(pixAry)
1
2
3
4
5
6
7
8
9
10
11
12
13
'ブラウザ内の指定した四方の幅を除く範囲を検索して
'色を示す2次元配列とマッチしたブラウザ座標値をPoint構造体で返します
Dim instance As ScreenHwnd
Dim pixAry As Integer(,)
Dim offsetLeft As Integer
Dim offsetTop As Integer
Dim offsetRight As Integer
Dim offsetBottom As Integer
Dim returnValue As System.Drawing.Point
 
'Overloads
returnValue _
 = instance.ImageSearchBrowser(pixAry, offsetLeft, offsetTop, offsetRight, offsetBottom)
使用例
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'ScreenHwndクラス ImageSearchBrowserメソッド
 
Imports System.Windows.Forms
Imports System.Drawing
 
Public Class AddIn
 
    Private shw As ScreenHwnd
 
    Public Sub New()
        shw = New ScreenHwnd()
    End Sub
 
    Public Sub AddIn_Start()
        Dim pixAry As Integer(,) = New Integer(,) { _
              {&H0000FF,&H0000FF,&H0000FF,&H0000FF} _
            , {&HFF0000,&HFF0000,&HFFFFFF,&HFFFFFF} _
            , {&H00FF00,&H00FF00,&H00FF00,&HFFFFFF} _
        }
        Dim result As Point = shw.ImageSearchBrowser(pixAry)
        If result.X <> -1 Then
            MessageBox.Show("画像位置X:" & result.X.ToString & "  Y:" & result.Y.ToString)
        Else
            MessageBox.Show("画像は見つかりませんでした")
        End If
    End Sub
 
End Class
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'ScreenHwndクラス ImageSearchBrowserメソッド
 
Imports System.Windows.Forms
Imports System.Drawing
 
Public Class AddIn
 
    Private shw As ScreenHwnd
 
    Public Sub New()
        shw = New ScreenHwnd()
    End Sub
 
    Public Sub AddIn_Start()
        Dim pixAry As Integer(,) = New Integer(,) { _
              {&H0000FF,&H0000FF,&H0000FF,&H0000FF} _
            , {&HFF0000,&HFF0000,&HFFFFFF,&HFFFFFF} _
            , {&H00FF00,&H00FF00,&H00FF00,&HFFFFFF} _
        }
        Dim result As Point = shw.ImageSearchBrowser(pixAry,150,200,150,80)
        If result.X <> -1 Then
            MessageBox.Show("画像位置X:" & result.X.ToString & "  Y:" & result.Y.ToString)
        Else
            MessageBox.Show("画像は見つかりませんでした")
        End If
    End Sub
 
End Class