[فاتن]

اصدقائي اريد منكم مساعدتي في طريقة اختيار ملف من الجهاز باستخدام اداة WebBrowser للتحكم بمنتدانا العزيز

لقد قمت بعمل برنامج صغير يقوم بالضغط على زر الاستعراض في موقع ما

وبعدها تظهر لي شاشة الديالوج Select File

واقوم يدوياً باختيار الملف وبعدها اضغط oK ولكن هذة الطريقة مملة وطويلة لانني اريد ان ارفع على الموقع في كل مرة اكثر من 10 صور

واريد الحل بجعل البرنامج لا يظهر الشاشة الافتراضية التي تظهر بل يقوم بارسال موقع الملف الى الشاشة ولكن وهي تعمل في الخلفية BackGround اي لا تظهر وقد حاولت اخفائها وان
اجعل البرنامج يتحكم بها لكن لم استطيع ذلك

وشاكرة لكم اهتمامكم

قمت بالبحث في جوجل ولكن لم استطع ايجاد الحل (رابط البحث)

وقد قمت سابقاً بعمل برنامج يقوم بسحب الصفحات وحفظها على الجهاز عن طريق اداة WebBrowser دون ظهور الشاشة الاعتيادية لتحديد مكان حفظ الملف

كما هو الحال في الكود التالي

PHP كود :

Public Function SavePages(ByVal links2s As String)

        Try

            Dim SaveFileDialog1 As New SaveFileDialog()
            SaveFileDialog1.Filter = "mht files (*.mht)|*.mht|All files (*.*)|*.*"


            wb.Navigate(links2s)
            Do Until wb.ReadyState = WebBrowserReadyState.Complete
                My.Application.DoEvents()
            Loop

            SavePage(wb.Url.ToString, "D:\All Pages Vb4arab\" & filename & ".mht")

        Catch ex As Exception

        End Try
    End Function

    Private Sub SavePage(ByVal Url As String, ByVal FilePath As String)
        Try

            Dim iMessage As CDO.Message = New CDO.Message
            iMessage.CreateMHTMLBody(Url, CDO.CdoMHTMLFlags.cdoSuppressObjects, "فاتن", "1234")
            Dim adodbstream As ADODB.Stream = New ADODB.Stream
            adodbstream.Type = ADODB.StreamTypeEnum.adTypeText
            adodbstream.Charset = "US-ASCII"
            adodbstream.Open()
            iMessage.DataSource.SaveToObject(adodbstream, "_Stream")
            adodbstream.SaveToFile(FilePath, ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
        Catch ex As Exception

            TextBox6.Text += "Error is : " & ex.Message & vbNewLine & "Url : " & Url & vbNewLine & "Path : " & FilePath & vbNewLine & "================" & vbNewLine

        End Try

    End Sub 


يوجد مثال للتعديل عليه مرفق

صورة توضيحية