Jump to content

Recommended Posts

Posted

hi all. i want to automate the remote connection to a PC using VNC. i just wanted to hide every window or prevents any VNC window to show when i execute the VNC command. i will be doing a control click and i want all of these to be hidden. i just want to show a progressbar till my connection is successful. here is what i have...

when i execute the VNC command, window VNC Authentication appears and i want this to hide...any way how will i do this?

#include <WinAPI.au3>
Global $VNC_Path = "C:\Program Files\RealVNC\VNC4\vncviewer.exe "
Global $VNC_Dir = "C:\Program Files\RealVNC\VNC4\"
Local $wait
                $host = "192.168.1.5"
    AutoItSetOption("WinDetectHiddenText", 1)
    AutoItSetOption("WinTitleMatchMode", 2) 
While 1
$ping = Ping($host)                     
                        If $ping Then
                                        
                            ProgressOn("Remote", "Connecting to PC", "")
                            $wait = WinWait("VNC Authentication", "Username", 1)                            
                            $vnc = Run($VNC_Path & $host, VNC_Dir)
                            
                            _WinAPI_ShowWindow($vnc, @SW_HIDE)
                                                _WinAPI_ShowWindow($wait, @SW_HIDE)
                                               ProgressSet(50, "50 Percent", "Connecting")
                                                                       ControlSetText("VNC Authentication:", "Username", "[CLASS:Edit; INSTANCE:1]", "user")
                                                                       ControlSetText("VNC Authentication:", "Username", "[CLASS:Edit; INSTANCE:2]", "pass")
                                                                        ProgressSet(90, "90 Percent", "Connecting")
                                                                        ControlClick("VNC Authentication:", "Username", "[CLASS:Button; INSTANCE:1]")
                                                                        ProgressSet(100, "Done", "Connected!")
                                               Sleep(600)
                                           ProgressOff()
                                                               Else
                                                                       Msgbox(16,"Status","Could not connect. Host PC is offline.")
                                                               EndIf
Wend

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...