Sizlerden İstediğim Şeyi Yaptım Arkadaşlar

Belki Lazım Olur Diye Kodları Söylüyorum. Sadece Programın Kapatılmasını Engellemek İçin Ne Yapmak Gerekiyor Onu Bilmiyorum. Yani Görev Yöneticisinden vs. Kapatılması Engellemek İçin Ne Yapmak Gerek Bilen Varsa Söyler Herhalde Örnek Olarak Eklentiye Bakabilirsiniz.

Public Class Form1

    Dim sayi As Integer



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Enabled = True

        Timer1.Interval = 300 'İstediğiniz Gibi Değiştirebilirsiniz

    End Sub



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



        If sayi = 100 Then

            Timer1.Enabled = False

            Label1.Text = "Yükleme Tamamlandı"

            'Alttakilerden Hangisini Kullanmak İsterseniz Keyfinize Kalmış

            'MsgBox("Bilgisayar Kapatılacaktır", MsgBoxStyle.Critical, "KAPAT")

            'Shell("shutdown -s -t 00", vbNormalFocus) 'Bilgisayarı Kapatır

            MsgBox("Bilgisayar Yeniden Başlatılacak", MsgBoxStyle.Critical, "YENİDEN BAŞLAT")

            Shell("shutdown -r", vbNormalFocus) 'Bilgisayarı Yeniden Başlatır

        Else

            sayi = sayi + 2 'ProgressBarın Artırtırma Sayısı 

            ProgressBar1.Value = sayi

            Label1.Text = "Yükleniyor % " & sayi

        End If





    End Sub

End Class

Ekiniz yönetici tarafından kaldırılmıştır.