论坛: 编程破解 标题: VB提取IP问题 复制本贴地址    
作者: ljfgl [ljfgl]    论坛用户   登录
Private Sub Command1_Click()
Open "C:\serverip.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Do Until EOF(1)
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = Lines
Shell "arp -s Lines 00-00-00-00-00-00"
End Sub

serverip.txt里存放着IP 192.168.0.251,Shell "arp -s Lines 00-00-00-00-00-00"怎么绑定不了里面显示的IP?知道的朋友帮我一下,谢谢!

地主 发表时间: 07-08-21 06:03

回复: ljfgl [ljfgl]   论坛用户   登录
请注意,不是我绑错了,而是我专门要绑定00-00-00-00-00-00mac地址

B1层 发表时间: 07-08-21 06:06

回复: jhkdiy [jhkdiy]   版主   登录
代码:

Private Sub Command1_Click()
    Open "C:\serverip.txt" For Input As #1
    Dim Lines As String
    Dim NextLine As String
    Do Until EOF(1)
        Line Input #1, NextLine
        Lines = Lines & NextLine & Chr(13) & Chr(10)
    Loop
    Close #1
    '还应该过滤一下空格
    Text1.Text = Trim(Lines)
    '程序把lines当字符串了,改成这样:
    Shell "arp -s " & Trim(Lines) & " 00-00-00-00-00-00"
End Sub




[此贴被 jhkdiy(jhkdiy) 在 08月21日21时32分 编辑过]

B2层 发表时间: 07-08-21 21:30

回复: ljfgl [ljfgl]   论坛用户   登录
非常谢谢,问题解决了,果然是高手!

B3层 发表时间: 07-08-24 07:40

回复: 来者 [xylqxh]   论坛用户   登录
怎么才能把哪个VB学好啊,,
我想学VB
就是不知道怎么学。希望你们能提出见义。

B4层 发表时间: 07-08-30 11:13

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号