Dosya TC Uploader [ vb.net ] [kod]

Maveraün Nehr · 26 Haz 2021

Selam arkadaşlar bugün sizlere webbrowser kodlarını kullanarak uzaktan dosya.tc sitesine dosya yükleme kodlarını paylaşacağım. Geliştirebilirsiniz umarım yararlı olur...
Gerekenler:
4 Adet Label Ekleyelim;
Label 1 Kalan Süre
Label 2 Tamamlanma Yüzdeliği
Label 3 Yüklenme Hızı
Label 4 İndirme Linki
4 Adet Textbox ekleyelim. Eklemiş olduğumuz her bir label ögesinin karşısına getirelim.
Bir adet RichTextbox ögesi ekleyelim içerisine URL yansıtacağız bu sayede dosyanın yüklenip yüklenmediğini gözlemleyeceğiz. Bunu da köşeye bir yere gizleyelim
Bir adet WebBrowser aracı ekleyelim ve formumuzda görünmeyecek bir köşeye gizleyelim URL'si;

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

dosya.tc

Forma 5 Adet buton ekleyelim.
Buton 1 Dosya Seç Olsun Kodları;

Kod:

 For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
            If Element.OuterHtml.Contains("upfile upfile_ultimo") Then
                Element.InvokeMember("click")
                Exit For
            End If
        Next Element
        MsgBox("Dosya Seçildi Lütfen Yükle Butonuna Basınız!", vbInformation, "Sistem")

Buton 2 Yükle Olsun Kodları;

Kod:

 For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
            If Element.OuterHtml.Contains("upload_button") Then
                Element.InvokeMember("click")
                Exit For
            End If
        Next Element
        Button4.PerformClick()

Buton 3 Yeni Dosya Yükle olsun visible özelliği False yapalım kodları;

Kod:

        WebBrowser1.Navigate("https://dosya.tc/")
        Button5.Visible = False
        Label4.Visible = False
        TextBox4.Visible = False
        Me.Text = "Dosya TC Uploader"

Buton 4 ilgili web sitesinde "+" özelliği ile detayları aktif edeceği için formumuzda köşeye bir yere gizleyelim kodları;

Kod:

    WebBrowser1.Document.GetElementById("upload_stats_toggle").InvokeMember("click")
        Button3.PerformClick()

Buton 4 Timer'ları aktif edecek kodları;

Kod:

 Timer1.Enabled = True
        Timer2.Enabled = True
        Timer3.Enabled = True
        Timer5.Enabled = True

5 Adet Timer Ekleyelim;
Timer 1 Enabled özelliği false ve Intervıval kısmı 75 olsun kodları;

Kod:

   Try
            Dim PageElement As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
            For Each CurElement As HtmlElement In PageElement
                If (CurElement.GetAttribute("id") = "est_time_left") Then
                    TextBox1.Text = CurElement.InnerText
                End If
            Next
        Catch ex As Exception
        End Try

Timer 2 Enabled özelliği false olsun ıntervıval kısmı 75 olsun kodları;

Kod:

 Try
            Dim PageElement As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
            For Each CurElement As HtmlElement In PageElement
                If (CurElement.GetAttribute("id") = "percent_complete") Then
                    TextBox2.Text = CurElement.InnerText
                End If
            Next
        Catch ex As Exception
        End Try

Timer 3 Enabled özelliği false olsun ıntervıval kısmı 75 olsun kodları;

Kod:

    Try
            Dim PageElement As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
            For Each CurElement As HtmlElement In PageElement
                If (CurElement.GetAttribute("id") = "est_speed") Then
                    TextBox3.Text = CurElement.InnerText + " KB/s"
                End If
            Next
        Catch ex As Exception
        End Try

Timer 4 Enabled özelliği false olsun ıntervıval kısmı 22 olsun kodları;

Kod:

 RichTextBox1.Text = WebBrowser1.Url.ToString

Timer 5 Enabled özelliği false olsun ıntervıval kısmı 75 olsun kodları;

Kod:

   If RichTextBox1.Text = "https://s6.dosya.tc/" Then
        Else
            Me.Text = "Yüklendi!"
            Label4.Visible = True
            TextBox4.Visible = True
            Timer1.Enabled = False
            Timer2.Enabled = False
            Timer3.Enabled = False
            Timer4.Enabled = False
            Timer5.Enabled = False
            TextBox1.Text = "00:00:00"
            TextBox2.Text = "0%"
            TextBox3.Text = "0 KB/s"
        End If

Form 1 Load Kısmına Web sitesinden gelen script hatalarını formumuzda göstermemesi için aşağıdaki kodları yazalım;

Kod:

 WebBrowser1.ObjectForScripting = True
        WebBrowser1.ScriptErrorsSuppressed = True

WebBrowser ögemiz web sitesi tam olarak açılmadan işlem yapmaya kalkarsak hata verebilir bu yüzden aşağıdaki kodu ekleyelim;

Kod:

   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Timer4.Enabled = True
        Button1.Visible = True
        Button2.Visible = True
    End Sub

İndirme Linki yazan Label'e tıklayınca(isterseniz buton koyabilirsiniz) yüklenmiş olan dosyamızın URL'si textbox ögesine aktarılacak bunun için aşağıdaki kodu kullanalım

Kod:

 Try
            Dim PageElement As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
            For Each CurElement As HtmlElement In PageElement
                If (CurElement.GetAttribute("className") = "kayit") Then
                    TextBox4.Text = CurElement.InnerText
                    TextBox4.Text = TextBox4.Text.Remove("&")
                End If
            Next
        Catch ex As Exception
        End Try

İndirme URL'sini kopyalamak için bir kod yazdım isterseniz butona veya herhangi bir öge içerisine yazabilirsiniz.

Kod:

  My.Computer.Clipboard.Clear()
        My.Computer.Clipboard.SetText(TextBox4.Text)
        MsgBox("Veriler Başarı İle Kopyalandı!", vbInformation, "Sistem")
        Button5.Visible = True

Örnek Form Düzeni;

CiHaN-i TuRaN · 26 Haz 2021

Eline emeğine sağlık dostum

sw1ndler · 27 Haz 2021

çok fazla kod yoğunlugu var hem webrowser hemde birsürü timer var çok fazla ram yiyeyecektir hiç bu toolara gerek olmadan php ile api gibi şeyler yazıp c# ile çekebilirsiniz yada ftp ye upluad ettirebilirsiniz

'Rio · 27 Haz 2021

Eline sağlık, güzel bir tasarımcı tasarıma el atsa harika olur

Maveraün Nehr · 27 Haz 2021

realomer' Alıntı:
Eline sağlık, güzel bir tasarımcı tasarıma el atsa harika olur

Tasarım konusunda haklısınız

3vn2odzn · 27 Haz 2021

Forumumuza yeni bir yazılımcı mı geldi yoksa

Eline emeğine sağlık çok güzel bir konu olmuş. Bu tarz içerikler her zaman değerini korumakta. Tebrikler

Maveraün Nehr · 27 Haz 2021

3vn2odzn' Alıntı:
Forumumuza yeni bir yazılımcı mı geldi yoksa Eline emeğine sağlık çok güzel bir konu olmuş. Bu tarz içerikler her zaman değerini korumakta. Tebrikler

Tabi ki sadece hobi olarak yazılım işleri ile ilgileniyorum

teşekkürler yorumunuz için. İnanın üzüldüğüm bir konu var veya kafamı kaşıyan yarın ne paylaşacağım konusu... O kadar azaldı ki konular bilgi toplamaya ve kod denemeye çalışıyorum her gün yeni bir bilgi ışığında. Yakında vip üye de olacağım ama önce paylaşmam gereken konu sayısını bitirmeli sonra bir tanışma konusu açmalı ardından vip olmalı gördüğünüz üzere her şey plan

Ghost Killer · 27 Haz 2021

eline sağlık.

FurDev · 29 Haz 2021

Eline sağlık.

Dosya TC Uploader [ vb.net ] [kod]

Maveraün Nehr

Blue Expert / Head of Malware Team

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

CiHaN-i TuRaN

Kıdemli Üye

sw1ndler

Katılımcı Üye

'Rio

Katılımcı Üye

Maveraün Nehr

Blue Expert / Head of Malware Team

3vn2odzn

Uzman üye

Maveraün Nehr

Blue Expert / Head of Malware Team

Ghost Killer

Harici Saldırı Timleri Koordinatörü

FurDev

Üye

Sosyal medya sayfalarımız