[General]
Description=ӣ̨Bkgnd
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
//OK
//=================================================================================
//[[ǲԺ̨ģȡɫɫ]]
//=================================================================================
VBSCall RunApp("mspaint.exe")
Delay 1000
//=================================================================================
//һͼ
Plugin Hwnd=Window.Find(0,"δ - ͼ")
Plugin Hwnd=Window.FindEx(Hwnd, 0, "AfxFrameOrView42u", 0)
Plugin Hwnd=Window.FindEx(Hwnd, 0, "Afx:1000000:8", 0)
TracePrint "ͼ="& Hwnd
//=================================================================================
//̨ھ(Hwnd)Ŀͻ(꣺5, 5)һ
Plugin Bkgnd.LeftClick(Hwnd, 5, 5)
TracePrint "ں̨(꣺5, 5)ĵ"
//=================================================================================
//̨ھ(Hwnd)Ŀͻ(꣺10, 10)һ˫
Plugin Bkgnd.LeftDoubleClick(Hwnd, 10, 10)
TracePrint "ں̨(꣺10, 10)˫"
//=================================================================================
//ȡھ(Hwnd)ڵĿͻ(꣺5, 5)ɫ
Plugin Color = Bkgnd.GetPixelColor(Hwnd, 5, 5)
TracePrint "̨(꣺5, 5)ɫ=" & Color
//=================================================================================
//䰴ңϵµ˳Ҵھ(Hwnd)ڵָָɫ
Plugin XY = Bkgnd.FindColor(Hwnd, 0, 0, 20, 20, "FFFFFF")
//ڷַָ,ֳַ
MyArray = Split(XY, "|")
//佫ַתֵ
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
TracePrint "̨ɫX="& X & "    Y=" & Y
//=================================================================================
//䰴(Ҵϵµ˳ɫ)ģҴھ(Hwnd)ڵָָɫ
Plugin XY = Bkgnd.FindColorEx(Hwnd, 0, 0, 20, 20, "FFFFFF", 0, 0.9)
//ڷַָ
MyArray = Split(XY, "|")
//佫ַתֵ
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
TracePrint "̨ɫX="& X & "    Y=" & Y
//=================================================================================
//䰴м䵽ܵ˳Ҵھ(Hwnd)ڵָľָɫ
Plugin XY = Bkgnd.FindCenterColor(Hwnd, 0, 0, 20, 20, "FFFFFF")
//ڷַָ,ֳַ
MyArray = Split(XY, "|")
//佫ַתֵ
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
TracePrint "̨ɫX="& X & "    Y=" & Y
//=================================================================================
Plugin Hwnd = Window.Find(0, "δ - ͼ")
MsgBox "ҵĸھΪ"&Hwnd
//ǹرմ
Plugin Window.Close(Hwnd)
Msgbox "رջͼ"
//=================================================================================
//[[ǲԺ̨ģ̲]]
//=================================================================================
VBSCall RunApp("notepad.exe")
Delay 1000
//=================================================================================
//Ҽ±
Plugin Hwnd=Window.Find(0,"ޱ - ±")
Plugin Hwnd=Window.FindEx(Hwnd, 0, "Edit", 0)
TracePrint "±="&Hwnd
//=================================================================================
//̨ھ(Hwnd)һ(ɨ룺65)
Plugin Bkgnd.KeyPress(Hwnd, 65)
TracePrint "ں̨A"
//̨ھ(Hwnd)һ(ɨ룺66)
Plugin Bkgnd.KeyDown(Hwnd, 66)
//̨ھ(Hwnd)һ(ɨ룺66)
Plugin Bkgnd.KeyDown(Hwnd, 66)
TracePrint "ں̨B"
//̨ھ(Hwnd)һıϢ(ݣ"")ͻ
Plugin Bkgnd.SendString(Hwnd, "")
TracePrint "һıϢ()"
//=================================================================================
Plugin Hwnd = Window.Find(0, "ޱ - ±")
MsgBox "ҵĸھΪ"&Hwnd
//ǹرմ
Plugin Window.Close(Hwnd)
Msgbox "رռ±"
//=================================================================================
