Sub test()
Shell "C:\ITACC\FISFrameworkSystem\FISFramworkLiveUpdate.exe"
firsttime = Timer
Do Until Timer - firsttime > 7
DoEvents
Loop
SendKeys "+{tab}"
SendKeys "{tab}"
SendKeys "214"
SendKeys "{tab}"
SendKeys "214"
SendKeys "{enter}", True
'ThisWorkbook.Close False
Application.Quit
End Sub
Shell "C:\ITACC\FISFrameworkSystem\FISFramworkLiveUpdate.exe"
firsttime = Timer
Do Until Timer - firsttime > 7
DoEvents
Loop
SendKeys "+{tab}"
SendKeys "{tab}"
SendKeys "214"
SendKeys "{tab}"
SendKeys "214"
SendKeys "{enter}", True
'ThisWorkbook.Close False
Application.Quit
End Sub