返回列表 发帖
支持一下,功能不是很完善

TOP

哈哈 支持啦

不过觉得 绿色版本不错的

TOP

;MSTSC("192.168.1.1","20250","administrator","123456","800","600","1","15","选") ;自动连接远程桌面
;MSTSC("IP","端口","账号","密码","宽度","高度","全屏","颜色","会话") ;自动连接远程桌面

Func MSTSC($IP_MSTSC,$TCP_MSTSC,$ID_MSTSC,$MM_MSTSC,$W_MSTSC,$H_MSTSC,$QUANPING_MSTSC,$YANSE_MSTSC,$HUIHUA_MSTSC) ;自动连接远程桌面
                FileDelete(@ScriptDir &"\Default.rdp")        ;删除一个或多个文件.
                $rdp = _
                'screen mode id:i:'& $QUANPING_MSTSC & '                        '                                                        & @CRLF & _                ;窗口=1                全屏=0
                'desktopwidth:i:' & $W_MSTSC & '                                        '                                                        & @CRLF & _                ;宽度
                'desktopheight:i:'& $H_MSTSC & '                                        '                                                        & @CRLF & _                ;高度
                'session bpp:i:' & $YANSE_MSTSC &'                                        '                                                        & @CRLF & _                ;颜色
                'winposstr:s:2,3,612,172,1412,772'                                                                                                & @CRLF & _
                'compression:i:1'                                                                                                                                & @CRLF & _
                'keyboardhook:i:2'                                                                                                                                & @CRLF & _
                'displayconnectionbar:i:1'                                                                                                                & @CRLF & _
                'disable wallpaper:i:1'                                                                                                                        & @CRLF & _
                'disable full window drag:i:1'                                                                                                        & @CRLF & _
                'allow desktop composition:i:0'                                                                                                        & @CRLF & _
                'allow font smoothing:i:0'                                                                                                                & @CRLF & _
                'disable menu anims:i:1'                                                                                                                & @CRLF & _
                'disable themes:i:1'                                                                                                                        & @CRLF & _
                'disable cursor setting:i:0'                                                                                                        & @CRLF & _
                'bitmapcachepersistenable:i:0'                                                                                                        & @CRLF & _
                'full address:s:' & $IP_MSTSC & ':' & $TCP_MSTSC & ''                                                        & @CRLF & _                ;主机IP:端口'        
                'audiomode:i:1        '                                                                                                                                & @CRLF & _                ;带到这台计算机=0        留在远程计算机=1
                'redirectprinters:i:0'                                                                                                                        & @CRLF & _
                'redirectcomports:i:0'                                                                                                                        & @CRLF & _
                'redirectsmartcards:i:0'                                                                                                                & @CRLF & _
                'redirectclipboard:i:1'                                                                                                                        & @CRLF & _
                'redirectposdevices:i:0'                                                                                                                & @CRLF & _
                'drivestoredirect:s:                '                                                                                                        & @CRLF & _                ;全盘=*                不选=留空
                'autoreconnection enabled:i:1'                                                                                                        & @CRLF & _
                'authentication level:i:0'                                                                                                                & @CRLF & _
                'prompt for credentials:i:0'                                                                                                        & @CRLF & _
                'negotiate security layer:i:1'                                                                                                        & @CRLF & _
                'remoteapplicationmode:i:0'                                                                                                                & @CRLF & _
                'alternate shell:s:'                                                                                                                        & @CRLF & _
                'shell working directory:s:'                                                                                                        & @CRLF & _
                'gatewayhostname:s:'                                                                                                                        & @CRLF & _
                'gatewayusagemethod:i:4'                                                                                                                & @CRLF & _
                'gatewaycredentialssource:i:4'                                                                                                        & @CRLF & _
                'gatewayprofileusagemethod:i:0'                                                                                                        & @CRLF & _
                'promptcredentialonce:i:1'                                                                                                                & @CRLF & _
                'username:s:' & $ID_MSTSC &        ''                                                                                                        & @CRLF & _                ;计算机名'
                ' '
               
                FileWriteLine(@ScriptDir &"\Default.rdp",$rdp)                ;向此前已打开的文本文件尾追加一行数据.


                If $HUIHUA_MSTSC = "选" Then        ;判断会话
                        ;存在
                        run('mstsc /ADMIN /edit "Default.rdp" ')
                Else
                        ;不存在
                        run('mstsc /edit "Default.rdp" ')
                EndIf

                Opt("MouseCoordMode", 0)
               
                $title ="远程桌面连接"        ;窗口标题
                $text =""        ;窗口文本
                WinWait($title,$text,5)
                If Not WinActive($title,$text) Then WinActivate($title,$text)
                WinWaitActive($title,$text,5)
                Send("{ALTDOWN}R{ALTUP}")
                ControlCommand  ($title,$text, "Button3","Check")        ;向指定控件发送命令.
                ControlCommand  ($title,$text, "Button12","Check")        ;向指定控件发送命令.
               
                $title ="远程桌面连接"        ;窗口标题
                $text ="请输入"        ;窗口文本
                WinWait($title,$text,5)
                If Not WinActive($title,$text) Then WinActivate($title,$text)
                WinWaitActive($title,$text,10)
                Send("{ALTDOWN}R{ALTUP}")
                ControlCommand   ($title,$text, "Button2","UnCheck")        ;向指定控件发送命令. 使目标按钮(复选框/单选框)变为非选中状态.
                ControlSetText($title,$text, "Edit2", $ID_MSTSC )        ;修改指定控件的文本.        账号
                ControlSetText($title,$text, "Edit3", $MM_MSTSC )        ;修改指定控件的文本.        密码
                ControlCommand  ($title,$text, "Button3","Check")        ;向指定控件发送命令.
               
                FileDelete(@ScriptDir &"\Default.rdp")        ;删除一个或多个文件.

EndFunc   ;==>MSTSC;MSTSC("192.168.1.1","20250","administrator","123456","800","600","1","15","选") ;自动连接远程桌面
;MSTSC("IP","端口","账号","密码","宽度","高度","全屏","颜色","会话") ;自动连接远程桌面

Func MSTSC($IP_MSTSC,$TCP_MSTSC,$ID_MSTSC,$MM_MSTSC,$W_MSTSC,$H_MSTSC,$QUANPING_MSTSC,$YANSE_MSTSC,$HUIHUA_MSTSC) ;自动连接远程桌面
                FileDelete(@ScriptDir &"\Default.rdp")        ;删除一个或多个文件.
                $rdp = _
                'screen mode id:i:'& $QUANPING_MSTSC & '                        '                                                        & @CRLF & _                ;窗口=1                全屏=0
                'desktopwidth:i:' & $W_MSTSC & '                                        '                                                        & @CRLF & _                ;宽度
                'desktopheight:i:'& $H_MSTSC & '                                        '                                                        & @CRLF & _                ;高度
                'session bpp:i:' & $YANSE_MSTSC &'                                        '                                                        & @CRLF & _                ;颜色
                'winposstr:s:2,3,612,172,1412,772'                                                                                                & @CRLF & _
                'compression:i:1'                                                                                                                                & @CRLF & _
                'keyboardhook:i:2'                                                                                                                                & @CRLF & _
                'displayconnectionbar:i:1'                                                                                                                & @CRLF & _
                'disable wallpaper:i:1'                                                                                                                        & @CRLF & _
                'disable full window drag:i:1'                                                                                                        & @CRLF & _
                'allow desktop composition:i:0'                                                                                                        & @CRLF & _
                'allow font smoothing:i:0'                                                                                                                & @CRLF & _
                'disable menu anims:i:1'                                                                                                                & @CRLF & _
                'disable themes:i:1'                                                                                                                        & @CRLF & _
                'disable cursor setting:i:0'                                                                                                        & @CRLF & _
                'bitmapcachepersistenable:i:0'                                                                                                        & @CRLF & _
                'full address:s:' & $IP_MSTSC & ':' & $TCP_MSTSC & ''                                                        & @CRLF & _                ;主机IP:端口'        
                'audiomode:i:1        '                                                                                                                                & @CRLF & _                ;带到这台计算机=0        留在远程计算机=1
                'redirectprinters:i:0'                                                                                                                        & @CRLF & _
                'redirectcomports:i:0'                                                                                                                        & @CRLF & _
                'redirectsmartcards:i:0'                                                                                                                & @CRLF & _
                'redirectclipboard:i:1'                                                                                                                        & @CRLF & _
                'redirectposdevices:i:0'                                                                                                                & @CRLF & _
                'drivestoredirect:s:                '                                                                                                        & @CRLF & _                ;全盘=*                不选=留空
                'autoreconnection enabled:i:1'                                                                                                        & @CRLF & _
                'authentication level:i:0'                                                                                                                & @CRLF & _
                'prompt for credentials:i:0'                                                                                                        & @CRLF & _
                'negotiate security layer:i:1'                                                                                                        & @CRLF & _
                'remoteapplicationmode:i:0'                                                                                                                & @CRLF & _
                'alternate shell:s:'                                                                                                                        & @CRLF & _
                'shell working directory:s:'                                                                                                        & @CRLF & _
                'gatewayhostname:s:'                                                                                                                        & @CRLF & _
                'gatewayusagemethod:i:4'                                                                                                                & @CRLF & _
                'gatewaycredentialssource:i:4'                                                                                                        & @CRLF & _
                'gatewayprofileusagemethod:i:0'                                                                                                        & @CRLF & _
                'promptcredentialonce:i:1'                                                                                                                & @CRLF & _
                'username:s:' & $ID_MSTSC &        ''                                                                                                        & @CRLF & _                ;计算机名'
                ' '
               
                FileWriteLine(@ScriptDir &"\Default.rdp",$rdp)                ;向此前已打开的文本文件尾追加一行数据.


                If $HUIHUA_MSTSC = "选" Then        ;判断会话
                        ;存在
                        run('mstsc /ADMIN /edit "Default.rdp" ')
                Else
                        ;不存在
                        run('mstsc /edit "Default.rdp" ')
                EndIf

                Opt("MouseCoordMode", 0)
               
                $title ="远程桌面连接"        ;窗口标题
                $text =""        ;窗口文本
                WinWait($title,$text,5)
                If Not WinActive($title,$text) Then WinActivate($title,$text)
                WinWaitActive($title,$text,5)
                Send("{ALTDOWN}R{ALTUP}")
                ControlCommand  ($title,$text, "Button3","Check")        ;向指定控件发送命令.
                ControlCommand  ($title,$text, "Button12","Check")        ;向指定控件发送命令.
               
                $title ="远程桌面连接"        ;窗口标题
                $text ="请输入"        ;窗口文本
                WinWait($title,$text,5)
                If Not WinActive($title,$text) Then WinActivate($title,$text)
                WinWaitActive($title,$text,10)
                Send("{ALTDOWN}R{ALTUP}")
                ControlCommand   ($title,$text, "Button2","UnCheck")        ;向指定控件发送命令. 使目标按钮(复选框/单选框)变为非选中状态.
                ControlSetText($title,$text, "Edit2", $ID_MSTSC )        ;修改指定控件的文本.        账号
                ControlSetText($title,$text, "Edit3", $MM_MSTSC )        ;修改指定控件的文本.        密码
                ControlCommand  ($title,$text, "Button3","Check")        ;向指定控件发送命令.
               
                FileDelete(@ScriptDir &"\Default.rdp")        ;删除一个或多个文件.

EndFunc   ;==>MSTSC

TOP

;MSTSC("192.168.1.1","20250","administrator","123456","800","600","1","15","选") ;自动连接远程桌面
;MSTSC("IP","端口","账号","密码","宽度","高度","全屏","颜色","会话") ;自动连接远程桌面

Func MSTSC($IP_MSTSC,$TCP_MSTSC,$ID_MSTSC,$MM_MSTSC,$W_MSTSC,$H_MSTSC,$QUANPING_MSTSC,$YANSE_MSTSC,$HUIHUA_MSTSC) ;自动连接远程桌面
                FileDelete(@ScriptDir &"\Default.rdp")        ;删除一个或多个文件.
                $rdp = _
                'screen mode id:i:'& $QUANPING_MSTSC & '                        '                                                        & @CRLF & _                ;窗口=1                全屏=0
                'desktopwidth:i:' & $W_MSTSC & '                                        '                                                        & @CRLF & _                ;宽度
                'desktopheight:i:'& $H_MSTSC & '                                        '                                                        & @CRLF & _                ;高度
                'session bpp:i:' & $YANSE_MSTSC &'                                        '                                                        & @CRLF & _                ;颜色
                'winposstr:s:2,3,612,172,1412,772'                                                                                                & @CRLF & _
                'compression:i:1'                                                                                                                                & @CRLF & _
                'keyboardhook:i:2'                                                                                                                                & @CRLF & _
                'displayconnectionbar:i:1'                                                                                                                & @CRLF & _
                'disable wallpaper:i:1'                                                                                                                        & @CRLF & _
                'disable full window drag:i:1'                                                                                                        & @CRLF & _
                'allow desktop composition:i:0'                                                                                                        & @CRLF & _
                'allow font smoothing:i:0'                                                                                                                & @CRLF & _
                'disable menu anims:i:1'                                                                                                                & @CRLF & _
                'disable themes:i:1'                                                                                                                        & @CRLF & _
                'disable cursor setting:i:0'                                                                                                        & @CRLF & _
                'bitmapcachepersistenable:i:0'                                                                                                        & @CRLF & _
                'full address:s:' & $IP_MSTSC & ':' & $TCP_MSTSC & ''                                                        & @CRLF & _                ;主机IP:端口'        
                'audiomode:i:1        '                                                                                                                                & @CRLF & _                ;带到这台计算机=0        留在远程计算机=1
                'redirectprinters:i:0'                                                                                                                        & @CRLF & _
                'redirectcomports:i:0'                                                                                                                        & @CRLF & _
                'redirectsmartcards:i:0'                                                                                                                & @CRLF & _
                'redirectclipboard:i:1'                                                                                                                        & @CRLF & _
                'redirectposdevices:i:0'                                                                                                                & @CRLF & _
                'drivestoredirect:s:                '                                                                                                        & @CRLF & _                ;全盘=*                不选=留空
                'autoreconnection enabled:i:1'                                                                                                        & @CRLF & _
                'authentication level:i:0'                                                                                                                & @CRLF & _
                'prompt for credentials:i:0'                                                                                                        & @CRLF & _
                'negotiate security layer:i:1'                                                                                                        & @CRLF & _
                'remoteapplicationmode:i:0'                                                                                                                & @CRLF & _
                'alternate shell:s:'                                                                                                                        & @CRLF & _
                'shell working directory:s:'                                                                                                        & @CRLF & _
                'gatewayhostname:s:'                                                                                                                        & @CRLF & _
                'gatewayusagemethod:i:4'                                                                                                                & @CRLF & _
                'gatewaycredentialssource:i:4'                                                                                                        & @CRLF & _
                'gatewayprofileusagemethod:i:0'                                                                                                        & @CRLF & _
                'promptcredentialonce:i:1'                                                                                                                & @CRLF & _
                'username:s:' & $ID_MSTSC &        ''                                                                                                        & @CRLF & _                ;计算机名'
                ' '
               
                FileWriteLine(@ScriptDir &"\Default.rdp",$rdp)                ;向此前已打开的文本文件尾追加一行数据.


                If $HUIHUA_MSTSC = "选" Then        ;判断会话
                        ;存在
                        run('mstsc /ADMIN /edit "Default.rdp" ')
                Else
                        ;不存在
                        run('mstsc /edit "Default.rdp" ')
                EndIf

                Opt("MouseCoordMode", 0)
               
                $title ="远程桌面连接"        ;窗口标题
                $text =""        ;窗口文本
                WinWait($title,$text,5)
                If Not WinActive($title,$text) Then WinActivate($title,$text)
                WinWaitActive($title,$text,5)
                Send("{ALTDOWN}R{ALTUP}")
                ControlCommand  ($title,$text, "Button3","Check")        ;向指定控件发送命令.
                ControlCommand  ($title,$text, "Button12","Check")        ;向指定控件发送命令.
               
                $title ="远程桌面连接"        ;窗口标题
                $text ="请输入"        ;窗口文本
                WinWait($title,$text,5)
                If Not WinActive($title,$text) Then WinActivate($title,$text)
                WinWaitActive($title,$text,10)
                Send("{ALTDOWN}R{ALTUP}")
                ControlCommand   ($title,$text, "Button2","UnCheck")        ;向指定控件发送命令. 使目标按钮(复选框/单选框)变为非选中状态.
                ControlSetText($title,$text, "Edit2", $ID_MSTSC )        ;修改指定控件的文本.        账号
                ControlSetText($title,$text, "Edit3", $MM_MSTSC )        ;修改指定控件的文本.        密码
                ControlCommand  ($title,$text, "Button3","Check")        ;向指定控件发送命令.
               
                FileDelete(@ScriptDir &"\Default.rdp")        ;删除一个或多个文件.

EndFunc   ;==>MSTSC

TOP

TOP

钱不够多用,回答先买来看看

TOP

钱不够多用,回答先买来看看

TOP

看看  还能用么。。

TOP

返回列表