Jump to content

Recommended Posts

Posted

Looks good, I did something similar in AutoIT a while back, mine is not as dynamic as yours though...

Good luck with it.... :D

 

 

; AutoIt Version: 3.10

; Language: English

; Platform: WinXP

; Author: Matt Marsh

; Script Function: Launches Combo Box to select PC to VNC.

; Version: 1 BETA

 

#include

 

GUICreate("Select PC", 155, 66, (@DesktopWidth - 155) / 2, (@DesktopHeight - 66) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

 

$Combo_1 = GUICtrlCreateCombo("", 20, 10, 120, 21)

GUICtrlSetData(-1, "|MBADMIN01|MBADMIN02|MBADMIN03|MBLIBE|MBLIBW|MBSRE|MBSRW|MBSMT01|MBSMT02|MBSN01|MBSN02|MBSN03|MBSN04|PPLIBBOARD|PPSQ|PPRB

|PPTT|PPWL|PPBG|PPEG|PPSR|JB01|JB02|JB03|JB04|JB05|JB06|JB07|JB08|JBSR|LAB01|LAB02|GEOGBOARD|MATHOFFICE|MATHSBOARD|LATBOARD

|FREBOARD|ENGBOARD|HISTBOARD|ITBOARD|DT01|MUSIC01|MUSIC02|JUKEBOX|TIM98|CHERYL98|MATT2000|GATEWAY", "82.44.241.82")

$ok = GUICtrlCreateButton("Select", 40, 40, 80, 20)

GUISetState()

While 1

$msg = GUIGetMsg()

Select

Case $msg = $ok

Run('C:\Program Files\RealVNC\VNC4\vncviewer.exe')

WinWait("VNC Viewer : Connection Details")

Send( GUICtrlRead($Combo_1))

Send("{TAB 3}")

Send("{ENTER}")

Case WinExists("VNC Viewer : Authentication [No Encryption]")

Send("PASSWORD{ENTER}")

Exit

Case WinExists("VNC Viewer : Authentication [128-bit AES Encryption]")

Send("PASSWORD{ENTER}")

Exit

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

Case Else

EndSelect

WEnd

Exit

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...