7,785
社区成员




Dim strcon As String
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Input As #1
strcon = Input(LOF(1), 1)
Close #1
strcon = Replace(strcon, "127.0.0.1 ", "其它的IP")
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As #1
Print #1, strcon
Close #1