Marquei as linha com o erro -->Exception thrown: 'System.ArgumentException' in System.Drawing.dll ("Parâmetro inválido.")
É um script para detectar imagem e retornar sua posiçao so que depois de alguns minutos ocorre um erro nao sei mais o que fazer para funcionar
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
'=========== procurar=================
If MList.SelectedIndex < 0 Then
MList.SelectedIndex = 0
End If
MList.SelectedItem = MList.GetSelected(MList.SelectedIndex)
Dim bmpSource2 As Bitmap = New Bitmap(strPath + "\Mpasta\" + MList.SelectedItem.ToString + ".bmp")
Dim bmpScreen2 As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height) --> Exception thrown: 'System.ArgumentException' in System.Drawing.dll ("Parâmetro inválido.")
Dim clrScreen, clrUL, clrUR, clrLL, clrLR As Color
'capture screen
Using g As Graphics = Graphics.FromImage(bmpScreen2)
g.CopyFromScreen(0, 0, 0, 0, bmpScreen2.Size) -->Exception thrown: 'System.ArgumentException' in System.Drawing.dll ("Parâmetro
inválido.")
End Using
clrUL = bmpSource2.GetPixel(0, 0)
clrUR = bmpSource2.GetPixel(bmpSource2.Width - 1, 0)
clrLL = bmpSource2.GetPixel(0, bmpSource2.Height - 1)
clrLR = bmpSource2.GetPixel(bmpSource2.Width - 1, bmpSource2.Height - 1)
For x = RCM1X To RCM2X
For y = RCM1Y To RCM2Y
clrScreen = bmpScreen2.GetPixel(x, y)
If clrScreen = clrUL Then
'found the upperleft pixel check upper right
clrScreen = bmpScreen2.GetPixel(x + bmpSource2.Width - 1, y)
If clrScreen = clrUR Then
clrScreen = bmpScreen2.GetPixel(x, y + bmpSource2.Height - 1)
If clrScreen = clrLL Then
clrScreen = bmpScreen2.GetPixel(x + bmpSource2.Width - 1, y +
bmpSource2.Height - 1)
If clrScreen = clrLR Then
'Se achar
mX = x
mY = y
MR = True
Exit For
Else
MR = False
Exit For
End If
End If
End If
End If
Next
Next
End Sub
