- 妈豆
- 15
- 昵称
-
- 经验值
- 15
- 在线时间
- 0小时
- 注册时间
- 2009-7-26
- 积分
- 15
- 精华
- 0
- UID
- 57110515
![Rank: 1](http://images.tjmama.com/static/image/common//star_level1.gif)
- 宝宝生日
- 0000-00-00
- 帖子
- 2
|
帮我侄女秒成功了。看各位妈妈如此辛苦,我放两段按键精灵的代码好了,你们作为2018年的参考。
Call Plugin.Msg.Tips("幼儿户口所在地址")
a = WaitKey()
While (a<>118 and a<>120)
a = WaitKey()
Wend
If a = 118 Then
SayString "你猜我在哪~"
ElseIf a = 120 Then
Delay 1
End If
Call Plugin.Msg.Tips("儿童接种证号")
a = WaitKey()
While (a<>118 and a<>120)
a = WaitKey()
Wend
If a = 118 Then
KeyPress 49, 1
KeyPress 9, 1
Delay 20
KeyPress 50, 1
KeyPress 9, 1
Delay 20
KeyPress 48, 1
KeyPress 9, 1
Delay 20
KeyPress 51, 1
KeyPress 9, 1
Delay 20
KeyPress 48, 1
KeyPress 9, 1
Delay 20
KeyPress 57, 1
KeyPress 9, 1
Delay 20
KeyPress 49, 1
KeyPress 9, 1
Delay 20
KeyPress 49, 1
KeyPress 9, 1
Delay 20
KeyPress 52, 1
KeyPress 9, 1
Delay 20
KeyPress 51, 1
KeyPress 9, 1
Delay 20
KeyPress 56, 1
KeyPress 9, 1
Delay 20
KeyPress 49, 1
KeyPress 9, 1
Delay 20
KeyPress 52, 1
KeyPress 9, 1
Delay 20
KeyPress 56, 1
Delay 20
ElseIf a = 120 Then
Delay 1
End If
|
|