在CRT屏幕上获取某个具体位置的文本(转)

可以使用Screen 对象的Get() or Get2()方法去获取屏幕上的数据.

1 Get() 函数包含四个参数.文本第一个字符所在的行号,列号.最后个字符所在的行号与列号.
可以通过选择相应的文本来查看文字所处的行号与列号.



以下就可获取相应的值.
nFreeMem = crt.Screen.Get (5,36,5,41)

把数据写放到文本中

Writing data to a file using the VBScript FileSystemObject can typically be accomplished usingthe following general steps: 1) Get a reference to the FileSystemObject : Set objFSO = CreateObject( "Scripting.FileSystemObject" ) 2) Use the FileSystemObject reference to retrieve a reference to a TextStream objectassociated with the text file to which the data is to be written. Const ForWriting = 2 Const ForAppending = 8 ' Create a new file (or overwrite an existing one)Set objStream = objFSO.OpenTextFile( _ "C:\Temp\MyDataFile.txt", _ ForWriting, _ True) ' Append to an existing file (create if it doesn't exist)Set objStream = objFSO.OpenTextFile( _ "C:\Temp\MyDataFile.txt", _ ForAppending , _ True)3) Write the data to the file using the TextStream object's Write or WriteLine methods. The WriteLine method automatically appends EOL characters to the end of the datasupplied to the method. objStream.Write "This data is written " objStream.Write "as one single line." Or: objStream.WriteLine "This data is written " objStream.WriteLine "as two separate lines." Note that you can write multiple lines using either method by manually inserting CRLFsequences as needed, for example:bjStream.Write "This is line one." & vbcrlf & _ "This is line two." & vbcrlf & _ "This is line three." & vbcrlf & _ "This is line four." & vbcrlf
Or:
objStream.WriteLine "This is line one." & vbcrlf & _ "This is line two." & vbcrlf & _ "This is line three." & vbcrlf & _ "This is line four."
4) When you have completed writing data to the file, close the file: objStream.Close
EXAMPLE:获取CPU数据并将其写入到文件中# $language = "VBScript" # $interface = "1.0" Sub Main () For x = 1 To 10000crt.sleep 300000usrCpu = crt.Screen.Get(2,7,2,9)sysCpu = crt.Screen.Get (2,15,2,18) idleCpu =crt.Screen.get(2,35,2,37)
Dim fso, f1Set fso = CreateObject("Scripting.FileSystemObject")Set f1 = fso.OpenTextFile("E:\TestFile.txt", 8,True)f1.writeline("usr:" & usrCpu & " sysCpu:" & sysCpu & " idleCpu" & idleCpu)f1.close
Next
end Sub