jump4545

Eğer indirme işleminde sorun varsa aşağıdaki kodları dene  'Kodlarda yanlışlıklar var onları aşağıya yazıyorum '1 - download.DownloadDataAsync(Eğer dosya indirme istiyorsan download.DownloadFileAsync kullanacaksın) '2 - kayit_adi değişkenini kod sıralamasına göre tanımlaman lazım eğer kaydet.ShowDialog() kodunu çağırmadan önce yazarsan boş değer döndür bunun sonucunda işlem başlamadan biter. 'Doğru kodlar aşağıdadır hepsini denedim çalışıyor aynısını alıp yapıştır. void Download(string link) { SaveFileDialog kaydet = new SaveFileDialog(); kaydet.Filter = "MP3 Dosyası (*.mp3)|*.mp3"; if (kaydet.ShowDialog() == System.Windows.Forms.DialogResult.OK) { string kayit_adi = kaydet.FileName; WebClient download = new WebClient(); download.DownloadFileAsync(new Uri(link),kayit_adi); download.DownloadProgressChanged += download_DownloadProgressChanged; download.DownloadFileCompleted += download_DownloadFileComplete; } } void download_DownloadProgressChanged(object sender, DownloadProgressChangedEventArgs e) { progressBar1.Value = e.ProgressPercentage; } void download_DownloadFileComplete(object sender, AsyncCompletedEventArgs e) { MessageBox.Show("İndirildi"); }

Şuanda yukarıdaki kodlar indirme işlemini yapıyor mu?

@MasterTR Tamam kardeşim kodlarını resmin altına paylaşırım. Ama kodlarda açıklar var baştan söyleyem.

@Bbheytullah_1993 Evet biliyorum programda açıklar var o açıkları kapatınca projeyi tekrar yayınlarım.

murathassoy kardeşim evet senin programdan biraz alıntı yaptım bu örnek bir proje.

Arkdaşlar bende biliyorum .Net istediğini ama öylesine paylşayım dedim. Belki bilmeyen arkdaşlar vardır vb hakkında yardımcı olmuş olurum.

[center]Merhaba arkdaşlar sizlere VISUAL BASIC 2010 ile hazırladıgım AIO projemi ve exe sini burada ypaylaşıyorum. Örnek olarak exe nin bir resmini aşagıya koydum. Eğer VISUAL BASIC dilini biliyorsanız bu projeyi çok geliştirebilirsiniz. Bilmiyorsanız internette Görsel Anlatım Setleri ve Resimli,Örnekli Anlatımı olan PDF dosyaları var bunlarla kendinizi geliştirebilirisiz.[/center] [center]Link:[/center] [center][code][media]http://www.mediafire.com/?suq3kjd3zgkfjjc[/media][/code][/center] [center][img]http://www.tnctr.com/uploads/imgs/pre_1308775242__goruntu1.jpg[/img][/center] [codebox] Imports System.IO Public Class Form1 Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox3.CheckedChanged If CheckBox3.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox4.CheckedChanged If CheckBox4.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox5.CheckedChanged If CheckBox5.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox6.CheckedChanged If CheckBox6.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox7_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox7.CheckedChanged If CheckBox7.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox8_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox8.CheckedChanged If CheckBox8.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox9_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox9.CheckedChanged If CheckBox9.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox10_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox10.CheckedChanged If CheckBox10.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox11_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox11.CheckedChanged If CheckBox11.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox12_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox12.CheckedChanged If CheckBox12.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox13_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox13.CheckedChanged If CheckBox13.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox14_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox14.CheckedChanged If CheckBox14.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox15_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox15.CheckedChanged If CheckBox15.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox16_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox16.CheckedChanged If CheckBox16.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox17_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox17.CheckedChanged If CheckBox17.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox18_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox18.CheckedChanged If CheckBox18.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox19_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox19.CheckedChanged If CheckBox19.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox38_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox38.CheckedChanged If CheckBox38.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox37_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox37.CheckedChanged If CheckBox37.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox36_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox36.CheckedChanged If CheckBox36.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox35_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox35.CheckedChanged If CheckBox35.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox34_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox34.CheckedChanged If CheckBox34.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox33_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox33.CheckedChanged If CheckBox33.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox32_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox32.CheckedChanged If CheckBox32.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox31_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox31.CheckedChanged If CheckBox31.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox30_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox30.CheckedChanged If CheckBox30.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox29_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox29.CheckedChanged If CheckBox29.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox28_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox28.CheckedChanged If CheckBox28.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox27_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox27.CheckedChanged If CheckBox27.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox26_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox26.CheckedChanged If CheckBox26.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox25_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox25.CheckedChanged If CheckBox25.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox24_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox24.CheckedChanged If CheckBox24.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox23_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox23.CheckedChanged If CheckBox23.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox22_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox22.CheckedChanged If CheckBox22.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox21_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox21.CheckedChanged If CheckBox21.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox20_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox20.CheckedChanged If CheckBox20.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox57_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox57.CheckedChanged If CheckBox57.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox56_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox56.CheckedChanged If CheckBox56.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox55_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox55.CheckedChanged If CheckBox55.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox54_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox54.CheckedChanged If CheckBox54.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox53_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox53.CheckedChanged If CheckBox53.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox52_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox52.CheckedChanged If CheckBox52.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox51_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox51.CheckedChanged If CheckBox51.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox50_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox50.CheckedChanged If CheckBox50.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox49_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox49.CheckedChanged If CheckBox49.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox48_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox48.CheckedChanged If CheckBox48.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox47_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox47.CheckedChanged If CheckBox47.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox46_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox46.CheckedChanged If CheckBox46.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox45_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox45.CheckedChanged If CheckBox45.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox44_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox44.CheckedChanged If CheckBox44.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox43_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox43.CheckedChanged If CheckBox43.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox42_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox42.CheckedChanged If CheckBox42.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox41_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox41.CheckedChanged If CheckBox41.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox40_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox40.CheckedChanged If CheckBox40.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox39_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox39.CheckedChanged If CheckBox39.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox76_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox76.CheckedChanged If CheckBox76.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox75_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox75.CheckedChanged If CheckBox75.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox74_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox74.CheckedChanged If CheckBox74.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox73_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox73.CheckedChanged If CheckBox73.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox72_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox72.CheckedChanged If CheckBox72.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox71_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox71.CheckedChanged If CheckBox71.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox70_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox70.CheckedChanged If CheckBox70.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox69_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox69.CheckedChanged If CheckBox69.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox68_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox68.CheckedChanged If CheckBox68.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox67_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox67.CheckedChanged If CheckBox67.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox66_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox66.CheckedChanged If CheckBox66.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox65_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox65.CheckedChanged If CheckBox65.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox64_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox64.CheckedChanged If CheckBox64.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox63_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox63.CheckedChanged If CheckBox63.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox62_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox62.CheckedChanged If CheckBox62.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox61_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox61.CheckedChanged If CheckBox61.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox60_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox60.CheckedChanged If CheckBox60.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox59_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox59.CheckedChanged If CheckBox59.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox58_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox58.CheckedChanged If CheckBox58.Checked = True Then Label7.Text += 1 Else Label7.Text -= 1 End If End Sub Private Sub CheckBox78_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox78.CheckedChanged If CheckBox78.Checked = True Then CheckBox1.Checked = True CheckBox2.Checked = True CheckBox3.Checked = True CheckBox4.Checked = True CheckBox5.Checked = True CheckBox6.Checked = True CheckBox7.Checked = True CheckBox8.Checked = True CheckBox9.Checked = True CheckBox10.Checked = True CheckBox11.Checked = True CheckBox12.Checked = True CheckBox13.Checked = True CheckBox14.Checked = True CheckBox15.Checked = True CheckBox16.Checked = True CheckBox17.Checked = True CheckBox18.Checked = True CheckBox19.Checked = True CheckBox20.Checked = True CheckBox21.Checked = True CheckBox22.Checked = True CheckBox23.Checked = True CheckBox24.Checked = True CheckBox25.Checked = True CheckBox26.Checked = True CheckBox27.Checked = True CheckBox28.Checked = True CheckBox29.Checked = True CheckBox30.Checked = True CheckBox31.Checked = True CheckBox32.Checked = True CheckBox33.Checked = True CheckBox34.Checked = True CheckBox35.Checked = True CheckBox36.Checked = True CheckBox37.Checked = True CheckBox38.Checked = True CheckBox39.Checked = True CheckBox40.Checked = True CheckBox41.Checked = True CheckBox42.Checked = True CheckBox43.Checked = True CheckBox44.Checked = True CheckBox45.Checked = True CheckBox46.Checked = True CheckBox47.Checked = True CheckBox48.Checked = True CheckBox49.Checked = True CheckBox50.Checked = True CheckBox51.Checked = True CheckBox52.Checked = True CheckBox53.Checked = True CheckBox54.Checked = True CheckBox55.Checked = True CheckBox56.Checked = True CheckBox57.Checked = True CheckBox58.Checked = True CheckBox59.Checked = True CheckBox60.Checked = True CheckBox61.Checked = True CheckBox62.Checked = True CheckBox63.Checked = True CheckBox64.Checked = True CheckBox65.Checked = True CheckBox66.Checked = True CheckBox67.Checked = True CheckBox68.Checked = True CheckBox69.Checked = True CheckBox70.Checked = True CheckBox71.Checked = True CheckBox72.Checked = True CheckBox73.Checked = True CheckBox74.Checked = True CheckBox75.Checked = True CheckBox76.Checked = True Else CheckBox1.Checked = False CheckBox2.Checked = False CheckBox3.Checked = False CheckBox4.Checked = False CheckBox5.Checked = False CheckBox6.Checked = False CheckBox7.Checked = False CheckBox8.Checked = False CheckBox9.Checked = False CheckBox10.Checked = False CheckBox11.Checked = False CheckBox12.Checked = False CheckBox13.Checked = False CheckBox14.Checked = False CheckBox15.Checked = False CheckBox16.Checked = False CheckBox17.Checked = False CheckBox18.Checked = False CheckBox19.Checked = False CheckBox20.Checked = False CheckBox21.Checked = False CheckBox22.Checked = False CheckBox23.Checked = False CheckBox24.Checked = False CheckBox25.Checked = False CheckBox26.Checked = False CheckBox27.Checked = False CheckBox28.Checked = False CheckBox29.Checked = False CheckBox30.Checked = False CheckBox31.Checked = False CheckBox32.Checked = False CheckBox33.Checked = False CheckBox34.Checked = False CheckBox35.Checked = False CheckBox36.Checked = False CheckBox37.Checked = False CheckBox38.Checked = False CheckBox39.Checked = False CheckBox40.Checked = False CheckBox41.Checked = False CheckBox42.Checked = False CheckBox43.Checked = False CheckBox44.Checked = False CheckBox45.Checked = False CheckBox46.Checked = False CheckBox47.Checked = False CheckBox48.Checked = False CheckBox49.Checked = False CheckBox50.Checked = False CheckBox51.Checked = False CheckBox52.Checked = False CheckBox53.Checked = False CheckBox54.Checked = False CheckBox55.Checked = False CheckBox56.Checked = False CheckBox57.Checked = False CheckBox58.Checked = False CheckBox59.Checked = False CheckBox60.Checked = False CheckBox61.Checked = False CheckBox62.Checked = False CheckBox63.Checked = False CheckBox64.Checked = False CheckBox65.Checked = False CheckBox66.Checked = False CheckBox67.Checked = False CheckBox68.Checked = False CheckBox69.Checked = False CheckBox70.Checked = False CheckBox71.Checked = False CheckBox72.Checked = False CheckBox73.Checked = False CheckBox74.Checked = False CheckBox75.Checked = False CheckBox76.Checked = False End If End Sub Private Sub CheckBox77_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox77.CheckedChanged If CheckBox78.Checked = False Then If CheckBox77.Checked = True Then CheckBox1.Checked = True CheckBox13.Checked = True CheckBox34.Checked = True CheckBox31.Checked = True CheckBox56.Checked = True CheckBox45.Checked = True CheckBox63.Checked = True CheckBox74.Checked = True Else CheckBox1.Checked = False CheckBox13.Checked = False CheckBox34.Checked = False CheckBox31.Checked = False CheckBox56.Checked = False CheckBox45.Checked = False CheckBox63.Checked = False CheckBox74.Checked = False End If Else CheckBox77.Checked = False End If End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click On Error Resume Next If Label7.Text = "0" Then MsgBox("Lütfen Kurulum Için Bir Program Seçin !", vbExclamation, "Uyarı !") Else Timer2.Start() If CheckBox1.Checked = True Then Shell("Data/1.exe") End If If CheckBox2.Checked = True Then Shell("Data/2.exe") End If If CheckBox3.Checked = True Then Shell("Data/3.exe") End If If CheckBox4.Checked = True Then Shell("Data/4.exe") End If If CheckBox5.Checked = True Then Shell("Data/5.exe") End If If CheckBox6.Checked = True Then Shell("Data/6.exe") End If If CheckBox7.Checked = True Then Shell("Data/7.exe") End If If CheckBox8.Checked = True Then Shell("Data/8.exe") End If If CheckBox9.Checked = True Then Shell("Data/9.exe") End If If CheckBox10.Checked = True Then Shell("Data/10.exe") End If If CheckBox11.Checked = True Then Shell("Data/11.exe") End If If CheckBox12.Checked = True Then Shell("Data/12.exe") End If If CheckBox13.Checked = True Then Shell("Data/13.exe") End If If CheckBox14.Checked = True Then Shell("Data/14.exe") End If If CheckBox15.Checked = True Then Shell("Data/15.exe") End If If CheckBox16.Checked = True Then Shell("Data/16.exe") End If If CheckBox17.Checked = True Then Shell("Data/17.exe") End If If CheckBox18.Checked = True Then Shell("Data/18.exe") End If If CheckBox19.Checked = True Then Shell("Data/19.exe") End If If CheckBox10.Checked = True Then Shell("Data/20.exe") End If If CheckBox21.Checked = True Then Shell("Data/21.exe") End If If CheckBox22.Checked = True Then Shell("Data/22.exe") End If If CheckBox23.Checked = True Then Shell("Data/23.exe") End If If CheckBox24.Checked = True Then Shell("Data/4.exe") End If If CheckBox25.Checked = True Then Shell("Data/25.exe") End If If CheckBox26.Checked = True Then Shell("Data/26.exe") End If If CheckBox27.Checked = True Then Shell("Data/27.exe") End If If CheckBox28.Checked = True Then Shell("Data/28.exe") End If If CheckBox29.Checked = True Then Shell("Data/29.exe") End If If CheckBox30.Checked = True Then Shell("Data/30.exe") End If If CheckBox31.Checked = True Then Shell("Data/31.exe") End If If CheckBox32.Checked = True Then Shell("Data/32.exe") End If If CheckBox33.Checked = True Then Shell("Data/33.exe") End If If CheckBox34.Checked = True Then Shell("Data/34.exe") End If If CheckBox35.Checked = True Then Shell("Data/35.exe") End If If CheckBox36.Checked = True Then Shell("Data/36.exe") End If If CheckBox37.Checked = True Then Shell("Data/37.exe") End If If CheckBox38.Checked = True Then Shell("Data/38.exe") End If If CheckBox39.Checked = True Then Shell("Data/39.exe") End If If CheckBox40.Checked = True Then Shell("Data/40.exe") End If If CheckBox41.Checked = True Then Shell("Data/41.exe") End If If CheckBox42.Checked = True Then Shell("Data/42.exe") End If If CheckBox43.Checked = True Then Shell("Data/43.exe") End If If CheckBox44.Checked = True Then Shell("Data/44.exe") End If If CheckBox45.Checked = True Then Shell("Data/45.exe") End If If CheckBox46.Checked = True Then Shell("Data/46.exe") End If If CheckBox47.Checked = True Then Shell("Data/47.exe") End If If CheckBox48.Checked = True Then Shell("Data/48.exe") End If If CheckBox49.Checked = True Then Shell("Data/49.exe") End If If CheckBox50.Checked = True Then Shell("Data/50.exe") End If If CheckBox51.Checked = True Then Shell("Data/51.exe") End If If CheckBox52.Checked = True Then Shell("Data/52.exe") End If If CheckBox53.Checked = True Then Shell("Data/53.exe") End If If CheckBox54.Checked = True Then Shell("Data/54.exe") End If If CheckBox55.Checked = True Then Shell("Data/55.exe") End If If CheckBox56.Checked = True Then Shell("Data/56.exe") End If If CheckBox57.Checked = True Then Shell("Data/57.exe") End If If CheckBox58.Checked = True Then Shell("Data/58.exe") End If If CheckBox59.Checked = True Then Shell("Data/9.exe") End If If CheckBox60.Checked = True Then Shell("Data/60.exe") End If If CheckBox61.Checked = True Then Shell("Data/61.exe") End If If CheckBox62.Checked = True Then Shell("Data/62.exe") End If If CheckBox63.Checked = True Then Shell("Data/63.exe") End If If CheckBox64.Checked = True Then Shell("Data/64.exe") End If If CheckBox65.Checked = True Then Shell("Data/65.exe") End If If CheckBox66.Checked = True Then Shell("Data/66.exe") End If If CheckBox67.Checked = True Then Shell("Data/67.exe") End If If CheckBox68.Checked = True Then Shell("Data/68.exe") End If If CheckBox69.Checked = True Then Shell("Data/69.exe") End If If CheckBox70.Checked = True Then Shell("Data/70.exe") End If If CheckBox71.Checked = True Then Shell("Data/71.exe") End If If CheckBox72.Checked = True Then Shell("Data/72.exe") End If If CheckBox73.Checked = True Then Shell("Data/73.exe") End If If CheckBox74.Checked = True Then Shell("Data/74.exe") End If If CheckBox75.Checked = True Then Shell("Data/75.exe") End If If CheckBox76.Checked = True Then Shell("Data/76.exe") End If End If End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.Hide() Form2.Show() End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick lblSaat.Text = TimeOfDay & ":" & TimeOfDay.Second lblTarih.Text = Date.Today End Sub Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick If ProgressBar1.Value = 100 Then Timer2.Enabled = False MsgBox("Kurulum Tamamlandı !", vbInformation, "Bilgi !") ProgressBar1.Value = 0 Label1.Text = "" Else Label1.Text = "% " & ProgressBar1.Value ProgressBar1.Value += 1 Timer2.Enabled = True End If End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click MsgBox("Bu Program AHMET BEDİR (BYT5) Tarafından Kodlanmış ve Hazırlanmıştır.", , "Hakkında") End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End Sub End Class [/codebox]

VirtualBox için Windows 7 ISO dosyası oluşturdurdum hemde bir kaç programla ama yinede çalışmadı Yardım edenler şimdiden Tüşekkürler...

Private Sub Command1_Click() Dim Sayi1, Sayi2 As Integer Sayi1 = Text1.Text Sayi2 = Text2.Text If Sayi1 > Sayi2 Then MsgBox "Sayı 1 Sayı 2 den Büyüktür" ElseIf Sayi2 > Sayi1 Then MsgBox "Sayı 2 Sayı 1 den Büyüktür" Else MsgBox "Sayı1 ve Sayı2 Eşittir" End If End Sub

Private Sub Command2_Click() Shell App.Path & "Dosya Yolu", vbNormalFocus ÖRNEK: Shell App.Path & "\Program.exe", vbNormalFocus 'App.Path Programın bulundugu klasörde veya bulugudu alandaki yerde istediğiniz program varsa çalışır End Sub

Private Sub Command1_Click() Dim resbytes() As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App.Path & "\Program-Adı.exe" For Binary As #no Put #no, , resbytes Close #no Shell App.Path & "\Program-Adı.exe", vbNormalFocus End Sub

[size="2"][center][color="#0000FF"][b]Merhaba ben bu hata için program hazırladım ve bu programla kolayca korumayı açıp kapata bilirsiniz.[/b][/color][/center][/size] [center][code]http://www.mediafire.com/?b5ub2axbz60cdh7[/code][/center]