10秒钟自动运行一次快捷键

[喜洋洋和灰太狼]

比如让程序10秒钟自动按一次 alt + y快捷键

[帝企鹅已被占用]

alt+f4

[getemail]

在Timer的事件中写
SendKeys "{ALT} + Y"

[喜洋洋和灰太狼]

Private Sub Timer1_Timer()
SendKeys "{ALT} + {F4}"
End Sub

胡子叔叔 我用这样报错了

[Quote=引用 2 楼 getemail 的回复:]
在Timer的事件中写
SendKeys "{ALT} + Y"
[/Quote]

[喜洋洋和灰太狼]

谢谢大家！

Private Sub Timer1_Timer()
'SendKeys "{ALT} + {F4}"
SendKeys "%{F4}"
End Sub

这样才成功了

4）为了指定那些与 SHIFT、CTRL 及 ALT 等按键结合的组合键，可在这些按键码的前面放置一个或多个代码，这些代码列举如下：
　　键 代码
　　SHIFT +
　　CTRL ^
　　ALT %

[帝企鹅已被占用]

那结贴吧，ctl+p是不是打防

[getemail]

Send("%{F4}")

[getemail]

我也刚找到,好久不用了

[Quote=引用 4 楼 xlcike 的回复:]
谢谢大家！

VB codePrivateSub Timer1_Timer()'SendKeys "{ALT} + {F4}"SendKeys"%{F4}"End Sub

这样才成功了

4）为了指定那些与 SHIFT、CTRL 及 ALT 等按键结合的组合键，可在这些按键码的前面放置一个或多个代码，这些代码列举如下：
　　键 代码
　　SHIFT +
　　CTRL ^
　　ALT %

[/Quote]

[喜洋洋和灰太狼]

胡子叔叔年纪大了 少写了个Keys吧？
[Quote=引用 6 楼 getemail 的回复:]
Send("%{F4}")
[/Quote]

[喜洋洋和灰太狼]

我看就是年纪大了 哈哈
[Quote=引用 7 楼 getemail 的回复:]
我也刚找到,好久不用了

引用 4 楼 xlcike 的回复:
谢谢大家！

VB codePrivateSub Timer1_Timer()'SendKeys "{ALT} + {F4}"SendKeys"%{F4}"End Sub

这样才成功了

4）为了指定那些与 SHIFT、CTRL 及 ALT 等按键结合的组合键，可在这些按键码的前面放置一个或多个代码，这些代码列举如下：
　　键 代码
　　SHIFT +
　　CTRL ^
　　ALT %


[/Quote]