| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 7855 人关注过本帖
标题:[求助]如何用VB实现按键精灵的功能?
取消只看楼主 加入收藏
圣域无敌
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-26
收藏
 问题点数:0 回复次数:6 
[求助]如何用VB实现按键精灵的功能?
键盘操作?
鼠标移动?
颜色判断?
等等?
搜索更多相关主题的帖子: 精灵 鼠标 键盘 
2007-04-24 10:16
圣域无敌
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-26
收藏
得分:0 

按键精灵都没听过!!!!
判断屏幕颜色,操作键盘!
或者是循环键盘操作,设置时间间隔等等

2007-04-24 12:52
圣域无敌
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-26
收藏
得分:0 

如果屏幕某坐标的颜色为XX,那么按下键盘1/2/3,延时X~

2007-04-24 18:24
圣域无敌
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-26
收藏
得分:0 

Description=上海壶1小小飞制作“魔法-冥思”脚本
BeginHotkey=219
BeginHotkeyMod=0
RunOnce=1
Enable=1
[Repeat]
Type=0
Number=1

[Script]
Rem 开始
Delay 5000
KeyDown 56 1
Delay 200
KeyUp 56 1
Delay 100
Rem 法力是否满值(开始)
IfColor 780 38 21db21
Goto 是否有法力加速(开始)
EndIf
Delay 5000
Goto 法力是否满值(开始)
Rem 法力是否满值(结束)
Rem 是否有法力加速(开始)
IfColor 112 174 8cb2ad
Goto 法力加速(开始)
EndIf
Goto 魔法1(开始)
Rem 是否有法力加速(结束)
Rem 法力加速(开始)
KeyPress 53 1
Rem 法力加速是否结束(开始)
Delay 1000
IfColor 780 54 bd28f7
Goto 魔法1(开始)
EndIf
Goto 法力加速是否结束(开始)
Rem 法力加速是否结束(结束)
Rem 魔法1(开始)
Rem 是否需要坐下回法1(开始)
IfColor 705 41 10a210
Goto 是否需要坐下回法1(结束)
EndIf
Goto 开始
Rem 是否需要坐下回法1(结束)
KeyPress 49 1
Rem 魔法1是否结束(开始)
Delay 1000
IfColor 780 54 bd28f7
Goto 魔法2(开始)
EndIf
Goto 魔法1是否结束(开始)
Rem 魔法1是否结束(结束)
Rem 魔法1(结束)
Rem 魔法2(开始)
Rem 是否需要坐下回法2(开始)
IfColor 705 41 10a210
Goto 是否需要坐下回法2(结束)
EndIf
Goto 开始
Rem 是否需要坐下回法2(结束)
KeyPress 50 1
Rem 魔法2是否结束(开始)
Delay 3000
IfColor 780 54 bd28f7
Goto 魔法1(开始)
EndIf
Goto 魔法2是否结束(开始)
Rem 魔法2是否结束(结束)
Rem 魔法2(结束)

按键精灵的一个脚本,我想用VB做出来,如何?

2007-04-25 22:18
圣域无敌
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-26
收藏
得分:0 
[Script]
VBS dim hong,lan,hongT,lanT
//F3红,F4蓝
//在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。
UserVar hong=70 血量<hong%时,自动吃红。
UserVar lan=30 蓝量<lan%时,自动吃蓝。
UserVar hongT=256 补血延时时间(毫秒)
UserVar lanT=256 补蓝延时时间(毫秒)
Rem 开始
//循环开始标记
Delay 32
//循环小延时,防止出现CPU使用率过高,脚本卡
Rem 补红
IfColor hong/100*(x2-x1)+x1 y color 2
//x2=血条在屏幕最右端坐标,x1=血条在屏幕最左端坐标,
//y=x1,x2在血条中的同一纵坐标,color=血条的空血颜色值。
KeyPress 114 1
//按下补血快捷键
Delay hongT
//补血延时
EndIf
Rem 补蓝
IfColor lan/100*(x2-x1)+x1 y color 2
//x2=蓝条在屏幕最右端坐标,x1=蓝条在屏幕最左端坐标,
//y=x1,x2在蓝条中的同一纵坐标,color=蓝条的空蓝颜色值。
KeyPress 115 1
//按下补蓝快捷键
Delay lanT
//补蓝延时
EndIf
Goto 开始
//跳转到循环开始

用VB弄个这样功能的给我瞧瞧吧!
2007-04-25 22:28
圣域无敌
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-26
收藏
得分:0 

你先教我如何键盘模拟吧~
比如我要实现FORM LOAD时自动按某个键~

2007-04-26 19:06
圣域无敌
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-26
收藏
得分:0 

谢谢楼上2位拉,不过可惜啊,我上礼拜6被抓去工作了,没时间再弄这些东西了!现在放假7天,我想弄个数据录入的软件,方便我工作,还请论坛的大虾们教下,希望能在5天内做出来!不知道大家放假还泡论坛不啊!

2007-05-01 12:33
快速回复:[求助]如何用VB实现按键精灵的功能?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018875 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved