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]