securecrt查看串口日志_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