如何应用AutoIt，把局域网中所有的机器名展示在一个combox中？

有时候，我们会遇到以下情况：

你想与局域网中的某台机器建立连接，你就需要输入对方的机器名。

现在我比较懒，我不想输入对方的机器名，或者对方的机器名很难记住，那怎么办呢？

那就做一个combox在页面上，当点击某按钮的时候，局域网中所有的机器名就会呈现在combox列表中，这样，只需要选择就可以了，能够满足一些懒人的要求。

1. 首选，DOS命令中的net view，可以查看局域网中所有的机器名，于是就有下面的函数：_GetDOSOutput， 可以把net view的结果完整的呈现出来；

2. Net view出来的结果是一个大字符串，我们需要的是机器列表，所以要处理这个大字符串，于是就有了函数：search_computers()，该函数的运行，需要排除几种情况：

     1） 网络不通的情况下，net view是啥都没有的，所以当网络不通，我们将会获取“网络不通”的提示性语言；

     2） 网络通的情况下，可以应用正则表达式把所有的机器名筛选出来，但是筛选出来的结果应该去掉运行脚本的机器本身，避免配置工具使用者晕点，最大程度的减少错误发生几率；

3. set_combox_list 就可以把任何数组或者字符串，塞入一个combox控件中去，就能够实现人性化的配置了。

#include <array.au3>
#include <Constants.au3>
Func search_computers()
    $content = _GetDOSOutput("net view")
    $computers = StringRegExp($content, "\\\\.*?\s", 3)
    $len = UBound($computers)
    If $len = 0 Then
        Return "网络不通"
    EndIf
    Local $computer_list[$len]
    For $i = 0 To $len-1
        $computer_list[$i] = StringStripWS($computers[$i], 2)
        $computer_list[$i] = StringReplace($computer_list[$i], "\\", "")
    Next
    _ArrayDelete($computer_list, @ComputerName)
    Return $computer_list
EndFunc

Func _GetDOSOutput($sCommand)
    Local $iPID, $sOutput = ""
    $iPID = Run('"' & @ComSpec & '" /c ' & $sCommand, "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    While 1
        $sOutput &= StdoutRead($iPID, False, False)
        If @error Then
            ExitLoop
        EndIf
    Sleep(10)
    WEnd
    Return $sOutput
EndFunc

Func set_combox_list($computer_name)
    $computer_list = search_computers()
    If IsArray($computer_list) Then
        For $i = 0 To UBound($computer_list)-1
            _GUICtrlComboBox_AddString($computer_name, $computer_list[$i])
        Next
        _GUICtrlComboBox_SetEditText($computer_name, "请选择大屏机器")
    Else
        _GUICtrlComboBox_SetEditText($computer_name, $computer_list)
    EndIf
EndFunc

 

转载于:https://www.cnblogs.com/autotest/p/3499054.html