'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