Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'Requires a reference to Microsoft Scripting Runtime.
Sub Main()
Dim FSO As New Scripting.FileSystemObject
Dim sin As Scripting.TextStream
Dim sout As Scripting.TextStream
Dim strWord As String
Set sin = FSO.GetStandardStream(StdIn)
Set sout = FSO.GetStandardStream(StdOut)
sout.WriteLine "Hello!"
sout.WriteLine "What's the word?"
strWord = sin.ReadLine()
sout.WriteLine "So, the word is " & strWord
Set sout = Nothing
Set sin = Nothing
End Sub
Private Declare Sub ExitProcess Lib "kernel32" _
(ByVal uExitCode As Long)
Option Explicit
'LinkConsole.vbs
'
'This is a WSH script used to make it easier to edit
'a compiled VB6 EXE using LINK.EXE to create a console
'mode program.
'
'Drag the EXE's icon onto the icon for this file, or
'execute it from a command prompt as in:
'
' LinkConsole.vbs <EXEpath&file>
'
'Be sure to set up strLINK to match your VB installation.
Dim strLINK, strEXE, WSHShell
strLINK = """C:\Program Files\Microsoft Visual Studio\VB98\LINK.EXE"""
strEXE = """" & WScript.Arguments(0) & """"
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run _
strLINK & " /EDIT /SUBSYSTEM:CONSOLE " & strEXE
Set WSHShell = Nothing
WScript.Echo "Complete!"