Vb.net Yardım Edebilecek varmı

quote:

Orijinalden alıntı: Microsoft Specialist

o kadarını sen yazacaksın. ben sana malzemeyi verdim.

timer'ın Tick eventinde sarı mı diye kontrol edersin. sarı değilse tuşa basar. Timer'ın interval'ini istediğine göre ayarlarsın işte 1 saniye için 1000ms, saniyenin onda biri için 100ms.

çok zor bir şey değil zaten. zaten sıfırdan yazılsın istemişsin böyle istek olmaz. uğraşırsın, yapamadığın yer olur onu sorarsın.

quote:

Orijinalden alıntı: Microsoft Specialist

üstte attığım kodu kullanacaksın işte.
Dim pc As Color = screenGrab.GetPixel(20, 20)

satırında pixeli alıyor. bu değişkeni kontrol edeceksin sarı mı değil mi diye.
bu kodu komple bir metoda aktarabilirsin CheckPixelColor() gibi. tick eventi boşuna uzamasın diye. metod da boolean döndürür pixel sarıysa true, değilse false.
tick eventinde de
if(CheckPixelColor()) //sendkey işlemleri

quote:

Orijinalden alıntı: Microsoft Specialist

üstte attığım kodu kullanacaksın işte.
Dim pc As Color = screenGrab.GetPixel(20, 20)

satırında pixeli alıyor. bu değişkeni kontrol edeceksin sarı mı değil mi diye.
bu kodu komple bir metoda aktarabilirsin CheckPixelColor() gibi. tick eventi boşuna uzamasın diye. metod da boolean döndürür pixel sarıysa true, değilse false.
tick eventinde de
if(CheckPixelColor()) //sendkey işlemleri

quote:

Orijinalden alıntı: Microsoft Specialist

hocam hazir kod istiyorsun iste bak. ki zaten gereken kodlari verdim, tek yapman gereken birlestirmek. cok basit bir sey, bunu yapamadigin halde niye ugrasiyorsun boyle bir seyle onu anlamiyorum ben. daha basit seyler yap

olusturdugun timer'in Tick eventinde pixeli al ve pixel sari mi diye bak. eger sariysa SendKeys.Send("{ENTER}") seklinde gonder.

 
 'Timer'in Tick (bunun adi Elapsed da olabilir emin degilim) eventi 
  
 Dim screenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) 
     Using screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) 
         Using g As Graphics = Graphics.FromImage(screenGrab) 
             g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize) 
             Dim pc As Color = screenGrab.GetPixel(20, 20) 
  
 If (pc = Color.Yellow) 
 SendKeys.Send("{ENTER}") 
 End If 
 'syntax hatasi olabilir duzeltirsin. vb.net bilmiyorum 
  
         End Using 
     End Using

quote:

Orijinalden alıntı: Microsoft Specialist

Denedim, çalışıyor. Sadece istediğin zaman aralığını falan değiştireceksin. Yorum olarak yazdım ilgili satırların yanlarına.

using System;
using System.Drawing;
using System.Windows.Forms;

namespace WindowsFormsApp1
{
    public partial class Form1 : Form
    {
        Timer timer = new Timer() { Interval = 1000 }; // 1000ms = 1 saniye

        public Form1()
        {
            InitializeComponent();
            
            timer.Tick += Timer_Tick;
            timer.Start();
        }

        private void Timer_Tick(object sender, EventArgs e)
        {
            var bitmap = new Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb);
            var gfx = Graphics.FromImage(bitmap);
            gfx.CopyFromScreen(0, 0, Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy);
            
            var color = bitmap.GetPixel(100, 100); // İstediğin pixel konumu (x, y) şeklinde

            if (color == Color.FromArgb(255, 255, 255, 0)) // İstediğin renk (a, r, g, b) şeklinde
            {
                SendKeys.Send("{ENTER}");
            }
        }
    }
}

Kullandığım class'ların MSDN referans linkleri:
Bitmap Constructor:https://msdn.microsoft.com/en-us/library/3z132tat.aspx
Graphics.CopyFromScreen:https://msdn.microsoft.com/en-us/library/cdcw1c3b.aspx
Bitmap.GetPixel:https://msdn.microsoft.com/en-us/library/system.drawing.bitmap.getpixel.aspx
SendKeys.Send:https://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys.send(v=vs.110).aspx

quote:

Orijinalden alıntı: Microsoft Specialist

rica ederim