++++++++++++++++++++++++++++++++++++++++
'+                      原作者信息              +
'+   作  者：hzn0043                           + 
'+   QQ:11724218                               +
'+   E-MAIL: hzn0043@sina.com                  +
'+++++++++++++++++++++++++++++++++++++++++++++++
//该脚本运行要求:屏幕分辨率 1024X768以上
//下面这句是获得屏幕分辨率宽度    
ScreenW = Plugin.Sys.GetScRX()
If ScreenW < 1024 Then 
	If Msgbox("屏幕分辨率需1024X768以上!是否需要设置1024X768!", 1, "提示")=1 Then 
		//下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)   
		Call Plugin.Sys.SetSc(1024,768,32)   
	Else 
		EndScript
	End If
End If 
//下面这句是获得屏幕分辨率高度   
ScreenH = Plugin.Sys.GetScRY()
If ScreenH<768 then
	If Msgbox("屏幕分辨率需1024X768以上!是否需要设置1024X768!", 1, "提示")=1 Then 
		//下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)   
		Call Plugin.Sys.SetSc(1024,768,32)   
	Else 
		EndScript
	End If 
End if

Rem Start
Delay 200
Hwnd = Plugin.Window.Find(0, "大家来找茬")
If Hwnd <= 0 Then 
	Goto Start

End If

//MsgBox "查找到的父窗口句柄为："& Hwnd  


Delay 500
Call Plugin.Window.Move(Hwnd, 0, 0)

Delay 500
	Call Plugin.Window.Size(Hwnd, 1024, 738)
Delay 500
Call Plugin.Window.Active(Hwnd)
//MsgBox "当前移动窗口到(100, 100)位置"  

//检查是否开始
Delay 500
FindPic 217,31,237,78,"Attachment:\2.bmp",0.9,intX,intY 
If intX <> 217 and intY <> 31 Then 
	Goto Start
End If

//sRect = Plugin.Window.GetWindowRect(Hwnd)
//MsgBox "得到窗口句柄的边框大小(包括标题栏)为："& sRect   
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串   
//dim MyArray   
//MyArray = Split(sRect, "|")   
//下面这句将字符串转换成数值   
//W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))   
//W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))   

wPic1_W = 512
wPic2_W=wPic1_W
//wPic1_W=(W2-W1)/2
//wPic2_W = wPic1
//hPic1_H= H2-H1 //
//hPic2_H =H2-H1 //


//图片大小为W=500 H=450 标题到图片高为190
Pic1_X1 = 0 : Pic1_Y1 = 190
Pic1_X2 = wPic1_W : Pic1_Y2 = 450 + 190

Pic2_X1 = wPic1_W : Pic2_Y1 = 190
Pic2_X2 = wPic1_W*2 : Pic2_Y2 = 450 + 190


//下面四句在屏幕区域范围内截图保存到("C:\PIC.jpg")里   以下四行语句也不需要
//MoveTo 0,0
Delay 100
Call Plugin.Pic.PrintScreen(Pic1_X1+9, Pic1_Y1, Pic1_X2-10, Pic1_Y2, "C:\PIC1.jpg")  
Call Plugin.Pic.PrintScreen(Pic2_X1+6 , Pic2_Y1, Pic2_X2 - 13, Pic2_Y2, "C:\PIC2.jpg")


//图片大小为W=493 H=450 标题到图片高为190
intIndex=15
For intH = 0 To 29
	For intY=0 to  32
		cr1=lib.算法.十六进制转十进制(GetPixelColor(Pic1_X1+9+intY*intIndex, Pic1_Y1+intH*intIndex )   )
		cr2=lib.算法.十六进制转十进制( GetPixelColor(Pic2_X1+6 + intY * intIndex, Pic2_Y1 + intH * intIndex))
		If (cr2 - cr1)>10000 or (cr2 - cr1)<-10000 Then
			For 3
				x1 =Pic2_X1+6 + intY * intIndex : y1 =Pic2_Y1 + intH * intIndex
				x2=Pic2_X1+6 + intY * intIndex  + 50 :y2=Pic2_Y1 + intH * intIndex+50

				Call Plugin.Msg.ShowScrTXT(x1,y1,x2,y2, "●", "0000FF")
				Delay 50