前两次点击打印屏幕

Question

我正处于vba学习的初始阶段。我已经写了这段代码，它需要打印屏幕并在五秒钟后将其粘贴到powerpoint中，当我运行我的代码时，我想要打印屏幕，它应该在前两次单击时打印屏幕。
Sub PrintScreen() Sleep 5000 keybd_event VK_MENU, 0, 0, 0 keybd_event VK_SNAPSHOT, 0, 0, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0 keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0 ActivePresentation.Slides.Add 1, ppLayoutBlank ActivePresentation.Slides(1).Shapes.Paste End Sub

Answer 1

由于大多数操作系统不支持随机插入文本到一个文件，你将不得不读取每个文本行，修改和写入修改后的文本行到一个文件中。

这里有一个算法：

While reading the text line is good: 
    Prepend your text to the text line. 
    Write text line to new file. 
    end-while 
close files. 

如果使用std::string，你可以查找的insert方法来帮助你。