
VB编写自动按键
先按Z两下中间间隔1秒然后按空格再间隔一秒按回车然后停顿5秒然后一直循环很简单的请高手们帮我写个代码!!~谢谢!我没分就帮我一个忙吧能不能。。发代码...
先按Z两下 中间间隔1秒 然后按空格 再间隔一秒按回车 然后停顿5秒 然后一直循环 很简单的
请高手们帮我写个代码 !!~谢谢!我没分 就帮我一个忙吧
能不能。。发代码 展开
请高手们帮我写个代码 !!~谢谢!我没分 就帮我一个忙吧
能不能。。发代码 展开
展开全部
在窗体上放一个文本框text1,其multiline 属性值设为True,scrollbars属性值设为2,然后再放3个定时器控键timer1,timer2,timer3,代码如下,你看这样行不
Option Explicit: Dim kaiguan1 As Boolean, a As String, kaiguan2 As Boolean
Private Sub Form_Load()
Timer1.Interval = 5000
Timer2.Interval = 1000
Timer3.Interval = 1000
Text1 = ""
End Sub
Private Sub Timer1_Timer()
a = a & "zz"
Text1 = a
kaiguan1 = True
End Sub
Private Sub Timer2_Timer()
If kaiguan1 = True Then
a = a & " "
Text1 = a
kaiguan1 = False
kaiguan2 = True
End If
End Sub
Private Sub Timer3_Timer()
If kaiguan2 = True Then
a = a & vbCrLf
Text1 = a
kaiguan2 = False
End If
End Sub
Option Explicit: Dim kaiguan1 As Boolean, a As String, kaiguan2 As Boolean
Private Sub Form_Load()
Timer1.Interval = 5000
Timer2.Interval = 1000
Timer3.Interval = 1000
Text1 = ""
End Sub
Private Sub Timer1_Timer()
a = a & "zz"
Text1 = a
kaiguan1 = True
End Sub
Private Sub Timer2_Timer()
If kaiguan1 = True Then
a = a & " "
Text1 = a
kaiguan1 = False
kaiguan2 = True
End If
End Sub
Private Sub Timer3_Timer()
If kaiguan2 = True Then
a = a & vbCrLf
Text1 = a
kaiguan2 = False
End If
End Sub

2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByValdwMilliseconds As Long) 'Sleep的API申明
________________________________
代码部分
sendkeys "z"
sleep 1000
sendkeys "z"
sleep 5000
sendkeys "{enter}"
_________________________________
________________________________
代码部分
sendkeys "z"
sleep 1000
sendkeys "z"
sleep 5000
sendkeys "{enter}"
_________________________________
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我有一个vb做的现成的键盘按键模拟软件,你说的功能全部能在我那个软件里面找到,安逸得很qq358378880发给你
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
sendkeys
sleep
sleep
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询