 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
【精品】按键精灵脚本编写命令大全及示例
下载积分：860
内容提示：【精品】按键精灵脚本编写命令大全及示例
文档格式：DOC|
浏览次数：817|
上传日期： 19:45:15|
文档星级：
该用户还上传了这些文档
【精品】按键精灵脚本编写命令大全及示例
官方公共微信要个跟按键差不多的,要不停的按ctrl,差不多0.1秒按一次,不是要按住的,要用HOME按键启动,END按键停止,我只要代码.
在窗体中添加一个 Timer 控件,其 Ena相关信息ed 属性设置为 False ,并复制以下代码:
'========================================================
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 36 'Home 键
Timer1.Enabled = True
Case 35 'End 键
Timer1.Enabled = False
End Select
End Sub
Private Sub Form_Load()
Timer1.Enabled = False '以防万一
Timer1.Interval = 100 '100 毫秒即为 0.1 秒
End Sub
Private Sub Timer1_Timer()
SendKeys ("^") '向活...
在窗体中添加一个 Timer 控件,其 Ena相关信息ed 属性设置为 False ,并复制以下代码:
'========================================================
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 36 'Home 键
Timer1.Enabled = True
Case 35 'End 键
Timer1.Enabled = False
End Select
End Sub
Private Sub Form_Load()
Timer1.Enabled = False '以防万一
Timer1.Interval = 100 '100 毫秒即为 0.1 秒
End Sub
Private Sub Timer1_Timer()
SendKeys ("^") '向活动的窗口发送 Ctrl 键按键消息并立即返回到过程
End Sub
'========================================================
如果不明白,请找我联系
其他***（共3个回答）
As Integer, Shift As Integer)
Select Case KeyCode
Timer1.Enabled = True
End Select
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
'
Private Sub Timer1_Timer()
Form_KeyPress (17)
End sub
希望指教
您好，您设置了无痕浏览的话可以在工具里面重新设置的哦。
您好，关于有木有木马病毒，请问你在哪里下载的呢，是什么杀毒软件报的毒呢，麻烦把下载网址发给我我帮您检测看看是否存在病毒，还是某些杀软的误报。
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区