怎样实现武林打坐回蓝

可乐彩

我想为武林外传医生设计一个给别人加血的挂，用Ｆ１键使用技能补血，Ｆ２键打坐回真气，代码都是复制别人的，问题是现在用技能回血可以，但不能打坐，即使是把SendMessage hwd, &H101, &H71, 0&    '松开F2键，&H101代表松开，&H71代表F2这个删掉也没有用，我是今天才学ＶＢ呀，有会的帮帮忙　谢谢了　应该怎么修改呀


Private Sub Timer1_Timer()    '加蓝判断时钟
If Val(Text3.Text) > mp Then    '比较当前蓝量是否比预定值低，是则按下F2健
    SendMessage hwd, &H101, &H71, 0&    '松开F2键，&H101代表松开，&H71代表F2
  　 SendMessage hwd, &H100, &H71, 0&    '按住F2键，&H100代表按下，&H71代表F2
    　Sleep Val(Text4.Text)    '延迟text4中的数值
End If
End Sub

Private Sub TimerAdd_Timer()    '加血判断时钟
If Val(Text1.Text) > hp Then    '比较当前血量是否比预定值低，是则按下F1健
    SendMessage hwd, &H100, &H70, 0&    '按住F1键，&H100代表按下，&H70代表F1
    　SendMessage hwd, &H101, &H70, 0&    '松开F1键，&H101代表松开，&H70代表F1
    　Sleep Val(Text2.Text)    '延迟text2中的数值
End If
End Sub

舒天倦云

end if
do  hp<>maxhp while
随便搞点其它的什么
end do