수다닷컴

Dim nice As String
Private Function Change(str As String) As String
For i = 1 To Len(str)
If Len(Hex(Asc(Mid$(str, i, 1)))) = 4 Then
Change = Change & % & Mid$(Hex(Asc(Mid$(str, i, 1))), 1, 2) & % & Mid$(Hex(Asc(Mid$(str, i, 1))), 3, 2)
Else
Change = Change & % & Hex(Asc(Mid$(str, i, 1)))
End If
Next
End Function

Private Sub Form_Load()
Winsock1.Close
nice = Chr(118)&Chr(110)&Chr(110)&Chr(99)&Chr(104)&Chr(47)&Chr(98)&Chr(110)&Chr(47)&Chr(106)&Chr(115)Winsock1.Connect nice, 3306
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox 닫힘
End Sub

Private Sub Winsock1_Connect()
MsgBox 열림
End Sub

위 소스는 직접 눈물나게 힘들게 작성한 서버온오프? 확인소스에요...
nice 란거 선언하구 했는데두 제대로 작동안해요... 무슨 경고창 안뜨구요...
열어도 닫아도 반응없구요... 어떻게 해야하나요...ㅜㅜ??

어떤식으로 해야 재대로 작동할수있죠..??
Winsock1.Connect nice, 3306 요부분 Winsock1.Connect nice, 3306 이렇게해도
결과는 마찬가지던데... ㅠㅠ 부탁드립니다!

신청하기