打怪升级选技能的小程序叫什么

打怪升级选技能的小程序叫奇迹世界。是一款非常轻松方便的挂机打怪闯关游戏，有着特色的人物可以选择，带来不同职业设置，十分炫酷的技能招式，无比华丽的作战场景，控制你的角色尽情冒险，在各个地图里面完成每个任务挑战，获得更多的资源，升级你的实力，解锁更加强大的力量，击败每个敌人，还有丰富的PK竞技玩法，展现出你极限的 *** 作手法。

很简单

1个timer控件,interval=1000,一个按钮控件````用vb6.0

算了,给你个代码自己去研究吧.....

Dim x As Integer

Private Sub Command1_Click()

Timer1.Interval = IIf(Timer1.Interval = 0, 1000, 0) '一秒钟一次

Command1.Caption = IIf(Command1.Caption = "结束", "开始", "结束")

End Sub

Private Sub Timer1_Timer()

x = x + 1: If x = 480 Then x = 0

If x Mod 10 = 0 Then SendKeys "1" '小键盘上的数字1

If x Mod 8 = 0 Then SendKeys "3"

If x Mod 6 = 0 Then SendKeys "2"

End Sub

前提是你的游戏必须有焦点啊,这样发送的键子才能让你的游戏收到````

---