Private Sub Command1_Click() Dim index As Integer Dim S As String Dim recUser As String S = Trim(Text2.Text) Text2.Text = "" recUser = Combo1.Text If recUser="모두"그런 다음 If S = "SystemOrder:boot" Then For i = 0 To MaxChan - 1 userState(i) = 3 Next End If Call SendToAll(S) Else index = FindSckIndex(recUser) If S = "SystemOrder:boot" Then userState(index) = 3 Call SendToOne(S,index) End If S="맞아요"&recUser&"말 하기:"&S Call AddToText1(S) End Sub

Private Sub Command1_Click() Dim index As Integer Dim S As String Dim recUser As String S = Trim(Text2.Text) Text2.Text = "" recUser = Combo1.Text If recUser="모두"그런 다음 If S = "SystemOrder:boot" Then For i = 0 To MaxChan - 1 userState(i) = 3 Next End If Call SendToAll(S) Else index = FindSckIndex(recUser) If S = "SystemOrder:boot" Then userState(index) = 3 Call SendToOne(S,index) End If S="맞아요"&recUser&"말 하기:"&S Call AddToText1(S) End Sub

이것 은 완전한 코드 가 아 닙 니 다.그 안에 몇 개의 함수 가 정의 되 지 않 았 습 니 다.마치 통신 프로그램 인 것 같 습 니 다.완전한 것 이 있 는 지...........................................