لاتمام عمل المطلوب
تعال عند
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
او يمكنك حذف الحدث تماماً بما انك ستعتمد على السحب
واتمنى ما قمت بطرحه الانسب لك مع عملية السحب لان هذه الطريقة هى الانسب مع حالة الموقع المستخدم
تحياتى لك
وتمنياتى لك التوفيق