module2.bas

winsock聊天室

Attribute VB_Name = "Module1"
Public userName As String
Public Msgnum As Integer
Public ServerIP As String
Public connecting_Time As Integer
Public connect_OutTime As Integer


Public Function ReadServerIP(filename As String) As String
    Dim ss As String
    cs = ""
    ss = ""
    Open filename For Input As #1
            Line Input #1, ss
    Close #1
    ReadServerIP = Mid(ss, 2, Len(ss) - 2)
End Function