[VB6] 자동 키보드 입력
01 14, 2007 02:07
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "SnagIt32.exe", SW_MINIMIZED
wscript.Sleep 1000
Sleep (3000)
WshShell.SendKeys "^+p"
Sleep (3000)
WshShell.AppActivate "Snagit Studio"
Sleep (3000)
WshShell.SendKeys "^e"
Sleep (3000)
WshShell.SendKeys "c:\test{Enter}"
Sleep (3000)
WshShell.SendKeys "%{F4}"
Sleep (3000)
WshShell.SendKeys "%n"
End Sub
http://www.devpia.com/Forum/BoardView.aspx?no=207534&page=1&Tpage=27&forumname=vb_qa&stype=&ctType=&answer=&KeyR=titlecontent&K