[General]
Description=World of Warcraft Auto login macro script
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=96
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=

[Attachment]

[Script]
UserVar flag=DropList{enter character choice:0|enter game:1} login method
UserVar delaystart=DropList{enter game directly:0|enter game later:1} enter method
//var setup
DelayTime=500
fSimilar=0.9
If delaystart=1
    //timer
    VBSCall SWTime=InputBox ("Please enter time to turn off compter!(00:00-23:59)! for example: 2:03, 22:35")
    //*********************************** check time format ****************************************************
    //Len--get string length
    VBS LenS=Len(SWTime)
    //Instr--get ":" position
    VBS Num=Instr(SWTime,":")
    If Num=0
        VBS Num=Instr(SWTime,":")
    EndIf
    If Num=0
        VBSCall Obj.Popup("Time format is not correct!",5,"Error",48)
    EndScript
EndIf
//left--get Num-1 chars on the left
If left(SWTime,Num-1)>23 or left(SWTime,Num-1)<0
    VBSCall Obj.Popup("Hour format is not correct!",5,"Error",48)
EndScript
EndIf
//Right--get LenS-Num chars on the right
If Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0
    VBSCall Obj.Popup("Minute format is not correct!",5,"Error",48)
EndScript
EndIf
//*********************************** check time format ****************************************************
VBSCall Obj.Popup("Computer will be turned off at "&SWTime&"! ",5,"Auto turn off",48)
Rem Start
//Time -- get current time
VBS NowTime=Time
//Hour -- get hour, Minute -- get minute
If Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime)
    Goto main
EndIf
Delay 30000
Goto Start
EndIf
Rem main
//Registry
Plugin win=Window.Find("GxWindowClassD3d","World of Warcraft")
If win=0
    //change YOURWOWTITLE to your WOW game title
    Plugin win=Window.Find("GxWindowClassD3d","YOURWOWTITLE")
EndIf
If win=0
    VBS Dim OperationRegistry
    VBS Dim Read_Data
    VBS Set OperationRegistry=CreateObject("WScript.Shell")
    RegPath="HKLM\SOFTWARE\Blizzard Entertainment\World of Warcraft\InstallPath"
    VBS Read_Data=OperationRegistry.RegRead(RegPath)
    AppPath=Read_Data&"wow.exe"
    //VBSCall MessageBox(AppPath)
    VBSCall RunApp(AppPath)
EndIf