visual basic [▬] Varios Codigos [▬] [N]ARUTO [▬]

[[N]ARUTO_ 99]

▬ Caso for criar um programa com esses codigos sempre execute o programa como ADM !!

 

Acelera Windows :

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer", "AlwaysUnloadDLL", 1, Microsoft.Win32.RegistryValueKind.String)

Diminuir Ping Jogos Online :

Dim regKey As RegistryKey

regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\MSMQ", True)

regKey.CreateSubKey("Parameters")

regKey.Close()

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSMQ\Parameters", "TCPNoDelay", 1, Microsoft.Win32.RegistryValueKind.DWord)

Tirar delay das animaçoes :

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "MenuShowDelay", 0, Microsoft.Win32.RegistryValueKind.String)

Acelerar velocidade do Wifi :

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters", "EnableWsd", 0, Microsoft.Win32.RegistryValueKind.DWord)

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters", "FileInfoCacheEntriesMax", 64, Microsoft.Win32.RegistryValueKind.DWord)

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters", "DirectoryCacheEntriesMax", 16, Microsoft.Win32.RegistryValueKind.DWord)

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters", "FileNotFoundCacheEntriesMax", 128, Microsoft.Win32.RegistryValueKind.DWord)

Otimizar Navegador/Internet :

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\Dnscache\Parameters", "CacheHashTableBucketSize", 1, Microsoft.Win32.RegistryValueKind.DWord)

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\Dnscache\Parameters", "CacheHashTableSize", 180, Microsoft.Win32.RegistryValueKind.DWord)

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\Dnscache\Parameters", "MaxSOACacheEntryTtlLimit", 12D, Microsoft.Win32.RegistryValueKind.DWord)

Limpar pasta Temp:

Try

Dim arrStr As String() = {}

arrStr = System.IO.Directory.GetFiles("C:\Windows\Temp", "*.*")

For i As Integer = 0 To arrStr.Length - 1

Try

System.IO.File.Delete(arrStr(i))

Catch ExIO As Exception

Debug.Print(ExIO.Message)

End Try

Next i

MsgBox("Pasta Temp Limpa", MsgBoxStyle.Information, "vTools")

Catch ExIO As IOException

 

MsgBox(ExIO.Message)

End Try

Acelerar Windows [ CMD ]

Shell("netsh int tcp set global congestionprovider=ctcp", AppWinStyle.NormalFocus)

Shell("netsh int tcp set global dca=enabled", AppWinStyle.NormalFocus)

Shell("netsh int tcp set global ecncapability=enabled", AppWinStyle.NormalFocus)

Shell("netsh int tcp set global chimney=enabled", AppWinStyle.NormalFocus)

Melhorar Teclado para Jogos :

'Aqui é para Ativar a função ...

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "AutoRepeatDelay", 200, Microsoft.Win32.RegistryValueKind.String)

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "AutoRepeatRate", 15, Microsoft.Win32.RegistryValueKind.String)

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "BounceTime", 0, Microsoft.Win32.RegistryValueKind.String)

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "DelayBeforeAcceptance", 0, Microsoft.Win32.RegistryValueKind.String)

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "Flags", 59, Microsoft.Win32.RegistryValueKind.String)

'Aqui é para Desativar a função

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "AutoRepeatDelay", 1000, Microsoft.Win32.RegistryValueKind.String)

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "AutoRepeatRate", 500, Microsoft.Win32.RegistryValueKind.String)

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "BounceTime", 0, Microsoft.Win32.RegistryValueKind.String)

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "DelayBeforeAcceptance", 1000, Microsoft.Win32.RegistryValueKind.String)

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Accessibility\Keyboard Response", "Flags", 126, Microsoft.Win32.RegistryValueKind.String)

Iniciar programas rapidamente :

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "DisablePagingExecutive", 1, Microsoft.Win32.RegistryValueKind.DWord)

 

BY: [N]ARUTO_

 

Codigos retirado de meu Otimizador - http://www.webcheats.com.br/threads/otimizador-windows-internet.2525457/