(27/01/2021, 01:31)feraz yazdı: Sayın @Mehmet Emin Alkan inkini biraz değiştirdim müsadesiyle.
Dosyanın biri resimde yolluyor ve explorer kütüphanesi ile.
i sütununa telefon no girilmeli.Telefon doğru değilse biraz bekleyip sonrakine bakıyor.
Ayrıca koda Numlock sönmemesi kodlarıda eklendi.
(28/01/2021, 18:42)Mehmet Emin Alkan yazdı:(27/01/2021, 01:31)feraz yazdı: Sayın @Mehmet Emin Alkan inkini biraz değiştirdim müsadesiyle.
Dosyanın biri resimde yolluyor ve explorer kütüphanesi ile.
i sütununa telefon no girilmeli.Telefon doğru değilse biraz bekleyip sonrakine bakıyor.
Ayrıca koda Numlock sönmemesi kodlarıda eklendi.
Emeğinze sağlık.Ordan burdan bulduğum kodlarla oldu bişeyler tabii sizin kodlarda dahil Aslında explorerdwki Tab lar kapatılabilse kodla daha iyi olurdu maliesef yapamadım fazlada uğraşamadım.
Birde explorer kapatılmayıda yapamadım.
İe.quit gibi kod olmadı.
Bu ikisi yapılabilse dahada güzel olur bence.
Tabii dahada geliştirwn olursa muazzam olur.Normalde benim işime yaramıyor lakin illaki birilerine ihtiyaç vardır.
(28/01/2021, 18:56)feraz yazdı:(28/01/2021, 18:42)Mehmet Emin Alkan yazdı:(27/01/2021, 01:31)feraz yazdı: Sayın @Mehmet Emin Alkan inkini biraz değiştirdim müsadesiyle.
Dosyanın biri resimde yolluyor ve explorer kütüphanesi ile.
i sütununa telefon no girilmeli.Telefon doğru değilse biraz bekleyip sonrakine bakıyor.
Ayrıca koda Numlock sönmemesi kodlarıda eklendi.
Emeğinze sağlık.Ordan burdan bulduğum kodlarla oldu bişeyler tabii sizin kodlarda dahil Aslında explorerdwki Tab lar kapatılabilse kodla daha iyi olurdu maliesef yapamadım fazlada uğraşamadım.
Birde explorer kapatılmayıda yapamadım.
İe.quit gibi kod olmadı.
Bu ikisi yapılabilse dahada güzel olur bence.
Tabii dahada geliştirwn olursa muazzam olur.Normalde benim işime yaramıyor lakin illaki birilerine ihtiyaç vardır.
Merhabalar
Call SendKeys("{Enter}", True)
Application.Wait Now + TimeValue("00:00:05")
Bu kodlların altına aşağıdaki kodları yapıştıp deneyiniz. açılan sekmeyi kapatacaktır.
SendKeys "^{F4}"
Application.Wait Now + TimeValue("00:00:02")
Call SendKeys("{Enter}", True)