import repository from arizona
[raven.git] / tools / screencast / teleprompter.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\\demo-kong.txt", ForReading, False)\r
20 \r
21   crt.Screen.Synchronous = False\r
22 \r
23   Set teleprompter = CreateObject("InternetExplorer.Application")\r
24   teleprompter.Offline = True\r
25   teleprompter.navigate "about:blank"\r
26   ' wait for it to load\r
27   do\r
28     crt.sleep 100\r
29   loop while teleprompter.busy\r
30   teleprompter.Document.Body.Style.FontFamily = "Sans-Serif"\r
31   teleprompter.Document.Body.Style.FontSize = 24\r
32   teleprompter.Document.Body.innerHTML = "This is a test!"\r
33   teleprompter.MenuBar = False\r
34   teleprompter.StatusBar = False\r
35   teleprompter.AddressBar = False\r
36   teleprompter.ToolBar = False\r
37   teleprompter.height = 480\r
38   teleprompter.width = 640\r
39   teleprompter.document.title = "Teleprompter"\r
40   teleprompter.visible = True\r
41 \r
42   speech = ""\r
43 \r
44   Do While file.AtEndOfStream <> True\r
45     str = file.Readline\r
46 \r
47     if str = "#suroot" then\r
48         Set file2 = fso.OpenTextFile("c:\\documents\\randomjunk.txt", ForReading, False)\r
49         str = "su root|" + file2.Readline\r
50     end if\r
51 \r
52     if str = "#passphrase" then\r
53         Set file2 = fso.OpenTextFile("c:\\documents\\randomjunk.txt", ForReading, False)\r
54         str = file2.Readline\r
55         str = file2.Readline\r
56     end if\r
57 \r
58     if mid(str, 1, 1) = "#" then\r
59         speech = speech + right(str, len(str)-1)\r
60         teleprompter.Document.Body.innerHTML = speech\r
61     else\r
62         speech = speech + "<br><hr><font color=green>" + str + "</font>"\r
63         teleprompter.Document.Body.innerHTML = speech\r
64 \r
65         crt.Screen.WaitForKey()\r
66         crt.Screen.Send chr(127)\r
67 \r
68         for x = 1 to len(str)\r
69            if mid(str, x, 1) = "|" then\r
70                crt.Screen.Send chr(13)\r
71            elseif mid(str, x, 1) = "^" then\r
72                crt.Screen.Send chr(27)\r
73            else\r
74                crt.screen.send mid(str, x, 1)\r
75            end if\r
76            crt.sleep (1 + 200 * Rnd())\r
77         next\r
78 \r
79         crt.Screen.Send chr(13)\r
80 \r
81         speech = ""\r
82     end if\r
83   Loop\r
84 \r
85   crt.Screen.Synchronous = False\r
86 \r
87 End Sub\r