السلام عليكم
لدي برنامج استخدمة لتحديث موقعي بشكل يومي عن طريق رفع ملفات للموقع ومن ثم عمل التحديث
المهم في الموضوع هو أنني أحياننا أعمل على شبكة محلية مزودة بالانترنت عن طريق بروكسي
مثلا:
البروكسي اي بي هو : 192.168.1.15
البورت أو المنفذ هو : 8080
الجزء الذي يهمني في البرنامج هو هذا الجزء :
Private Sub Upload(ByVal source As String, ByVal target As String, ByVal credential As NetworkCredential)
Label1.Text = String.Empty
PPX.Width = 0
Dim request As FtpWebRequest = DirectCast(WebRequest.Create(target), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = credential
If CheckBox1.Checked = True Then
request.Proxy = New WebProxy(proxyTextBox.Text)
Else
request.Proxy = Nothing
End If
request.UsePassive = True
Dim filex() As Byte = File.ReadAllBytes(source)
Dim strz As Stream = request.GetRequestStream()
Dim intChunk As Double
Dim intOffset As Double
intChunk = filex.Length / 100
For I As Integer = 1 To 100
If intOffset + intChunk > filex.Length Then intChunk = filex.Length - intOffset
strz.Write(filex, intOffset, intChunk)
intOffset += intChunk
Label1.Text = I & " %"
PPX.Width = I * 5
Application.DoEvents()
Next
strz.Close()
strz.Dispose()
End Subبالتحديد هذا الجزء من الكود :
request.Proxy = New WebProxy(proxyTextBox.Text)
يفترض أن تكون قيمة ال proxyTextBox.Text بهذا الشكل
192.168.1.15:8080
لكنها لم تنجح في الاتصال في حال وجود بروكسي
VB.NET 2010