pradeep,krishna has asked for the wisdom of the Perl Monks concerning the following question:
Hi monks...
I have used bellow code to open the server connection through 'Remote Desktop Connection'.
use Win32::GuiTest qw(FindWindowLike WaitWindow WMSetText PushChildBut +ton GetFocus SetFocus); system('"start %windir%\system32\mstsc.exe"'); $Win32::GuiTest::debug = 0; $c=WaitWindow("Remote Desktop Connection",$max_Sleep_time); @windows = FindWindowLike(0, "Remote Desktop Connection"); for (@windows) { $fc_hwnd = GetFocus( $_ ); PushChildButton ($_,Options); SetFocus($fc_hwnd); $set1 = WMSetText($fc_hwnd,"Servername"); $set2 = WMSetText($fc_hwnd+2,"USER_Name"); } sleep(5); PushChildButton( $_, "Co&nnect");
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: How to set text to text boxes?
by bulk88 (Priest) on Feb 11, 2014 at 07:04 UTC | |
|
Re: How to set text to text boxes?
by jellisii2 (Hermit) on Feb 11, 2014 at 13:05 UTC |