看流星社区

 找回密码
 注册账号
查看: 3345|回复: 1

[VB] 求教向窗口发送模拟按键 用什么 方法?

[复制链接]

该用户从未签到

发表于 2011-4-7 07:59:24 | 显示全部楼层 |阅读模式
昨天忙了一个晚上 找基址找教材才写了一小段,人物名字等级红蓝都能正常读取显示,就是到了向游戏窗口发送按键发布过去。
请帮我看看哪里有问题并提出解决办法,谢谢!

按照一天一天做辅助 的方法 两个 发送的函数 都用了 还是无效果,游戏窗口专门测试了有值读hwd里面的值,不知道哪里出了问题。


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
  PostMessage hwd, WM_KEYDOWN, VK_F1, 0& '按下F1键
  PostMessage hwd, WM_UP, VK_F1, 0&    '释放F1键
  PostMessage hwd, WM_KEYDOWN, VbKey2, 0&
  PostMessage hwd, WM_KEYUP, VbKey2, 0&
   
  Sleep Val(Text2.Text)  '延迟text2中的数值,用val()取数值
End If
End Sub

该用户从未签到

发表于 2011-4-7 07:59:35 | 显示全部楼层
Private Sub Timer1_Timer()
If Val(Text1.Text) > hp Then '比较当前血量是否比预定值低,是则按下F1健
Call keybd_event(100, 0, 0)'按下F1
Call keybd_event(100, KEYEVENTF_KEYUP, 0)'放开F1
endif
end sub
这样应该可以了吧,不过需要提前声明一下
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 19:41

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表