C# KOD ÖRNEKLERİ: Ağustos 2013

17 Ağustos 2013 Cumartesi

GRAFİK ÇİZDİRME KODLARI

Grafik çizdirme kodları İNDİR

Imports System.Math
Imports System.Threading

Public Class Form1
    Private G_Ciz As Integer
    Private Rnd_D As Integer
    Private Const GRID_STEP As Integer = 40

Private Gr_Cizgisi As Thread

' Hazır 
    Private Sub Form1_Load() Handles MyBase.Load
        G_Ciz = GrafikPic.ClientSize.Height \ 2
        Rnd_D = G_Ciz

'Bitmap ve Grafik nesneleri
        Dim En As Integer = GrafikPic.ClientSize.Width
        Dim Boy As Integer = GrafikPic.ClientSize.Height
        Dim En_Boy As New Bitmap(En, Boy)
        Using Grafik As Graphics = Graphics.FromImage(En_Boy)

' Kılavuz çizgiler çiz
            Grafik.Clear(Color.Blue)
            For i As Integer = G_Ciz To GrafikPic.ClientSize.Height Step GRID_STEP
                Grafik.DrawLine(Pens.LightBlue, 0, i, En - 1, i)
            Next i
            For i As Integer = G_Ciz To 0 Step -GRID_STEP
                Grafik.DrawLine(Pens.LightBlue, 0, i, En - 1, i)
            Next i
        End Using ' Grafik

GrafikPic.Image = En_Boy
    End Sub

' Grafik çizimini başlat
    Private Sub GrafikBtn_Click(sender As System.Object, e As System.EventArgs) Handles GrafikBtn.Click
        If Gr_Cizgisi Is Nothing Then
            '  Başlatın.
            DurumGoster("Grafik çizimini Başlattınız")

Gr_Cizgisi = New Thread(AddressOf GrafikOlustur)
            Gr_Cizgisi.Priority = ThreadPriority.BelowNormal
            Gr_Cizgisi.IsBackground = True
            Gr_Cizgisi.Start()

GrafikBtn.Text = "Dur"
        Else
            ' çalışıyor. Durdur.
            DurumGoster("Çizimi Durdur")

Gr_Cizgisi.Abort()

Gr_Cizgisi = Nothing

GrafikBtn.Text = "Başla"
        End If
    End Sub

' Durana kadar grafik çiz
    Private Sub GrafikOlustur()
        Try
            'Rasgele değerler üret
            Dim y As Integer = Rnd_D
            Do
                'Sonraki değeri oluştur
                YeniDeger()

' Yeni değeri çiz
                DegerBelirle(y, Rnd_D)
                y = Rnd_D
            Loop
        Catch ex As Exception
            DurumGoster(" Çizim Durduruldu.. ")  '& ex.Message)
        End Try
    End Sub

' Sonraki değeri oluştur
    Private Sub YeniDeger()
        ' Değer hesaplamadan önce biraz geciktir
        Dim stop_time As Date = Now.AddMilliseconds(20)
        Do While Now < stop_time
        Loop

' Bir sonraki değerini hesapla
        Static rnd As New Random
        Rnd_D += rnd.Next(-4, 5)
        If Rnd_D < 0 Then Rnd_D = 0
        If Rnd_D >= GrafikPic.ClientSize.Height - 1 Then Rnd_D = GrafikPic.ClientSize.Height - 1
    End Sub

' Yeni bir değer çiz
    Private Delegate Sub PlotValueDelegate(ByVal eski_y As Integer, ByVal Yeni_y As Integer)

Private Sub DegerBelirle(ByVal eski_y As Integer, ByVal Yeni_y As Integer)
        If Me.InvokeRequired Then
            ' Temsilci için argümanlar 
            Dim Tnsn As Object() = {eski_y, Yeni_y}

'Temsilci
            Dim Yeni_Deger_Bul As PlotValueDelegate
            Yeni_Deger_Bul = AddressOf DegerBelirle

' iş parçacığı üzerinde temsilci çağır
            Me.Invoke(Yeni_Deger_Bul, Tnsn)

' Bitti
            Exit Sub
        End If

' Bitmap ve Grafik nesneleri
        Dim En As Integer = GrafikPic.ClientSize.Width
        Dim Boy As Integer = GrafikPic.ClientSize.Height
        Dim En_Boy As New Bitmap(En, Boy)
        Using Grafik As Graphics = Graphics.FromImage(En_Boy)

'Eski veriyi bir piksel sola taşı
            Grafik.DrawImage(GrafikPic.Image, -1, 0)

' Sağ kenarı sil  ve kılavuz çizgiler çiz 
            Grafik.DrawLine(Pens.Blue, En - 1, 0, En - 1, Boy - 1)
            For i As Integer = G_Ciz To GrafikPic.ClientSize.Height Step GRID_STEP
                Grafik.DrawLine(Pens.LightBlue, En - 2, i, En - 1, i)
            Next i
            For i As Integer = G_Ciz To 0 Step -GRID_STEP
                Grafik.DrawLine(Pens.LightBlue, En - 2, i, En - 1, i)
            Next i

' Yeni bir piksel çiz
            Grafik.DrawLine(Pens.White, En - 2, eski_y, En - 1, Yeni_y)

' Sonucu görüntüle
            GrafikPic.Image = En_Boy
            GrafikPic.Refresh()
        End Using
    End Sub

' DurumTxt 'e bir dize ekle
    Private Delegate Sub AddStatusDelegate(ByVal txt As String)

Private Sub DurumGoster(ByVal txt As String)

If Me.InvokeRequired Then
            ' Temsilci argümanlar
            Dim Tnsn As Object() = {txt}

' Temsilci
            Dim DurumuGoster As AddStatusDelegate
            DurumuGoster = AddressOf DurumGoster

'  iş parçacığı üzerinde temsilci çağır
            Me.Invoke(DurumuGoster, Tnsn)

'Bitti
            Exit Sub
        End If

DurumTxt.Text &= vbCrLf & txt
        DurumTxt.Select(DurumTxt.Text.Length, 0)
        DurumTxt.ScrollToCaret()
    End Sub

' Güncel saati görüntüle
    Private Sub SureGuncelleTmr_Tick() Handles SureGuncelleTmr.Tick
        SureLbl.Text = Now.ToString("T")
    End Sub

End Class

Windows Ortam Bilgileri Projesi

WINDOWS ORTAM BİLGİLERİ PROJE KODLARI İNDİR
02.09.2013

Imports System.IO
Imports System.Environment

Public Class AnaFrm

#Region " FORM OLAYLARI.."

Private Sub AnaFrm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListeYukle(OzelKlasörListesi, GetType(Environment.SpecialFolder))
        ListeYukle(OrtamDegiskenListesi, GetEnvironmentVariables.Keys)
        OzellikleriOku()
        MetotUygula()
        SistemBilgileriniYukle()
    End Sub

#End Region

#Region " Enum (Sıralama) İşleme..."

Private Sub ListeYukle(ByVal lst As ListBox, ByVal typ As Type)
        lst.DataSource = System.Enum.GetNames(typ)
    End Sub

Private Function GetSpecialFolderFromList() As Environment.SpecialFolder
        Return CType(System.Enum.Parse(GetType(Environment.SpecialFolder), _
        OzelKlasörListesi.SelectedItem.ToString), Environment.SpecialFolder)
    End Function

Private Sub ListeYukle(ByVal lst As ListBox, ByVal ic As ICollection)
        Dim astrItems(ic.Count - 1) As String
        ic.CopyTo(astrItems, 0)
        lst.DataSource = astrItems
    End Sub
#End Region

Private Sub TempDegAlBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TempDegAlBtn.Click
        lblTEMP.Text = Environment.GetEnvironmentVariable("TEMP")
        System.Diagnostics.Process.Start("explorer.exe", lblTEMP.Text)
    End Sub

Private Sub BtnYenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnYenile.Click
        LblSure.Text = Environment.TickCount.ToString
    End Sub

Private Sub GuncelIzlemeBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuncelIzlemeBtn.Click
        Try
            MsgBox(Environment.StackTrace, MsgBoxStyle.OkOnly, Me.Text)
        Catch exp As System.Security.SecurityException
            MsgBox("Bir güvenlik özel durumu oluştu." & vbCrLf & exp.Message, MsgBoxStyle.Critical, exp.Source)
        Catch exp As System.Exception
            MsgBox("Beklenmeyen bir erişim hatası (StackTrace) oluştu." & vbCrLf & exp.Message, MsgBoxStyle.Critical, exp.Source)
        End Try
    End Sub

Private Sub OrtamDegiskenListesi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrtamDegiskenListesi.SelectedIndexChanged
        Dim str As String = GetEnvironmentVariable(OrtamDegiskenListesi.SelectedItem.ToString)
        '"C:\Program Files\Common Files\Microsoft Shared\Windows Live;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files\ATI Technologies\ATI.ACE\Core-Static;C:\Program Files\Broadcom\Broadcom 802.11\Driver;C:\Program Files\Windows Live\Shared;C:\Program Files\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\DTS\Binn\;C:\Program Files\Common Files\Acronis\SnapAPI\;C:\Program Files\Acronis\BackupAndRecovery\"
        'ListBox1.Items.AddRange(str.Split(";")) 'veya
        'ListBox1.DataSource = str.Split(";")
        CevreDegiskenTxt.Lines = str.Split(CChar(";"))
    End Sub

Private Sub KlasörListesi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OzelKlasörListesi.SelectedIndexChanged
        Dim sf As Environment.SpecialFolder

sf = GetSpecialFolderFromList()
        If OzelKlasörListesi.Text = "MyComputer" Then
            OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
            Exit Sub
        End If
        OzelKlasorLbl.Text = GetFolderPath(sf)
    End Sub

Private Sub lvwSystemInformation_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SysBilgisiLW.Resize
        SysBilgisiLW.Columns(1).Width = _
        SysBilgisiLW.ClientRectangle.Width - SysBilgisiLW.Columns(0).Width
    End Sub

Private Sub OzellikleriOku()
        LblCalismaAYari.Text = Environment.WorkingSet.ToString
        lblVersiyon.Text = Environment.Version.ToString
        LblKullAdi.Text = Environment.UserName
        LblKullAlanAdi.Text = Environment.UserDomainName
        LblSure.Text = Environment.TickCount.ToString
        LblSysDizini.Text = Environment.SystemDirectory
        LblOSVersiyon.Text = Environment.OSVersion.ToString
        LblMakinaAdi.Text = Environment.MachineName
        LblSimdikiDizin.Text = Environment.CurrentDirectory
        LblKmtSatiri.Text = Mid(Environment.CommandLine, 2, Len(Environment.CommandLine))
    End Sub

Private Sub SistemBilgileriniYukle()

With SysBilgisiLW.Items.Add("ArrangeDirection" & "- (Yön)")
            .SubItems.Add(SystemInformation.ArrangeDirection.ToString())
        End With
        With SysBilgisiLW.Items.Add("ArrangeStartingPosition" & "- (Başlangıç Yeri)")
            .SubItems.Add(SystemInformation.ArrangeStartingPosition.ToString())
        End With
        With SysBilgisiLW.Items.Add("BootMode" & "- (Boot Modu)")
            .SubItems.Add(SystemInformation.BootMode.ToString())
        End With
        With SysBilgisiLW.Items.Add("Border3DSize" & "- (Kenar Boyutu)")
            .SubItems.Add(SystemInformation.Border3DSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("BorderSize")
            .SubItems.Add(SystemInformation.BorderSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("CaptionButtonSize" & "- (Başlık buton boyu)")
            .SubItems.Add(SystemInformation.CaptionButtonSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("CaptionHeight" & "- (Başlık Boyu)")
            .SubItems.Add(SystemInformation.CaptionHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("ComputerName" & "- (Bilgisayar Adı)")
            .SubItems.Add(SystemInformation.ComputerName.ToString())
        End With
        With SysBilgisiLW.Items.Add("CursorSize" & "- (İmleç Boyu)")
            .SubItems.Add(SystemInformation.CursorSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("DbcsEnabled" & "- (dbcs Etkin)")
            .SubItems.Add(SystemInformation.DbcsEnabled.ToString())
        End With
        With SysBilgisiLW.Items.Add("DebugOS" & "- (OS Hata Ayıklama)")
            .SubItems.Add(SystemInformation.DebugOS.ToString())
        End With
        With SysBilgisiLW.Items.Add("DoubleClickSize" & "- (ÇitTıklama Boyutu)")
            .SubItems.Add(SystemInformation.DoubleClickSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("DoubleClickTime" & "- (ÇitTıklama Süresi)")
            .SubItems.Add(SystemInformation.DoubleClickTime.ToString())
        End With
        With SysBilgisiLW.Items.Add("DragFullWindows" & "- (Tam Penc.Sürükle)")
            .SubItems.Add(SystemInformation.DragFullWindows.ToString())
        End With
        With SysBilgisiLW.Items.Add("DragSize" & "- (Sürükleme boyutu)")
            .SubItems.Add(SystemInformation.DragSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("FixedFrameBorderSize" & "- (Sabit Çrç.Boyutu)")
            .SubItems.Add(SystemInformation.FixedFrameBorderSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("FrameBorderSize" & "- (Çerçeve Sınır Boyutu)")
            .SubItems.Add(SystemInformation.FrameBorderSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("HighContrast" & "- (Yüksek Kontrast)")
            .SubItems.Add(SystemInformation.HighContrast.ToString())
        End With
        With SysBilgisiLW.Items.Add("HorizontalScrollBarArrowWidth" & "- (Yatay Kayd.Ok Çbk.Genişliği)")
            .SubItems.Add(SystemInformation.HorizontalScrollBarArrowWidth.ToString())
        End With
        With SysBilgisiLW.Items.Add("HorizontalScrollBarHeight" & "- (Yatay kayd.çbk Yüks.)")
            .SubItems.Add(SystemInformation.HorizontalScrollBarHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("HorizontalScrollBarThumbWidth" & "- (Yatay Kayd.Çbk Düğme Eni)")
            .SubItems.Add(SystemInformation.HorizontalScrollBarThumbWidth.ToString())
        End With
        With SysBilgisiLW.Items.Add("IconSize" & "- (İkon Boyu)")
            .SubItems.Add(SystemInformation.IconSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("IconSpacingSize" & "- (İkon Boyutu)")
            .SubItems.Add(SystemInformation.IconSpacingSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("KanjiWindowHeight" & "- (Pencere Yüksekliği)")
            .SubItems.Add(SystemInformation.KanjiWindowHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("MaxWindowTrackSize" & "- (Max Pencere Boyutu)")
            .SubItems.Add(SystemInformation.MaxWindowTrackSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MenuButtonSize" & "- (Menu Btn Boyutu)")
            .SubItems.Add(SystemInformation.MenuButtonSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MenuCheckSize" & "- (Menu Ctl Boyu)")
            .SubItems.Add(SystemInformation.MenuCheckSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MenuFont" & "- (Menu Font)")
            .SubItems.Add(SystemInformation.MenuFont.ToString())
        End With
        With SysBilgisiLW.Items.Add("MenuHeight" & "- (Menu Boyu)")
            .SubItems.Add(SystemInformation.MenuHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("MidEastEnabled" & "- (OD.Etkin)")
            .SubItems.Add(SystemInformation.MidEastEnabled.ToString())
        End With
        With SysBilgisiLW.Items.Add("MinimizedWindowSize" & "- (Minimize Boyutu)")
            .SubItems.Add(SystemInformation.MinimizedWindowSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MinimizedWindowSpacingSize" & "- (Minimize pnc. Aralık Boyutu)")
            .SubItems.Add(SystemInformation.MinimizedWindowSpacingSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MinimumWindowSize" & "- (Minimum Pnc.Boyutu)")
            .SubItems.Add(SystemInformation.MinimumWindowSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MinWindowTrackSize" & "- (Min.Pnc.Parça Boyutu)")
            .SubItems.Add(SystemInformation.MinWindowTrackSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MonitorCount" & "- (Monitör sayısı)")
            .SubItems.Add(SystemInformation.MonitorCount.ToString())
        End With
        With SysBilgisiLW.Items.Add("MonitorsSameDisplayFormat" & "- (Ekran Formatı)")
            .SubItems.Add(SystemInformation.MonitorsSameDisplayFormat.ToString())
        End With
        With SysBilgisiLW.Items.Add("MouseButtons" & "- (Fare Butonları)")
            .SubItems.Add(SystemInformation.MouseButtons.ToString())
        End With
        With SysBilgisiLW.Items.Add("MouseButtonsSwapped" & "- (Fare Düğmeleri Takası)")
            .SubItems.Add(SystemInformation.MouseButtonsSwapped.ToString())
        End With
        With SysBilgisiLW.Items.Add("MousePresent" & "- (Fare Mevcut )")
            .SubItems.Add(SystemInformation.MousePresent.ToString())
        End With
        With SysBilgisiLW.Items.Add("MouseWheelPresent" & "- (Fare Tekerleği Mevcut)")
            .SubItems.Add(SystemInformation.MouseWheelPresent.ToString())
        End With
        With SysBilgisiLW.Items.Add("MouseWheelScrollLines" & "- (Fare Tekeri Kaydırma Hatları)")
            .SubItems.Add(SystemInformation.MouseWheelScrollLines.ToString())
        End With
        With SysBilgisiLW.Items.Add("NativeMouseWheelSupport" & "- (Fare Tekerlek Desteği)")
            .SubItems.Add(SystemInformation.NativeMouseWheelSupport.ToString())
        End With
        With SysBilgisiLW.Items.Add("Network" & "- (Ağ)")
            .SubItems.Add(SystemInformation.Network.ToString())
        End With
        With SysBilgisiLW.Items.Add("PenWindows" & "- (Win. Kalemi)")
            .SubItems.Add(SystemInformation.PenWindows.ToString())
        End With
        With SysBilgisiLW.Items.Add("PrimaryMonitorMaximizedWindowSize" & "- (Monitor Max.Pencere Boyutu)")
            .SubItems.Add(SystemInformation.PrimaryMonitorMaximizedWindowSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("PrimaryMonitorSize" & "- (Monitör Birincil Boyutu)")
            .SubItems.Add(SystemInformation.PrimaryMonitorSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("RightAlignedMenus" & "- (Menüler sağa bağlantısız)")
            .SubItems.Add(SystemInformation.RightAlignedMenus.ToString())
        End With
        With SysBilgisiLW.Items.Add("Secure" & "- (Güvenli)")
            .SubItems.Add(SystemInformation.Secure.ToString())
        End With
        With SysBilgisiLW.Items.Add("ShowSounds" & "- (Ses göster)")
            .SubItems.Add(SystemInformation.ShowSounds.ToString())
        End With
        With SysBilgisiLW.Items.Add("SmallIconSize" & "- (Küçük ikon Boyutu)")
            .SubItems.Add(SystemInformation.SmallIconSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("ToolWindowCaptionButtonSize" & "- (Pnc.Başlık Düğme Eni)")
            .SubItems.Add(SystemInformation.ToolWindowCaptionButtonSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("ToolWindowCaptionHeight" & "- (Pnc.Başlık Düğme Boyu)")
            .SubItems.Add(SystemInformation.ToolWindowCaptionHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("UserDomainName" & "- (Kullanıcı Alan Adı)")
            .SubItems.Add(SystemInformation.UserDomainName.ToString())
        End With
        With SysBilgisiLW.Items.Add("UserInteractive" & "- (Kullanıcı Etkileşimli)")
            .SubItems.Add(SystemInformation.UserInteractive.ToString())
        End With
        With SysBilgisiLW.Items.Add("UserName" & "- (Kullanıcı Adı)")
            .SubItems.Add(SystemInformation.UserName.ToString())
        End With
        With SysBilgisiLW.Items.Add("VerticalScrollBarArrowHeight" & "- (Dikey kayd.Çbk.Boyu)")
            .SubItems.Add(SystemInformation.VerticalScrollBarArrowHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("VerticalScrollBarThumbHeight" & "- (Dikey kayd.Çbk.Düğme Boyu)")
            .SubItems.Add(SystemInformation.VerticalScrollBarThumbHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("VerticalScrollBarWidth" & "- (Dikey kayd. Çbk Eni)")
            .SubItems.Add(SystemInformation.VerticalScrollBarWidth.ToString())
        End With
        With SysBilgisiLW.Items.Add("VirtualScreen" & "- (Sanal Ekran)")
            .SubItems.Add(SystemInformation.VirtualScreen.ToString())
        End With
        With SysBilgisiLW.Items.Add("WorkingArea" & "- (Çalışma Alanı)")
            .SubItems.Add(SystemInformation.WorkingArea.ToString())
        End With
    End Sub

Private Sub MetotUygula()
        MantiksalSrcListesi.DataSource = Environment.GetLogicalDrives()
        KomutSatirListesi.DataSource = Environment.GetCommandLineArgs()
    End Sub

Private Sub exitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

Private Sub OzelKlasörListesi_DoubleClick(sender As System.Object, e As System.EventArgs) Handles OzelKlasörListesi.DoubleClick
        On Error Resume Next
        If OzelKlasörListesi.Text = "MyComputer" Then
            System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
            Exit Sub
        End If

Process.Start(OzelKlasorLbl.Text)
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
        System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        System.Diagnostics.Process.Start("control.exe")
    End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))
    End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Process.Start("control", "printers")
    End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Process.Start("WinHlp32.exe")
    End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        System.Diagnostics.Process.Start("C:\Windows\System32\regedt32.exe")
    End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        'Dim info As New ProcessStartInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "/system32/control.exe", "userpasswords")
        'Process.Start(info)
        'veya
        Process.Start("control", "userpasswords")
    End Sub

Private Sub KomutSatirListesi_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles KomutSatirListesi.SelectedIndexChanged
        Dim src As String
        Dim Secim As Integer

src = Mid(KomutSatirListesi.Text, 1, 3)
        If src = "C:\" Then Secim = 0
        If src = "D:\" Then Secim = 1
        MantiksalSrcListesi.SelectedIndex = Secim
    End Sub

Private Sub GezginTab_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles GezginTab.SelectedIndexChanged
        If GezginTab.SelectedIndex = 5 Then
            SurucuListesi.Items.Clear()
            For Each Src_Bilgisi As DriveInfo In DriveInfo.GetDrives()
                SurucuListesi.Items.Add(Src_Bilgisi.Name)
            Next Src_Bilgisi
            SurucuListesi.SelectedIndex = 0
        End If
        If GezginTab.SelectedIndex = 2 Then
            LblSonucGenislet.Text = Environment.ExpandEnvironmentVariables(txtGenislet.Text)
        End If

End Sub
    Private Sub SurucuListesi_SelectedIndexChanged() Handles SurucuListesi.SelectedIndexChanged

For Each ctl As Control In Me.Controls
            If (ctl.Name.StartsWith("lbl")) AndAlso (TypeOf ctl Is Label) Then
                Dim lbl As Label = DirectCast(ctl, Label)
                lbl.Text = ""
            End If
        Next ctl

Dim Src_Bilgisi As New DriveInfo(SurucuListesi.Text)
        LblAdi.Text = Src_Bilgisi.Name()
        LblHazir.Text = Src_Bilgisi.IsReady().ToString

Dim a As String = Src_Bilgisi.DriveType().ToString

If Not a = "Fixed" Then
            LblSrcTipi.Text = Src_Bilgisi.DriveType().ToString
        Else
            LblSrcTipi.Text = Src_Bilgisi.DriveType().ToString & "(" & " sabit" & ")"
        End If

LblKokDzn.Text = Src_Bilgisi.RootDirectory.ToString
        If Src_Bilgisi.IsReady() Then
            LblSrcFormati.Text = Src_Bilgisi.DriveFormat()
            TopAlanLbl.Text = ""
            BosAlanLbl.Text = ""
            If SurucuListesi.SelectedIndex = 0 Then

BosAlanLbl.Text = FormatBayt(Src_Bilgisi.TotalFreeSpace, "0.00")
                TopAlanLbl.Text = FormatBayt(Src_Bilgisi.TotalSize, "0.00")
            Else
                TopAlanLbl.Text = FormatBayt(Src_Bilgisi.TotalSize, "0.00")
                BosAlanLbl.Text = FormatBayt(Src_Bilgisi.AvailableFreeSpace, "0.00")
            End If
            LblBirimEtiketi.Text = Src_Bilgisi.VolumeLabel()
        End If
    End Sub
    Private Function FormatBayt(ByVal BaytDrm As Double, ByVal StrFormat As String) As String
        Dim Cevir() As String = {"Bayt", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB"}
        For i As Integer = Cevir.Length - 1 To 0 Step -1
            If BaytDrm > 1024 ^ i Then
                BaytDrm /= 1024 ^ i
                Return BaytDrm.ToString(StrFormat) & " " & Cevir(i)
            End If
        Next i

Return BaytDrm.ToString(StrFormat) & " Bayt"
    End Function

Private Sub OrtamDegiskenListesi_DoubleClick(sender As System.Object, e As System.EventArgs)
        System.Diagnostics.Process.Start("explorer.exe", CevreDegiskenTxt.Text)
    End Sub
End Class

16 Ağustos 2013 Cuma

Bir BROWSER örneği

ErAsBrowser (16.08.2013) KOD İNDİR

12 Ağustos 2013 Pazartesi

Text içinde Ara bul Ve Renkli Göster

ARA BUL VURGULA

Text içinde benzer sözcüklerin Tümünü bulup renkli gösterme ile ilgili bir proje

KOD İNDİR

FORM1

Imports System.io

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim TxtOku As StreamReader

#Region "Form Designer kodu oluşturulan alan "

Public Sub New()
        MyBase.New()
        InitializeComponent()
    End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

Private components As System.ComponentModel.IContainer

Friend WithEvents BulCombo As System.Windows.Forms.ComboBox
    Friend WithEvents SEsSozlerChk As System.Windows.Forms.CheckBox
    Friend WithEvents BuyKucEslestirChk As System.Windows.Forms.CheckBox
    Friend WithEvents LblAranan As System.Windows.Forms.Label
    Friend WithEvents DsyYukleOFD As System.Windows.Forms.OpenFileDialog
    Friend WithEvents RenkPaneli As System.Windows.Forms.Panel
    Friend WithEvents RenkDlg As System.Windows.Forms.ColorDialog
    Friend WithEvents YukleBtn As System.Windows.Forms.Button
    Friend WithEvents btnRenkVurgula As System.Windows.Forms.Button
    Friend WithEvents btnSil As System.Windows.Forms.Button
    Friend WithEvents ScrollAltta As System.Windows.Forms.Button
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
    Friend WithEvents RTBox As ABV.Windows.Forms.RichTextBox

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.BulCombo = New System.Windows.Forms.ComboBox()
        Me.SEsSozlerChk = New System.Windows.Forms.CheckBox()
        Me.BuyKucEslestirChk = New System.Windows.Forms.CheckBox()
        Me.LblAranan = New System.Windows.Forms.Label()
        Me.DsyYukleOFD = New System.Windows.Forms.OpenFileDialog()
        Me.RenkPaneli = New System.Windows.Forms.Panel()
        Me.RenkDlg = New System.Windows.Forms.ColorDialog()
        Me.YukleBtn = New System.Windows.Forms.Button()
        Me.btnRenkVurgula = New System.Windows.Forms.Button()
        Me.btnSil = New System.Windows.Forms.Button()
        Me.ScrollAltta = New System.Windows.Forms.Button()
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.RTBox = New ABV.Windows.Forms.RichTextBox()
        Me.SuspendLayout()
        '
        'BulCombo
        '
        Me.BulCombo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BulCombo.Location = New System.Drawing.Point(186, 25)
        Me.BulCombo.Name = "BulCombo"
        Me.BulCombo.Size = New System.Drawing.Size(135, 21)
        Me.BulCombo.TabIndex = 19
        '
        'SEsSozlerChk
        '
        Me.SEsSozlerChk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.SEsSozlerChk.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.SEsSozlerChk.Location = New System.Drawing.Point(391, 7)
        Me.SEsSozlerChk.Name = "SEsSozlerChk"
        Me.SEsSozlerChk.Size = New System.Drawing.Size(166, 18)
        Me.SEsSozlerChk.TabIndex = 17
        Me.SEsSozlerChk.Text = "Büyük küçük harf eşleştir"
        Me.SEsSozlerChk.TextAlign = System.Drawing.ContentAlignment.TopLeft
        '
        'BuyKucEslestirChk
        '
        Me.BuyKucEslestirChk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BuyKucEslestirChk.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BuyKucEslestirChk.Location = New System.Drawing.Point(391, 29)
        Me.BuyKucEslestirChk.Name = "BuyKucEslestirChk"
        Me.BuyKucEslestirChk.Size = New System.Drawing.Size(143, 18)
        Me.BuyKucEslestirChk.TabIndex = 16
        Me.BuyKucEslestirChk.Text = "Sadece eş Sözcükler"
        Me.BuyKucEslestirChk.TextAlign = System.Drawing.ContentAlignment.TopLeft
        '
        'LblAranan
        '
        Me.LblAranan.AutoSize = True
        Me.LblAranan.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.LblAranan.Location = New System.Drawing.Point(190, 6)
        Me.LblAranan.Name = "LblAranan"
        Me.LblAranan.Size = New System.Drawing.Size(119, 13)
        Me.LblAranan.TabIndex = 18
        Me.LblAranan.Text = "Aranan Sözcüğü Girin  :"
        '
        'DsyYukleOFD
        '
        Me.DsyYukleOFD.Filter = "Text Dosyası (*.txt)|*.txt;*.text|Rich Text Dosyası |*.rtf|Tüm Dosyalar (*.*)|*.*" & _
    ""
        Me.DsyYukleOFD.Title = "Text Dosyası Seç..."
        '
        'RenkPaneli
        '
        Me.RenkPaneli.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.RenkPaneli.BackColor = System.Drawing.Color.LightGreen
        Me.RenkPaneli.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.RenkPaneli.Cursor = System.Windows.Forms.Cursors.Hand
        Me.RenkPaneli.Location = New System.Drawing.Point(343, 6)
        Me.RenkPaneli.Name = "RenkPaneli"
        Me.RenkPaneli.Size = New System.Drawing.Size(35, 40)
        Me.RenkPaneli.TabIndex = 23
        '
        'RenkDlg
        '
        Me.RenkDlg.Color = System.Drawing.Color.LightGreen
        '
        'YukleBtn
        '
        Me.YukleBtn.BackColor = System.Drawing.Color.Transparent
        Me.YukleBtn.BackgroundImage = CType(resources.GetObject("YukleBtn.BackgroundImage"), System.Drawing.Image)
        Me.YukleBtn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.YukleBtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.YukleBtn.Location = New System.Drawing.Point(12, 6)
        Me.YukleBtn.Name = "YukleBtn"
        Me.YukleBtn.Size = New System.Drawing.Size(40, 40)
        Me.YukleBtn.TabIndex = 76
        Me.YukleBtn.UseVisualStyleBackColor = False
        '
        'btnRenkVurgula
        '
        Me.btnRenkVurgula.BackColor = System.Drawing.Color.Transparent
        Me.btnRenkVurgula.BackgroundImage = CType(resources.GetObject("btnRenkVurgula.BackgroundImage"), System.Drawing.Image)
        Me.btnRenkVurgula.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnRenkVurgula.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnRenkVurgula.Location = New System.Drawing.Point(137, 6)
        Me.btnRenkVurgula.Name = "btnRenkVurgula"
        Me.btnRenkVurgula.Size = New System.Drawing.Size(40, 40)
        Me.btnRenkVurgula.TabIndex = 77
        Me.btnRenkVurgula.UseVisualStyleBackColor = False
        '
        'btnSil
        '
        Me.btnSil.BackColor = System.Drawing.Color.Transparent
        Me.btnSil.BackgroundImage = CType(resources.GetObject("btnSil.BackgroundImage"), System.Drawing.Image)
        Me.btnSil.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnSil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSil.Location = New System.Drawing.Point(58, 6)
        Me.btnSil.Name = "btnSil"
        Me.btnSil.Size = New System.Drawing.Size(40, 40)
        Me.btnSil.TabIndex = 79
        Me.btnSil.UseVisualStyleBackColor = False
        '
        'ScrollAltta
        '
        Me.ScrollAltta.AutoSize = True
        Me.ScrollAltta.BackColor = System.Drawing.Color.Transparent
        Me.ScrollAltta.BackgroundImage = CType(resources.GetObject("ScrollAltta.BackgroundImage"), System.Drawing.Image)
        Me.ScrollAltta.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.ScrollAltta.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.ScrollAltta.Location = New System.Drawing.Point(103, 6)
        Me.ScrollAltta.Name = "ScrollAltta"
        Me.ScrollAltta.Size = New System.Drawing.Size(28, 40)
        Me.ScrollAltta.TabIndex = 80
        Me.ScrollAltta.UseVisualStyleBackColor = False
        '
        'RTBox
        '
        Me.RTBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.RTBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
        Me.RTBox.HideSelection = False
        Me.RTBox.Location = New System.Drawing.Point(7, 53)
        Me.RTBox.Name = "RTBox"
        Me.RTBox.owerloads = System.Drawing.Color.Black
        Me.RTBox.Size = New System.Drawing.Size(587, 389)
        Me.RTBox.TabIndex = 25
        Me.RTBox.Text = resources.GetString("RTBox.Text")
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
        Me.ClientSize = New System.Drawing.Size(601, 449)
        Me.Controls.Add(Me.BuyKucEslestirChk)
        Me.Controls.Add(Me.RenkPaneli)
        Me.Controls.Add(Me.SEsSozlerChk)
        Me.Controls.Add(Me.LblAranan)
        Me.Controls.Add(Me.ScrollAltta)
        Me.Controls.Add(Me.BulCombo)
        Me.Controls.Add(Me.btnSil)
        Me.Controls.Add(Me.btnRenkVurgula)
        Me.Controls.Add(Me.YukleBtn)
        Me.Controls.Add(Me.RTBox)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MinimumSize = New System.Drawing.Size(548, 487)
        Me.Name = "Form1"
        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Show
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Ara Bul  Vurgula"
        Me.ResumeLayout(False)
        Me.PerformLayout()

End Sub

#End Region

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        ToolTip1.SetToolTip(YukleBtn, " Dosya Yükleme")
        ToolTip1.SetToolTip(btnSil, " Secili kısımları sil (Sağ fare tuşuna tıkla)")
        ToolTip1.SetToolTip(btnRenkVurgula, " Metne Girilen Sözcükleri Bul ve Renkli Göster ")
        ToolTip1.SetToolTip(BulCombo, " Aranacak sözcük girilir veya" & vbCrLf & "metinden seçildiği an buaraya eklenir")
        ToolTip1.SetToolTip(RenkPaneli, " Bulunan sözcükler buradan ayarlanan renkle gösterilir ")
        ToolTip1.SetToolTip(ScrollAltta, " Scroll çubuğunu aşağıya kaydır ")

End Sub

Private Sub YukleBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YukleBtn.Click
        Try
            If Me.DsyYukleOFD.ShowDialog(Me) = DialogResult.OK Then
                'Me.RTBox.LoadFile(Me.DsyYukleOFD.FileName, RichTextBoxStreamType.PlainText)
                Dim uzanti As String
                uzanti = System.IO.Path.GetExtension(DsyYukleOFD.FileName)
                uzanti = uzanti.ToUpper()

Select Case uzanti
                    Case ".RTF"
                        RTBox.LoadFile(DsyYukleOFD.FileName, RichTextBoxStreamType.RichText) 'UnicodePlainText

Case ".TXT", ".HTM"
                        RTBox.Clear()
                        TxtOku = New IO.StreamReader(DsyYukleOFD.FileName, System.Text.Encoding.Default)
                        RTBox.Text = TxtOku.ReadToEnd
                        TxtOku.Close()
                        TxtOku = Nothing
                        RTBox.Focus()
                        RTBox.SelectionStart = 0
                        RTBox.SelectionLength = 0

Case Else
                        Try
                            System.Diagnostics.Process.Start(DsyYukleOFD.FileName)
                        Catch ex As Exception
                            MessageBox.Show(uzanti & " 'Uzantılı uygulama Bulunamadı.", "RTB - Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End Try
                        Exit Sub
                End Select
            End If
        Catch ex As Exception
        End Try
    End Sub

Private Sub btnRenkVurgula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRenkVurgula.Click
        Me.RTBox.VurguRengi(Me.BulCombo.Text, Me.RenkPaneli.BackColor, Me.SEsSozlerChk.Checked, Me.BuyKucEslestirChk.Checked)
        RTBox.Focus()
    End Sub

Private Sub BulCombo_LostFocus(sender As Object, e As System.EventArgs) Handles BulCombo.LostFocus
        If Me.BulCombo.Text = Nothing Then Exit Sub
        Me.BulCombo.Items.Add(Me.BulCombo.Text)
    End Sub

Private Sub RenkPaneli_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RenkPaneli.Click
        Me.RenkDlg.Color = Me.RenkPaneli.BackColor
        If Me.RenkDlg.ShowDialog(Me) = DialogResult.OK Then
            Me.RenkPaneli.BackColor = Me.RenkDlg.Color
        End If
    End Sub

Private Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click
        Me.RTBox.ClearBackColor(True)
    End Sub

Private Sub ScrollAltta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScrollAltta.Click
        Me.RTBox.ScrollToBottom()

End Sub

Private Sub RTBox_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles RTBox.SelectionChanged
        Me.BulCombo.Text = Me.RTBox.SelectedText
    End Sub

Private Sub BulCombo_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles BulCombo.KeyDown
        If e.KeyCode = Keys.Enter Then
            btnRenkVurgula.PerformClick()
        End If
    End Sub

Private Sub RTBox_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles RTBox.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Me.RTBox.ClearBackColor(True)
        End If
    End Sub

End Class

CLASS LİBRARY

Imports System.Runtime.InteropServices

Namespace Windows.Forms
    <System.ComponentModel.DesignerCategoryAttribute("UserControl")> _
    Public Class RichTextBox
        Inherits System.Windows.Forms.RichTextBox

#Region " ÖZELLİKLER :FON RENGİ.."
        <StructLayout(LayoutKind.Sequential)> Private Structure CharFormat2
            Public BoyutCb As Int32
            Public dwMaskesi As Int32
            Public dwEfekti As Int32
            Public BoyY As Int32
            Public DengeY As Int32
            Public TxtRengi As Int32
            Public KarakterRengi As Byte
            Public AlanB As Byte
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Public szFaceName As String
            Public DegerB As Int16
            Public AralikB As Int16
            Public ArkaFonRnk As Int32
            Public IDsc As Int32
            Public dwRezerv As Int32
            Public Stil As Int16
            Public CekirdekW As Int16
            Public AltSatirTipi As Byte
            Public Animasyon As Byte
            Public RevizeEden As Byte
            Public YedekRz As Byte
        End Structure

Public Const LF_FACESIZE = 32
        Public Const CFM_BACKCOLOR = &H4000000
        Public Const CFE_AUTOBACKCOLOR = CFM_BACKCOLOR
        Public Const WM_USER = &H400
        Public Const EM_SETCHARFORMAT = (WM_USER + 68)
        Public Const EM_SETBKGNDCOLOR = (WM_USER + 67)
        Public Const EM_GETCHARFORMAT = (WM_USER + 58)
        Public Const WM_SETTEXT = &HC
        Public Const SCF_SELECTION = &H1&

Private Overloads Declare Auto Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByRef lParam As CharFormat2) As Boolean

Public Property owerloads() As Color
            Get

Dim HWND As IntPtr = Me.Handle
                Dim Format As New CharFormat2
                Format.dwMaskesi = CFM_BACKCOLOR
                Format.BoyutCb = Marshal.SizeOf(Format)
                SendMessage(Me.Handle, EM_GETCHARFORMAT, SCF_SELECTION, Format)
                Return ColorTranslator.FromOle(Format.ArkaFonRnk)
            End Get

Set(ByVal Value As Color)

Dim HWND As IntPtr = Me.Handle
                Dim Format As New CharFormat2
                Format.ArkaFonRnk = ColorTranslator.ToOle(Value)
                Format.dwMaskesi = CFM_BACKCOLOR
                Format.BoyutCb = Marshal.SizeOf(Format)
                SendMessage(Me.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Format)
            End Set
        End Property
#End Region

#Region " YORDAM: ARKAFON SİL.."

#Region " SCROLL BAR TİPİ.."

Private Enum ScrollBarTypes
            SB_HORZ = 0
            SB_VERT = 1
            SB_CTL = 2
            SB_BOTH = 3
        End Enum
#End Region

#Region " SCROLBAR TİP BİLGİSİ.."

Private Enum ScrollBarInfoFlags
            SIF_RANGE = &H1
            SIF_PAGE = &H2
            SIF_POS = &H4
            SIF_DISABLENOSCROLL = &H8
            SIF_TRACKPOS = &H10
            SIF_ALL = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS)
        End Enum
#End Region

Public Sub ClearBackColor(Optional ByVal TumunuSil As Boolean = True)
            Dim HWND As IntPtr = Me.Handle

LockWindowUpdate(Me.Handle)
            Me.SuspendLayout()
            Dim DikeyKaydirma As Integer = Me.GetScrollBarPos(Me.Handle, ScrollBarTypes.SB_VERT)
            Dim YatayKaydirma As Integer = Me.GetScrollBarPos(Me.Handle, ScrollBarTypes.SB_HORZ)
            Dim SecimBaslangici As Integer = Me.SelectionStart
            Dim SecimUzunlugu As Integer = Me.SelectionLength

If TumunuSil Then Me.SelectAll()
            Dim Format As New CharFormat2
            Format.ArkaFonRnk = -1
            Format.dwMaskesi = CFM_BACKCOLOR
            Format.dwEfekti = CFE_AUTOBACKCOLOR
            Format.BoyutCb = Marshal.SizeOf(Format)
            SendMessage(Me.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Format)

Me.SelectionStart = SecimBaslangici
            Me.SelectionLength = SecimUzunlugu
            SendMessage(Me.Handle, EMFlags.EM_SETSCROLLPOS, 0, New RichTextBox.POINT(YatayKaydirma, DikeyKaydirma))
            Me.ResumeLayout()
            LockWindowUpdate(IntPtr.Zero)
        End Sub

<StructLayout(LayoutKind.Sequential)> Private Structure SCROLLINFO
            Public BoyutCb As Integer
            Public fMask As ScrollBarInfoFlags
            Public nEnAz As Integer
            Public nEnCok As Integer
            Public nSayfa As Integer
            Public nPozisyon As Integer
            Public nIzPozisyonu As Integer
        End Structure

Private Declare Function GetScrollInfo Lib "User32" _
            (ByVal hWnd As IntPtr, ByVal fnBar As ScrollBarTypes, ByRef lpsi As SCROLLINFO) As Boolean

Private Function GetScrollBarPos(ByVal hWnd As IntPtr, ByVal BarType As ScrollBarTypes) As Integer
            Dim INFO As SCROLLINFO
            INFO.fMask = ScrollBarInfoFlags.SIF_POS
            INFO.BoyutCb = Marshal.SizeOf(INFO)
            GetScrollInfo(hWnd, BarType, INFO)
            Return INFO.nPozisyon
        End Function
#End Region

#Region " YORDAM : PARLAKLIK.."

Private Declare Function LockWindowUpdate Lib "user32.dll" (ByVal hWndLock As IntPtr) As Boolean

Public Sub VurguRengi(ByVal ArananSoz As String, ByVal VurguRengi As Color, ByVal EsSozcuk As Boolean, ByVal BkHSozcuk As Boolean)
            LockWindowUpdate(Me.Handle)
            Me.SuspendLayout()
            Dim DikeyKaydirma As Integer = Me.GetScrollBarPos(Me.Handle, ScrollBarTypes.SB_VERT)
            Dim YatayKaydirma As Integer = Me.GetScrollBarPos(Me.Handle, ScrollBarTypes.SB_HORZ)
            Dim SecimBaslangici As Integer = Me.SelectionStart
            Dim SecimUzunlugu As Integer = Me.SelectionLength

Dim Baslangictan As Integer = 0
            Dim Uzunluk As Integer = ArananSoz.Length
            Dim Bulunanlar As RichTextBoxFinds
            'eş ve benzer sözcükler (büyük Küçük harf seçmez kelimenin eşit olmasına bakar)
            If EsSozcuk Then Bulunanlar = Bulunanlar Or RichTextBoxFinds.MatchCase
            'Arananın Büyük ve Küçük harfleri benzerse Bulur
            If BkHSozcuk Then Bulunanlar = Bulunanlar Or RichTextBoxFinds.WholeWord

While Me.Find(ArananSoz, Baslangictan, Bulunanlar) > -1
                Me.SelectionBackColor = VurguRengi
                Baslangictan = Me.SelectionStart + Me.SelectionLength
            End While

#End Region

#Region " YORDAM: SCROLLBAR ALTTA.."

#Region " SCROLL FLAG.."
        Private Enum EMFlags
            EM_SETSCROLLPOS = &H400 + 222
        End Enum
#End Region

#Region "  SCROLLBARFLAG..."

Private Enum ScrollBarFlags
            SBS_HORZ = &H0
            SBS_VERT = &H1
            SBS_TOPALIGN = &H2
            SBS_LEFTALIGN = &H2
            SBS_BOTTOMALIGN = &H4
            SBS_RIGHTALIGN = &H4
            SBS_SIZEBOXTOPLEFTALIGN = &H2
            SBS_SIZEBOXBOTTOMRIGHTALIGN = &H4
            SBS_SIZEBOX = &H8
            SBS_SIZEGRIP = &H10
        End Enum
#End Region

#Region " PLANLAMA : NOKTA..."

<StructLayout(LayoutKind.Sequential)> Private Class POINT
            Public x As Integer
            Public y As Integer

Public Sub New()
            End Sub

Public Sub New(ByVal x As Integer, ByVal y As Integer)
                Me.x = x
                Me.y = y
            End Sub
        End Class
#End Region

Private Declare Function GetScrollRange Lib "User32" (ByVal hWnd As IntPtr, ByVal nBar As Integer, _
                                                              ByRef lpMinPos As Integer, ByRef lpMaxPos As Integer) As Boolean

Private Overloads Declare Auto Function SendMessage Lib "user32" Alias "SendMessageA" _
            (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As RichTextBox.POINT) As IntPtr

Public Sub ScrollToBottom()
            Dim Min, Max As Integer
            GetScrollRange(Me.Handle, ScrollBarFlags.SBS_VERT, Min, Max)
            SendMessage(Me.Handle, EMFlags.EM_SETSCROLLPOS, 0, New RichTextBox.POINT(0, Max - Me.Height))
        End Sub

#End Region

End Class
End Namespace

8 Ağustos 2013 Perşembe

SON ÇALIŞILAN DOSYALARI GÖSTEREN PROJE

Proje Kodlarını İNDİR

Imports System.IO, System.Diagnostics, System.ComponentModel

Public Class Form1

Dim SonCalDsyKlasoru As String = Environment.GetFolderPath(Environment.SpecialFolder.Recent)

Private Property eleman As ListViewItem

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

Private Sub SCDsyGosterBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SCDsyGosterBtn.Click
        ListView1.Items.Clear()

Dim lstitem As New ListViewItem()
        imageList1.Images.Clear()
        For Each SonCalDsy In Directory.GetFiles(SonCalDsyKlasoru)
            Dim yol As String
            yol = Path.GetFileNameWithoutExtension(SonCalDsy)

imageList1.Images.Add(SonCalDsy, Icon.ExtractAssociatedIcon(SonCalDsy)) 'Dosya adı ve ikonu
            lstitem = ListView1.Items.Add(Path.GetFileNameWithoutExtension(SonCalDsy), SonCalDsy)
            lstitem.SubItems.Add(New FileInfo(SonCalDsy).CreationTime.ToLongDateString()) 'Tarih ToLongDateString
            lstitem.SubItems.Add(SonCalDsy) 'yol ekle
        Next
    End Sub

Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        Try
            Process.Start(TextBox1.Text)

Catch m As Win32Exception
        End Try
    End Sub

Private Sub openToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcTSm.Click, DosyaAçTSmn.Click
        ListView1_DoubleClick(sender, e)
    End Sub

Private Sub openLocationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DsyKlsAcTsm.Click, DsyKlsAçTsmn.Click
        Process.Start(SonCalDsyKlasoru)
    End Sub

Private Sub TumSilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TumSilTsm.Click
        For Each TumCalDsy In Directory.GetFiles(SonCalDsyKlasoru)

File.Delete(TumCalDsy)
        Next

ListView1.Items.Clear()
    End Sub

Dim DosyaSil As String

Private Sub SecilSilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SecilSilTsm.Click
        For Each selected In ListView1.SelectedItems
            DosyaSil = selected.ToString.Remove(0, selected.ToString.IndexOf("{") + 1).Replace("}", "")
            File.Delete(DosyaSil)
            ListView1.Items.RemoveByKey(DosyaSil)
        Next
    End Sub

Private Sub SilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilTsm.Click
        File.Delete(ListView1.SelectedItems(0).Text)
        ListView1.Items.RemoveByKey(ListView1.SelectedItems(0).Text)
    End Sub

Private Sub ListView1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If (ListView1.SelectedItems.Count > 0) Then
                'contextMenuStrip3.Show(ListView1, 0, -50)
                contextMenuStrip1.Show(ListView1, ListView1.SelectedItems(0).Position.X + 20, ListView1.SelectedItems(0).Position.Y + 20)
            End If
        End If
    End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Dim sayi As Integer = ListView1.Items.Count
        Dim eleman As ListViewItem
        For i As Integer = 0 To sayi - 1
            eleman = ListView1.Items(i)
            If eleman.Selected Then
                Label1.Text = ListView1.Items(i).SubItems(0).Text
                TextBox1.Text = ListView1.Items(i).SubItems(2).Text

End If
        Next
    End Sub

#Region " ESC İLE KAPATMA, DELETE İLE SATIR SİLME...."

Private Sub ListView1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown
        If e.KeyCode = Keys.Delete Then
            Call ListedenSatırSil()
        End If
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub

Public Sub ListedenSatırSil()
        On Error Resume Next
        Dim indeksler As ListView.SelectedIndexCollection = ListView1.SelectedIndices
        Dim index As Integer

TextBox1.Text = Nothing

For Each index In indeksler
            ListView1.Items.RemoveAt(index)
        Next

If index = 0 Then index = 0

index = index - 1

If index = -1 Then index = 0

eleman = ListView1.Items(index)
        eleman.Selected = True
        ListView1.Focus()

End Sub
#End Region

End Class

7 Ağustos 2013 Çarşamba

SİSTEM BİLGİLERİNİ VEREN PROJE

SİSTEM BİLGİSİ KOD İNDİR

KURULUMSUZ EXE PROGRAMI EXE İNDİR

Imports System.Net.NetworkInformation
Imports System
 
Imports System.Management
Public Class Form1

Public p As Ping
    Public pCevap As PingReply
    Public ipID As String
    Public ipSure As String
    Public ipAdres As String
    Public ipPing As String
    Public MacAdresi As String = [String].Empty
    Dim s As Integer = 100

Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click
        Timer3.Interval = 100
        Timer3.Start()
        Form2.PictureBox2.Hide()
        Form2.Show()
    End Sub
    Private Sub Timer3_Tick(sender As System.Object, e As System.EventArgs) Handles Timer3.Tick
        s -= 1
        If s <= 20 Then Form2.PictureBox2.Hide()
        If s <= 1 Then s = 100 : Form2.Close()
    End Sub

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

Call IPBul()
        btnGoster.PerformClick()

End Sub
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Timer1.Stop()
        Timer2.Stop()

End Sub

Private Sub IPBul()
        On Error Resume Next
        If My.Computer.Network.IsAvailable = False Then
            ipID = "İnternet Bağlı değil"
            Exit Sub
        End If

'Try
        p = New Ping

pCevap = p.Send(Label3.Text)
        ipID = pCevap.Address.ToString
        ipSure = pCevap.RoundtripTime.ToString
        ipAdres = pCevap.Address.AddressFamily.ToString
        ipPing = pCevap.Status.ToString

'Catch pExc As PingException

'    MessageBox.Show(pExc.InnerException.Message)

'End Try
    End Sub

Public Function BilgiAl(ByVal wmiObjectInfo As String, Optional ByVal wmiRelativePath As String = "Win32_Processor") As String

BilgiAl = Nothing

Try

Dim wmiClass As New System.Management.ManagementClass
            Dim wmiObject As New System.Management.ManagementObject

wmiClass.Path.RelativePath = wmiRelativePath

For Each wmiObject In wmiClass.GetInstances

BilgiAl = (wmiObject(wmiObjectInfo))

Return BilgiAl

Catch exc As Exception

Return "n/a"

End Try

End Function

Public Sub WindowsBilgileriniOku()
        On Error Resume Next
        If My.Computer.Network.IsAvailable = False Then
            Me.Text = "İnternet Bağlı değil. İlgili Biigiler Görüntülenmez"
        End If
        Timer1.Start()
        Timer2.Start()
        pCevap = p.Send(Label3.Text)
        ipID = pCevap.Address.ToString
        ipSure = pCevap.RoundtripTime.ToString
        ipAdres = pCevap.Address.AddressFamily.ToString
        ipPing = pCevap.Status.ToString

On Error Resume Next

Cursor.Current = Cursors.AppStarting

LWiev.Items(0).SubItems.Item(1).Text = (My.Computer.Info.OSFullName)
        LWiev.Items(1).SubItems.Item(1).Text = (My.Computer.Info.OSPlatform)
        LWiev.Items(2).SubItems.Item(1).Text = (My.Computer.Info.OSVersion)
        LWiev.Items(3).SubItems.Item(1).Text = (Environment.OSVersion.ServicePack)
        LWiev.Items(4).SubItems.Item(1).Text = (Environment.OSVersion.VersionString)
        LWiev.Items(5).SubItems.Item(1).Text = (BilgiAl("OSArchitecture", "win32_operatingsystem"))
        LWiev.Items(6).SubItems.Item(1).Text = (Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE"))

LWiev.Items(7).SubItems.Item(1).Text = (ipID.ToString) ' ipID = pCevap.Address.ToString
        LWiev.Items(8).SubItems.Item(1).Text = (pCevap.ToString)
        LWiev.Items(9).SubItems.Item(1).Text = (ipSure.ToString)
        LWiev.Items(10).SubItems.Item(1).Text = (ipAdres.ToString)
        LWiev.Items(11).SubItems.Item(1).Text = (ipPing.ToString) & " - (Başarılı)"

LWiev.Items(12).SubItems.Item(1).Text = (Environment.UserDomainName.ToString) 'Bilgisayar adı 
        LWiev.Items(13).SubItems.Item(1).Text = (Environment.UserName.ToString) 'Kullanıcı adı

LWiev.Items(14).SubItems.Item(1).Text = ("") 'system saati timer1

LWiev.Items(15).SubItems.Item(1).Text = ("") 'Tuşlar 15-17
        LWiev.Items(16).SubItems.Item(1).Text = ("") 'Tuşlar 15-17
        LWiev.Items(17).SubItems.Item(1).Text = ("") 'Tuşlar 15-17

LWiev.Items(18).SubItems.Item(1).Text = (Screen.PrimaryScreen.Bounds.Width & " x " & Screen.PrimaryScreen.Bounds.Height _
                                                 & "  Bit : " & Screen.PrimaryScreen.BitsPerPixel)

Dim getInfo As System.IO.DriveInfo
        getInfo = My.Computer.FileSystem.GetDriveInfo("C:\")

LWiev.Items(19).SubItems.Item(1).Text = (Format((getInfo.TotalSize / 1000000000), "#.##") & " GB.")
        LWiev.Items(20).SubItems.Item(1).Text = (Format(((getInfo.TotalSize - getInfo.TotalFreeSpace) / 1000000000), "#.##") & " GB.")
        LWiev.Items(21).SubItems.Item(1).Text = (Format((getInfo.TotalFreeSpace / 1000000000), "#.##") & " GB.")
        LWiev.Items(22).SubItems.Item(1).Text = (getInfo.DriveFormat)

Call CPU_Ozet()      ' 23 CPU özet
        Call SurucuID()      ' 24 DeviceId No
        Call CPU_No()        ' 25 CPU Seri No
        Call GetMACAddress() ' 26 MacAddress
        LWiev.Items(27).SubItems.Item(1).Text = String.Format(My.Computer.Info.AvailablePhysicalMemory.ToString("N0")) '29 "Kullanılabilir Fiziksel Bellek:
        LWiev.Items(28).SubItems.Item(1).Text = String.Format(My.Computer.Info.TotalPhysicalMemory.ToString("N0")) ' 30 Toplam Fiziksel Bellek: " 
        LWiev.Items(29).SubItems.Item(1).Text = (ULong.MinValue) ' 31 Kullanılabilir Sanal Bellek:
        LWiev.Items(30).SubItems.Item(1).Text = String.Format(My.Computer.Info.TotalVirtualMemory.ToString("N0")) '32 Toplam Sanal Bellek

Call HDSerialBul()   ' 31 HDD serial 
        Call HDModeli()      ' 32 Harddisk modelini bulmak
        Call HDDTipi()        '33 HDD Tipi
        txtAnahtar.Text = UrunAnahtariAl("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "DigitalProductId")

End Sub

Public Function UrunAnahtariAl(ByVal KeyPath As String, ByVal ValueName As String) As String

Dim Tampon As Object = My.Computer.Registry.GetValue(KeyPath, ValueName, 0)

If Tampon Is Nothing Then Return "Sizin Anahtar görünmüyor"

Dim say As String = ""

For l As Integer = LBound(Tampon) To UBound(Tampon)
            say = say & " " & Hex(Tampon(l))
        Next

Dim Baslangic As Integer = 52
        Dim Bitis As Integer = 67
        Dim Rakam(24) As String

Rakam(0) = "B" : Rakam(1) = "C" : Rakam(2) = "D" : Rakam(3) = "F"
        Rakam(4) = "G" : Rakam(5) = "H" : Rakam(6) = "J" : Rakam(7) = "K"
        Rakam(8) = "M" : Rakam(9) = "P" : Rakam(10) = "Q" : Rakam(11) = "R"
        Rakam(12) = "T" : Rakam(13) = "V" : Rakam(14) = "W" : Rakam(15) = "X"
        Rakam(16) = "Y" : Rakam(17) = "2" : Rakam(18) = "3" : Rakam(19) = "4"
        Rakam(20) = "6" : Rakam(21) = "7" : Rakam(22) = "8" : Rakam(23) = "9"

Dim dUzunluk As Integer = 29
        Dim sUzunluk As Integer = 15
        Dim Rakamsal(15) As String
        Dim boyut(30) As String

Dim say2 As String = ""

For i As Integer = Baslangic To Bitis
            Rakamsal(i - Baslangic) = Tampon(i)
            say2 = say2 & " " & Hex(Rakamsal(i - Baslangic))
        Next

Dim AnahtarDizesi As String = ""

For i As Integer = dUzunluk - 1 To 0 Step -1
            If ((i + 1) Mod 6) = 0 Then
                boyut(i) = "-"
                AnahtarDizesi = AnahtarDizesi & "-"
            Else
                Dim HN As Integer = 0
                For N As Integer = (sUzunluk - 1) To 0 Step -1
                    Dim Value As Integer = ((HN * 2 ^ 8) Or Rakamsal(N))
                    Rakamsal(N) = Value \ 24
                    HN = (Value Mod 24)

boyut(i) = Rakam(HN)
                AnahtarDizesi = AnahtarDizesi & Rakam(HN)
            End If
        Next

Return StrReverse(AnahtarDizesi)

End Function

Private Sub form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        '
        If e.KeyCode = Keys.Enter Then

btnGoster.PerformClick()

ElseIf e.KeyCode = Keys.Escape Then

Me.Close()

End If

End Sub

Private Sub btnGoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGoster.Click
        WindowsBilgileriniOku()

End Sub

Private Sub txtAnahtar_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtAnahtar.KeyDown

If e.KeyValue = 27 OrElse e.KeyValue = 13 Then

e.SuppressKeyPress = True

End If

End Sub

Private Sub txtAnahtar_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtAnahtar.MouseClick

txtAnahtar.SelectAll()
        'txtAnahtar.Copy()
        Clipboard.SetText(UrunAnahtariAl("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\", _
                     "DigitalProductId"), TextDataFormat.Text)

End Sub

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

LWiev.Items(14).SubItems.Item(1).Text = (TimeOfDay)
    End Sub

Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick

If (My.Computer.Keyboard.NumLock) Then
            LWiev.Items(15).SubItems.Item(1).Text = ("AÇIK")
        Else
            LWiev.Items(15).SubItems.Item(1).Text = ("KAPALI")
        End If
        If (My.Computer.Keyboard.CapsLock) Then
            LWiev.Items(16).SubItems.Item(1).Text = ("AÇIK")
        Else
            LWiev.Items(16).SubItems.Item(1).Text = ("KAPALI")
        End If
        If (My.Computer.Keyboard.ScrollLock) Then
            LWiev.Items(17).SubItems.Item(1).Text = ("AÇIK")
        Else
            LWiev.Items(17).SubItems.Item(1).Text = ("KAPALI")
        End If
    End Sub

Public Sub CPU_Ozet()
        Dim Nesnemiz
        Nesnemiz = GetObject("winmgmts:root\cimv2:Win32_Processor='cpu0'")
        LWiev.Items(23).SubItems.Item(1).Text = Nesnemiz.Caption
        'MessageBox.Show("CPU Özet: " & Nesnemiz.Caption)
    End Sub
    Public Sub SurucuID()
        'DeviceId No
        Dim Nesnemiz
        Nesnemiz = GetObject("winmgmts:root\cimv2:Win32_Processor='cpu0'")
        LWiev.Items(24).SubItems.Item(1).Text = (Nesnemiz.DeviceID)
    End Sub

Public Sub CPU_No()
        Dim Nesnemiz
        Nesnemiz = GetObject("winmgmts:root\cimv2:Win32_Processor='cpu0'")

'MessageBox.Show("CPU Seri No: " & Nesnemiz.ProcessorID)
        LWiev.Items(25).SubItems.Item(1).Text = (Nesnemiz.ProcessorID)
    End Sub

Public Function GetMACAddress() As String
        Dim mc As New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        Dim MACAddress As String = [String].Empty
        For Each mo As ManagementObject In moc
            If MACAddress = [String].Empty Then
                If CBool(mo("IPEnabled")) = True Then
                    MACAddress = mo("MacAddress").ToString()
                    LWiev.Items(26).SubItems.Item(1).Text = (MACAddress)
                End If
            End If
            mo.Dispose()
        Next
        MACAddress = MACAddress.Replace(":", "")
        Return MACAddress
    End Function

Public Sub HDSerialBul()
     
        Dim disk As New ManagementClass("Win32_PhysicalMedia")

For Each Hdisk As ManagementObject In disk.GetInstances()
            If Hdisk("SerialNumber") <> Nothing Then
                'MessageBox.Show("HDD serial " & CStr(Hdisk("SerialNumber")))
                LWiev.Items(31).SubItems.Item(1).Text = CStr(Hdisk("SerialNumber"))
            End If
        Next Hdisk

End Sub

Public Sub HDModeli()
        'Harddisk modelini bulmak
        Dim ara As New Management.ManagementObjectSearcher("select * from Win32_PhysicalMedia")
        Dim wmi_HD As Management.ManagementObject
        ara = New System.Management.ManagementObjectSearcher("select * from Win32_DiskDrive")
        For Each wmi_HD In ara.Get()
            'MessageBox.Show(wmi_HD("Model"))
            LWiev.Items(32).SubItems.Item(1).Text = (wmi_HD("Model"))
        Next
    End Sub

Private Sub HDDTipi()
        ' HDD Tipi alınması
        Dim searcher As ManagementObjectSearcher = _
                New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        For Each wmi_HD As ManagementObject In searcher.Get()
            LWiev.Items(33).SubItems.Add(wmi_HD("InterfaceType").ToString())
        Next wmi_HD
    End Sub

Private Sub txtAnahtar_MouseLeave(sender As System.Object, e As System.EventArgs) Handles txtAnahtar.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(txtAnahtar, "Seçildiği an Anahtar Panoya Kopyalandı")
    End Sub

Private Sub Label1_MouseLeave(sender As System.Object, e As System.EventArgs) Handles Label1.MouseLeave
        Label1.ForeColor = SystemColors.ControlText
    End Sub

Private Sub Label1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        Label1.ForeColor = Color.Red
    End Sub
End Class

FlashForm Kodları :

6 Ağustos 2013 Salı

IExp Browser

Son Güncelleme : 06.08.2013
Windows 7 Clone Component ve TabConrol Kullanılarak vb.Net 4 ile Revize ettim.
Projede Tab ekleme bir CheckBox ile tek sayfada veya Yeni bir sekmede açılabiliyor.

Sadece Exe Programını isteyenler için EXE İNDİR

IExp browser KODİNDİR