lilonghua 发表于 2011-9-5 10:31:36

支持一下，功能不是很完善

kong2011 发表于 2011-9-19 07:58:58

哈哈 支持啦

不过觉得 绿色版本不错的

geshenggang4 发表于 2011-11-10 04:23:08

;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

geshenggang4 发表于 2011-11-10 04:24:35

;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

江甫杞令 发表于 2011-11-10 23:53:25

打酱油的，混点分数提高下等级，谁然我是路过，但是也不是水帖子
Dragon Nest Gold,vindictus gold,swg credits,silkroad gold,NosTale Gold,Knight Noah,Eden Eternal gold, Elsword ED,tibia gold,shaiya gold,rs2 gold,rohan gold,RIFT Platinum,RIFT Plat,RIFT Gold,rappelz gold,rappelz rupees,perfect world gold,pw gold,Metin2 Yang,Metin2 Gold,maplestory mesos,mabinogi gold,lineage 2 adena,guild wars gold,ffxiv gil,ffxi gil,2moons dil, 4story money, 4story Luna, 4Story Gold, 9Dragons gold, Aion Kinah, Buy Aion Kinah, Buy Aion Gold, apb gold, Cabal Alz, Cabal Gold, dfo gold, dofus kamas, EVE ISK, eq2 plat,

fhqbbfcu2050 发表于 2013-4-5 03:20:12

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

fhqbbfcu2050 发表于 2013-4-5 03:20:15

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

tianji028 发表于 2017-1-11 23:07:08

看看还能用么。。
页: 1 2 [3]
查看完整版本: 影子远程管理器