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.
16 lines
428 B
Plaintext
16 lines
428 B
Plaintext
Dim wshshell
|
|
set wshshell = CreateObject("WScript.Shell")
|
|
|
|
Do
|
|
If wshshell.AppActivate("Server Busy") Then
|
|
wshshell.SendKeys("%r")
|
|
bSkip = true
|
|
End If
|
|
If wshshell.AppActivate("TwinCAT PLC Control") And Not bSkip Then
|
|
WScript.Sleep(20000)
|
|
If wshshell.AppActivate("TwinCAT PLC Control") And Not bSkip Then
|
|
wshshell.SendKeys("{Enter}")
|
|
End If
|
|
End If
|
|
WScript.Sleep(1000)
|
|
Loop Until Not wshshell.AppActivate("Busy!") |