[elgokr]

لاتمام عمل المطلوب

تعال عند Sub الخاص بالسطر التالى

كود :

   Private Sub ShowFileInfo()

ستجد بداخله السطر الاتى

كود :

       TextBox1.Text = MyFile.FullName

فقط كل ما عليك فعله اسفل منه مباشر

كود :

       For Each OneElement In wb.Document.GetElementsByTagName("input")
           If OneElement.GetAttribute("type") = "file" Then
               If OneElement.GetAttribute("name") = "upfile_0" Then
                   Dim tr As New System.Threading.Thread(AddressOf SendK)
                   tr.Start()
                   OneElement.InvokeMember("click")
                   tr.Abort()
               End If
               Exit For
           End If
       Next

الان كل ما عليك اضافة الـ Sub التالى فى اى مكان

كود :

   Private Sub SendK()
       SendKeys.SendWait(MyFile.FullName) 'the file address path
       SendKeys.SendWait(Chr(13))
   End Sub

الان بمجرد سحب الملف واضافته فى الفورم 

سيقوم تلقائياً بفتح OpenFileDialog الخاص بالمتصفح 

ووضع المسار تلقائي دون تدخل منك من فم اخفاء OpenFileDialog

عند الانتهاء يمكنك الضغط على زر رفع الملف

تذكر يجب عليك تعديل التالى فى الحدث Button1_Click

اجعله على هذا الشكل لانك قمت بتغييره وبمجرد الاستخدام سيسبب معك مشكلة

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       wb.Document.GetElementById("upfile_0").InvokeMember("Click")
   End Sub

او يمكنك حذف الحدث تماماً بما انك ستعتمد على السحب

واتمنى ما قمت بطرحه الانسب لك مع عملية السحب لان هذه الطريقة هى الانسب مع حالة الموقع المستخدم

تحياتى لك

وتمنياتى لك التوفيق