VPF::Аpi для понижения частоты процессора

Voldemar2004

Дата 1.6.2005, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Цитата

ане можете скинуть такую прогу на мыло?

http://www.almico.com

--------------------

i_i
(';')
(V)

user posted image

efedron

Дата 1.6.2005, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: 4
Всего: 4

вот
а ваапще, все надо с яндекса скачивать ;)

--------------------

Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.

efedron

Дата 1.6.2005, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: 4
Всего: 4

хммм, вот я подумал, напишут какую-нть ерунду да 10 мин, а потом продают за деньги smile

Сляпал код, делающий то же самое, что и эта прога, только на 100% (т.е. комп виснет на глухо)

Код


'в форме
Option Explicit
Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Const THREAD_BASE_PRIORITY_MAX = 2
Private Const REALTIME_PRIORITY_CLASS = &H100

Private Sub Command1_Click()
Dim hThread As Long
bLoadTrue = True
hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf LoadCPUThread, ByVal 0&, ByVal 0&, 0&)
SetThreadPriority hThread, THREAD_BASE_PRIORITY_MAX
CloseHandle hThread
End Sub

Private Sub Form_Load()
Dim hProcess
hProcess = GetCurrentProcess
SetPriorityClass hProcess, REALTIME_PRIORITY_CLASS
End Sub
'в модуле
Option Explicit

Public Sub LoadCPUThread()
Dim lCount As Long
Do
Loop
End Sub

осталось только добавить ползунок с процентами и продумать функцию "замедления" ;)

--------------------

ivs_...

Дата 2.6.2005, 08:21 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

ПАСИБА!!!
Век не забуду...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »