import repository from arizona
[raven.git] / tools / screencast / sendfile.vbs
1 # $language = "VBScript"\r
2 # $interface = "1.0"\r
3 \r
4 ' This script demonstrates how to open a text file and it line by\r
5 ' line to a server.\r
6 \r
7 ' Constants used by OpenTextFile()\r
8 '\r
9 Const ForReading = 1\r
10 Const ForWriting = 2\r
11 \r
12 Sub Main\r
13 \r
14   Dim fso, file, str\r
15   Set fso = CreateObject("Scripting.FileSystemObject")\r
16 \r
17   ' Note: A runtime exception will be generated if 'input.txt' doesn't exist.\r
18   '\r
19   Set file = fso.OpenTextFile("y:\\projects\\stork\\trunk\\tools\\screencast\\demo2.txt", ForReading, False)\r
20 \r
21   crt.Screen.Synchronous = False\r
22 \r
23   Do While file.AtEndOfStream <> True\r
24 \r
25     crt.Screen.WaitForKey()\r
26     crt.Screen.Send chr(127)\r
27 \r
28     str = file.Readline\r
29 \r
30     ' Send the line with an appended CR\r
31     '\r
32     'crt.Screen.Send str & Chr(13)\r
33 \r
34     for x = 1 to len(str)\r
35        if mid(str, x, 1) = "|" then\r
36            crt.Screen.Send chr(13)\r
37        elseif mid(str, x, 1) = "^" then\r
38            crt.Screen.Send chr(27)\r
39        else\r
40            crt.screen.send mid(str, x, 1)\r
41        end if\r
42        crt.sleep (1 + 200 * Rnd())\r
43     next\r
44 \r
45     crt.Screen.Send chr(13)\r
46   Loop\r
47 \r
48   crt.Screen.Synchronous = False\r
49 \r
50 End Sub\r