Rdp interaction - (Moved)

[Kr4mer]

Hi everyone,

I am able to open rdp session using some script example I found out in forum .

After first login I have to enter the credentials again

Is there any way to set this textbox with the user and password and finally interact with the remote desktop icons?

I appreciate examples related 

 

many thanks

[argumentum]

..go search in YouTube. It will be the best way for you to understand how it works.
This is not an AutoIt issue. Is an user issue.

[Kr4mer]

Hi there,

 

Im trying to reach out some rdp control by using autoIT but I dont see anything related in youtube .My question is there any way to interact with the remote desktop shortcuts and so on?

Is there any example that you could share with me?

 

Thanks

[argumentum]

2 hours ago, Kr4mer said:

is there any way to interact with the remote desktop shortcuts

In your PC or the remote PC ?

I don't really understand the question. If you were to pour your heart out and explain your circumstance and your need.. .
Also, how long have you coded for ( just to have an idea of where to start from ).

[Kr4mer]

Actually, I'm starting off using this tool and learning the code following the help guide, I'm able to make the RDP connection (I have used the example code

 

 

And now I'm here in this view I would like to click enter (or moving the cursor to OK button) 

 

And Finally enter the user/pass again in order to access remote desktop and click there some icons

I'm trying to reach out this window using this code:

Local $hWnd = WinWait("[CLASS:TscShellContainerClass]", "XXX.XX.XX.XXX - Remote Desktop Connection", 10)
          ControlClick($hWnd, "", "OPContainerClass")

And I'm using the AutoIT window info to get controls info:

 

 I'm not really sure if is possible to do something like that with this tool.Any idea suggested?

 

Thanks

 

 

[Jos]

Moved to the appropriate forum, as the Developer General Discussion forum very clearly states:

Quote

General development and scripting discussions.

---

Do not create AutoIt-related topics here, use the AutoIt General Help and Support or AutoIt Technical Discussion forums.

Moderation Team

[robertocm]

On 7/22/2020 at 6:51 PM, Kr4mer said:

I appreciate examples related

expandcollapse popup

#include <Timers.au3>

Opt('WinWaitDelay', 250)
Opt('WinDetectHiddenText', 1)
Opt('MouseCoordMode', 0)
Opt("WinTitleMatchMode", 1) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase

Opt("MustDeclareVars", 1)

;Check innactive user
;https://stackoverflow.com/questions/3867584/autoit-how-to-get-system-idle-time-or-if-screensaver-is-active
;How to get system idle time, or if screensaver is active?
;The _Timer_GetIdleTime() function uses GetLastInputInfo from user32.dll.
Global $Sair, $iLimit = 120 ; idle limit in seconds  (5 segundos)
If _Timer_GetIdleTime() > $iLimit * 1000 Then
   ;MsgBox(0, "", "Continue >>")
Else
   ;HotKeySet("ç", "_Quit")
   AdlibRegister("_CheckIdleTime", 1000)
   While 1 ;use infinite loop since ExitLoop will get called
      If $Sair = True Then
         ;ConsoleWrite("Fin")
         ExitLoop
      EndIf
      Sleep(1000)
   WEnd
   ;Outra forma
   ;Do
      ;Sleep(1000)
   ;Until $Sair = True
EndIf

;it could help
Send("{DOWN}")
Sleep(20000)
MouseMove(10, 100)

If Not WinExists("XX.X.X.XX - Conexión a Escritorio remoto") Then
   ;https://www.autoitscript.com/forum/topic/97501-auto-mstsc/
   ;RunWait('"' & @ComSpec & '" /c MSTSC.EXE C:/yourfile.rdp', '', @SW_HIDE)
   ;http://support.microsoft.com/kb/941641
   Run("C:\windows\system32\mstsc.exe /v:" & "XX.X.X.XX")

   ;~ ;Wait 90 seconds for the window to appear.
   Local $hWnd = WinWait("XX.X.X.X - Conexión a Escritorio remoto", "", 90)
   ;WinActivate($hWnd)
   ;WinWaitActive($hWnd, "", 60)
Else
   Local $hWnd = WinActivate("XX.X.X.XX - Conexión a Escritorio remoto")
   WinWaitActive($hWnd, "", 90)
   WinSetState($hWnd, "", @SW_MAXIMIZE)
EndIf
Sleep(5000)

;Test if the window is now activated
;You can use the WinActive() function to check if WinActivate() succeeded.
If WinActive($hWnd, "") Then
   ;WinSetState($hWnd, "", @SW_MAXIMIZE)
   ;MsgBox(0, "", "Window NOW active")

   Sleep(25000)
   ;Command line
   Send ("#r")
   Sleep(1000)
   Send("_some_command_")

Else
   ;MsgBox(0, "Error", "Window not active")
   ;Local $hActive = WinGetHandle("[active]")
   ;Local $sTitle = WinGetTitle("[active]")
   ;MsgBox(0, "Error", $sTitle)
EndIf

Func _CheckIdleTime()
   If _Timer_GetIdleTime() > $iLimit * 1000 Then
      ;AdLib functions don't run while a blocking function is shown e.g. MsgBox, InputBox, WinWait, WinWaitClose etc.
      ;MsgBox(16, "Timeout", "You haven't done anything in " & $iLimit & " seconds...  Get busy!")
      $Sair = True
      AdlibUnRegister("_CheckIdleTime")
   EndIf
EndFunc

 

[argumentum]

10 hours ago, Kr4mer said:

here in this view I would like to click enter

As a full screen you may not but as a window ( by moving the window ), maybe you can then click at x,y .
As far as code, I did some RDP code here in the forum. Look at my signature.
 

[Kr4mer]

I am able set the text using Send function but I have some problems seems with keyboard layout

when I try send a password like this Tfr*~afr using Send but the input sent is all chars in lowcase and special chars wrong.I have tried to set different keyboard layout and set Raw option=1 with same result.This issue happens in RDP textbox windows not in my local apps (In Notepad works ok).

Even I can´t access to RDP textbox using the details from AutoIt Windows Info:

 

I also tried what I found out in other related post, but doesn´t work. Is there any way to send exactly text to RDP inputs?

 

thanks for your help

[argumentum]

 

7 hours ago, Kr4mer said:

I can´t access to RDP textbox using the details from AutoIt Windows Info

Well, what you have as info is true. You are working with an image of sorts. The CLASS:TscShellContainerClass has the image. ( for all intent and purpose )

 

7 hours ago, Kr4mer said:

special chars wrong

Use Chr() to send the data. Try this out:

WinActivate("[CLASS:TscShellContainerClass]")
ASCII_TEST()
Func ASCII_TEST()
    For $n = 128 To 254
        Send( $n & @TAB & Chr($n) & @CRLF , 1)
        Sleep(1)
    Next
EndFunc

With notepad as the active window, you'll see what character you need. Use those as a translator. 

Edit: Using _WinAPI_OemToChar()  may solve the problem  

Edited July 26, 2020 by argumentum

[Kr4mer]

Hi there,

I'm still stuck with this.I'm able to send the text exactly to Notepad (using Chr) but trying to replicated into RDP inputs unsuccessfully.

What is the correct way to manage TscShellContainerClass? I'm trying to send the text using ControlSend but I don't have any ControlID to do that.

Or is there any other alternative to interact with RDP input windows?

 

Thanks

[argumentum]

This worked from WinXP to Win10:

#include <WinAPIConv.au3>
If Not WinWait("[CLASS:TscShellContainerClass]", "", 60) Then Exit 3
Sleep(5000) ; ..give it time to draw the remote
WinActivate("[CLASS:TscShellContainerClass]")
Send("user" , 1)
Send(@TAB , 1)
Send("pass" , 1)
Send("{ENTER}")

Since you can not send to a control, you'll have to do it all via keyboard.
It worked for me. Let me know if this solved it.
There no other way that I can think of, if mstsc.exe file.rdp don't work due to the "corporate announcement". 

[Kr4mer]

Actually that works properly even only using Send() function even thought the real problem  is regarding password.

Password changes every 24hrs and uses special chars, I'm able to write the password in Notepad but i can't put the password exactly on RDP password input, the

script puts other characters.For instance:

notepad:Tfr*~afrMDA-FIQDstDTPDCXMQQv3Z

RDP password input:tfrmda;-FIQDstDTPDCXMQQv3Z 

It has not sense, even I have tried to change other keyboard language and also your other suggestion

 

 

[mLipok]

You should login to this system by hand. 

Change security setting to not using password and then your problem will gone. 

[argumentum]

So there are 2 issues:
1) aim to the proper control by using the keyboard ( Ctrl-A, Tab, etc. )
2) send the characters ( using _WinAPI_OemToChar() or your own Chr() or ChrW() mapping )

If you have (1) done, (2) is a matter of creating a translation, held in an array maybe. The mapping of your local char. to the remote, is something to discover by trial and error I guess. Maybe the notepad is not the one. Try using MSWord. Maybe the remote input uses Unicode instead of ASCII or go figure.

In any case, this is all I can come up with and know of no other way to go at it

2 minutes ago, mLipok said:

You should login to this system by hand.

Yes, that too. If corporate is making it difficult and you with little experience in coding going at it, ...be very careful to not open doors for unexpected actors !
Admins are not bad people ( I'm not ), and admins do what is needed so people don't say "oops, I didn't know that".

Anyway. Don't do too many fail attempts. The Admin could report the activity to the boss.

 

[robertocm]

2 hours ago, argumentum said:

Maybe the notepad is not the one. Try using MSWord

Another idea just for testing:

https://stackoverflow.com/a/22348546/6406135

Quote

katalin_2003

Another way of doing this, in Windows, is by using wordpad.exe:

1. Run wordpad.exe
2. Write your script as you usually do, with accents
3. Choose Save as > Other formats
4. Choose to save it as Text document MS-DOS (*.txt)
5. Change the file extension from .txt to .bat

---

[...] it converts the character codes from ANSI to DOS. – user6017774

 

Another reference for ideas:

https://ss64.org/viewtopic.php?id=2051

Quote

bluesxman

This a hacky way to do it that I use occasionaly. Paste something like this directly into the cmd window -- don't run it as a script, for (hopefully) obvious reasons:

for %X in (a-acc:á e-acc:é i-acc:í o-acc:ó u-acc:ú u:uml:ü n-til:ñ) do (@echo:%X) >> international.txt

Open the resulting file in notepad or similar, then copy and paste the "actual" characters to your script in the appropriate places (they'll look wrong in the editor, but should be OK when you run the script).

 

 

Edited July 27, 2020 by robertocm

[Kr4mer]

Ok, now the script open RDP properly,Second task is launch some application in RDP desktop, I'm trying use ShellExecuteWait("notepad.exe") and  Run("notepad.exe") but it works in my local desktop not in RDP window.

How can launch the applications in RDP?

 

Thanks

[robertocm]

13 minutes ago, Kr4mer said:

How can launch the applications in RDP?

Try:

Sleep(5000)
Send ("#r")
Sleep(1000)
Send("notepad.exe")

If you can save (and execute) compiled scripts in the server:

• Try to start the compiled script with the "#r" "method" (you can pass parameters in the same command line)
• Place all the functions in the compiled script saved in the server (not interacting from the local script)
• A created file in a shared folder can be used as a "semaphore" to coordinate both scripts (local and remote)
• Be very careful with functions used in remote scripts (screen captures or proccess functions can report false positives)

 

Edited July 29, 2020 by robertocm