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

[of nope king]

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

 

[muratbudak54]

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

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

   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

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

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

 

[of nope king]

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

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

   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

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

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

Teşekkür EDERİM <3

 

[muratbudak54]

Teşekkür EDERİM <3

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

 

[of nope king]

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

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

Post automatically merged: 29 Nis 2019

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

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

 

[muratbudak54]

Eyw išime yarar