Hina-C.net

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim get_data As String
Dim Data_type As Integer
Dim buffer As Boolean
Dim puts As String: Dim k As Integer
Dim ii  As Integer: Dim passs As String
Dim jjung As Integer '쪽지 갯수
Const mama = "mama_data"
Const maip = "maip_data"
Dim string_buffer As String: Dim string_buffer2 As String
DoEvents
Winsock1(Index).GetData get_data
get_data2 = Split(get_data, Chr(2))
For i = 0 To UBound(get_data2) - 1
    Data_type = Left(get_data2(i), 2) '데이터 형태 잘라내기
        Select Case Data_type
            Case "00" '사용자 아이디, 패스워드 분리
                buffer = inputs_uesrs(Index, get_data2(i))
            Case "01" '새로운 가입자 들어옴
                buffer = Saves_uesrs(Index, get_data2(i))
            Case "02" '매매시장 데이터보내기
                string_buffer = show_mama_data(mama)
                Winsock1(Index).SendData "13" + string_buffer + Chr(2)
            Case "03" '매입시장 데이터보내기
                string_buffer = show_mama_data(maip)
                Winsock1(Index).SendData "14" + string_buffer + Chr(2)
            Case "04" '쪽지보내기
                 buffer = send_jjung(get_data2(i), user_user(Index).user_Id)
                 If buffer = True Then
                    Winsock1(Index).SendData "18" & "1" & Chr(2)
                 Else
                    Winsock1(Index).SendData "18" & "2" & Chr(2)
                 End If
            Case "05" '쪽지받은거 목록만 보기
                 string_buffer = show_jjung(user_user(Index).user_Id)
                 Winsock1(Index).SendData "12" + string_buffer + Chr(2)
            Case "06" '쪽지 받은거 데이터 다~ 보여주기
                string_buffer2 = Mid(get_data2(i), 3, Len(get_data2(i)) - 2)
                string_buffer = show_jjung_data(user_user(Index).user_Id, string_buffer2)
                Winsock1(Index).SendData "11" + string_buffer + Chr(2)
            Case "07" '매매방만든다
                passs = Right(get_data2(i), 1)
                Winsock1(Index).SendData "15" & grt(mama, get_data2(i), passs) & Chr(2)
            Case "08" '매입방만든다
                passs = Right(get_data2(i), 1)
                Winsock1(Index).SendData "15" & grt(maip, get_data2(i), passs) & Chr(2)
            Case "09" '가입할때 아이디 중복검사
                ii = Len(get_data2(i))
                cc = Mid(get_data2(i), 3, ii - 2)
                buffer = search_id(cc) '아이디 중복검사
                If buffer = True Then puts = "1" Else puts = "2"
                Winsock1(Index).SendData puts + Chr(2)
            Case "10" '오픈내용
                string_buffer = show_mama_data2(get_data2(i))
                Winsock1(Index).SendData "16" + string_buffer + Chr(2)
            Case "11" '파일에 메모남기기
                save_memo (get_data2(i))
            Case "12" '방 편집 암호확인
                Winsock1(Index).SendData "17" & search_pass2(get_data2(i)) & Chr(2)
            Case "14" '쪽지 지우기
                buffer = del_jjung(get_data2(i))
            Case "16" '자료 찾기
                string_buffer = search_data(get_data2(i))
                Winsock1(Index).SendData "24" & string_buffer & Chr(2)
            Case "17" '방지우기
                del_room get_data2(i)
            Case "18" '방지우기 할때 암호확인
                Winsock1(Index).SendData "23" & search_pass2(get_data2(i)) & Chr(2)
            Case "93" '이미지업그레이드
               ' If images_type = True Then Winsock1(Connect_ID).SendData "" +

            Case "94" '대화창
                For k = 1 To Connect_ID
                    If user_user(k).user_ip <> "" Then Winsock1(k).SendData "22" & community_win_data(get_data2(i)) & Chr(2)
                Next k
            Case "95" '접속자 보여주기
                Winsock1(Index).SendData "21" + use_win_data + Chr(2)
            Case "97" '쪽지 갯수 확인
                jjung = jjung_index(get_data2(i))
                Winsock1(Index).SendData "10" & jjung & Chr(2)
            Case "96" '있나없나..
                cc = Mid(get_data2(i), 3, Len(get_data2(i)) - 2)
                buffer = search_id(cc)
                If buffer = True Then puts = "1" Else puts = "2"
                Winsock1(Index).SendData "20" + puts + Chr(2)
            Case "98" '이미지 전달자
                        
            Case "99" '그냥 접속자
                buffer = search_ip(Index, get_data2(i))
                For k = 1 To Connect_ID
                    If user_user(k).user_ip <> "" Then Winsock1(k).SendData "25" & user_user(Index).user_Id & Chr(2)
                Next k
                
        End Select
Next i
End Sub
-----------------------------------------------------------------
요즘은 소스 올리는게 유행인가요?(퍽!)

그럼그럼 나도 자랑할래..>_<~♡

이건... 옛날에 간단히 만들어본 서버 & 클라이언트용 프로그램 중에서 서버 모듈의 일부분(?) 입니다..아마 서버로 들어온 데이터를 분류 하는 부분일듯... 지금보면.. 노가다와 비효율적으로 재작된 부분이 많은듯;; 특히 처음부터 서버에 무리가 많이가게 되었다는;

덧. 그래도 이거 동상 받은 녀석라는..(퍽~!!)

이런거 올려서 안 혼날라나...