(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.

(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.

Rica ederim.
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.

Rica ederim.
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)

Elinize sağlık 2 yerine 5 yazınca çalıştı heralde internet hızı ile alakalı.
Son durumları ekleyeyim.

Denemek isteyen kendi numarasını yazarsa kendine mesaj geliyor