Copy Screen to Clipboard to Text File

'Created By: Xavier Arias

'Date: April 21, 2014

'Title: MODULE_GrabScreen

Sub MODULE_GrabScreen()

Dim hostSettleTimeout As Integer

Dim hostSettleTime As Integer

Dim osCurrentScreen As Screen

Dim osCurrentTerminal As Terminal

Dim returnValue As Integer

Dim hiddenTextEntry As String

hostSettleTimeout = 5000

hostSettleTime = 300

Set osCurrentTerminal = ThisFrame.SelectedView.control

Set osCurrentScreen = osCurrentTerminal.Screen

'Select and copy text from the screen

osCurrentScreen.SelectText 1, 1, 30, 30, RegionOption_Wrapped

' Press EditCopy (Copy the selection and put it on the Clipboard).

osCurrentScreen.Copy

osCurrentScreen.SendControlKey ControlKeyCode_Escape

Dim MyData As DataObject

Dim strClip As String

Set MyData = New DataObject

MyData.GetFromClipboard

strClip = MyData.GetText

Dim myUser2 As String

myUser2 = Environ("username")

MyFile = "C:\Users\" & myUser2 & "\Documents\AHK\Batch_Manipulator\GrabScreenFile.txt"

' ******** This is for MODULE_GrabScreen.*************************

' Writing to File C:\Users\Username\Documents\AHK\Batch_Manipulator\GrabScreenFile.txt

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("C:\Users\" & myUser2 & "\Documents\AHK\Batch_Manipulator\GrabScreenFile.txt", True)

a.WriteLine (strClip)

a.Close

End Sub