在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 using

the 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 object

associated 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 data

supplied 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 CRLF

sequences 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 10000

crt.sleep 300000

usrCpu = 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, f1

Set 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