c# adobe pdf reader control : Add a page to a pdf in acrobat Library application API .net html azure sharepoint scripting_essentials11-part1807

A Guide to Using VBScript in SecureCRT 
109
© 2009-2010 VanDyke Software, Inc.
strResults = strResults & _ 
vbcrlf & vbcrlf & _ 
"--> Errors/warnings from this operation include:" & _ 
vbcrlf & strErrors & "..." 
End If 
MsgBox strResults, _ 
vbOkOnly, _ 
"Import Data To SecureCRT Sessions" 
End Sub 
     Helper Methods and Functions 
Function ValidateFieldDesignations(strFields) 
If Instr(strFieldDesignations, g_strDelimiter) = 0 Then 
Dim strErrorMsg, strDelimiterDisplay 
strErrorMsg = "Invalid header line in data file. " & _ 
"Delimiter character not found: " 
If Len(g_strDelimiter) > 1 Then 
strDelimiterDisplay = g_strDelimiter 
Else 
If Asc(g_strDelimiter) < 33 or Asc(g_strDelimiter) > 126 Then 
strDelimiterDisplay = "ASCII[" & Asc(g_strDelimiter) & "]" 
Else 
strDelimiterDisplay = g_strDelimiter 
End If 
End If 
strErrorMsg = strErrorMsg & strDelimiterDisplay & vbcrlf & vbcrlf & _ 
"The first line of the data file is a header line " & _ 
"that must include" & vbcrlf & _ 
"a '" & strDelimiterDisplay & _ 
"' separated list of field keywords." & vbcrlf & _ 
vbcrlf & "'hostname' and 'protocol' are required keywords." & _ 
vbcrlf & vbcrlf & _ 
"The remainder of the lines in the file should follow the " & _ 
vbcrlf & _ 
"pattern established by the header line " & _ 
"(first line in the file)." & vbcrlf & "For example:" & vbcrlf & _ 
g_strExampleHostsFile 
MsgBox strErrorMsg, _ 
vbOkOnly, _ 
"Import Data To SecureCRT Sessions" 
Exit Function 
End If 
If Instr(strFieldDesignations, "hostname") = 0 Then 
strErrorMsg = "Invalid header line in data file. " & _ 
"'hostname' field is required." 
If Len(g_strDelimiter) > 1 Then 
strDelimiterDisplay = g_strDelimiter 
Else 
If Asc(g_strDelimiter) < 33 or Asc(g_strDelimiter) > 126 Then 
strDelimiterDisplay = "ASCII[" & Asc(g_strDelimiter) & "]" 
Else 
strDelimiterDisplay = g_strDelimiter 
End If 
End If 
Add a page to a pdf in acrobat - insert pages into PDF file in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Guide C# Users to Insert (Empty) PDF Page or Pages from a Supported File Format
add page numbers to pdf in preview; add and delete pages from pdf
Add a page to a pdf in acrobat - VB.NET PDF Page Insert Library: insert pages into PDF file in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
Easy to Use VB.NET APIs to Add a New Blank Page to PDF Document
add page number pdf file; add page to pdf preview
A Guide to Using VBScript in SecureCRT 
110
© 2009-2010 VanDyke Software, Inc.
MsgBox strErrorMsg & vbcrlf & _ 
"The first line of the data file is a header line " & _ 
"that must include" & vbcrlf & _ 
"a '" & strDelimiterDisplay & _ 
"' separated list of field keywords." & vbcrlf & _ 
vbcrlf & "'hostname' and 'protocol' are required keywords." & _ 
vbcrlf & vbcrlf & _ 
"The remainder of the lines in the file should follow the " & _ 
vbcrlf & _ 
"pattern established by the header line " & _ 
"(first line in the file)." & vbcrlf & "For example:" & vbcrlf & _ 
g_strExampleHostsFile, _ 
vbOkOnly, _ 
"Import Data To SecureCRT Sessions" 
Exit Function 
End If 
If Instr(strFieldDesignations, "protocol") = 0 Then 
MsgBox "Invalid data file header line: " & vbcrlf & vbcrlf & _ 
vbtab & strFieldDesignations & vbcrlf & _ 
vbcrlf & "--> 'protocol' field is required.", _ 
vbOkOnly, _ 
"Import Data To SecureCRT Sessions" 
Exit Function 
End If 
ValidateFieldDesignations = True 
End Function 
Function ReadRegKey(strKeyPath) 
On Error Resume Next 
Err.Clear 
ReadRegKey = g_shell.RegRead(strKeyPath) 
If Err.Number <> 0 Then 
' Registry key must not have existed. 
' ReadRegKey will already be empty, but 
' for the sake of clarity, we'll set it 
' to an empty string explicitly 
ReadRegKey = "" 
End If 
On Error Goto 0 
End Function 
Function CreateFolderPath(strPath) 
' Recursive function 
If g_fso.FolderExists(strPath) Then 
CreateFolderPath = True 
Exit Function 
End If 
' Check to see if we've reached the drive root 
If Right(strPath, 2) = ":\" Then 
CreateFolderPath = True 
Exit Function 
End If 
' None of the other two cases were successful, so attempt to create the 
' folder 
On Error Resume Next 
g_fso.CreateFolder strPath 
nError = Err.Number 
.NET PDF Document Viewing, Annotation, Conversion & Processing
Annotate & Comment. Add, insert PDF native annotations to PDF file. Print. Support for all the print modes in Acrobat PDF. Print only specified page ranges.
add page numbers to a pdf in preview; adding page numbers to pdf documents
C# PDF Converter Library SDK to convert PDF to other file formats
using other external third-party dependencies like Adobe Acrobat. to image or document, or from PDF document to other file formats, like multi-page TIFF file
add page to a pdf; adding page numbers to pdf in
A Guide to Using VBScript in SecureCRT 
111
© 2009-2010 VanDyke Software, Inc.
strErr = Err.Description 
On Error Goto 0 
If nError <> 0 Then 
' Error 76 = Path not found, meaning that the full path doesn't exist. 
' Call ourselves recursively until all the parent folders have been 
' created: 
If nError = 76 Then _ 
CreateFolderPath(g_fso.GetParentFolderName(strPath)) 
On Error Resume Next 
g_fso.CreateFolder strPath 
nError = Err.Number 
strErr = Err.Description 
On Error Goto 0 
' If the Error is not = 76, then we have to bail since we 
' no longer have any hope of successfully creating each folder in the 
' tree 
If nError <> 0 Then 
g_strLastError = strErr 
Exit Function 
End If 
End If 
CreateFolderPath = True 
End Function 
Function NormalizeNumber(nNumber) 
' Normalizes a single digit number to have a 0 in front of it 
Dim nIndex, nOffbyDigits, strResult, nDesiredDigits 
nDesiredDigits = 8 
nOffbyDigits = nDesiredDigits - Len(nNumber) 
strResult = nNumber 
For nIndex = 1 To nOffByDigits 
strResult = "0" & strResult 
Next 
NormalizeNumber = strResult 
End Function 
Function BrowseForFile(strTitle, strInitialDir) 
' Since Windows XP is the only OS on which the UserAccouts.CommonDialog 
Dim strOSName 
Set objWMIService = GetObject("winmgmts:" & _ 
"{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colSettings = _ 
objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem") 
For Each objOS In colSettings 
' Windows XP might look like this: 
strOsName = Split(objOS.Name, "|")(0) 
Exit For 
Next 
If Instr(strOSName, "Windows XP") = 0 Then 
' If not using Windows XP, we are limited in our ability to present 
C# powerpoint - PowerPoint Conversion & Rendering in C#.NET
without using other external third-party dependencies like Adobe Acrobat. PowerPoint to PDF Conversion. This page will tell you how to use XDoc.PowerPoint SDK
add page pdf reader; add page to pdf acrobat
C# Word - Word Conversion in C#.NET
independently, without using other external third-party dependencies like Adobe Acrobat. Word to PDF Conversion. This page will tell you how to use XDoc.Word
add and remove pages from a pdf; add page to pdf in preview
A Guide to Using VBScript in SecureCRT 
112
© 2009-2010 VanDyke Software, Inc.
' an adequate file browser dialog, so we'll just pop up an InputBox 
' asking for the path to the file. 
strFilePath = g_strHostsFile 
Do 
strFilePath = InputBox(strTitle, _ 
"SecureCRT Import Script", _ 
strFilePath) 
If strFilePath = "" Then Exit Function 
If g_fso.FileExists(strFilePath) Then Exit Do 
MsgBox "Path not found: " & vbcrlf & vbcrlf & vbtab & _ 
strFilePath & vbcrlf & vbcrlf & _ 
"Please specify a valid file path", _ 
vbOkOnly, _ 
"Import Data To SecureCRT Sessions" 
Loop 
BrowseForFile = strFilePath 
Else 
' Based on information obtained from 
' http://blogs.msdn.com/gstemp/archive/2004/02/17/74868.aspx 
' NOTE: Will only work with Windows XP since other OS's 
'       don't have a UserAccounts.CommonDialog ActiveX 
'       object registered. 
Dim objDialog 
Set objDialog = CreateObject("UserAccounts.CommonDialog") 
'Set objDialog = CreateObject("MSComDlg.CommonDialog") 
objDialog.Filter = "CSV Files|*.csv;Text Files|*.txt;All Files|*.*" 
objDialog.FilterIndex = 1 
objDialog.InitialDir = strInitialDir 
'objDialog.InitDir = g_strMyDocs 
'objDialog.MaxFileSize = 512 
If MsgBox(strTitle, _ 
vbOkCancel, _ 
"Import Data To SecureCRT Sessions") <> vbok Then 
Exit Function 
End If 
'objDialog.DialogTitle = strTitle 
'objDialog.CancelError = False 
objDialog.ShowOpen 
BrowseForFile = objDialog.FileName 
End If 
End Function 
VB.NET PDF: How to Create Watermark on PDF Document within
Using this VB.NET Imaging PDF Watermark Add-on, you image (such as business's logo) on any desired PDF page. And with our PDF Watermark Creator, users need no
add pages to pdf preview; add page number pdf
VB.NET PowerPoint: VB Code to Draw and Create Annotation on PPT
limitations (other documents are compatible, including PDF, TIFF, MS VB.NET PPT: VB Code to Add Embedded Image Object to PPT Page. '''&ltsummary> ''' Draw
adding page numbers to a pdf in reader; add pages to pdf in preview
A Guide to Using VBScript in SecureCRT 
113
© 2009-2010 VanDyke Software, Inc.
C
C
h
h
a
a
p
p
t
t
e
e
r
r
8
8
:
:
W
W
o
o
r
r
k
k
i
i
n
n
g
g
w
w
i
i
t
t
h
h
t
t
h
h
e
e
W
W
i
i
n
n
d
d
o
o
w
w
s
s
C
C
l
l
i
i
p
p
b
b
o
o
a
a
r
r
d
d
The ability to easily work with data from a variety of applications is often a "must have".  If you store 
commands, code, or configuration data within another application and need to frequently transfer 
portions of this information to a remote device using SecureCRT, the Clipboard object can be used to 
access text that has been copied to the Windows Clipboard. 
8
8
.
.
1
1
R
R
e
e
t
t
r
r
i
i
e
e
v
v
i
i
n
n
g
g
D
D
a
a
t
t
a
a
S
S
t
t
o
o
r
r
e
e
d
d
i
i
n
n
t
t
h
h
e
e
C
C
l
l
i
i
p
p
b
b
o
o
a
a
r
r
d
d
Retrieving data that another application has placed in the Windows Clipboard can be done within a 
SecureCRT script by using the crt.Clipboard.Text property.  Multiple lines of text are stored in 
the Windows Clipboard with a CRLF indicator separating each line.  Once you have a script 
variable containing the text found in the Windows Clipboard, you can modify it as needed to meet 
your needs and then send it to the remote system.  For an example, see the earlier solution script in 
section 5.3: Add "no" to Each Selected Line and Send to Remote
8
8
.
.
2
2
S
S
t
t
o
o
r
r
i
i
n
n
g
g
D
D
a
a
t
t
a
a
t
t
o
o
t
t
h
h
e
e
C
C
l
l
i
i
p
p
b
b
o
o
a
a
r
r
d
d
Sometimes you may want to transfer data from the SecureCRT terminal window to the Windows 
Clipboard for use in other applications.  Manually, this can be done using a variety of commonly-
known techniques: 
 Select the desired text with the mouse, then choose Copy from either the Edit menu or the 
right-click context menu. 
 Enable the Copy on select option in SecureCRT's global options.  With this option enabled, 
each time text is selected within SecureCRT's terminal window, it is automatically copied to 
the Windows Clipboard. 
 Select the desired text with the mouse, then use SecureCRT's Ctrl+Shift+C built-in 
shortcut key for copying data to the Windows Clipboard.  Alternatively, use the 
Ctrl+Insert to copy.  
Each of these manual methods of copying text from SecureCRT to the Windows Clipboard have 
their pros and cons.  But what if you want to extract text from a specific location on the screen from 
within a script, and place the information on the clipboard?  You can expand on the example earlier 
by placing the text found in a specific location on the screen directly within the Windows Clipboard.  
For example: 
' Extract data displayed on row 2, between columns 1 and 2 
nProcesses = crt.Screen.Get(2,1,2,2) 
' Extract data displayed on row 5, between columns 36 and 41 
nFreeMem = crt.Screen.Get(5,36,5,41) 
strData = "Processes:" & vbtab & nProcesses & vbcrlf & _ 
"Free Memory:" & vbtab & nFreeMem 
crt.Clipboard.Text = strData
   SSoolluuttiioonn::  AAuuttoo--SSaavvee  CCoommmmaanndd  RReessuullttss  ttoo  tthhee  CClliippbbooaarrdd  
What if you wanted to automatically have the results of each command placed in the Windows 
Clipboard, ready to paste into another application without needing to select the text?  Here's an 
C# Windows Viewer - Image and Document Conversion & Rendering in
standard image and document in .NET class applications independently, without using other external third-party dependencies like Adobe Acrobat. Convert to PDF.
add remove pages from pdf; add and delete pages in pdf online
BMP to PDF Converter | Convert Bitmap to PDF, Convert PDF to BMP
Also designed to be used add-on for .NET Image SDK, RasterEdge Bitmap Powerful image converter for Bitmap and PDF files; No need for Adobe Acrobat Reader &
add pages to pdf; adding page numbers to a pdf file
A Guide to Using VBScript in SecureCRT 
114
© 2009-2010 VanDyke Software, Inc.
example script solution that runs in the background, placing the results of each remote 
command within the Windows Clipboard: 
' StoreResultsOfLastCommandInWindowsClipboard.vbs 
'  
' Description: 
   - Determines what the shell prompt is. 
   - Enters a loop, continuously setting the Windows Clipboard to the 
     text of each command entered on the remote system. 
    
' Try not to miss any data 
crt.Screen.Synchronous = True 
' Also, don't capture escape sequences 
crt.Screen.IgnoreEscape = True 
Sub Main() 
If Not crt.Session.Connected Then 
crt.Dialog.MessageBox _ 
"This script requires an active connection to a remote machine." 
Exit Sub 
End If 
' Determine what the shell prompt is... 
If crt.Dialog.MessageBox( _ 
"Trying to determine what your shell prompt is..." & vbcrlf & _ 
vbcrlf & _ 
"Please press the ""OK"" button.  Then press the Enter " & vbcrlf & _ 
"key while at the shell prompt.", _ 
"SecureCRT Script: Determine Shell Prompt", _ 
vbOkCancel) <> vbOk Then Exit Sub 
crt.Screen.WaitForString vbcr 
Do     
' Attempt to detect the command prompt heuristically... 
Do 
bCursorMoved = crt.Screen.WaitForCursor(1) 
Loop Until bCursorMoved = False 
' Once the cursor has stopped moving for about a second, we'll 
' assume it's safe to start interacting with the remote system. 
' Get the shell prompt so that we can know what to look for when 
' determining if the command is completed. Won't work if the prompt 
nRow = crt.Screen.CurrentRow 
strPrompt = crt.screen.Get(nRow, _ 
0, _ 
nRow, _ 
crt.Screen.CurrentColumn - 1) 
' Loop until we actually see a line of text appear (the 
' timeout for WaitForCursor above might not be enough 
' for slower-responding hosts. 
strPrompt = Trim(strPrompt) 
If strPrompt <> "" Then Exit Do 
Loop 
' Determine what the shell prompt is... 
If crt.Dialog.MessageBox( _ 
"All set!" & vbcrlf & vbcrlf & _ 
"Your shell prompt was detected as being: """ & strPrompt & """" & _ 
vbcrlf & _ 
C# Excel - Excel Conversion & Rendering in C#.NET
independently, without using other external third-party dependencies like Adobe Acrobat. Excel to PDF Conversion. This page will tell you how to use XDoc.Excel
add document to pdf pages; adding page numbers pdf file
JPEG to PDF Converter | Convert JPEG to PDF, Convert PDF to JPEG
It can be used standalone. JPEG to PDF Converter is able to convert image files to PDF directly without the software Adobe Acrobat Reader for conversion.
add page numbers to pdf files; add pdf pages together
A Guide to Using VBScript in SecureCRT 
115
© 2009-2010 VanDyke Software, Inc.
vbcrlf & _ 
"While this script continues to run, the results of each command " & _ 
"you run will be stored" & vbcrlf & _ 
"in the Windows Clipboard." & vbcrlf & _ 
vbcrlf & _ 
"Note, however, that if your prompt includes your current " & _ 
"working directory and is" & vbcrlf & _ 
"dynamically updated, the change to your prompt will cause " & _ 
"this script to capture data" & vbcrlf & _ 
"up until you return to the working directory you were in when " & _ 
"the script was initially" & vbcrlf & _ 
"launched.", _ 
"SecureCRT Script: Clipboard Command Result Store Activated", _ 
vbOkCancel) <> vbOk Then Exit Sub 
' to appear. 
Do 
' First, wait for a command to be issued (if you want the command 
' you ran to be included above the results, comment out the 
' following line of code). 
crt.Screen.WaitForString vbcr 
' Now that we know a command has been sent to the remote, let's 
' use ReadString to capture everything that we receive from the 
' remote machine up until we see the prompt. 
strData = crt.Screen.ReadString(strPrompt) 
' Some devices like Cisco PIX return lines terminated by LFCR, 
' which is backwards from what Windows really needs in the 
' clipboard.  We'll look for these and simply replace them with 
' the correct CRLF sequence: 
strData = Replace(strData, vbcr, "") 
strData = Replace(strData, vblf, vbcrlf) 
' Now store the rectified data into the Windows Clipboard... 
crt.Clipboard.Text = strData 
Loop 
End Sub 
8
8
.
.
3
3
C
C
h
h
a
a
n
n
g
g
i
i
n
n
g
g
P
P
a
a
s
s
t
t
e
e
"
"
S
S
p
p
e
e
e
e
d
d
"
"
If you are a network administrator responsible for configuration of routers or switches, you might 
sometimes find you need to "slow" down pasting so that it doesn't overwhelm the remote device to 
which you are connected – especially if you're pasting a larger amount of text. 
S
S
o
o
l
l
u
u
t
t
i
i
o
o
n
n
:
:
S
S
l
l
o
o
w
w
P
P
a
a
s
s
t
t
e
e
(
(
L
L
i
i
n
n
e
e
D
D
e
e
l
l
a
a
y
y
)
)
One way to slow down the rate at which text is sent to a remote system is to introduce a delay 
after each line has been sent.  Some SecureCRT users reading this would be right in thinking, 
"This sounds familiar…" because SecureCRT sports a session option named "Line send delay" 
that is intended specifically for this purpose (see the Terminal / Emulation / Advanced 
category of the Session Options dialog).  Although this option is a welcome benefit when 
manually pasting large amounts of text, the Line send delay and Character send delay 
options do not apply when sending data via crt.Screen.Send within a SecureCRT script.  
You'll likely need to experiment with the amount of time required for "sleeping" between each 
line to match the needs of the remote device.  Try this script out by defining a button
to run a 
script file containing the following code: 
A Guide to Using VBScript in SecureCRT 
116
© 2009-2010 VanDyke Software, Inc.
' SlowPaste-LineDelay.vbs 
' Description: 
  Demonstrates how to send each line within the Windows Clipboard 
  to a remote host after introducing a delay after each line 
  is sent.  This is one approach to prevent overwhelming a remote 
  host that cannot accept data as fast as SecureCRT normally sends 
  it. 
' a delay between each line being sent to the remote host.  You'll 
' out which one provides the best balance between performance and over- 
' whelming the remote host. 
g_nDelay = 300 
Sub Main() 
' If there isn't an active connection, there's no point in continuing 
' since we can't send data. 
If Not crt.Session.Connected Then 
crt.Dialog.MessageBox "Sending data requires an active connection." 
Exit Sub 
End If 
' If there isn't anything in the Windows Clipboard, it doesn't make any 
' sense to continue with the script.  Note that we're checking for 
' vbcrlf here, since an empty clipboard will only contain a trailing 
' CRLF sequence. 
If Trim(crt.Clipboard.Text) = vbcrlf Then 
crt.Dialog.MessageBox "No text found in the Windows Clipboard." 
Exit Sub 
End If 
vLines = Split(crt.Clipboard.Text, vbcrlf) 
' after each line is sent. 
For Each strLine In vLines 
' The vbcr is needed to simulate pressing the Enter key since we 
' lost the line ending vbcr during the above Split operation. 
crt.Screen.Send strLine & vbcr 
crt.Sleep g_nDelay 
Next 
' Inform that the data has all been sent. 
crt.Dialog.MessageBox _ 
"All data in the Windows Clipboard has been sent to the remote." 
End Sub 
S
S
o
o
l
l
u
u
t
t
i
i
o
o
n
n
:
:
S
S
l
l
o
o
w
w
P
P
a
a
s
s
t
t
e
e
(
(
E
E
c
c
h
h
o
o
D
D
e
e
l
l
a
a
y
y
)
)
Another way to slow down the rate at which data is sent to the remote is to introduce a 
WaitForString() call right after sending a line, waiting for the remote to echo the line back 
(indication that the remote has received the data, and is ready for the next line).  Depending on 
the latency of the connection between SecureCRT and the remote device, this may be slower 
than desired since it takes time for the remote to echo data back to SecureCRT.  A modification 
A Guide to Using VBScript in SecureCRT 
117
© 2009-2010 VanDyke Software, Inc.
could be to only wait for each third line or fifth line to appear from the remote.  Give this example 
a spin by defining a button
to run a script file containing the following code: 
' SlowPaste-EchoDelay.vbs 
' Description: 
Sub Main() 
' If there isn't an active connection, there's no point in continuing 
' since we can't send data. 
If Not crt.Session.Connected Then 
crt.Dialog.MessageBox "Sending data requires an active connection." 
Exit Sub 
End If 
' If there isn't anything in the Windows Clipboard, it doesn't make any 
' sense to continue with the script.  Note that we're checking for 
' vbcrlf here, since an empty clipboard will only contain a trailing 
' CRLF sequence. 
If Trim(crt.Clipboard.Text) = vbcrlf Then 
crt.Dialog.MessageBox "No text found in the Windows Clipboard." 
Exit Sub 
End If 
vLines = Split(crt.Clipboard.Text, vbcrlf) 
' Enter a loop, sending a line, and then waiting for the line to be 
' echoed back to us from the remote, before the next line is sent. 
For Each strLine In vLines 
' The vbcr is needed to simulate pressing the Enter key since we 
' lost the line ending vbcr during the above Split operation. 
crt.Screen.Send strLine & vbcr 
' Now, wait for the remote to echo what we just sent 
crt.Screen.WaitForString strLine 
Next 
' Inform that the data has all been sent. 
crt.Dialog.MessageBox _ 
"All data in the Windows Clipboard has been sent to the remote." 
End Sub
   SSoolluuttiioonn::  VVaarryy  PPaassttee  SSppeeeedd  BBaasseedd  oonn  CClliippbbooaarrdd  LLeennggtthh  
Another approach would be to send the data to the remote without delay if the amount of text 
detected in the Windows Clipboard is below a certain threshold, say, 500 characters.  The 
following example solution demonstrates how to detect the number of characters currently 
stored in the Windows Clipboard before deciding whether or not to invoke a delayed send. 
' DelayPasteIfClipboardLengthExceedsThreshold.vbs 
' Description: 
  Demonstrates how to send each line within the Windows Clipboard 
  to a remote host after introducing a delay after each line 
A Guide to Using VBScript in SecureCRT 
118
© 2009-2010 VanDyke Software, Inc.
  a certain length.  This is another approach to prevent overwhelming 
  a remote host that cannot accept data as fast as SecureCRT normally 
  sends it. 
'  
' that, if exceeded, will cause the paste operation to be slowed down. 
g_nClipboardLengthThreshold = 500 
' a delay between each line being sent to the remote host.  You'll 
' out which one provides the best balance between performance and over- 
' whelming the remote host: 
g_nDelay = 300 
Sub Main() 
' If there isn't an active connection, there's no point in continuing 
' since we can't send data. 
If Not crt.Session.Connected Then 
crt.Dialog.MessageBox "Sending data requires an active connection." 
Exit Sub 
End If 
' If there isn't anything in the Windows Clipboard, it doesn't make any 
' sense to continue with the script.  Note that we're checking for 
' vbcrlf here, since an empty clipboard will only contain a trailing 
' CRLF sequence. 
If Trim(crt.Clipboard.Text) = vbcrlf Then 
crt.Dialog.MessageBox "No text found in the Windows Clipboard." 
Exit Sub 
End If 
' threshold 
If Len(crt.Clipboard.Text) > g_nClipboardLengthThreshold Then 
vLines = Split(crt.Clipboard.Text, vbcrlf) 
' after each line is sent. 
For Each strLine In vLines 
' The vbcr is needed to simulate pressing the Enter key since we 
' lost the line ending vbcr during the above Split operation. 
crt.Screen.Send strLine & vbcr 
crt.Sleep g_nDelay 
Next 
' Inform that the data has all been sent. 
crt.Dialog.MessageBox _ 
"All data in the Windows Clipboard has been sent to the remote." 
Else 
crt.Screen.SendSpecial "MENU_PASTE" 
End If 
End Sub 
8
8
.
.
4
4
S
S
e
e
t
t
t
t
i
i
n
n
g
g
t
t
h
h
e
e
C
C
l
l
i
i
p
p
b
b
o
o
a
a
r
r
d
d
T
T
e
e
x
x
t
t
F
F
o
o
r
r
m
m
a
a
t
t
(
(
E
E
n
n
c
c
o
o
d
d
i
i
n
n
g
g
)
)
If you copy text from a Microsoft Office application or from a web page, you may notice that certain 
characters are not displayed correctly when the Clipboard contents are pasted to the remote 
Documents you may be interested
Documents you may be interested