Merhabalar Öncellikle Program Hakkında Bir Kaç Birşey Söylemek İstiyorum...

Yapacağım Programda Bir Tane Label Ve ProgressBar Olacak.
Program Çalıştığında Bir Kaç Saniye Sonra ProgressBar Dolmaya Başlayacak Ve Value Değeri Labelde Gözükecek. ProgressBar Dolduktan Sonra Virüs Yüklendi Diyecek Ve Bilgisayar Kapanacak.

Benim Sizden İstediğim ProgressBarın Dolumu Ve Labelde Yüzde Olarak Kaç Olduğunu Göstermek ProgressBar Yavaş Yavaş Dolacak Yaklaşık 1 Dk Kadar...

Yardımlarınızı Esirgemeyin Arkadaşlar

Çok faydalı bi çalışma olacak,merakla bekliyorum

Çok Faydalı Olmasa Bile Karşıdaki Kişiyi Korkutmak Yeter O Korku Yeter Ona

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.

bie arkadaş pc kapatma programı yapmıştı
avatarı bu konuyu açan arkadaşa çok benziyordu
saygı kuralları ile h,ç tanışıklığı yoktu
umarım aynı problemleri yaşamayız

Sn. Accessman Avatarımı Benzetmiş Olabilirsin Bu Resmi İlk Defa Burda Kullandım Yani O Saygı Kuralları ile Hiç Tanışıklığını Olmayan Ben Değilim