Help with Get Text.
I am trying to copy the last line of a display and send it as an error message. I am having limited success. I think the problem lies within my Get Text function. Any ideas? Please, no laughing as I am a comlpete novice when it comes to VB and VBA.
Sub copy_paste()
Session.WindowState = rcNormal
Dim text, filenum
filenum = 1
Open "c:\optex.txt" For Append As filenum
With Session
.WindowState = rcNormal
text = GetText(23, 0, 23, 131)
Write #filenum, text
Close #filenum
.Shell "c:\winnt\system32\net.exe", "SEND USER" + text
End With
End Sub
I am trying to copy the last line of a display and send it as an error message. I am having limited success. I think the problem lies within my Get Text function. Any ideas? Please, no laughing as I am a comlpete novice when it comes to VB and VBA.
Sub copy_paste()
Session.WindowState = rcNormal
Dim text, filenum
filenum = 1
Open "c:\optex.txt" For Append As filenum
With Session
.WindowState = rcNormal
text = GetText(23, 0, 23, 131)
Write #filenum, text
Close #filenum
.Shell "c:\winnt\system32\net.exe", "SEND USER" + text
End With
End Sub