I need a little more assistance with this while loop

[styles3000]

Could some one be so kind and connect with me remotely to get this code to work below for me? I'm using a remote connection app called"Teamview" ,I'll send you the app. I just need a little more assistance and someones eyes on my screen as my eyes are on my screen. My functions aren't executing.

expandcollapse popup

While 1

    If WinWait("HyperVRE", "10 keyword selected") Then
        script_2()
    EndIf

    If WinWait("HyperVRE", "0 keyword selected") Or WinWait("HyperVRE", "1 keyword selected") Then
        script_1b()
    EndIf

    Sleep(100); save CPU

WEnd

; Functions-----------
; 

Func script_2()
;   --------------------------------------------------------------------------
;                                                  This is Script 2

code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here  
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 

EndFunc;==>script_2

Func script_1b()
;   ---------------------------------------------------------------------------
;                                                        This is Script 1b

code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here 
code will be here
EndFunc;==>script_1b

Edited May 26, 2009 by styles3000

[Valuater]

Thats the last code I left you with. What have you done to change or improve it?

... there is no direction to help you.

BTW what is this HyperVRE

8)

[ofLight]

Opt("WinTextMatchMode", 1)     ;1=complete, 2=quick
Opt("WinTitleMatchMode", 3)     ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase


While 1

    If WinExists("HyperVRE", "10 keyword selected") Then
        script_2()
    EndIf

    If WinExists("HyperVRE", "0 keyword selected") Or WinExists("HyperVRE", "1 keyword selected") Then
        script_1b()
    EndIf

    Sleep(10); save CPU
WEnd




Func script_2()
    MsgBox(4096, "", "Script 2")                                       
EndFunc;==>script_2

Func script_1b()
    MsgBox(4096, "", "Script 1b") 
EndFunc;==>script_1b

[Valuater]

Opt("WinTextMatchMode", 1)     ;1=complete, 2=quick
Opt("WinTitleMatchMode", 3)     ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase


While 1

    If WinExists("HyperVRE", "10 keyword selected") Then
        script_2()
    EndIf

    If WinExists("HyperVRE", "0 keyword selected") Or WinExists("HyperVRE", "1 keyword selected") Then
        script_1b()
    EndIf

    Sleep(10); save CPU
WEnd




Func script_2()
    MsgBox(4096, "", "Script 2")                                       
EndFunc;==>script_2

Func script_1b()
    MsgBox(4096, "", "Script 1b") 
EndFunc;==>script_1b

Man, that looks familiar too....

8)