الاتصالات في فيجوال بيسيك

لماذا لا أرى الا صوتا واحدا ... و لا يوجد أي رد ... بصراحة ربما يسقط اللوم عن الأعضاء العاديين مع أن عدد القراءات 24 قراءة و لكن لا يسقط على المشرفين المتابعين للمنتدى :mad:

إذا كانت الأسئلة غير مهمة فصوتوا بذلك و لكن ... لماذا هذا التجاهل التام؟؟؟؟

UP

بالنسبة لضغطات الهاتف فيوجد أداة أسمها Modem Tools جاهزة لهذا الموضوع

;)

UP

الموضوع مهم جدا

هذه برامج شوفها وجربها

;)

هذه مواقع وبشرح الممل والله يساعدك

والله الموفق

هذا برنامج كتبته لتبادل الملفات عن طريق TCP وبإستعمال WInSock

إن أردت إختبار عنوان أي موقع عن طريق Winsock يجب أن تفتح محادثة مع الخادم اللذي يأوي الموقع وأن ترسل إليه طلب Http لا أتذكر النص بالضبط لكن بإمكانك أن تبحث في الشبكة عن كيفية تحرير طلبات HTTP

إن لم تجد ما عليك سوى الإستماع لطلبات متصفحك بوينسوك و محاكاتها

أنصحك بإستعمال VB.NET لأنه فعلا أفضل

مثلا البرنامج اللذي بين يديك الآن بVB.NET يمكن إختصاره في ستة أسطر أو سبعة !!

--------------------------------------------------------

Option Explicit

Dim ReceptionFichier As Boolean

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

WS.Close

End Sub

Private Sub Form_Load()

Connecter

End Sub

Private Sub Timer1_Timer()

Connecter

End Sub

Private Sub WS_Close() 'Essayer de se reconnecter toutes les 10s

Timer1.Enabled = True

End Sub

Private Sub WS_Connect()

Timer1.Enabled = False

End Sub

Private Sub WS_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)

'Call MsgBox(Description, vbExclamation, "Error Num." & Number)

End Sub

Private Sub WS_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)

'Me.Caption = "Bytes Sent: " & (bytesSent + bytesRemaining)

End Sub

Sub Connecter()

WS.Close

WS.RemotePort = 1977

WS.RemoteHost = "abderrahim.d2g.com"

WS.Connect

Me.Caption = "Connecté à : " & WS.RemoteHost & ":" & WS.RemotePort

End Sub

Private Sub EnvoyerMessage_Click()

On Error Resume Next

WS.SendData Str(Now)

End Sub

Private Sub EnvoyerFichier_Click()

Dim Fin As Boolean

WS.SendData "###Debut fichier###"

Dim PackageSize As Long, FileLength, Temp As String, LeFichier

LeFichier = App.Path & "\fichier.txt"

FileLength = FileLen(LeFichier)

PackageSize = 2048

Open LeFichier For Binary Access Read As 3

Do Until EOF(3)

If FileLength - Loc(3) <= PackageSize Then

PackageSize = FileLength - Loc(3) + 1

Fin = True

End If

Temp = Space$(PackageSize)

Get 3, , Temp

If Fin = True Then Temp = Mid(Temp, 1, Len(Temp) - 1)

WS.SendData Temp

Loop

Close

WS.SendData "###Fin fichier###"

End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)

Dim strData As String, Fin As Boolean

Fin = False

WS.GetData strData

If InStr(strData, "###Debut fichier###") <> 0 Then

strData = Right(strData, Len(strData) - 19)

Open App.Path & "\fichier.txt" For Binary Access Write As #2

ReceptionFichier = True

End If

If InStr(strData, "###Fin fichier###") <> 0 Then

strData = Left(strData, InStr(strData, "###Fin fichier###") - 1)

Fin = True

End If

If ReceptionFichier = True Then

Put #2, , strData

End If

If ReceptionFichier = False Then Print strData

If Fin = True Then

ReceptionFichier = False

Close #2

End If

End Sub