程序代码：

Private Sub Command1_Click()
Dim MyStrLine As String, Temp() As String
Dim ipurl As String
    
    ipurl =""
    Open App.Path & "\ip.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, MyStrLine
            MyStrLine = Trim$(MyStrLine)
            If MyStrLine <> "" Then
                Temp = Split(MyStrLine, " ")
                If UBound(Temp) = 1 Then
                    If InStr(Trim$(Temp(0)), Trim$(Text1.Text)) <> 0 Then
                        ipurl = Trim$(Temp(1))
                        Exit Do
                    End If
                End If
                Erase Temp
            End If
        Loop
    Close #1

    Shell App.Path & "\vncviewer.exe " & ipurl, vbNormalFocus

Dim longTimer As Long
    
    longTimer = Timer

    Do Until Timer - longTimer >= 1
        DoEvents
    Loop
  
    SendKeys "{enter}"
    SendKeys "stwhost"
    SendKeys "{enter}"

End Sub