You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
316 B
Plaintext
13 lines
316 B
Plaintext
2 years ago
|
Dim wshshell
|
||
|
|
set wshshell = CreateObject("WScript.Shell")
|
||
|
|
|
||
|
|
Do
|
||
|
|
If wshshell.AppActivate("Server Busy") Then
|
||
|
|
wshshell.SendKeys("%r")
|
||
|
|
Else If wshshell.AppActivate("TWinCAT System Manager") Then
|
||
|
|
wshshell.SendKeys("%n")
|
||
|
|
bSkip = true
|
||
|
|
End If
|
||
|
|
End If
|
||
|
|
WScript.Sleep(1000)
|
||
|
|
Loop Until Not wshshell.AppActivate("Busy!")
|