Kullanıcı adı ve şifre girmek

[cebelitarık]

Forumun değerli üyeleri

Sub SİFREGİR()
Shell ("C:\Program Files\YAZ\Yaz.vet.exe")
End Sub

Kodu ile excel içerisinden başka bir exe yi çalıştırıyorum.
10 saniye beklediten sonra program açılıyor ve kullanıcı adı ve şifre pencereleri olan form geliyor.
İmlec kendiliğinden kullanıcı adı yazılması gereken yere gelip yanıp sönüyor. Buraya kadar sorun yok.

Yapılması gereken form üzerindeki Kullanıcı adı kutusuna "xxxx" yazıp enterleyip, şifre alanı kutusuna "yyyy" yazıp enterlemektir.
SENDKEY KOMUTLARI VE BEKLETME KOMUTLARI ile yapılabilir diye tahmin ediyorum. Fakat bir türlü içinden çıkamadım.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Saygılarımla

 

[cebelitarık]

Değerli arkadaşlar
Biraz uğraşarak aşağıdaki kodlarla bir sonuç aldım.
Ancak bu seferde program aşağıda minimize olarak kaldı maxsimize yapamıyorum.
Yardımlarınızı bekliyorum.

Option Explicit
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Sub SİFREGİR()

Shell ("C:\Program Files\YAZ\Yaz.vet.exe")
Sleep (10000)
SendKeys Sheets("YAZ").Cells(1, 1), True

'Bu bölüme kullanıcı adını Excel dosyasının YAZ isimli sayfasının A1 hücresinden aldırdım. şifre girmeye gerek kalmadan enterle geçtim olayı program şifre istemiyormuş zaten.

SendKeys "{ENTER}", True

Sleep (1000)
SendKeys "{ENTER}", True
Sleep (1000)
SendKeys "{ENTER}", True
Sleep (1000)
SendKeys "{ENTER}", True
End Sub