原来这就是你所说的"自动配IP"....
我还在想说这跟DHCP有啥关系...太简单了吧
我的中文能力不好~您描述keyword让我想太多~
程序代码：
您真是太有才了~
[ 本帖最后由 yz1025 于 2013-1-23 12:50 编辑 ]
我还在想说这跟DHCP有啥关系...太简单了吧
我的中文能力不好~您描述keyword让我想太多~
程序代码：
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
您真是太有才了~
[ 本帖最后由 yz1025 于 2013-1-23 12:50 编辑 ]
不要投我
