Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Download Manager Kodları
#1
Şu -şu"Konuda Paylaştığım Programın Açık Kodları beyler
Form1.vb
Kod:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "ajanlar.org" And TextBox2.Text = "hekırşamo" Then
            Form2.Show()
            Me.Hide()
            MsgBox("Coded By ScReaM")
        Else
            MsgBox("Tekrar Deneyin")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Ajanlar.org Bir Ara Uğra Mübarek ;)-, MsgBoxStyle.Information, "ScReaM") Then
            End
        End If
    End Sub
End Class

Form2.vb
Kod:
Imports System.Net
Public Class Form2
    Public WithEvents download As New WebClient
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Network.DownloadFile(TextBox1.Text, TextBox2.Text, --, --, True, "90", False)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("Ajanlar.org Bir Ara Uğra Mübarek ;)-, MsgBoxStyle.Information, "ScReaM") Then
            End
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        FolderBrowserDialog1.ShowDialog()
        TextBox2.Text = FolderBrowserDialog1.SelectedPath
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        FolderBrowserDialog1.ShowDialog()
        TextBox2.Text = FolderBrowserDialog1.SelectedPath
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class
Ara
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Öneri - Fikir Packer/Crypter kaynak kodları defenacxe 14 2,704 09.03.2018, Saat:08:48
Son Yorum: secret_boy
  Visual Basic 2010 Express'de Dondurucu Kodları ScReaM 6 2,280 05.09.2017, Saat:17:51
Son Yorum: KODADIHACK
  Vb.Net ProxyList Kaynak Kodları CL4Y3R 6 799 26.04.2017, Saat:12:42
Son Yorum: Calvinator.KG
  Youtube Wiew Booster /vb.net Kaynak Kodları SKYERZ 0 420 25.04.2017, Saat:19:30
Son Yorum: SKYERZ
  Game maker Yurume Kodlari thebqaj 1 379 06.01.2017, Saat:20:16
Son Yorum: Trsz_kwT

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
escort mersin- ankara escort-