按键精灵后台找色

下面是我写的代码，请问有什么问题，在a哪里已经不行了，一直弹出a消息框。坐标是相对坐标，没问题。应该是找不到色。请问找色的代码有什么问题。我虚心学习

Dim hwnd
Plugin hwnd=Window.MousePoint()
Delay 1000
Rem a
Plugin z1=BkgndColor.GetPixelColor(hwnd,458,72)
Plugin z2=BkgndColor.GetPixelColor(hwnd,921,72)
If z1="453B23" and z2="453B23"
Delay 1000
Plugin Bkgnd.LeftClick(hwnd,947,116)
Else
MessageBox "a 不行"
Goto a
EndIf
Rem b
Plugin z3=BkgndColor.GetPixelColor(hwnd,835,505)
Plugin z4=BkgndColor.GetPixelColor(hwnd,841,164)
If z3="28411B" and z4 = "3D3D3D"
Delay 1000
Plugin Bkgnd.LeftClick(hwnd,769,177)
Else
MessageBox "b 不行"
Goto b
EndIf
Rem c
Plugin z5=BkgndColor.GetPixelColor(hwnd,420,279)
Plugin z6=BkgndColor.GetPixelColor(hwnd,502,280)
If z5="00C0FF" and z6="00C0FF"
Delay 1000
Plugin Bkgnd.LeftClick(hwnd,459,280)
Else
MessageBox "c 不行"
Goto c
EndIf
Rem d
If z5 ="004267" and z6="004267"
Delay 1000
Plugin Bkgnd.LeftClick(hwnd,615,347)
Else
MessageBox "d 不行"
Goto d
EndIf
Rem e
Plugin z7=BkgndColor.GetPixelColor(hwnd,450,71)
Plugin z8=BkgndColor.GetPixelColor(hwnd,481,68)
If z7 = "000179" and z8 ="000179"
Delay 1000
Plugin Bkgnd.LeftClick(hwnd,514,248)
Delay 1000
Plugin Bkgnd.KeyPress(hwnd,103)
Plugin Bkgnd.KeyPress(hwnd,101)
Plugin Bkgnd.KeyPress(hwnd,96)
Delay 1000
Plugin Bkgnd.LeftClick(hwnd,514,273)
Delay 1000
Plugin Bkgnd.KeyPress(hwnd,99)
Plugin Bkgnd.KeyPress(hwnd,96)
Plugin Bkgnd.KeyPress(hwnd,96)
Delay 500
Plugin Bkgnd.LeftClick(hwnd,655,555)
Delay 1000
Plugin Bkgnd.LeftClick(hwnd,728,310)
Else
MessageBox "e 不行"
Goto e
EndIf
MessageBox "结束"

求正解
补充一下，我是用网页按键精灵 wqm 来测试代码的。不行。我每一步都设计了Messagebox，因为一后台找色的话，画面就会很卡的了（这个问题有解决吗）。究竟是什么原因呢。是WQM的问题？还是代码的问题。

相关了解……