自己做的一个3389辅助工具

tarcer · 发表于 2017-6-8 16:26:38

本帖最后由 tarcer 于 2017-6-8 17:38 编辑

弄了几天终于做出来了：）
非常感谢各位朋友的帮助，需要的就拿去吧。
也有几个小问题没弄好，希望各位前辈帮忙看看
1.往硬盘写文件时总会闪一个黑框，怎么才可以去掉？
2.每次从文件获取数据是总有很多空行，实在没法了弄了个函数来删除。请问空数据是怎么产生的？如何去掉？
源码如下：

;引用申明
#RequireAdmin
#NoTrayIcon
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#include<Array.au3>
;
;GUI生成
Global $dxk[4], $an[5] ;$dxk存储单选框控件，$an存储按钮控件
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Lab.302出品", 659, 256, 417, 205)
GUISetFont(18, 400, 0, "微软雅黑")
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("3 3 8 9 远程助手", 216, 16, 236, 34)
GUICtrlSetFont(-1, 22, 800, 0, "华文隶书")
$Label2 = GUICtrlCreateLabel("请输入服务器IP:", 24, 64, 198, 39)
GUICtrlSetFont(-1, 20, 400, 0, "微软雅黑")
$srk = GUICtrlCreateCombo("", 232, 56, 313, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$an[1] = GUICtrlCreateButton("连接", 560, 48, 65, 49)
GUICtrlSetFont(-1, 20, 400, 0, "微软雅黑")
GUICtrlSetBkColor(-1, 0x008000)
$an[2] = GUICtrlCreateButton("重新输入", 48, 167, 113, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$an[3] = GUICtrlCreateButton("保存设置", 273, 167, 113, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$an[4] = GUICtrlCreateButton("退出程序", 494, 167, 113, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$dxk[1] = GUICtrlCreateRadio("记忆", 232, 120, 57, 33)
GUICtrlSetFont(-1, 12, 400, 0, "微软雅黑")
$dxk[2] = GUICtrlCreateRadio("删除", 304, 120, 57, 33)
GUICtrlSetFont(-1, 12, 400, 0, "微软雅黑")
$dxk[3] = GUICtrlCreateRadio("清空", 371, 121, 57, 33)
GUICtrlSetFont(-1, 12, 400, 0, "微软雅黑")
$bz = GUICtrlCreateIcon(@ScriptDir & "\ico\help.ico", -1, 624, 0, 33, 33)
#EndRegion ### END Koda GUI section ###
;
;定义函数记录IP
Func _addip(ByRef $ip)
Local $n, $t, $i
$n = UBound($ip, 1)
ReDim $ip[$n + 1]
$ip[$n] = GUICtrlRead($srk)
If $ip[$n] = $ip[0] Then
ReDim $ip[$n]
Else
For $i = 1 To $n - 1
If $ip[$i] = $ip[$n] Then
ReDim $ip[$n]
ExitLoop
EndIf
Next
EndIf
For $i = 1 To UBound($ip, 1) - 1
$t &= $ip[$i] & "|"
Next
GUICtrlSetData($srk, "")
Return $t
EndFunc ;==>_addip
;
;定义函数删除IP
Func _delip(ByRef $ip)
Local $t, $n, $i
$t = GUICtrlRead($srk)
$n = UBound($ip, 1)
If $ip[$n - 1] = $t And $n > 1 Then
ReDim $ip[$n - 1]
ElseIf UBound($ip, 1) = 1 Then
$ip[0] = ""
else
For $i = 1 To $n - 2
If $ip[$i] = $t Then
Do
$ip[$i] = $ip[$i + 1]
If $i < $n - 2 Then $i += 1
Until $i = $n - 2
ReDim $ip[$n - 1]
EndIf
Next
EndIf
$t = ""
For $i = 1 To UBound($ip, 1) - 1
$t &= $ip[$i] & "|"
Next
GUICtrlSetData($srk, "")
Return $t
EndFunc ;==>_delip
;
;定义函数判断保存设置应执行的内容
Func _bcsz(ByRef $ip)
Select
Case GUICtrlRead($dxk[1]) = 1
GUICtrlSetData($srk, _addip($ip))
Case GUICtrlRead($dxk[2]) = 1
GUICtrlSetData($srk, _delip($ip))
Case GUICtrlRead($dxk[3]) = 1
ReDim $ip[1]
$ip[0] =""
GUICtrlSetData($srk, $ip[0])
EndSelect
EndFunc ;==>_bcsz
;
;定义函数将IP记录成文件
Func _xwj($ip)
Local $n, $i
RunWait(@ComSpec & " /c" & "echo. >" & @WorkingDir & "\Data.db")
For $n = 1 To UBound($ip, 1) - 1
FileWrite(@WorkingDir & "\Data.db", $ip[$n] & @CRLF)
Next
EndFunc
;
;定义函数压缩读取IP产生的空数据（为什么会产生空数据行？？？）
Func _zip(ByRef $ip)
Local $n, $i
Local $t[] = [$ip[0]]
For $i = 2 To UBound($ip, 1) - 1
If $ip[$i] <> $ip[0] Then
$n = UBound($t, 1)
ReDim $t[$n + 1]
$t[$n] = $ip[$i]
EndIf
Next
$ip = $t
EndFunc
;
;定义主函数
Func _main()
GUISetState(@SW_SHOW) ;激活GUI
Local $t, $ip = [""]
Switch FileExists(@WorkingDir & "\Data.db")
Case 0
FileWrite(@WorkingDir & "\Data.db", "" & @CRLF)
Case 1
_FileReadToArray(@WorkingDir & "\Data.db", $ip)
$ip[0] = $ip[1]
EndSwitch
;_ArrayDisplay($ip)
_zip($ip)
;_ArrayDisplay($ip)
GUICtrlSetData($srk, _addip($ip))
;建立消息会话
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_xwj($ip)
Exit
Case $GUI_EVENT_MINIMIZE
;GUISetState(@SW_HIDE, $Form1)
;Opt("TrayIconHide", 0)
Case $srk
Case $an[1]
$t = GUICtrlRead($srk)
Run("mstsc /admin /v:" & $t)
Case $an[2]
GUICtrlSetData($srk, $ip[0])
GUICtrlSetData($srk, _addip($ip))
Case $an[3]
_bcsz($ip)
Case $an[4]
_xwj($ip)
Exit
Case $bz
MsgBox(0, "感谢IT天空各位朋友的帮助", " 鸣谢" & @CRLF & @CRLF & _
" Skyfree wang754782072" & @CRLF & @CRLF & _
" fujimidai Mr.SU" & @CRLF & @CRLF, 5)
EndSwitch
WEnd
EndFunc ;==>_main
;
;执行主函数
_main()
Exit

复制代码

huaxishe · 发表于 2017-6-8 18:38:10

高手啊不懂

fujimidai · 发表于 2017-6-8 20:28:09

运行外部程序并暂停脚本执行，直到程序结束.
RunWait("程序"[, "工作目录"[, 显示[, 选项]]])
参数
程序运行程序的完整路径(文件类型: EXE, BAT, COM, 或 PIF, 见备注).
工作目录 [可选] 工作目录, 空白（""）使用当前工作目录. 这不是程序的路径.
显示 [可选] 程序执行时的显示状态:
@SW_HIDE = 隐藏窗口 (或使用关键字 Default)
@SW_MINIMIZE = 最小化窗口
@SW_MAXIMIZE = 最大化窗口
选项 [可选] 控制父进程与子进程互动.
0x10000 ($RUN_CREATE_NEW_CONSOLE) = 子控制台进程应设立自己的窗口, 而不是使用父窗口. 当父层作为控制台应用被编译时, 这个标志非常有用.

复制代码

..楼主多看看帮助文件。。。选项@SW_HIDE可以隐藏运行

tarcer · 发表于 2017-6-8 22:26:13

fujimidai 发表于 2017-6-8 20:28
..楼主多看看帮助文件。。。选项@SW_HIDE可以隐藏运行

谢谢：）
我的AU3是“消失的过去”视频里的版本，帮助里是这样的：
RunWait ( "program" [, "workingdir" [, show_flag [, opt_flag]]] )
好在注解是中文的，只是我粗心了，没看到
唉，粗心是个大毛病。。。

tarcer · 发表于 2017-6-9 14:31:17

fujimidai 发表于 2017-6-8 20:28
..楼主多看看帮助文件。。。选项@SW_HIDE可以隐藏运行

不晓得什么原因，加上@SW_HIDE后黑框是没有了，但是命令好像也不执行了。。。是系统的问题（WIN7 64位）？还是我的AU3版本不行？
后面用_rundos()解决了黑框，但还是留下了一肚子的疑问啊。。。

#include <Process.au3>

复制代码

fujimidai · 发表于 2017-6-10 22:47:12

tarcer 发表于 2017-6-9 14:31
不晓得什么原因，加上@SW_HIDE后黑框是没有了，但是命令好像也不执行了。。。是系统的问题（WIN7 64位） ...

稍微看了下你代码，，，好乱，，，可以问下你那个runwait是干嘛用么？

tarcer · 发表于 2017-6-10 23:09:03

fujimidai 发表于 2017-6-10 22:47
稍微看了下你代码，，，好乱，，，可以问下你那个runwait是干嘛用么？

清空旧的IP记录文件。主要还是对AU3的函数不够了解，不知道如何对文件的具体行进行操作以避免记录重复的IP信息，所以用了个懒办法，在脚本中数据都临时存在数组中了，往硬盘里记录时干脆清空记录文件重写。
有没更好的操作方法啊，可以直接对存储的文件内容进行精确操作？

fujimidai · 发表于 2017-6-11 22:22:08

tarcer 发表于 2017-6-10 23:09
清空旧的IP记录文件。主要还是对AU3的函数不够了解，不知道如何对文件的具体行进行操作以避免记录重复的I ...

local $dbfile = "ip.db"
if FileExists($dbfile) Then FileDelete($dbfile);删除文件

复制代码

fujimidai · 发表于 2017-6-11 22:36:49

tarcer 发表于 2017-6-10 23:09
清空旧的IP记录文件。主要还是对AU3的函数不够了解，不知道如何对文件的具体行进行操作以避免记录重复的I ...

重复项啊。
先用

FileReadToArray

复制代码

读取db到数组
然后

_ArrayUnique

复制代码

删除重复项

tarcer · 发表于 2017-6-11 23:23:50

fujimidai 发表于 2017-6-11 22:36
重复项啊。
先用

原来有现在的UDF用啊

，受教了。看来要多看看帮助文档啊，只是文档太多，无目标的通读很没效率啊。一般哪些UDF用得多啊，我先过一遍吧。

tarcer · 发表于 2017-6-12 16:47:16

fujimidai 发表于 2017-6-11 22:36
重复项啊。
先用

这个去除重复不好用啊，虽然重复的是去掉了，但是又会多出好多无用的数据ORZ~~暂时还是用自己写的函数来清除重复吧。
新写了个函数来检查值是否为IP地址，但感觉写的好啰嗦杂乱，请指教下怎样写更精简些

Func _jiancha($ipdizhi)
Local $a_ip, $cuowu, $n = 1
$a_ip = StringSplit($ipdizhi, ".")
If $a_ip[0] = 4 Then
While $n < 5
Switch $n
Case 1
If StringIsInt($a_ip[$n]) = 1 And $a_ip[$n] > 0 And $a_ip[$n] < 255 Then
$cuowu = 0
Else
$cuowu = 1
Return SetError(1)
ExitLoop
EndIf
Case 2
If $cuowu = 0 Then
If StringIsInt($a_ip[$n]) = 1 And $a_ip[$n] >= 0 And $a_ip[$n] < 255 Then
$cuowu = 0
Else
$cuowu = 1
Return SetError(1)
ExitLoop
EndIf
Else
Return SetError(1)
ExitLoop
EndIf
Case 3
If $cuowu = 0 Then
If StringIsInt($a_ip[$n]) = 1 And $a_ip[$n] >= 0 And $a_ip[$n] < 255 Then
$cuowu = 0
Else
$cuowu = 1
Return SetError(1)
ExitLoop
EndIf
Else
Return SetError(1)
ExitLoop
EndIf
Case 4
If $cuowu = 0 Then
If StringIsInt($a_ip[$n]) = 1 And $a_ip[$n] > 0 And $a_ip[$n] < 255 Then
Return SetError(0)
Else
Return SetError(1)
ExitLoop
EndIf
Else
Return SetError(1)
ExitLoop
EndIf
EndSwitch
$n += 1
WEnd
Else
Return SetError(1)
EndIf
EndFunc ;==>_jiancha

复制代码

tarcer · 发表于 2017-6-12 16:51:11

好多重复语句啊，本来想用循环的，但IP的第一段和末段规则是1~254，中间段是0~254，真不晓得怎么精简了TT

tarcer · 发表于 2017-6-13 09:05:53

在大家的帮助下，进一步调整了代码。修正了黑框，增加了IP校验，基本达到最初设想的效果：）

感觉写得很乱，没有章法，请各位多多指点，帮助我学到更好的算法，谢谢！

下边是修正后的代码：

;引用申明
#RequireAdmin
#NoTrayIcon
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <Process.au3>
;
;GUI生成
Global $dxk[4], $an[5] ;$dxk存储单选框控件，$an存储按钮控件
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Lab.302出品", 659, 256, 417, 205)
GUISetFont(18, 400, 0, "微软雅黑")
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("3 3 8 9 远程助手", 216, 16, 236, 34)
GUICtrlSetFont(-1, 22, 800, 0, "华文隶书")
$Label2 = GUICtrlCreateLabel("请输入服务器IP:", 24, 64, 198, 39)
GUICtrlSetFont(-1, 20, 400, 0, "微软雅黑")
$srk = GUICtrlCreateCombo("", 232, 56, 313, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$an[1] = GUICtrlCreateButton("连接", 560, 48, 65, 49)
GUICtrlSetFont(-1, 20, 400, 0, "微软雅黑")
GUICtrlSetBkColor(-1, 0x008000)
$an[2] = GUICtrlCreateButton("重新输入", 48, 167, 113, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$an[3] = GUICtrlCreateButton("保存设置", 273, 167, 113, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$an[4] = GUICtrlCreateButton("退出程序", 494, 167, 113, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$dxk[1] = GUICtrlCreateRadio("记忆", 232, 120, 57, 33)
GUICtrlSetFont(-1, 12, 400, 0, "微软雅黑")
$dxk[2] = GUICtrlCreateRadio("删除", 304, 120, 57, 33)
GUICtrlSetFont(-1, 12, 400, 0, "微软雅黑")
$dxk[3] = GUICtrlCreateRadio("清空", 371, 121, 57, 33)
GUICtrlSetFont(-1, 12, 400, 0, "微软雅黑")
$bz = GUICtrlCreateIcon(@ScriptDir & "\ico\help.ico", -1, 624, 0, 33, 33)
#EndRegion ### END Koda GUI section ###
;
;定义函数，检查值是否为IP地址
Func _jiancha($ipdizhi)
Local $a_ip, $cuowu, $n = 1
$a_ip = StringSplit($ipdizhi, ".")
If $a_ip[0] = 4 Then
For $n = 1 To 4
Switch $n
Case 1
If StringIsInt($a_ip[$n]) = 1 And $a_ip[$n] > 0 And $a_ip[$n] < 255 Then
$cuowu = 0
Else
$cuowu = 1
Return SetError(1)
ExitLoop
EndIf
Case 2
If $cuowu = 0 Then
If StringIsInt($a_ip[$n]) = 1 And $a_ip[$n] >= 0 And $a_ip[$n] < 255 Then
$cuowu = 0
Else
$cuowu = 1
Return SetError(1)
ExitLoop
EndIf
Else
Return SetError(1)
ExitLoop
EndIf
Case 3
If $cuowu = 0 Then
If StringIsInt($a_ip[$n]) = 1 And $a_ip[$n] >= 0 And $a_ip[$n] < 255 Then
$cuowu = 0
Else
$cuowu = 1
Return SetError(1)
ExitLoop
EndIf
Else
Return SetError(1)
ExitLoop
EndIf
Case 4
If $cuowu = 0 Then
If StringIsInt($a_ip[$n]) = 1 And $a_ip[$n] > 0 And $a_ip[$n] < 255 Then
Return SetError(0)
Else
Return SetError(1)
ExitLoop
EndIf
Else
Return SetError(1)
ExitLoop
EndIf
EndSwitch
Next
Else
Return SetError(1)
EndIf
EndFunc ;==>_jiancha
;
;定义函数记录IP
Func _addip(ByRef $ip)
Local $tmp, $i, $t
Local $a[] = [""]
$tmp = GUICtrlRead($srk)
_jiancha($tmp)
If @error = 0 Then _ArrayAdd($ip, $tmp)
$ip = _ArrayUnique($ip)
For $i = 1 To UBound($ip, 1) - 1
_jiancha($ip[$i])
If @error = 0 Then
_ArrayAdd($a, $ip[$i])
EndIf
Next
$ip = $a
For $i = 1 To UBound($ip, 1) - 1
$t &= $ip[$i] & "|"
Next
GUICtrlSetData($srk, "")
Return $t
EndFunc ;==>_addip
;
;定义函数删除IP
Func _delip(ByRef $ip)
Local $t, $n, $i
$t = GUICtrlRead($srk)
$n = UBound($ip, 1)
For $i = 1 To $n - 1
If $ip[$i] = $t Then
_ArrayDelete($ip, $i)
$t = ""
ExitLoop
EndIf
Next
For $i = 1 To UBound($ip, 1) - 1
$t &= $ip[$i] & "|"
Next
GUICtrlSetData($srk, "")
Return $t
EndFunc ;==>_delip
;
;定义函数判断保存设置应执行的内容
Func _bcsz(ByRef $ip)
Select
Case GUICtrlRead($dxk[1]) = 1
GUICtrlSetData($srk, _addip($ip))
Case GUICtrlRead($dxk[2]) = 1
GUICtrlSetData($srk, _delip($ip))
Case GUICtrlRead($dxk[3]) = 1
ReDim $ip[1]
$ip[0] = ""
GUICtrlSetData($srk, $ip[0])
EndSelect
EndFunc ;==>_bcsz
;
;定义函数将IP记录成文件
Func _xwj($ip)
Local $n, $i
_RunDos(@ComSpec & " /c" & "echo. >" & @WorkingDir & "\Data.db")
For $n = 1 To UBound($ip, 1) - 1
FileWrite(@WorkingDir & "\Data.db", $ip[$n] & @CRLF)
Next
EndFunc ;==>_xwj
;
;定义主函数
Func _main()
GUISetState(@SW_SHOW) ;激活GUI
Local $t, $ip = [""]
Switch FileExists(@WorkingDir & "\Data.db")
Case 0
FileWrite(@WorkingDir & "\Data.db", "" & @CRLF)
Case 1
_FileReadToArray(@WorkingDir & "\Data.db", $ip)
EndSwitch
GUICtrlSetData($srk, _addip($ip))
;建立消息会话
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_xwj($ip)
Exit
Case $GUI_EVENT_MINIMIZE
;GUISetState(@SW_HIDE, $Form1)
;Opt("TrayIconHide", 0)
Case $srk
Case $an[1]
$t = GUICtrlRead($srk)
Ping ($t, 300)
If @error = 0 Then
Run("mstsc /admin /v:" & $t)
GUICtrlSetData($srk, _addip($ip))
Else
MsgBox(48, "错误！", "IP不可达或该服务器不存在！", 5)
EndIf
Case $an[2]
GUICtrlSetData($srk, $ip[0])
GUICtrlSetData($srk, _addip($ip))
Case $an[3]
_bcsz($ip)
Case $an[4]
_xwj($ip)
Exit
Case $bz
MsgBox(0, "感谢IT天空各位朋友的帮助", " 鸣谢" & @CRLF & @CRLF & _
" Skyfree wang754782072" & @CRLF & @CRLF & _
" fujimidai Mr.SU" & @CRLF & @CRLF, 5)
EndSwitch
WEnd
EndFunc ;==>_main
;
;执行主函数
_main()
Exit

复制代码

fujimidai · 发表于 2017-6-13 11:26:58

确实好乱的代码。。。。。

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Region
Global $ProgName =" 3389连接辅助工具"
Global $dbfile = @TempDir & "\ip.db"
#EndRegion
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate($ProgName, 623, 445, 192, 124)
$CB_IP = GUICtrlCreateCombo("", 112, 64, 345, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$BTN_CONNECT = GUICtrlCreateButton("连接", 472, 64, 73, 25)
$BTN_SAVE = GUICtrlCreateButton("保存", 128, 96, 129, 25)
$BTN_READ = GUICtrlCreateButton("读取", 328, 96, 105, 25)
_init()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BTN_CONNECT
_save()
_connect()
;===> MsgBox(0,$ProgName,"这里添加连接远程桌面程序")
Case $BTN_READ
MsgBox(0,$ProgName,"未定义")
Case $BTN_SAVE
_save()
EndSwitch
WEnd
Func _init();初始化IP列表，存在数据文件则读取，否则设置为8.8.8.8，并创建数据文件
Local $iplist
GUICtrlSetData($CB_IP,"","")
If Not FileExists($dbfile) Then
$iplist = "8.8.8.8"
FileWrite($dbfile,$iplist & @CRLF)
GUICtrlSetData($CB_IP,$iplist,$iplist)
Else
Local $ipArray = FileReadToArray($dbfile)
Local $num = @extended
Local $iplist = _ArrayToString($ipArray,"|")
GUICtrlSetData($CB_IP,$iplist,$ipArray[$num - 1])
EndIf
EndFunc
Func _save()
;===?判断IP地址是否正确，正则忘记是哪里来的了。。
If StringRegExp(GUICtrlRead($CB_IP),"^(?:(?:1[0-9][0-9]\.)|(?:2[0-4][0-9]\.)|(?:25[0-5]\.)|(?:[1-9][0-9]\.)|(?:[0-9]\.)){3}(?:(?:1[0-9][0-9])|(?:2[0-4][0-9])|(?:25[0-5])|(?:[1-9][0-9])|(?:[0-9]))$",0) <> 1 Then
MsgBox(0,$ProgName,"请输入正确的IP地址")
Return
Else
;===> MsgBox(0,$ProgName,"IP地址正确")
;===> 保存输入的地址
FileWriteLine($dbfile,GUICtrlRead($CB_IP))
;===> 删除重复行
Local $text = FileRead($dbfile)
if stringinStr($text,@CRLF) Then
$text = StringRegExpReplace( $text, "(?m)(^.*\r\n)(?=(?:^.*\r\n)*\1)", '')
Else
$text = StringRegExpReplace( $text, "(?m)(^.*\n)(?=(?:^.*\n)*\1)", '')
Endif
MsgBox(0,"",$text)
FileDelete($dbfile)
FileWrite($dbfile,$text)
;===> 结束
_init()
EndIf
EndFunc
Func _connect()
Local $ip = GUICtrlRead($CB_IP)
;===?判断IP地址是否正确，正则忘记是哪里来的了。。
If StringRegExp($ip,"^(?:(?:1[0-9][0-9]\.)|(?:2[0-4][0-9]\.)|(?:25[0-5]\.)|(?:[1-9][0-9]\.)|(?:[0-9]\.)){3}(?:(?:1[0-9][0-9])|(?:2[0-4][0-9])|(?:25[0-5])|(?:[1-9][0-9])|(?:[0-9]))$",0) <> 1 Then
MsgBox(0,$ProgName,"请输入正确的IP地址")
Return
Else
If Ping($ip,1000) = 0 Then
MsgBox(0,$ProgName,"主机没有连通或发生其它网络错误")
Return
EndIf
GUISetState(@SW_HIDE,$Form1)
RunWait("mstsc /admin /v:" & $ip)
GUISetState(@SW_SHOW,$Form1)
EndIf
EndFunc

复制代码

刚刚随便写的，没做多少debug，仅供参考

tarcer · 发表于 2017-6-13 23:24:49

多谢fujimidai ！受益匪浅啊，学到很多。

		自动登录	找回密码
密码			加入我们

[原创] 自己做的一个3389辅助工具

点评

点评

点评

点评

点评

社区QQ达人