fTarget.Close
	End If 
	//↑创建文件:对比结果.txt
    Set fTarget = fso.OpenTextFile( fTargetName, forappending)
	fTarget.writeline( "//下面是["&FileName&"]的对比结果")
	For i = 1 to Num
		fTarget.writeline( Rx(i)&","&Ry(i)&","&Features(i)&","&PixelColor(i) )
	Next
	//↑上面就是写进TXT的找到的点坐标
	fTarget.Close

	Featuresstr = ""
	For i=2 To 9
		Rx(i) = Rx(i) - Rx(1)
		Ry(i) = Ry(i) - Ry(1)
		Features(i) = Rx(i) & "|" & Ry(i) & "|" & Features(i) & ","
		Featuresstr = Featuresstr & Features(i)
	Next
	
	IsFeaturesExists = Plugin.Color.FindMutiColor(0, 0, 1024, 768, Features(1), Featuresstr, 0.8)
	//返回值格式为: 坐标X|坐标Y
	Rem EndOfFunc
End Function 


Sub Get_Features( DirPath, FileName )
	// 自定义坐标取色并显示
	Dim TargetFileName
	Dim Rx(100), Ry(100), PixelColor(100), Rs(100)
	Dim Num, LastKey
	MessageBox "开始准备抓点"&vbCtrf&"按 Esc 键退出抓点"
	
	Num = 0
	For i=1 To 100
		LastKey = WaitKey()
	//	MessageBox LastKey
		If LastKey = 27 Then
			Exit For 
			// 按下 Esc 键则退出
		End If
		Num = Num + 1
		GetCursorPos Rx(i),Ry(i)
		PixelColor(i) = GetPixelColor( Rx(i), Ry(i) )
    	//↑上面就是写进TXT的找到的点坐标和颜色
	Next
	//↑配合抓抓, 你就可以方便的抓取各种图标/物品/生物等的特征色和相对坐标了
	MoveTo 500,500
	Delay 500
	For i=1 To Num
		Rs(i) = GetPixelColor( Rx(i), Ry(i) )
    	//↑上面就是写进TXT的找到的点坐标和颜色
	Next
	
	
	Set objShell = CreateObject("WScript.Shell")
	TargetFileName = DirPath&"\"&FileName
	//↑取得桌面路径
	set fso=CreateObject("Scripting.FileSystemObject")
	If fso.FileExists( TargetFileName )=0
    	set myfile=fso.createtextfile( TargetFileName )
    	myfile.Close
	Else 
    	set myfile=fso.opentextfile( TargetFileName ,forreading)
    	myfile.Close
	End If 
	set myfile=fso.opentextfile( TargetFileName ,forappending)
	//↑写一个TXT到桌面
	myfile.writeline ("//注释前缀为两个'/'")
	myfile.writeline ("//下面数字含义为: 座标X,座标Y,该点颜色")
	
	For i = 1 to Num
		myfile.writeline( Rx(i)&","&Ry(i)&","&Rs(i) )
	Next
	//↑上面就是写进TXT的找到的点坐标
	//↑上面就是写进TXT的取点结果
	myfile.Close
	//↑别忘了把结果改成容易记忆的文件名呀
	MessageBox "取点成功, 共 " & Num &" 个特征点"
End Sub

Sub AscIIOfKey()
	Dim KeyYouPress
	MessageBox "现在进行按键键码测试"& vbCrlf & "按 End 键退出键码测试"	
	While true
		KeyYouPress = WaitKey()
		MessageBox KeyYouPress
		If KeyYouPress = 35 then
			Exit Sub
		End If
	Wend
End Sub