Dim diablo //定义一个变量来测试获取窗口句柄
Dim hdyxck //定义一个变量，获得游戏窗口
diablo=Plugin.Window.Find("Diablo II","DII 1.10 中文版")
TracePrint "我得到了句柄" //这个判断是否得到游戏窗口的句柄，如果得到会有反应。
hdyxck=Plugin.Window.IsWindow(diablo) //这句开始判断句柄。
If hdyxck = 1 Then //循环，来测试是否已经打开游戏。
Call Plugin.Msg.Tips("你的游戏打开了。")//弹出气泡，
Plugin.Window.Restore diablo //还原游戏窗口的句柄，diablo为游戏窗口名称
Plugin.Window.Move diablo,0,0 //移动游戏窗口，到左上角。
Else //否则
Call Plugin.Msg.Tips("你没有打开游戏。")
End If
//--------------------------------↓加血--------------------------
If Form1.CheckBox1.Value Then //如果窗口里的多选框被选中，则调用加血子程序。
Call jiaxue //调用子程序
End If
Sub jiaxue //建立一个子程序，设置子程序名字叫做加血（拼音）
While true
FindPic 0,0,1024,768,"Attachment:\血旁边.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then //↑上句和这句的意思是如果找到这个图的位置，执行下面的代码。属于判断语句。
//MoveTo intx + 70 , inty -15
IfColor intx + 70, inty - 5, "0005C", 0 Then//这个找到相对图片的坐标，如果坐标点颜色是0005C，则执行下面代码，如果不是则执行ELSE下面的代码。
Else
Delay 100 //延迟100毫秒
KeyPress "1", 1 //按一下1键，如果玩过暗黑的朋友都知道，血没了就按1键的。
End If
IfColor intx + 70, inty - 5, "0005C", 0 Then
Else
Delay 100
KeyPress "2", 1
End If
IfColor intx + 70, inty - 5, "0005C", 0 Then
Else
Delay 100
KeyPress "3", 1 //我设置了一共三个栏放血瓶，如果1键没有加血，则按2键，如果2键没有加血，则按3键，4键是放蓝的，不在这里设置。
End If
End If
Wend
End Sub
//--------------------------------↑加血------------------------------