Görev yöneticisini Timer ile Kapatma

Görev yöneticisini Timer ile Kapatma  VB.NET

Kodu direk Code bölümüne yapıştırın.

Public Class Form1
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Int32

    Declare Function sendMessage Lib "USER32" Alias "SendMessageA" ( _
        ByVal hWnd As Int32, ByVal Msg As Int32, _
        ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim hwnd As Int32
        hwnd = FindWindow("#32770", vbNullString)
        SendMessage(hwnd, &H10, 0, 0)
    End Sub
End Class

Devamını Oku

Duvar Kağıdı Ekle

Duvar Kağıdı Ekle Programı VB.NET 

Programın adından da anlaşılacağı üzerine duvar kağıdı ekleme

programıdır.kendinizi geliştirebilecek bir proje.

Duvar Kağıdı Ekle Programı VB.NET 

PROJEYİ İNDİRMEK İÇİN TIKLA

 RAR PASS :www.visualbasicdersleri.com

KAYNAK: http://eraslancemil.blogspot.com.tr/

Devamını Oku

Reklam Pencereli Program

Reklam Pencereli Program

Programınıza 2 tane Form koyun. Form1 re Picturebox ekleyin.

pictureboxun FormBorderStyle sini None yapın.

daha sonra kodu kendinize göre ayarlayın.

Kullanıcı Sizin reklamınıza bastıktan sonra form2 ye yönlenecektir.

EKLENECEKLER:

2 FORM

1 PİCTUREBOX

Public Class Form1
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Form2.Show()
        Dim process As New System.Diagnostics.Process
        process.StartInfo.FileName = "www.visualbasicdersleri.com"
        process.StartInfo.Verb = "Open"
        process.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        process.Start()
    End Sub
End Class

Devamını Oku

TEKRARLANMAYAN Rastgele Sayı Üretmek

 TEKRARLANMAYAN Rastgele Sayı Üretmek

İstediğimiz kadar sayıyı ListBox ' a ekliyoruz.Button ' a tıkladığımız zaman ListBox daki sayılardan birini TextBox a yazdırıyor ve TextBox ' a yazdırdığı sayıyı ListBox'dan siliyor.Böylece Her seferinde farklı sayılar yazdırıyor.Kodlara geçelim: 

İlk önce formumuza bir adet Button , TextBox ve ListBox ekliyoruz.Button 'un adı "Button1" , TextBox 'ın adı "TextBox1" , ListBox ' ın adı "ListBox1" ve Formumuzun adı "Form1" olsun. 

ListBox1.Visible = False 'ListBox 'zımızı gizliyoruz. 
TextBox1.ReadOnly = True 'TextBox 'zımıza değer girilmesini engelliyoruz. 
For sayilar As Integer = 0 To 10 'ListBox 'zımıza 1 'den 10'na kadar sayı ekliyoruz. 
ListBox1.Items.Add(sayilar) 
Next 

Dim sayi As Integer 
Randomize()
sayi = Int(Rnd(1) * (ListBox1.Items.Count - 1)) 'Rastgele sayı üretiyoruz. 
ListBox1.SelectedIndex = sayi 'Üretilen sayının ListBox'da seçilmesini sağlıyoruz. 
TextBox1.Text = ListBox1.Items.Item(sayi) 'Seçilen İtemin TextBox1' de gösterilmesini sağlıyoruz. 
ListBox1.Items.Remove(ListBox1.SelectedItem) 'Seçilen İtemin silinmesini sağlıyoruz. 

Devamını Oku

TÜM Dosya İşlemleri

Bu derste VB.Net'te nasıl dosya işlemleri yapacağımızı öğreneceğiz.Başlayalım: 

Dosya Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveFile("C:\eski_klasor\dosya.txt", "C:\yeni_klasor\dosya.txt")

Klasör Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveDirectory("C:\eski_klasor", "C:\yeni_klasor")

 

Dosya Yaratma: 

Source Code

1. My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)

 

Klasör Yaratma: 

Source Code

1. My.Computer.FileSystem.CreateDirectory("C:\Yeni_klasor")

Dosya Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyFile("C:\kaynak.txt", "C:\yeni_klasor\hedef.txt")

Klasör Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyDirectory("C:\kaynak_klasor", "D:\yeni_klasor")

Sorgulu Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgulu Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgusuz Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Sorgusuz Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Belirtilen Dosya Var mı?: 

Source Code

1. Dim dvarmi As Boolean = My.Computer.FileSystem.FileExists("C:\Test.txt")If dvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

 

Belirtilen Klasör Var mı?: 

Source Code

1. Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists("C:\hedef_klasor")If kvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

Belirtilen Dosyanın Boyutu Kaç?: 

Source Code

1. Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo("C:\dosya.txt").Length

Belirtilen Diskin Boş Boyutunu Ne?: 

Source Code

1. Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace

Belirtilen Dosyadan Metin Okuma: 

Source Code

1. Dim dicerigi As String = My.Computer.FileSystem.ReadAllText("C:\Test.txt")

Dosyayı Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameFile("C:\eski.txt", "yeni.txt")

Klasörü Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameDirectory("C:\eski_klasor", "yeni_klasor")

Devamını Oku