示波器屏幕转储嵌入侵入式错误消息

当捕获屏幕（myScope.WriteString“：DISPLAY：DATA？BMP，SCR，COL”）时，屏幕捕获的BMP图片中间包含“无效字符”或“远程操作完成”。
如果sub自己运行，则问题不存在。
如果嵌入在较长的代码中，则会出现“无效字符”。
如果第二次（或更多次）立即调用sub，则出现“远程操作完成”。
怎么修？
韩国社交协会。
适用范围：DSO6034A Windows Vista，Excel 2007 VBA，尝试使用NI和安捷伦库作为主要问题。
安捷伦lib。
版本16（最新 - 昨天安装）。
代码程序员手册略微修改了代码。
Sub DumpImage（io_ As String，strPth As String）Dim ioMgr作为VisaComLib.ResourceManager Dim myScope作为VisaComLib.FormattedIO488 Dim fn As Integer，tmr As Double Set ioMgr = New VisaComLib.ResourceManager Set myScope = New VisaComLib.FormattedIO488 Set myScope.IO =
ioMgr.Open（io_）'IMAGE_TRANSFER - 在这个例子中，我们将使用“：DISPLAY：DATA？”查询图像数据，读取数据，然后将其保存到文件中。
Dim byteData（）As Byte'删除文件（如果存在）。
如果Len（Dir（strPth））那么Kill strPth End如果myScope.WriteString“：DISPLAY：DATA？BMP，SCR，COL”'＆amp;
Chr（10）byteData = myScope.ReadIEEEBlock（BinaryType_UI1）fn = FreeFile（）打开strPth进行二进制访问写入锁定写入#fn'打开文件进行输出。
把#fn ,, byteData'写入数据。
关闭#fn'关闭文件。
结束子



     以下为原文

  When capture screen (myScope.WriteString ":DISPLAY:DATA? BMP, SCR, COL"),  
screen captured BMP picture contains "Invalid Character" or "Remote operation completed" right in the middle.
If sub is run on its own, the problem does not exist. If sub in embedded in longer code, "Invalid character" appears.
If sub is called immediately second (or more) times, "Remote operation completed" appears.
How to fix? Tks.
Scope: DSO6034A
Windows Vista, Excel 2007 VBA, tried NI and also Agilent library as primary with same problem.
Agilent lib. version 16 (newest - installed yesterday). Code slightly modified from scope programmer manual.

Sub DumpImage(io_ As String, strPth As String)
Dim ioMgr As VisaComLib.ResourceManager
Dim myScope As VisaComLib.FormattedIO488
Dim fn As Integer, tmr As Double
Set ioMgr = New VisaComLib.ResourceManager
Set myScope = New VisaComLib.FormattedIO488
Set myScope.IO = ioMgr.Open(io_)
  
' IMAGE_TRANSFER - In this example, we will query for the image data
' with ":DISPLAY:DATA?", read the data, and then save it to a file.
Dim byteData() As Byte
' Remove file if it exists.
If Len(Dir(strPth)) Then
Kill strPth
End If
myScope.WriteString ":DISPLAY:DATA? BMP, SCR, COL"     ' & Chr(10)
byteData = myScope.ReadIEEEBlock(BinaryType_UI1)
fn = FreeFile()
Open strPth For Binary Access Write Lock Write As #fn ' Open file for output.
Put #fn, , byteData ' Write data.
Close #fn   ' Close file.

End Sub