منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2 3

ما عم بفهم قصدك فى نقطة أنك بتريد تخطي نافذه اختيار الملف

لاكن انا عندما أبرمج هذه الاداه لهيك المواقع راح تكون مثل هذا

https://www.file-up.org/3a3bvq0ogl6b

(16-08-19, 04:14 PM)Arquan_Grave كتب : [ -> ]
ما عم بفهم قصدك فى نقطة أنك بتريد تخطي نافذه اختيار الملف

لاكن انا عندما أبرمج هذه الاداه لهيك المواقع راح تكون مثل هذا

https://www.file-up.org/3a3bvq0ogl6b

ماهذا اخي الكريم

هل انت تريد المساعدة ام الربح

انا حملت المثال لأدعمك

على العموم شكرا لك

افضل حل لهذه العملية أخى هى استخدام السيلينام

(16-08-19, 05:04 PM)bidaya كتب : [ -> ]
(16-08-19, 04:14 PM)Arquan_Grave كتب : [ -> ]
ما عم بفهم قصدك فى نقطة أنك بتريد تخطي نافذه اختيار الملف

لاكن انا عندما أبرمج هذه الاداه لهيك المواقع راح تكون مثل هذا

https://www.file-up.org/3a3bvq0ogl6b

ماهذا اخي الكريم

هل انت تريد المساعدة ام الربح

انا حملت المثال لأدعمك

على العموم شكرا لك

لا أخي لا تفهمني بالخطأ لاكن عم بسألك هل هذا ما تريد

تفضل أخي هذا كود الأداه

كود :

Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

            WebBrowser1.Document.GetElementById("file_0").InvokeMember("Click")

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Try

            WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("upload")(0).InvokeMember("Click")

            Timer2.Start()

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Clipboard.SetText(TextBox1.Text)

        MsgBox("Done ! Download Link On Copy")

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        WebBrowser1.Navigate("https://www.file-up.org/?op=upload_form")

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim url As String = WebBrowser1.Url.AbsoluteUri.ToString()

        If url = "https://www.file-up.org/?op=upload_form" Then

            Timer1.Dispose()

        Else

            If WebBrowser1.Document.GetElementsByTagName("a").GetElementsByName("file_name")(0).InnerText <> "" Then

                Dim allElement As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("textarea")

                For Each myElement As HtmlElement In allElement

                    If myElement.GetAttribute("className") = "form-control" Then

                        TextBox1.Text = myElement.InnerText

                        ProgressBar1.Value = 100

                        Exit For

                    End If

                    Timer1.Dispose()

                Next

            Else

                MsgBox("Please Wait Till Your Uploade Finish")

                ProgressBar1.Value += 20

                ProgressBar1.Value -= 10

                ProgressBar1.Value += 5

                ProgressBar1.Value -= 15

            End If

        End If

        WebBrowser1.Navigate("https://www.file-up.org/?op=upload_form")

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        Dim url As String = WebBrowser1.Url.AbsoluteUri.ToString()

        If url = "https://www.file-up.org/?op=upload_form" Then

        Else

            Timer1.Start()

        End If

    End Sub

End Class

انا لا أريد أن أربح شئ
لاكن كنت عم بسئل هذه الأداه المطلوبه ؟! أم لاء

(16-08-19, 05:12 PM)ابو روضة كتب : [ -> ]
افضل حل لهذه العملية أخى هى استخدام السيلينام

الرسول صلى الله عليه وسلم عن الصلاة قال لبلال ارحنا بها يابلال

لهذا اقول لك

أفدنا بها يا ابو روضة

رزقك الله روضة من رياض الجنة

الغريب اني جربت SendKeys على واجهة عادية ليست ويب قمت باظهار OpenFileDialog واضفت Timer ووضعت فيه كود الاسناد اي مسار ولم يتغير شيء Sad

على كل حال من لديه معلومة لن يتاخر بها.

آخر محاولة نجحت في تطبيق مكتبي
وهو يقوم باسناد مسار مخصص ثم يتم النقر على Enter
لكن لابد من ظهور مربع الحوار لان الخادم(اتحدث عن لو كان موقع بعيد) يتعامل الا مع الاداة خاصته.

PHP كود :

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim o As New OpenFileDialog
        Timer1.Start()
        o.ShowDialog()
        TextBox1.Text = o.FileName
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        SendKeys.Send("E:\Users\Public\Pictures\Sample Pictures\صحراء.jpg")
        SendKeys.Send("{Enter}")
    End Sub 

(16-08-19, 06:47 PM)سعود كتب : [ -> ]الغريب اني جربت SendKeys على واجهة عادية ليست ويب قمت باظهار OpenFileDialog واضفت Timer ووضعت فيه كود الاسناد اي مسار ولم يتغير شيء
على كل حال من لديه معلومة لن يتاخر بها.

آخر محاولة نجحت في تطبيق مكتبي
وهو يقوم باسناد مسار مخصص ثم يتم النقر على Enter
لكن لابد من ظهور مربع الحوار لان الخادم(اتحدث عن لو كان موقع بعيد) يتعامل الا مع الاداة خاصته.

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim o As New OpenFileDialog Timer1.Start() o.ShowDialog() TextBox1.Text = o.FileName End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Timer1.Stop() SendKeys.Send("E:\Users\Public\Pictures\Sample Pictures\صحراء.jpg") SendKeys.Send("{Enter}") End Sub

اذن خلاصة الموضوع انه لا بد من ظهور مربع الحوار

إقتباس :اذن خلاصة الموضوع انه لا بد من ظهور مربع الحوار

اذكر فيه سؤال عن امكانية احتضان فورم ضمن Panel وكنتُ قد استبعدت الامر لكني لم اصرح به وتفاجات انه يمكن ذلك من جواب لاحد الاخوة وفعلا صار بالامكان وكان .
لعل احد لديه تجارب وخبرات افضل لا نريد ان نجزم ننتظر احدهم لعله قريب او قريب.

ثوانى هاعمل لك مثال بالسيلينيام لكن سيتم فتح كروم وسيعمل هو من تلقاء نفسة

فهل هذا مناسب لك ؟

(16-08-19, 08:26 PM)ابو روضة كتب : [ -> ]
ثوانى هاعمل لك مثال بالسيلينيام لكن سيتم فتج كروم وسيعمل هو من تلقاء نفسة

فهل هذا مناسب لك ؟

وكيف لا يناسبني وانت تساعدني اخي

سنستفيد جميعا من هته المشاركة

الصفحات : 1 2 3