让电脑反复执行:
空格键,间隔0.5秒,方向键下,间隔0.5,回车键,间隔,方向左,方向左键,回车,回车,空格,空格,空格,ESC
之间都有点间隔
就这些了
就是帮我编个代码, 模拟键盘操作
需要,循环。。。。。。我切到另一个窗口时,一直执行

展开全部
收起
6回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • xlxl心累

    20人对此回答表示赞同

    在窗体添加时钟 Timer1
    Timer1.Interval = 500

    Dim Index As Integer'窗体级变量

    Private Sub Form_Load()
    Index = 0
    End Sub

    Private Sub Timer1_Timer()
    If Index = 0 Then
    SendKeys " ", True '空格键
    展开
    20
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 明月望舒

    16人对此回答表示赞同

    这个很简单的,但是要实际可用还要加入一些代码,比如隐藏vb本窗口,让接受按键的窗口在前台等。
    展开
    16
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • W小姐

    9人对此回答表示赞同

    用timer事件啊
    展开
    9
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • SweetyAriana

    9人对此回答表示赞同

    我没有听懂你什么意思可以说详细些吗?
    展开
    9
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Valentina

    7人对此回答表示赞同

    Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To 10
    Presskey i

    Next
    End Sub

    Private Sub Presskey(Index As Integer)
    Dim t As Single
    t = Timer
    Do Until Timer - t - 0.5 > 0
    DoEvents
    展开
    7
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 野鹤

    3人对此回答表示赞同

    这个不难,就是麻烦
    从网上找的
    Dim i As Integer
    For i = 0 To 10
    Presskey i

    Next
    End Sub

    Private Sub Presskey(Index As Integer)
    Dim t As Single
    t = Timer
    Do Until Timer - t - 0.5 > 0
    DoEvents
    展开
    3
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部