[General]
SyntaxVersion=2
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=c0abbad3-945f-4bb7-986c-8a78b383ef94
Description=後台收道具(刪機拎GB)
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=1
QUI=Form1
[Relative]
SetupOCXFile=
[Comment]

[UIPackage]
UEsDBBQAAgAIACiTwkbUWLYqHAkAAAiGAAAJABEAVUlQYWNrYWdlVVQNAAcg9W1VIPVtVSD1bVXtnVl3FFUQx/9NWBJF1pCgbGEVEMUECIsgJhEQRBESUFSUIUTBhAQTVHABVMAFBBQVFVGRIOqTnOM5vuE3UB585EG/gPIkTxKrpnucdmSw696SykSKU6k5pHuq666/qunpFCGUcz8O/vnEmZt+QY7ciSJc6ipB39j/BZGmZRDQC6Fe6urqyvx31zUpKPmDtDf1WzVpP9I+pNznxaTXkZaQXk96A2l/0gFh12Mg6WDSoaRDSEtJy0iHkZaT3kQ6nPRG0hGko0hHko4mrSAdQzqWdDzpONIJpJNIJ5LeTDqFdDLpVNJbSW8hnUZ6G+ntpNNJK0lnkFaRziSdTTqLdE40JueRnUt6B+kC0vnpcQ3cRbqQtCY67tL/uP9XoY3+baM+WYRWsu3YAYmU0YjJvFfwL8ceXnvu2dHHzwVFiDqZZDWWpvvTVYoRBBn/0/Ics7sq9JvxH/9dHRqw3OMKrov57/Mv/jM2/rsGau+taML9SGELWakMoRU43p9Jz+sd2cz4v6b/T13c1r7FY/qBz6/0OD+An/ieby0XLlxQeZ91BGK/O5znuu5k1z/5+hNEnMHCu04KG9DieA0D0CtgPmF2Seq/V2z9W4PN6CB1vYJB5L8/styb5JyimP9V5DWFjVhB7dAi3Huj9T/oi5DVkvrvHfPfQP63077v0f+BtP/j+UId0UcLabvjlZQ6jL8+sfiz/mupHxrRLPef5pkSQfv3zen/Rs/2ZzYvFvjvh5DhWR6mkddO46+JfjrOP3H7F8fiX05tL2/1v8c/IHq/pP5LYv4Xk/9Wv/YXx89zdf5f44/5s9LDfxDwejYaYR52ObkSf1rL75dvs/Q13ldfUZ9q7aiob2rf/ESe85enNjS1ePhPn1/lfn6h84tC/iFe/3m/zuz/FvzB+3WmrqXBH1znKBWsPzdAlz+4xjJK4H8AdPmDa0DlAv8DYcsfvPeVRK8V+CPtf6Qg/sFQ5Y90PGUC/0Ni/k+vOnvx+9/Onp9ntP745j/jo/n0YjQHpGK9/vruf76iwZ9c6x0mGH9DYcufpdDlzxHRnE7qfxhs+ZPXigx/NlC7p+gKOogCUvS6SXg1wx38l8fir8Ez5K8N9bQHPn+V6p/DEV9/mb/dATBe/x2b55juVv9lXihWWj/qNjU1Nte2bfc93zUDKnT+fqBmyaJKQ/8W/M37RYa/NPibP0piDkjqfwRU+Vsc/0jo8jd/NjpJEP8o2PI31yoy+Z9F/W8MdOt//H4TBe1fAd36H39WPkHgfyyy/KXB3/yZ/BfptnSZP7Zizd9a+6crwVjw9zjo8vfUaE4l9T8etvzNczVb/92UXgGa6edGp/nTK5gctWlS/xORy78zPOIPAq7n8LVPz3NMd+Nf3isz/GvBP8wrmvzD9zxVCvp/cqz/ewI/Vxn619g/70W4f653OH+w5/Vb8O8U6PIv3+M3UzD+p8KWf5nXLfl3GnT5l+/PnCFo/1uhy79832eVwP9tsK0/Tocu/8yJYkrq//aYf1/pKfzsSkCFvn9a8C+ziib/VkdjOqn/KuTy70yP+LP13wV5julu/Mtj3ZJ/ubU1+ZfrDgsF/T8LtvW/aujyzxKytYL4Z8OWf3i/suSfudDlH/5+SY2g/edBl38WIfxOS1L/dyDLP5w/uWf//qKRPzFbcP70gsP5Q2Ar1vxkwb/zocu/i6P3TOp/AWzrf3dCl3/ujt4zqf+FyOWfWR7xB+n1bA3COsblpLvxz12w5R/eKzT5ZyWvFYL+r433v1L+5ErQPaH+ONPQv+/+acG/ddDl39XcD4Lxfzds+Zd5zZJ/F0OXf5eSXSFo/yXQ5d968Dqe3P89sK3/LYUu/zSQXSaIf1nMP/PzXoT8/JGD/6GwlZ5Sf3QlMN/9z4J/mRM1+XdVeh4lH//Lkcu/1R7xZ+t/a/Mc0934l1nRkn95rdbk38fJPiLo/xWwrf89AF3+aST7mCD+ldD7/N9XmJ9nGfrXqD99jnD//M7h/FLj9rfgX16vLfm3Hrr8+yDZdYL51wBd/k2RfVTgfzVs+XcNdPl3A9mHBPE/CNv6H1+rJv+sT/dj8vjXxuLvKfzsSnA9of5U7XF+yL+zPcZ/EHA+/TLpk3mOudLztyz4l+eKJf8yq2ryLz/AabNg/j8KW/5dB13+fZpsiyD+x2Bb/+N8xZJ/1kPv/i8Nfv4eIT//5HD+MNiK9f7p+/wTDf7ldaNZMP9S0OXfNrJPCfxvgC3/NkKXf7civAciqf+NsOVfHi+a/NtKdpMg/ieQW/+b4xF/tv73TJ5jMtzzH/GPeP9hTrN8/g73lebzd/i+n+cE/b8Zus/f4WeP7Bb4fwq6/PMs2ecF/pvj6w/vHx43gBV6/tTZefbitydPne/84Zsznb9e/afg+PLTWwiff9MnCL/XKxUL/mVeGRi91nr+0i7B+N8C3ecvdZDdIfDfCl3+eYnsdoH/Ntjyz1bo8s9OstsE8T8NW/7hlrZ8/k5HLP4y2Ip1/uQrWvVL1wqc7/5p8fylbcjl77ke8y9Iz6dDpHvyHPMf87c4fs4TLOuPzIua9cc3ye5D8vX3OdjWH7dDl78Pkn1DEP8O2NYfOVcoUlo/fKXm7EVT/778fQjh/Szn4fb9/XLj9reoP78A3c/fXyH7umD+vQhd/j5A9jWB/5dgy987ocvfnIO+Koh/F2z5ezd064/7Ed5Dm9T/y8jln0rnv0DUP6o/HqfX7+Q55kr8c7X/3sw16V7SU+7/cK3gF3r9staTnyzyH96vLfMf3qs0858PyL4rWP/3wDb/2Qvd/OdjskcF8e+Dbf7DrJbJfyz493Xo8u9hsu8L2v8NdJ/7Pzh/4s8DOH/a6XD+cNhKoe+fGvkPf2/sPcH4exO2+c9+6OY/x8i+LYj/AGzzH87XNPOfD8keEcR/EP/Mf1yfgU75z1/xf5bnmO5W/+U1z5J/eL8oyVk/XCvwhc7P9T2g/si1A94/ax3O1+Bfvnfzc8H8fxu2/PsOdPn3a7KnBPEfgS3/cq5iyb/vQZd/PyHbKWj/96Fb//2S7EmB/6Ow5Z8PYvHfCFsp9M//C100+Pcrsp8Kxv+HsOVfzlc0+fc02ROC+I9BL/8GII4/Ln8CUEsBAhcLFAACAAgAKJPCRtRYtiocCQAACIYAAAkACQAAAAAAAAAAAACAAAAAAFVJUGFja2FnZVVUBQAHIPVtVVBLBQYAAAAAAQABAEAAAABUCQAAAAA=


[Script]
Set dm = createobject("dm.dmsoft")
dm.SetPath ("D:\tmp")
hwnd = dm.GetMousePointWindow()

dm_ret = dm.BindWindow(hwnd, "dx2", "dx", "dx", 0)

Delay 1500
If dm_ret = 0 Then 
MessageBox "綁定失敗"
End If

dm_ret = dm.Capture(0,0,3000,3000,"screen.bmp")


Delay 2000

Rem set1

dm.MoveTo 403, 570
Delay 100
dm.LeftClick 

color = dm.GetColor(338,143)
     If color = "ffffff" Then
dm.MoveTo 688, 257
Delay 100
dm.LeftClick 
 color = dm.GetColor(363,326)
     If color = "ffffff" Then 
      Goto set2
     End If


 color = dm.GetColor(363,326)
     If color = "ffffff" Then 
     Rem set2
     Delay 200
dm.KeyPress "27"
Delay 200
dm.KeyPress "27"
Delay 400
dm.MoveTo 407, 645
Delay 400
dm.LeftClick 
If Form1.CheckBox1.Value = 1 Then  
 Delay 800
 If Form1.CheckBox9.Value = 1 Then  
 dm_ret = dm.FindColor(444,73,699,250,"b64005-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中S機"
EndScript
End If
End If
 If Form1.CheckBox7.Value = 1 Then  
 dm_ret = dm.FindColor(444,73,699,250,"ab8009-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中A機"
EndScript
End If
End If
If Form1.CheckBox8.Value = 1 Then 
  dm_ret = dm.FindColor(444,73,699,250,"a1b3bf-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中B機"
EndScript
End If
End If
 dm.MoveTo 434, 108
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 613, 42
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 450, 446
 Delay 500
 dm.LeftClick
 Delay 500
 dm.MoveTo 455, 351
 Delay 500
 dm.LeftClick
 Delay 500
 End If
If Form1.CheckBox2.Value = 1 Then  
 Delay 800
 If Form1.CheckBox9.Value = 1 Then  
 dm_ret = dm.FindColor(739,72,994,254,"b64005-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中S機"
EndScript
End If
End If
 If Form1.CheckBox7.Value = 1 Then  
 dm_ret = dm.FindColor(739,72,994,254,"ab8009-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中A機"
EndScript
End If
End If
If Form1.CheckBox8.Value = 1 Then 
  dm_ret = dm.FindColor(739,72,994,254,"a1b3bf-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中B機"
EndScript
End If
End If
 dm.MoveTo 727, 106
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 613, 42
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 450, 446
 Delay 500
 dm.LeftClick
 Delay 500
 dm.MoveTo 455, 351
 Delay 500
 dm.LeftClick
 Delay 500
 End If
 If Form1.CheckBox3.Value = 1 Then  
 Delay 800
 If Form1.CheckBox9.Value = 1 Then  
 dm_ret = dm.FindColor(444,282,699,461,"b64005-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中S機"
EndScript
End If
End If
 If Form1.CheckBox7.Value = 1 Then  
 dm_ret = dm.FindColor(444,282,699,461,"ab8009-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中A機"
EndScript
End If
End If
If Form1.CheckBox8.Value = 1 Then 
  dm_ret = dm.FindColor(444,282,699,461,"a1b3bf-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中B機"
EndScript
End If
End If
 dm.MoveTo 434, 315
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 613, 42
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 450, 446
 Delay 500
 dm.LeftClick
 Delay 500
 dm.MoveTo 455, 351
 Delay 500
 dm.LeftClick
 Delay 500
 End If
 If Form1.CheckBox4.Value = 1 Then  
 Delay 800
 If Form1.CheckBox9.Value = 1 Then  
 dm_ret = dm.FindColor(738,280,998,465,"b64005-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中S機"
EndScript
End If
End If
 If Form1.CheckBox7.Value = 1 Then  
 dm_ret = dm.FindColor(738,280,998,465,"ab8009-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中A機"
EndScript
End If
End If
If Form1.CheckBox8.Value = 1 Then 
  dm_ret = dm.FindColor(738,280,998,465,"a1b3bf-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中B機"
EndScript
End If
End If
 dm.MoveTo 726, 315
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 613, 42
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 450, 446
 Delay 500
 dm.LeftClick
 Delay 500
 dm.MoveTo 455, 351
 Delay 500
 dm.LeftClick
 Delay 500
 End If
 If Form1.CheckBox5.Value = 1 Then  
 Delay 800
 If Form1.CheckBox9.Value = 1 Then  
 dm_ret = dm.FindColor(443,492,699,671,"b64005-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中S機"
EndScript
End If
End If
 If Form1.CheckBox7.Value = 1 Then  
 dm_ret = dm.FindColor(443,492,699,671,"ab8009-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中A機"
EndScript
End If
End If
If Form1.CheckBox8.Value = 1 Then 
  dm_ret = dm.FindColor(443,492,699,671,"a1b3bf-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中B機"
EndScript
End If
End If
 dm.MoveTo 435, 526
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 613, 42
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 450, 446
 Delay 500
 dm.LeftClick
 Delay 500
 dm.MoveTo 455, 351
 Delay 500
 dm.LeftClick
 Delay 500
 End If
 If Form1.CheckBox6.Value = 1 Then  
 Delay 800
 If Form1.CheckBox9.Value = 1 Then  
 dm_ret = dm.FindColor(739,491,995,672,"b64005-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中S機"
EndScript
End If
End If
 If Form1.CheckBox7.Value = 1 Then  
 dm_ret = dm.FindColor(739,491,995,672,"ab8009-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中A機"
EndScript
End If
End If
If Form1.CheckBox8.Value = 1 Then 
  dm_ret = dm.FindColor(739,491,995,672,"a1b3bf-000000",1.0,0,intX,intY)
 If intX >= 0 and intY >= 0 Then
    MessageBox "恭喜你已中B機"
EndScript
End If
End If
 dm.MoveTo 728, 524
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 613, 42
 Delay 500
 dm.LeftClick 
 Delay 500
 dm.MoveTo 450, 446
 Delay 500
 dm.LeftClick
 Delay 500
 dm.MoveTo 455, 351
 Delay 500
 dm.LeftClick
 Delay 500
 End If
 


      
      
      
dm.MoveTo 100, 346
Delay 200
dm.LeftClick
Delay 500    
End If

End If


Goto set1