Question

VB中如何延时执行命令！

我用VB模拟键盘输入，可是就是不能延时执行下一个命令，要怎么样才能每各一秒模拟按一下G？（说白了就是，模拟输入了一个G之后停顿一秒再输入一个G）

Answer 1

1可以利用api sleep函数，冻结线程，但由于消息函数阻塞会导致卡屏，2可以向楼上那样创建wscript.shell对象，3使用timer控件延迟，4使用循环结构取当前时间做差判断，填充doevents语句防止占用过多cpu时间片。不懂继续问。

Answer 2

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
sleep 3000 这里是延时3000毫秒=3秒
或者用timer控件

Answer 3

试试这个：
Set Shell = CreateObject("Wscript.shell")
WScript.Sleep 时间

Answer 4

利用时间控件试试