hvordan forandre å i speed på windows

[VB6_NEW USER]

Hei igjen så hvar det vel på tide og lage et nytt program, ikke spør hva men jeg trenger kode til og forandre raskheten på Pcen

[Jonas]

Det går nok ikke ann.. Eneste jeg tror du kan gjøre er å lage et program som bruker mye resurser. Slik som dette:

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim tid As Double

Private Sub Form_Load()
tid = 1000

Do
   Wait (tid)
Loop

End Sub

Public Sub Wait(milliSekunder As Long)

Dim tidFerdig As Long
tidFerdig = GetTickCount + milliSekunder

Do
   DoEvents
Loop Until GetTickCount >= tidFerdig

End Sub

Stiller du ned "tid" til f eks 100 vil programmet kreve enda mere resurser.

[[ReXoR]]

Det går nok ikke ann.. Eneste jeg tror du kan gjøre er å lage et program som bruker mye resurser. Slik som dette:

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim tid As Double

Private Sub Form_Load()
tid = 1000

Do
   Wait (tid)
Loop

End Sub

Public Sub Wait(milliSekunder As Long)

Dim tidFerdig As Long
tidFerdig = GetTickCount + milliSekunder

Do
   DoEvents
Loop Until GetTickCount >= tidFerdig

End Sub

Stiller du ned "tid" til f eks 100 vil programmet kreve enda mere resurser.

Hva tror du speedhackene til Counterstrike & Half-Life gjorde?

 

Husker at jeg var på en nettcafè, og at en kis som hosta en server brukte speedhack. "Plutselig fikk alle 4000 i ping". Maskinen blir nok ikke akkurat raskere, men den hopper vel over et par ticks.

Har prøvd detta sjæl, og plutselig hadde jeg et par dager i uptime

 

Vet ikke hvordan man gjør dette, dog