Visual Basic Bilgisayar Hızlandırma Programı Yapıyorum Yardımm.

Arkadaşlar şöyle bişey yapmak istiyorum.
hani
gelişmiş sistem ayarları/performans/ayarlar/en iyi performans için ayarla seçeneği var
ben bunu programdan tek tuş ile nasıl halledebilirim bunun bi kodu yok mu
butona bastığım zaman en iyi performans için ayarlasın onu istiyorum

Umarım yardımcı olmuşumdur bu konuda fazla bilgim yok araştırarak buldum eve gidince bende deniyeceğim

muratbudak54' Alıntı:

Kod:

Imports System
Imports System.IO.FileStream
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO

Kod:

PHP Code:
    Public Sub New()
       ' Yapımcı : Hommerhart,aLcohoL_95,straxxxD
        AddHandler MyBase.Load, New EventHandler(AddressOf Me.MD5VirMain_Load)
     
        Form1.__ENCList.Add(New WeakReference(Me))


        Dim provider As New MD5CryptoServiceProvider
        Dim inputstream As New FileStream((Application.StartupPath & "\Virus hash\Virus hash.txt"), FileMode.Open, FileAccess.Read, FileShare.Read, &H2000)
        Dim Builder As New StringBuilder
        Me.InitializeComponent()
        Dim dialog As New OpenFileDialog

    End Sub

Kod:

   Dim dialog As New OpenFileDialog
        dialog.Title = "Taranacak dosyayı seçin"
        dialog.CheckFileExists = True
        dialog.CheckPathExists = True
        dialog.ShowDialog()
        TextBox1.Text = dialog.FileName
     
        If TextBox1.Text = "" Then
            Button1.Enabled = False
         
        Else
            Button1.Enabled = True
         
        End If
Button1 yani tarama

Kod:

utton1 yani tarama kodu


PHP Code:
If (Me.TextBox1.Text = "") Then
            Interaction.MsgBox("Taranacak dosya eklenmedi -.-", MsgBoxStyle.Exclamation, "...")
        ElseIf File.Exists(Me.TextBox1.Text) Then
            Dim provider As New MD5CryptoServiceProvider
            Dim inputStream As New FileStream(Me.TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read, &H2000)
            provider.ComputeHash(inputStream)
            Dim hash As Byte() = provider.Hash
            Dim builder As New StringBuilder
            Dim num As Byte
            For Each num In hash
                builder.Append(String.Format("{0:X2}", num))
            Next
            Me.txthash.Text = builder.ToString

        End If

        If Me.txthashes.Text.Contains(Me.txthash.Text) Then
            Me.lblstatus.Text = "tehlikeli dosya!"

            MsgBox("tehlikeli dosya", , "tehlikeli dosya")

        Else
            Me.lblstatus.Text = "dosyada virus bulunmadı"
            MsgBox("güvenli dosya", , "güvenli dosya")
        End If

Kod:

5b7ed37e6b4d3a392b1bdc373d609ea4
68f6666296a3fa9260bc88c1b32fa3ba
e9e9d9828194489bfd2f0811924cd1d2
49b10c33b45e929980ac7e23c27592bf  
b925c16fff555fd90898ba71c81cd3cf  
53d00a5c2a8867528a93a1cf307862b1
80ff6d8eb8e7d12481c737af2b0a2638
0xf0757e2587b6eb2845fdeb1a2eba6599
0x426a5ce4f7c5f2bc010b85fa2ea946db
0xc8582021b1a85b214b0c031f58bc827a
0xd84df9d063eb5b385ed04a4865dba81c
0x9800aae15fecd97b2cd226d4bf543dcd  
0x969bd50272ba51ba75ea2f1396da22f8

Umarım yardımcı olmuşumdur bu konuda fazla bilgim yok araştırarak buldum eve gidince bende deniyeceğim

Genişletmek için tıklayın ...

Teşekkür EDERİM <3

cercer16' Alıntı:

Teşekkür EDERİM <3

Genişletmek için tıklayın ...

önemli değil fakat bana cpu ve ram ölçme kodu veya nasıl yapılır videosu lazım

muratbudak54' Alıntı:

önemli değil fakat bana cpu ve ram ölçme kodu veya nasıl yapılır videosu lazım

Genişletmek için tıklayın ...

Banada bunu başka bir arkadaş yardımcı oldu youtubete vb ram ve cpu kullanım gösterme yazarsan bir sürü video çıkıyor dikkatli şekilde yaparsan işe yarar

muratbudak54' Alıntı:

önemli değil fakat bana cpu ve ram ölçme kodu veya nasıl yapılır videosu lazım

Genişletmek için tıklayın ...

Ram Kullanım Gösterme Kodları

En Üste Gelecek Kod

Private PerCounter As System.Diagnostics.PerformanceCounter

Forum 1 e Gelecek Kod

PerCounter = New System.Diagnostics.PerformanceCounter
PerCounter.CategoryName = "Processor"
PerCounter.CounterName = "% Processor Time"
PerCounter.InstanceName = "_Total"


Timer Gelecek Kod

On Error Resume Next
Dim sanalyer As Double
sanalyer = (My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) / 1048576 / 1024

Dim sanalyer1 As Long
sanalyer1 = My.Computer.Info.AvailablePhysicalMemory * 100
Dim mrt As Long
mrt = Val(sanalyer1 / My.Computer.Info.TotalPhysicalMemory)
LogInProgressBar2.Value = mrt
LogInLabel2.Text = "RAM: " & sanalyer.ToString("N") & "GB "


Timer Enabled=True
İnterval=1000




bende bu kod var sadece ram kullanım gösterme bu

Eyw išime yarar