تخطي نافذة لموقع file-up.org - نسخة قابلة للطباعة

كود :

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

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