VBScript 无限循环冻结 PC

Question

I'm using Indusoft Web Studio which has VBScript implementation for scripts and I have a following problem.

I need to have something like:

Do While $pozAkt<>x
Loop

However the given lines completely freeze the PC. How can I get PC to wait until myVar will reach the x value?

Answer 1

Use "WEND".

While $pozAkt<>x
   
Wend

You can combine an "If" inside to avoid the overflow.

Dim flag, limit

flag=0

While flag=0
   If $pozAkt=x Then
      flag=1 
   End If

   If $pozAkt<>x Then
      limit=limit+1 
      $Wait(1)

      If  limit>1000 Then
        flag=1 
      End If 

   End If       
Wend

But, its better not make a large loop inside VBScript using Indusoft, Do it only if its needed to hold the script and create a Task. Try not to use a screen script or global screen script with loops, your PC will freeze always.

Tasks