ccuneyt13
Altın Üye
- Katılım
- 20 Ocak 2011
- Mesajlar
- 398
- Excel Vers. ve Dili
- Office 365 Türkçe
- Altın Üyelik Bitiş Tarihi
- 01-11-2026
Merhaba,
Fare ile tek tek tıklayarak doldurduğum excel sayfası için sağ olsun asri üstadın tavsiyesiyle tanıştım bu program ile.
Bir tane İE sayfası, bir tane de alt altta TC kimliklerin yazılı olduğu excel sayfası açtım, kendimce fare ile nerelere tıklıyor isem, o koordinatlara göre kodlar düzenleyerek yaptım ve nispeten tek tek elle yapmaktansa işe yarıyor.
Ancak sorgulama yaparken bazı TC numaralarını girince kullandığım web tabanlı programın en tepesine "Kps Adres Bilgisi Bulunamadı" diye hata veriyor.
Bu hatayı alınca da benim tanımladığım tüm koordinatlar çöp oluyor, çünkü bu hata internet explorer daki her satırın 1 satır aşağıya kaymasına neden oluyor.
asri üstat bir yol gösterdi ancak ben kodu düzenleyemedim.
mevcut kodlarım şu şekilde;
diye devam ediyor...
Ben aşağıdaki işlemden sonra;
Kps Adres Bilgisi Bulunamadı hatasına ait yazı çıkar ise;
diye devam etsin istiyorum,
asri üstadın bununla ilgili verdiği kod şu şekilde ama ben çalıştırmayı başaramadım,
Yani özetle eğer İE sayfada "bilgisi bulunamadı" ibaresi geçiyorsa, şunu şunu yap, geçmiyorsa devam etsin istiyorum,
Autoit ile ilgilenen başta asri olmak üzere, üstatlar yardımlarınızı bekliyorum.
Saygılar.
Fare ile tek tek tıklayarak doldurduğum excel sayfası için sağ olsun asri üstadın tavsiyesiyle tanıştım bu program ile.
Bir tane İE sayfası, bir tane de alt altta TC kimliklerin yazılı olduğu excel sayfası açtım, kendimce fare ile nerelere tıklıyor isem, o koordinatlara göre kodlar düzenleyerek yaptım ve nispeten tek tek elle yapmaktansa işe yarıyor.
Ancak sorgulama yaparken bazı TC numaralarını girince kullandığım web tabanlı programın en tepesine "Kps Adres Bilgisi Bulunamadı" diye hata veriyor.
Bu hatayı alınca da benim tanımladığım tüm koordinatlar çöp oluyor, çünkü bu hata internet explorer daki her satırın 1 satır aşağıya kaymasına neden oluyor.
asri üstat bir yol gösterdi ancak ben kodu düzenleyemedim.
mevcut kodlarım şu şekilde;
Kod:
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
Func Terminate()
Exit 0
EndFunc
WinActivate("untitled")
Sleep(1000)
MouseClick("left", 605,873) [COLOR="SeaGreen"]; excel sayfayı seç[/COLOR]
MouseClick("left", 66,307) [COLOR="seagreen"]; excel sayfayfasında satır 2 den TC kimlik hücresini seç[/COLOR]
Send("{CTRLDOWN}c{CTRLUP}")[COLOR="seagreen"] ;tc kimlik noyu kopyala[/COLOR]
MouseClick("left", 432,873) [COLOR="seagreen"]; WEB açık sayfayı seç[/COLOR]
MouseClick("left", 227,93)[COLOR="seagreen"] ; kimlik sorgulama kısayoluna tıkla[/COLOR]
Sleep(1000)
MouseClick("left", 325,281) [COLOR="seagreen"]; tc kimlik numarasının kutucuğunu şeç[/COLOR]
Send("{CTRLDOWN}v{CTRLUP}") [COLOR="seagreen"];tc kimlik noyu yapıştır[/COLOR]
MouseClick("left", 396,306) [COLOR="seagreen"]; TC Kimlik Sorgula düğmesine bas[/COLOR]
Sleep(1000)
MouseClick("left", 326,344) [COLOR="seagreen"]; WEB Soyadı kutucuğunu seç[/COLOR]
Sleep(100)
#include <AutoItConstants.au3>
[COLOR="seagreen"]; Double click at the current mouse position. ÇİFT TIKLA[/COLOR]
MouseClick($MOUSE_CLICK_LEFT)
MouseClick($MOUSE_CLICK_LEFT)
Send("{CTRLDOWN}c{CTRLUP}") ; KOPYALA
MouseClick("left", 605,873) [COLOR="seagreen"]; excel sayfayı seç[/COLOR]
MouseClick("left", 200,306)[COLOR="seagreen"] ; excel sayfasında soyadını seç[/COLOR]
Send("{CTRLDOWN}v{CTRLUP}") [COLOR="seagreen"];tc kimlik noyu excele yapıştır[/COLOR]
Send("{CTRLDOWN}c{CTRLUP}") [COLOR="seagreen"]; KOPYALA (EXCEL)[/COLOR]
Send("{ENTER}")[COLOR="seagreen"] ; KOPYALA (EXCEL)[/COLOR]
Ben aşağıdaki işlemden sonra;
Kod:
MouseClick("left", 396,306)[COLOR="seagreen"] ; TCKimlik Sorgula düğmesine bas[/COLOR]
Kod:
MouseClick("left", 605,873)[COLOR="seagreen"] ; excel sayfayı seç[/COLOR]
MouseClick("left", 1589,809) [COLOR="seagreen"]; EXCEL BİR ALTTA GEÇ[/COLOR]
goto 30
asri üstadın bununla ilgili verdiği kod şu şekilde ama ben çalıştırmayı başaramadım,
Kod:
#include <MsgBoxConstants.au3>
;5 saniye bekliyor
sleep(5000)
;aktif penceredeki tüm yazıları bir değişkene aktarıyor
Local $sText = WinGetText("[ACTIVE]")
;tüm yazıları içinde "Bilgisi Bulunamadı" yazısını arar bulduğunda kaçıncı harfden sonra olduğu bilgisini döner.
Local $iPosition = StringInStr($stext, "Bilgisi Bulunamadı")
;bulunduğu pozisyon sıfırdan büyük ise, yazılar içinde aradığımız kelime var demektir.
if $iPosition >0 then
;Aradığımız kelime aktif pencerede var ise yapılacak işlemler buraya yazılır.
MsgBox($MB_SYSTEMMODAL, "", $sText)
endif
Yani özetle eğer İE sayfada "bilgisi bulunamadı" ibaresi geçiyorsa, şunu şunu yap, geçmiyorsa devam etsin istiyorum,
Autoit ile ilgilenen başta asri olmak üzere, üstatlar yardımlarınızı bekliyorum.
Saygılar.