Bạn mở notepad và paste vào đoạn code sau:
Option Explicit
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
WshShell.Run"""C:\Program Files\Yahoo!\Messenger\YPager.exe"""
WScript.Sleep 1500
WshShell.AppActivate"Sign In"
WScript.Sleep 200
WshShell.SendKeys" nick yahoo của bạn "
WScript.Sleep 200
WshShell.SendKeys"{TAB}"
WshShell.SendKeys" pw của bạn "
WScript.Sleep 200
WshShell.Sendkeys"{Enter}"
Save -> file: loginym.vbs
Không có nhận xét nào:
Đăng nhận xét