Visual Basic Dersleri

3 Nisan 2015 Cuma

Deneme Sürümü Oluşturmak

Deneme Sürümü Oluşturma VB.NET

Projenizi oluşturdunuz başkasına atmak istiyorsunuz ama tamını atmak istemiyorsanız

deneme sürümü oluşturup istediğiniz kadar kullanım hakkı verebilirsiniz.

kullanım hakkı dolduğunda program bir daha o bilgisayarda açılmayacaktır.

Deneme sürümünde

Microsoft.Win32.Registry.CurrentUser.CreateSubKey den kendine yer oluşturmaktadır.

Yer oluşturduğunda kendine kullanım hakkı belirler.

program her açıldıkça kullanım hakkından düşer.

kullanım hakkı bitince ise program bir daha açılmaz(sadece o bilgisayarda)

Deneme Sürümü Oluşturma VB.NET

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kalan As Integer
        kalan = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("wwww.visualbasicdersleri.com").GetValue("vbnet", 5) 'www.visualbasicdersleri.com
        Label1.Text = kalan & " Kullanım Hakkınız Kaldı"
        kalan -= 1
        If kalan < 0 Then
            MsgBox("Kullanım Hakkınız Sona Erdi")
            Application.Exit()
        Else
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("wwww.visualbasicdersleri.com").SetValue("vbnet", kalan)
        End If
    End Sub
End Class

30 Mart 2015 Pazartesi

System bilgilerini bulma

3/30/2015 0 Yorum sistem bilgileri visual Sistem Bilgilerini bulma VB.NET system bilgi system bilgileri system vb.net VB.NET Vb.net projeler Visual Basic dersleri Visual Basic

Sistem Bilgilerini bulma VB.NET

Başlığın isminden de anlaşılacağı gibi bu programda

bilgisayarınızın özelliklerini göstermektedir.

İşe yarayacak bir programdır.

kendinizi kodlamalara bakarak geliştirebilecek bir proje.

Sistem Bilgilerini bulma VB.NET

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS :www.visualbasicdersleri.com

25 Mart 2015 Çarşamba

Programınız Başlangıçta Çalıştırmak

3/25/2015 0 Yorum NET Programınız Başlangıçta Çalıştırma Programınız Başlangıçta Çalıştırmak VB Vb.net projeler Visual Basic dersleri Visual Basic visual studio visual studio 2010

Programınız Başlangıçta Çalıştırmak VB.NET

Başlıktan da anlaşılacağı gibi bilgisayar açıldığı zaman

sizin de yaptığınız program açılsın isterseniz kodları programınıza

eklemeniz yeterlidir.

Public Class Form1
    Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)
        Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
        Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        AddStartup(Me.Text, Application.ExecutablePath)
    End Sub
End Class

Görev yöneticisini Timer ile Kapatma

3/25/2015 0 Yorum Görev yöneticisini Timer ile Kapatma Görev yöneticisini Timer ile Kapatma VB.NET VB.NET Visual Basic visual basic dersleri visual basic kodlama visual basic kodları visual studio 2010 visualbasic

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