Açılan Pencerede "OK" Tıklamak

[hsendemir]

Merhaba Arkadaşlar,

Makro ile açtığım bir çalışma sayfasından veri almam gerekiyor, fakat çalışma sayfası açıldığında versiyon numarası vb. bilgilerin bulunduğu bir msgbox çıkıyor. Bu çıkan pencerede "OK" tuşuna makro ile bastırmak mümkün müdür?
Yardımcı olursanız sevinirim...

 

[Korhan Ayhan]

Forumda "süreli msgbox" ifadesi ile arama yapınız.

 

[hsendemir]

Teşekkür ederim fakat veri almaya çalıştığım çalışma sayfası bana ait değil dolayısıyla VBA şifreli. Msgbox kodunu değiştiremiyorum. Msgbox kaçınılmaz olduğundan en azından tıklamayla atlamayı düşünüyorum.

 

[Asri]

Dosyanın gizliliği yok ise, dosya.tc den paylaşabilir mi siniz?
Paylaşamıyor iseniz, mesaj ekranının görüntüsü paylaşır mı sınız?

 

[hsendemir]

Dosyanın gizliliği yok ise, dosya.tc den paylaşabilir mi siniz?
Paylaşamıyor iseniz, mesaj ekranının görüntüsü paylaşır mı sınız?

Msgbox daki "Tamam" butonuna tıklamaya çalışıyorum.

 

[YUSUF44]

VBA şifreliyse tıklama işini yapacak kodları yazmayı da engellemez mi?

 

[Asri]

:frown:

VBA şifreliyse tıklama işini yapacak kodları yazmayı da engellemez mi?

Tiklama işini vba ile yapmazsanız engellemez.
Autoit ile gün içinde bir script yazarım

 

[Asri]

Aşağıdaki dosyada iki seçeneğiniz var.

http://s2.dosya.tc/server/e5lq74/Msgbox_OK_tikla.zip.html

1- Script in derlenmiş hali msgboxtikla.exe dir.
Bu programı çalıştırın sağ alt köşede sürekli çalışacaktır.

Mesaj kutusunun başlığında "SENDEMIR Mehmet" yazan pencereleri
kapatacaktır. Bu seçenek güven meselesidir.

2- autoit-v3-setup.exe programını sitesinden indirin. Yada aynı klasörde kurulumu mevcut.

Programı açın ve msgboxtikla.au3 dosyasını seçip tools dan compiler edin. Bu işlem script in exe sini oluşturacaktır.

Çalıştırıp deneyiniz.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Sign 08.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <AutoItConstants.au3>

Func _WinWaitActivate($title,$text,$timeout=0)
        WinWait($title,$text,$timeout)
        If Not WinActive($title,$text) Then WinActivate($title,$text)
        WinWaitActive($title,$text,$timeout)
EndFunc

While 1
   ;Msgbox ın başlık bilgisi kontrol ediliyor.
   _WinWaitActivate("SENDEMIR Mehmet","")
   Send("{ENTER}")
WEnd


Func Quit()
    Exit
EndFunc

 

[hsendemir]

Çok teşekkür ederim