secureCRT 抓取串口数据

# $language = "VBScript"
# $interface = "1.0"


Dim outputFile, fout
Dim outputPath
Dim user


outputPath = "D:out.txt"
Set fout = CreateObject("Scripting.FileSystemObject")
Set outputFile = fout.OpenTextFile(outputPath, 2, True)


Sub Main
crt.Screen.Clear
  crt.Screen.Send vbCr
  crt.Screen.Clear
  crt.Screen.Send vbCr
  crt.Screen.Clear
  crt.Screen.Send vbCr
  'crt.screen.WaitForString "login: "
  'crt.Screen.Send "root" & vbCr
  crt.screen.WaitForString "root@cdp:~# "
  Do while ( True )
  crt.Screen.Clear
  crt.Screen.Send "cat /sys/devices/platform/mpp5" & vbCr
  crt.Sleep 10
  result = crt.Screen.ReadString("Raw:",1)
  'crt.Dialog.MessageBox result
  P=InStr(result,"Result:")
  PP=Mid(result,P,10)
  On error resume next
  temp_str=Mid(PP,8,10)
  On error resume next
  'crt.Dialog.MessageBox temp_str
  temp = CInt(temp_str)
  outputFile.Write temp
  outputFile.Write vbCr
  outputFile.Write vbLf
  crt.Sleep 5000
  Loop


End Sub


# $language = "VBScript"# $interface = "1.0"Dim outputFile, foutDim outputPathDim useroutputPath = "D:out.txt"Set fout = CreateObject("Scripting.FileSystemObject")Set outputFile = fout.OpenTextFile(outputPath, 2, True)Sub Maincrt.Screen.Clear crt.Screen.Send
 vbCr crt.Screen.Clear crt.Screen.Send vbCr crt.Screen.Clear crt.Screen.Send vbCr 'crt.screen.WaitForString "login: " 'crt.Screen.Send "root" & vbCr crt.screen.WaitForString "root@cdp:~# " Do while ( True ) crt.Screen.Clear crt.Screen.Send "cat /sys/devices/platform/mpp5"
 & vbCr crt.Sleep 10 result = crt.Screen.ReadString("Raw:",1) 'crt.Dialog.MessageBox result P=InStr(result,"Result:") PP=Mid(result,P,10) On error resume next temp_str=Mid(PP,8,10) On error resume next 'crt.Dialog.MessageBox temp_str temp = CInt(temp_str) outputFile.Write
 temp outputFile.Write vbCr outputFile.Write vbLf crt.Sleep 5000 LoopEnd Sub