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

Klasör gizleme Gösterme

Klasör gizleme Gösterme

Programa 2 tane button koyuyorsunuz. 

1 buttonu GİZLE 2.buttonu ise GÖSTER yapıyorsunuz.

FolderBrowserDialog ekliyorsunuz. daha sonra kodları yapıştırıyorsunuz.

debug  yaptıktan sonra GİZLE den klasörü seçiyorsunuz.

TAMAM bastığınızda klasörü gizler.

tekrar açmak istediğinizde GÖSTER den klasörü seçin ve görünür hale

gelecektir kolay gele.

Public Class Form1 'http://www.visualbasicdersleri.com/
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'http://www.visualbasicdersleri.com/
        Dim DznGizle As String
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 'http://www.visualbasicdersleri.com/
            'Gizlenecek Klasörü Seç
            DznGizle = FolderBrowserDialog1.SelectedPath.TrimEnd

            Dim Gizle As New System.IO.DirectoryInfo(DznGizle)
            'Seçilen Klasör özelliği hidden yapılarak Gizlenecek
            Gizle.Attributes = IO.FileAttributes.Hidden
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DizinGoster As String
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'Gösterilecek Gizli  Klasörü Seç
            DizinGoster = FolderBrowserDialog1.SelectedPath.TrimEnd

            Dim Goster As New System.IO.DirectoryInfo(DizinGoster) 'http://www.visualbasicdersleri.com/
            'Seçilen Klasör özelliği Normel yapılarak Gösterilir duruma getirilecek
            Goster.Attributes = IO.FileAttributes.Normal
        End If
    End Sub
End Class

Devamını Oku

Resim Çizimi

Resim Çizimi VB.NET

Başlıkta da belirtildiği gibi kodları yerleştirdiğiniz zaman paint gibi programınızın üzerinde çizim yapabilirsiniz.

Public Class Form1
    Dim x1, y1 As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            x1 = e.X
            y1 = e.Y
        End If
        If e.Button = Windows.Forms.MouseButtons.Right Then
            x1 = e.X
            y1 = e.Y
        End If
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Dim renk As New System.Drawing.Pen(System.Drawing.Color.Red)
            Dim grafik As System.Drawing.Graphics
            grafik = Me.CreateGraphics()
            grafik.DrawLine(renk, e.X, e.Y, x1, y1)
            renk.Dispose()
            grafik.Dispose()
            x1 = e.X
            y1 = e.Y
        ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
            Dim renk As New System.Drawing.Pen(Me.BackColor)
            Dim grafik As System.Drawing.Graphics
            grafik = Me.CreateGraphics()
            grafik.DrawLine(renk, e.X, e.Y, x1, y1)
            renk.Dispose()
            grafik.Dispose()
            x1 = e.X
            y1 = e.Y
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Process.Start("chrome.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("iexplore.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("browser.exe", "http://www.visualbasicdersleri.com/")
    End Sub
End Class

Devamını Oku

Şans İşi Programı

Şans İşi Programı

bu program biraz sallamasyon gibi oldu neyse 

programda 5 tane form bulunmaktadır.

Form1 den diğer formlara yönlenmektedir.

EKLENECEKLER:

8 button

5 label

42 tane textbox

Şans İşi Programı form1 görüntüsü

görselde de göründüğü gibi ister loto ister süper lotoya giriş buttona tıkladığı zaman random sayılar çıkıcaktır.

Şanş İşi Programı

KODLARI İNDİRMEK İÇİN TIKLA

RAR PASS : visualbasicdersleri.com

Devamını Oku

Site Engellemek

vb.nette siteyi engellemek

kodda host üzerinden yazdığınız siteyi engellemektedir.

Eklenecekler:

1 label

1 Textbox

1 Button

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Dizin As String = "C:\Windows\System32\drivers\etc\hosts"
        Dim yazici As New StreamWriter(Dizin, True)
        Dim Adres As String = TextBox1.Text'textbox daki siteyi engeller.
        Dim SiteEngelle As String = vbLf & "127.0.0.1 " & Adres
        yazici.Write(SiteEngelle)'www.visualbasicdersleri.com
        yazici.Close()
        MessageBox.Show("Siteyi engelledin")
    End Sub
End Class

Devamını Oku

Bir Websitenin IP Adresini Bulmak

VB.NETTE Bir Websitenin IP Adresini Bulmak

Eklenecekler:

2  textbox

2 Label

1 Button

Textbox2 yani IP gelecek yerin Properties den ReadOnly True yapın yazı yazılmasını engellemek için.

Imports System.Net
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Adres As String = TextBox1.Text 'visualbasicdersleri.com
        Dim Tespit As IPHostEntry = Dns.GetHostByName(Adres)
        Dim IPAdresi As IPAddress() = Tespit.AddressList
        TextBox2.Text = IPAdresi(0).ToString
    End Sub
End Class

Bir Websitenin IP Adresini Bulmak

Devamını Oku

Formu yakıp Söndürme

Formu yakıp Söndürme

Bu vereceğim kodda form1 sürekli gidip gidip gelmektedir.

yani visible özelligi false daha sonra true olmaktadır bu döngü devamlı döner.

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Visible = True Then
            Me.Visible = False
        Else
            Me.Visible = True
        End If
    End Sub
End Class

Devamını Oku

Sayısal loto programı

Bu yayında sayısal loto programını yaptık.

Programın İşlevi:

Belirle butonuna basıldığı zaman 6 tane label den rastgele sayılar oluşturmaktadır.

Forma eklenecekler:

6 tane label

1 tane button

Sayısal loto yapımı vb.net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sayilar(5) As Integer 'Sayısal lotoda 6 sayı üretildiği için 6 elemanlı dizi oluşturuldu.
        Dim rsayi, sayac As Integer
        sayac = 0 'visualbasicdersleri.com
        While sayac < 6
            rsayi = Int(Rnd() * 49 + 1) '1 ile 49 arasında rastgele sayı üretiliyor
            If (Array.IndexOf(sayilar, rsayi) = -1) Then
                sayilar(sayac) = rsayi
                sayac = sayac + 1
            End If
        End While
        Array.Sort(sayilar)
        Label1.Text = sayilar(0)
        Label2.Text = sayilar(1)
        Label3.Text = sayilar(2)
        Label4.Text = sayilar(3)
        Label5.Text = sayilar(4)
        Label6.Text = sayilar(5)
    End Sub
End Class

Devamını Oku

Tekrar Çalıştırma chexboxlu

Daha önceki yayınımızda direk açılmamasını engelliyordu.

bu sefer de chexboxlu yapıldı.

kullanan kişi chexboxa basarsa program ikinci kez açılmayacak.

Bu programı tekrar çalıştır chexbox

Tekrar çalıştırma vb.net
Program alıntıdır

Arşivde saklamakta fayda var yapamayan olursa yorum atması yeterli.

Public Class Form1
    Private CalisanVarMi As System.Threading.Mutex 'visualbasicdersleri.com
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.CheckBox1.Checked = GetSetting(Application.StartupPath, Application.ProductName, "BirKezCalistir", False)
        If CheckBox1.Checked = False Then
            'Iki kez çalıştırmayı önlemek için kontrol kodları...
            CalisanVarMi = New System.Threading.Mutex(False, "MyApplicationName")
            If CalisanVarMi.WaitOne(0, False) = False Then
                CalisanVarMi.Close() 'visualbasicdersleri.com
                CalisanVarMi = Nothing
                MessageBox.Show(" Başka bir örneği zaten çalışıyor!")
                End
            End If
        End If

    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged 'visualbasicdersleri.com
        If CheckBox1.Checked = False Then
            CheckBox1.Text = "Program Tekrar çalıştırılmasın"
        Else
            CheckBox1.Text = "Program Birden fazla çalıştırılsın"
            Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        End If
        'visualbasicdersleri.com
        SaveSetting(Application.StartupPath, Application.ProductName, "BirKezCalistir", Me.CheckBox1.Checked) 'visualbasicdersleri.com
    End Sub
End Class

Devamını Oku