Macro Oluşturmak

[pasa_yasar]

İyi Çalışmalar

Programda Bazı Bilgilerin İnternetten Alınması gerekiyor. ama kullanıcı bunu yapmayacak. bu iş siteye otomatik tıklama ile oluyor. bunu nasıl yapabilirim acaba. program siteyi açacak. kendisi button veya resimleri tıklayacak ve karşı bilgileri dolduracak. bunu ne şekilde yapabilirim. siteyi açmak için webbrowser nesnesini kullanıyorum.

[mrmarman]

Bakınız :

Ref : viewtopic.php?t=18498

- Bu linkteki kaynak kodlar istediğin şeyi fazlasıyla yapıyor...

[pasa_yasar]

dediğiniz şey sanırım benim işimi görmüyor veya ben anlayamadım. bana webbrowser nesnesi ile açtığım sitedeki bölümlere kullanıcı etkisi olmadan. bölümlere tıklayan ve dolduran bir şey gerekiyor. word macro oluşturmada nasıl ki tıklamalar olup alanı dolduruyor buda aynı şekil. mousu kodla belli alanlara taşıyabiliyoruz. bu alanda nasıl kodla tıklama yapabiliriz. soruyu bu şekilde sorsam sanırım daha doğru olur. mouse tıklama kodları nasıl olur. verdiğin x,y kordinatlarına tıklayacak.

[mrmarman]

- Meramınızı anlıyorum, keşke herşey bir mouse tıklaması kadar kolay olsa

- Banka hesap bilgilerinin girildiği sanal klavyeden mi kasıt ? Öyle ise işiniz hiç de kolay değil.

[pasa_yasar]

mouse bir yere gönderip oraya clik yaptırmak o kadar zor mu?
veri girişinden geçtim clik olayı mouse x,y koordinatlarına git. oraya tıkla. bunun bir kodu vardır muhtemelen.

[pasa_yasar]

Buldum Tşk. Ederim

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
  point:TPoint; // point-structure needed by getcursorpos() 
begin 
  getcursorpos(point); // get current mouse position 
  setcursorpos(300,400); // set mouse cursor to menu item or whatever 
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);// click down 
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); // +click up = double click 
  setcursorpos(point.x,point.y); // set cursor pos to origin pos 
  timer1.enabled:=false; // stop 
end; 

[mrmarman]

- Zor olan mouse tıklamak değil, tıklanacak koordinatların dinamik olarak tespiti idi ama madem çözüm ürettiniz tebrik etmek düşer tebrikler...