Shell'le program açma sleep program bekletme sendkeysle tuş gönderme

formunuza timer1 , combo1, 2 text ve bir de buton koymanız yeterli

text1 kullanıcı adı text2 şifre girilecek

Shell("C:\Program Files\MSN Messenger\msnmsgr.exe", 3) satırını MSN'niniz nerede kuruluysa orayı gösterecek şekilde değiştirmelisiniz!

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

a = Shell("C:\Program Files\MSN Messenger\msnmsgr.exe", 3)
Sleep (10000)
SendKeys Text1, True
Sleep (2000)
SendKeys "{TAB}", True
Sleep (1500)
SendKeys Text2, True
Sleep (200)
Select Case Combo1.Text
Case "ÇEVRİMİÇİ"
Sleep (800)
SendKeys "{ENTER}", True
Case "MEŞGUL"
Sleep (400)
SendKeys "{TAB}", True
Sleep (400)
SendKeys "{ENTER}", True
Sleep (400)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{ENTER}", True
Case "HEMEN DÖNECEK"
Sleep (400)
SendKeys "{TAB}", True
Sleep (400)
SendKeys "{ENTER}", True
Sleep (400)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{ENTER}", True
Case "DIŞARIDA"
Sleep (400)
SendKeys "{TAB}", True
Sleep (400)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{ENTER}", True
Case "TELEFON"
Sleep (400)
SendKeys "{TAB}", True
Sleep (400)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{ENTER}", True
Case "ÖĞLE YEMEĞİNDE"
Sleep (400)
SendKeys "{TAB}", True
Sleep (400)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{DOWN}", True
Sleep (200)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{ENTER}", True
Case "ÇEVRİMDIŞI"
Sleep (400)
SendKeys "{TAB}", True
Sleep (400)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{UP}", True
Sleep (200)
SendKeys "{ENTER}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{TAB}", True
Sleep (200)
SendKeys "{ENTER}", True
End Select
End Sub


Private Sub Timer1_Timer()
Text2.SelStart = Len(Text2)
Text2.SelLength = 0
End Sub

Private Sub Form_Load()

Combo1.AddItem "ÇEVRİMİÇİ"
Combo1.AddItem "MEŞGUL"
Combo1.AddItem "HEMEN DÖNECEK"
Combo1.AddItem "DIŞARIDA"
Combo1.AddItem "TELEFONDA"
Combo1.AddItem "ÖĞLE YEMEĞİNDE"
Combo1.AddItem "ÇEVRİMDIŞI"
Combo1.ListIndex = 0

End Sub