كود - ونسوك - ارجو الرد انا مبتدا في الونسوك

عملت برنامج عميل وسيرفر

كود السيرفر:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
	ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
	ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub OpenCDDriveDoor(ByVal State As Boolean)
	If State = True Then
		Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
	Else
		Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
	End If
End Sub
Private Sub Form_Load()
wsk.LocalPort = 400
wsk.Listen
End Sub

Private Sub wsk_ConnectionRequest(ByVal requestID As Long)
wsk.Close
wsk.Accept requestID
End Sub

Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim s As String
wsk.GetData s
DoEvents
End Sub

كود العميل:

Private Sub Command1_Click()
wsk.Close
wsk.RemoteHost = "54.56.1.1"
wsk.RemotePort = 400
wsk.Connect
End Sub

Private Sub Command2_Click()
wsk.SendData "OpenCDDriveDoor(True)"
DoEvents
End Sub



Private Sub Timer1_Timer()
If wsk.State = 7 Then Label1.Caption = "متصل"
End Sub

لكن لماذا لا يعمل ؟