请高人帮小弟看看下面的编码有没有问题，我想点击“连接”就能自动配IP并连到我在局域网里的对应PC,

Private Sub Command1_Click()

Dim MyStrLine As String

Open App.Path & "\ip.txt" For Input As #1
Do While Not EOF(1)
 Line Input #1, MyStrLine
 If Left(MyStrLine, 2) = Text1.Text Then
     Exit Do
   End If
Loop
Close #ip

Dim ipurl As String
ipurl = Right(MyStrLine, Len(MyStrLine) - 5)

Shell App.Path & "\vnc.exe " & ipurl & Chr(34), vbNormalFocus'这一句现在有问题，达不到自动配IP的效果
Dim longTimer As Long
  longTimer = Timer
Do Until Timer - longTimer >= 1
  DoEvents
  Loop
  SendKeys "{enter}"
  SendKeys "stwhost"
  SendKeys "{enter}"
 
End Sub

http://qqyy20.blog.

[ 本帖最后由 yz1025 于 2013-1-22 14:36 编辑 ]

那该如何修正呢？

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

谢谢你的即时回复。
我确认过不是调用文件的文件名问题，问题是在& "ipurl & Chr(32)", vbHide上面，请帮忙看看是不是这个变量的运用方法有问题？
我的思路是这样的：
根据textbox里的信息查找IP.txt里的相对应IP地址，并将这个IP地址付给变量iprul;

IP.txt内容如下：
6071 10.83.22.100
6072 10.83.22.101
6073 10.83.22.102

调用VNC程序时将iprul的值自动输进去,接下来的这个动作就如下面的编码，应该是没有问题的。
.........
Dim longTimer As Long
  longTimer = Timer
Do Until Timer - longTimer >= 1
  DoEvents
  Loop
  
  SendKeys "stwhost"
  SendKeys "{enter}"

附上图片:

高手都潜水了,帮帮忙呀,急用.

自动配IP?我是OK~

收到的鲜花

• snrtjat 于 2013-01-23 11:26 送鲜花  3朵   附言：我很赞同

yz1025:非常感谢你的积极解答，VNC是可以使用了，但是目前只能连接IP.txt中的第一行PC名的IP地址，
IP.txt内容如下：
6001 10.83.22.199
6002 10.83.22.198
6003 10.83.22.122
在我输入6001时调用的IP地址是10.83.22.199这个是正确的，但是当我输入6003时，调用的名字是6001 IP:10.83.22.1199,请再次出手帮忙优化，非常感谢！

现在就是没有“自动配IP”的功能