الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال عن الاتصال لرفع ملفات FTP عن طريق أي بي بروكسي وبورت

بدأه maaq6 في 7 أبريل 2011 · 5 رد · 728 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لدي برنامج استخدمة لتحديث موقعي بشكل يومي عن طريق رفع ملفات للموقع ومن ثم عمل التحديث

المهم في الموضوع هو أنني أحياننا أعمل على شبكة محلية مزودة بالانترنت عن طريق بروكسي

مثلا:

البروكسي اي بي هو : 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

تم تعديل هذه المشاركة بواسطة maaq6 في 7 أبريل 2011 في 16:22

#2

السلام عليكم ورحمه الله وبركاته

تأكد من الصلاحيات

Dim cr As New NetworkCredential("user", "pwd", "MyDomain")

وجرب البروكسي بالصورد التاليه

Dim pr As New WebProxy("IP", port)

1

.:: Wish to become better and better ::.

#3

الله يعطيك العافية

ممتاز الاتصال تم ولكن للأسف ظهرت لي مشكلة ثانية

The requested FTP command is not supported when using HTTP proxy.

#4

السلام عليكم ورحمه الله وبركاته

عليك ضبط البروكسي الي قيمه خاليه قبل تنفيذ العمليه مثلاً


request.Method = WebRequestMethods.Ftp.UploadFile
request.Proxy = Nothing

.:: Wish to become better and better ::.

#5
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

عليك ضبط البروكسي الي قيمه خاليه قبل تنفيذ العمليه مثلاً


request.Method = WebRequestMethods.Ftp.UploadFile
request.Proxy = Nothing

وعليكم السلام ورحمة الله

كل الشكر والتقدير لك أخي VB Helper

جربتها وكل شي تمام , التجربة كانت على جهازي وان شاء الله تنجح أيضا على الشبكة

شكرا جزيلا

#6

السلام عليكم ورحمه الله وبركاته

بالتوفيق اخي العزيز

.:: Wish to become better and better ::.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…