前两次点击打印屏幕

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方法来帮助您。