[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

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