1
2
3
4
5
6
7
8
   Set fso = CreateObject("Scripting.FileSystemObject")
    Set fid = fso.OpenTextFile(App.Path & "\ip.txt", ForReading)
    If Not fid.AtEndOfStream Then
        IPStr = fid.ReadLine
    End If
    fid.Close
    Set fid = Nothing
    Set fso = Nothing
arrow
arrow
    全站熱搜

    戮克 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄