So I adjusted my timeouts... and it seems to be performing a little better...
Code:
Sub TotalView()
Dim User, Pass As String
User = DLookup("[chrWebuser]", "tblWebCreds", "chrWebTools='Total View'")
Pass = DLookup("[chrWebpass]", "tblWebCreds", "chrWebTools='Total View'")
ChDir "C:\Program Files\CCapps\ttlview\bin"
Shell "C:\Program Files\CCapps\ttlview\bin\ttlview.exe"
PauseApp 2
SendKeys User, True
PauseApp 0.5
SendKeys ("{TAB}"), True
PauseApp 0.75
SendKeys Pass, True
PauseApp 0.5
SendKeys ("{TAB}"), True
PauseApp 0.5
SendKeys ("~"), True
PauseApp 1.5
SendKeys ("%"), True
PauseApp 0.5
SendKeys ("T"), True
PauseApp 0.5
SendKeys ("M"), True
PauseApp 0.5
SendKeys ("~"), True
End Sub
however I REALLY don't like this sendkeys nonsense