[Arquan_Grave]

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

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

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

[bidaya]

(16-08-19, 04:14 PM)Arquan_Grave كتب :

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

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

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

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

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

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

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

[ابو روضة]

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

[Arquan_Grave]

(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

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

[bidaya]

(16-08-19, 05:12 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 


[bidaya]

(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 وكنتُ قد استبعدت الامر لكني لم اصرح به وتفاجات انه يمكن ذلك من جواب لاحد الاخوة وفعلا صار بالامكان وكان .
لعل احد لديه تجارب وخبرات افضل لا نريد ان نجزم ننتظر احدهم لعله قريب او قريب.

[ابو روضة]

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

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

[bidaya]

(16-08-19, 08:26 PM)ابو روضة كتب :

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

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

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

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