자유게시판입니다.

에엣! 그럼 나도..-ㅁ-..

조회 수 4863 추천 수 0 2003.09.27 00:05:37
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
-----------------------------------------------------------------
요즘은 소스 올리는게 유행인가요?(퍽!)

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

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

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

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

id: dri-naru-

2003.09.27 17:34:12
*.154.250.230

.... 하지마 이제 이런거! 머리 아파!
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
4497 오옷! 난강&#54671;자! [2] id: 하루카가 짱이야 2003-05-01 4875
4496 새해로군... [1] 동대수석합격생 2005-02-09 4875
4495 도대체 img파일 확장명 어떻에 돌리는지;;; [3] SMkeitaro 2002-06-25 4876
4494 3일만에.. [5] id: Cooni 2002-09-25 4876
4493 요 이틀간!!! [6] 운명론자 2003-01-06 4876
4492 무서워서 다리를 못건너는 사람만.. [5] id: Angel 2003-02-19 4876
4491 푸훗.... [3] id: Sniperking 2003-03-09 4876
4490 웃...저번에 처럼 되는것인가!! [4] id: 최상봉 2003-04-12 4876
4489 아고고...힘들어 [4] id: Sniperking 2003-04-19 4876
4488 오랜만이로군. [4] 나는너 2003-05-24 4876
4487 고민되네...이거 참... [3] 동대수석합격생 2003-05-24 4876
4486 에구...할게 너무 많아서... [3] 동대수석합격생 2003-06-29 4876
4485 지금 쯤... [1] 동대수석합격생 2004-12-18 4876
4484 머리아프다.. [1] id: Cooni 2005-11-27 4876
4483 내일은 12월 25일입니다 [5] id: 하루카가 짱이야 2005-12-24 4876
4482 내가... [3] 동대수석합격생 2006-02-14 4876
4481 아..-_-;; [3] 사하린 2006-03-19 4876
4480 잠적을 끝내고.... [6] ㈜박떡™ 2002-11-30 4877
4479 바나나!! 그 비밀을 밝힌다!! [6] id: 최상봉 2002-12-05 4877
4478 우어...라그나 엠블렘 다는거 어렵 ㅠㅠ [3] SMkeitaro 2002-12-30 4877
4477 이 홈페이지 얼마나 갈것인가 ㅡㅡㅋ [8] SMkeitaro 2003-02-10 4877
4476 오 회원들 접솔률이 좋군요 +_+; [3] SMkeitaro 2003-02-18 4877
4475 [공지] 정모 공지라죠..(스나뽀버젼) [2] id: Sniperking 2003-02-26 4877
4474 전설의 송곡보드나... [4] id: bebop 2003-04-28 4877
4473 정말정말 죄송합니다..ㅠㅠ [2] id: 아냥돼지 2003-04-30 4877
4472 잡담. 1-1. [5] 나는너 2003-06-11 4877
4471 아~ 안되...시간이여 멈추어라~~ㅠ_ㅠ [3] 큰밥그릇 2003-06-23 4877
4470 러브히나 PS2용 하자고요! [3] 신중호 2003-06-30 4877
4469 훗...ㅡㅡ [4] id: 최상봉 2003-08-11 4877
4468 그러니까. [3] id: 태공망 2003-09-19 4877

Account


New Photo...

이로서 MCP 보유자격 7개... 윈도우7계열 도전중...
id: 냥군 조회 수 13389
ㅋㅋㅋㅋㅋ -웃대 펌
동대수석합격생 조회 수 16952
ㅋㅋㅋ 웃대 펌
동대수석합격생 조회 수 20394
웃대 펌
동대수석합격생 조회 수 24500
웃대 펌...
동대수석합격생 조회 수 43947

Counter



Counter

Total : 4,006,126
Today : 755
Yesterday : 1,003

Page View

Total : 152,109,701
Today : 77,780
Yesterday : 177,683

Valid XHTML 1.0 Transitional

Valid CSS Transitional