Set dm = createobject("dm.dmsoft")

TracePrint dm.ver()
dm.SetPath "d:\temp"
dm.SetDict 0,"dm_soft.txt"
Delay 1000
hwnd = dm.GetForegroundWindow()
    //↑获取“鼠标指向”窗口句柄
    dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)
    Delay 200
    If dm_ret=0 Then
        MessageBox "绑定“失败”"
        ExitScript 
        End If
        Delay 500
        						//最前判定
        
        dm_ret = dm.FindStr(825,238,1009,432, "接", "e5f2f2-000000", 1.0, intX, intY)
      			If intx >= 0 Then 
      			Call jiequ
      			End If
      	dm_ret = dm.FindStr(753,183,1020,475, "回", "e5f2f2-000000", 1.0, intX, intY)
      			If intx >= 0 Then 
      			Call huifu
     		 	End If
        dm_ret = dm.FindStr(825,238,1009,432,"信", "e5f2f2-000000", 1.0, intX, intY)
    			If intX >= 0 and intY >= 0 Then 
    			call songxin
    			End If
    	dm_ret = dm.FindStr(6,114,384,623, "剧", "fdff3c-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then 
				call juqing
				End If
		dm_ret = dm.FindStr(825,238,1009,432,"打", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then 
				Call daguai
				Else 
				
				End If
    	dm_ret = dm.FindStr(825,238,1009,432, "将", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then 
				call jiang
				End If
		dm_ret = dm.FindStr(825,238,1009,432, "去", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then 
				call qu
				End If
		dm_ret = dm.FindStr(825,238,1009,432,"击", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then 
				call daguai2
				End If
    	dm_ret = dm.FindStr(0, 0, 2000, 2000, "成", "f2e88f-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
   				Call wancheng
   				End If
   		dm_ret = dm.FindStr(0, 0, 2000, 2000, "受", "f2e88f-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call jieshou
     			End if
    	dm_ret = dm.FindStr(0, 0, 2000, 2000, "购", "f2e88f-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call goumai
     			End If
     	dm_ret = dm.FindStr(825,238,1009,432, "往", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call wang
     			End If
     	dm_ret = dm.FindStr(825,238,1009,432, "些", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call xie
     			End If
     	dm_ret = dm.FindStr(825,238,1009,432, "找", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call zhao
     			End If
     	dm_ret = dm.FindStr(15,195,170,324, "6", "ffa000-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call zhong
     			End If
     	dm_ret = dm.FindStr(825,238,1009,432, "杀", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call shaguai
     			End If
     	dm_ret = dm.FindStr(825,238,1009,432, "采", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call caiji
     			End If
     	dm_ret = dm.FindStr(825,238,1009,432, "快", "fdff3c-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call kuaisu
     			End If
     	dm_ret = dm.FindStr(1,0,2000,2000, "要", "ffa000-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			Call dati
     			Else 
     			End If
     	dm_ret = dm.FindStr(0, 0, 2000, 2000, "未", "ffa000-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then 
					Call dati
					Else