Obrazki i losowanie

[Sir Manieek]

Ok, wrzuciłem obrazki do folderu i pokazują się msgboxy. Tylko nawet jak niema na ekranie tego obrazka ;/

[matixd3]

Ok, wrzuciłem obrazki do folderu i pokazują się msgboxy. Tylko nawet jak niema na ekranie tego obrazka ;/

nie rozumiem tego 

 

 

 Tylko nawet jak niema na ekranie tego obrazka ;/

[Jaca777]

Nie macie w VB funkcji na pozyskiwanie RGBA pixela na obrazku?

[matixd3]

Nie macie w VB funkcji na pozyskiwanie RGB pixela na obrazku?

Mówisz i masz

To było orginalnie w c# ale przeconvertowałem na vb wiec moga byc bledy

Imports System.Drawing
Imports System.Runtime.InteropServices

NotInheritable Class Win32
	<DllImport("user32.dll")> _
	Private Shared Function GetDC(hwnd As IntPtr) As IntPtr
	End Function

	<DllImport("user32.dll")> _
	Private Shared Function ReleaseDC(hwnd As IntPtr, hdc As IntPtr) As Int32
	End Function

	<DllImport("gdi32.dll")> _
	Private Shared Function GetPixel(hdc As IntPtr, nXPos As Integer, nYPos As Integer) As UInteger
	End Function

	Public Shared Function GetPixelColor(x As Integer, y As Integer) As System.Drawing.Color
		Dim hdc As IntPtr = GetDC(IntPtr.Zero)
		Dim pixel As UInteger = GetPixel(hdc, x, y)
		ReleaseDC(IntPtr.Zero, hdc)
		Dim color__1 As Color = Color.FromArgb(CInt(pixel And &Hff), CInt(pixel And &Hff00) >> 8, CInt(pixel And &Hff0000) >> 16)
		Return color__1
	End Function
End Class

tylko sporo zabawy z tym by było

 

#edit 

lub coś takiego

Function MakeScreenShot() As Drawing.Bitmap
    Dim out As Drawing.Bitmap

    'Get the screen Size
    Dim bounds As Rectangle = Screen.GetBounds(Point.Empty)

    'create the bitmap
    out = New Drawing.Bitmap(bounds.Width, bounds.Height)

    'create a graphic object to recive the pic
    Using gr As Drawing.Graphics = Graphics.FromImage(out)
        'Copy the screen using built in API
        gr.CopyFromScreen(Point.Empty, Point.Empty, bounds.Size)
    End Using

    Return out
End Function

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    Dim BM As Drawing.Bitmap = MakeScreenShot()
    Dim mouseloc As Point = Cursor.Position
    Dim c As Color = BM.GetPixel(mouseloc.X, mouseloc.Y) ' The Slowest way possable to read a color

    Debug.Print(c.R & "," & c.G & "," & c.
End Sub

To są tylko przykłady z neta więc sie mnie nie czepiać :P

[Jaca777]

Na chu mi to? Przecież mi chodziło tylko o to, aby użyć tego w programie tego gościa. Porównać dwa obrazki.

[Sir Manieek]

Ja chce zrobic tak: zrobic screena z napisem "says" w tibii (bo wyskakuje to jak ktos cos napisze) i jak znajdzie ten obrazek z napisem "says" to bedzie wiadomo, ze ktos cos napisal. I gdy ktos cos napisze, program to zlooka przez obrazek i uruchomi timer1. Trzeba mi po prostu kod do szykania obrazkow na ekranie (imagesearh) Podajcie mi prisze do tego ;D