Bikin Kompi Lancar

  • Uploaded by: Endo
  • 0
  • 0
  • June 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Bikin Kompi Lancar as PDF for free.

More details

  • Words: 719
  • Pages: 4
Bikin kompi lemot serasa baru (dijamin) masalah kritis yg bikin kompi jd lemot 1. registry mungkin dah amburadul 2. dma (direct memory access)mode telah berubah menjadi PIO (Processor Input Oputput)mode karena keseringan hang ato error, sehingga program tidak mengandalkan memory lg ttp memaksa kerja prosesor kerja bit per bit (mencapai 100 persen yg bisa bikin kompi panas bgt). Setiap crash/error DMA mode turun dr Ultra DMA mode 5.. 4.. 3.. hingga PIO. 6x crash = lemot. solusi : 1. instal cc cleaner ato regcure http://www.indowebster.com/RegCure_1500.html scan lalu fix problems. 2. masuk : control panel - system - hardware - device manager - IDE ATA/ATAPI controller Primary IDE Channel - (klik 2x) - Advanced Setting - Device 0 dan Device 1 transfer modenya ubah mjd : DMA if available - OK. klo masih lambat/hang, download resettingdma.vbs dari: http://winhlp.com/node/10 Download quick solution no.1 yg bertuliskan : Click here. File yg dah didonlot berformat .txt rename jd format .vbs dr situs itu, yg no 1, bag.click here; kan muncul seperti ini: Spoiler for resetDMA: ' Visual Basic Script program to reset the DMA status of all ATA drives ' Copyright © 2006 Hans-Georg Michna ' Version 2007-04-04 ' Works in Windows XP, probably also in Windows 2000 and NT. ' Does no harm if Windows version is incompatible. If MsgBox("This program will now reset the DMA status of all ATA drives with Windows drivers." _ & vbNewline & "Windows will redetect the status after the next reboot, therefore this procedure" _ & vbNewline & "should be harmless.", _ vbOkCancel, "Program start message") _ = vbOk Then

RegPath = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr ol\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\" ValueName1Master = "MasterIdDataChecksum" ValueName1Slave = "SlaveIdDataChecksum" ValueName2Master = "UserMasterDeviceTimingModeAllowed" ValueName2Slave = "UserSlaveDeviceTimingModeAllowed" ValueName3 = "ResetErrorCountersOnSuccess" MessageText = "The following ATA channels have been reset:" MessageTextLen0 = Len(MessageText) ConsecutiveMisses = 0 Set WshShell = WScript.CreateObject("WScript.Shell") For i = 0 to 999 RegSubPath = Right("000" & i, 4) & "\" ' Master Err.Clear On Error Resume Next WshShell.RegRead RegPath & RegSubPath & ValueName1Master errMaster = Err.Number On Error Goto 0 If errMaster = 0 Then On Error Resume Next WshShell.RegDelete RegPath & RegSubPath & ValueName1Master WshShell.RegDelete RegPath & RegSubPath & ValueName2Master On Error Goto 0 MessageText = MessageText & vbNewLine & "Master" End If ' Slave Err.Clear On Error Resume Next WshShell.RegRead RegPath & RegSubPath & ValueName1Slave errSlave = Err.Number On Error Goto 0 If errSlave = 0 Then On Error Resume Next WshShell.RegDelete RegPath & RegSubPath & ValueName1Slave WshShell.RegDelete RegPath & RegSubPath & ValueName2Slave On Error Goto 0 If errMaster = 0 Then MessageText = MessageText & " and " Else MessageText = MessageText & vbNewLine

End If MessageText = MessageText & "Slave" End If If errMaster = 0 Or errSlave = 0 Then On Error Resume Next WshShell.RegWrite RegPath & RegSubPath & ValueName3, 1, "REG_DWORD" On Error Goto 0 ChannelName = "unnamed channel " & Left(RegSubPath, 4) On Error Resume Next ChannelName = WshShell.RegRead(RegPath & RegSubPath & "DriverDesc") On Error Goto 0 MessageText = MessageText & " of " & ChannelName & ";" ConsecutiveMisses = 0 Else ConsecutiveMisses = ConsecutiveMisses + 1 If ConsecutiveMisses >= 32 Then Exit For ' Don't search unnecessarily long. End If Next ' i

If Len(MessageText) <= MessageTextLen0 Then MessageText = "No resettable ATA channels with Windows drivers found. Nothing changed." Else MessageText = MessageText & vbNewline _ & "Please reboot now to reset and redetect the DMA status." End If MsgBox MessageText, vbOkOnly, "Program finished normally" End If ' MsgBox(...) = vbOk ' End of Visual Basic Script program teknisnya sih bkn didonlot, tp di copas smua isi textnya ke notepad trus ntar setelah direname .txt jadi .vbs, iconnya ga notepad lg, tp icon VBscript file. pas rename, jgn lupa kosongkan centang utk Hide ekstensions for known file types di folder option - view.

klo ikonnya dah berubah, klik 2x resetdma.vbs dan ada box menyarankan restart. setelah restart baru terasa performanya. sblm klik 2x ada bagusnya non aktifkan antivirus sementara, av bakal detect sbg malicious file krn script modifikasi registry. Cara ini jg membuat komp lama yg lambat dan terlalu bnyk program serasa kompi baru lg. Gw pake notebook Compaq Presario M2000 CentrinoM 1,7 GHz, 512 mb. Setelah resetting DMA bisa multitask firefox(14 tab), YM(3 login), 2 windows explorer, tv home media (tuner), coreldraw 12, word, photoshop dan winamp, dan kerja prosesor ga nyampe 48 persen.

Related Documents

Bikin Kompi Lancar
June 2020 7
Kompi I Pelopor. Bem
October 2019 13
Bikin Virus
May 2020 17
Bikin Foto
November 2019 24
Bikin Web
November 2019 30

More Documents from "Heri Supriyanto"

Link Layer
May 2020 33
Kehamilan Gemelli
June 2020 24
Ipa 6b
June 2020 38
Plpg_rambu
June 2020 28