grbdv
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1. В область деклараций над Sub sb_KeyWords() вставить:
Код:
Public Declare Function GetTickCount& Lib "Kernel32" ()
Public Declare Sub Sleep Lib "Kernel32" (ByVal lMSec&)
|
2. Везде 'Timer + n' заменить на 'GetTickCount'
3. В обоих местах перед строкой 'Randomize ...' вставить строку
'Sleep(Int(50 * Rnd + 1))'. Во втором вхождении вместо '50' использовать '20'
4. После этого можно попробовать (я не уверен - вопрос к AndVGri) вместо
Код:
Sleep(Int(20 * Rnd + 1))
Randomize (GetTickCount)
For j = 1 To iW_Words(0)
k = Int((iQty - 1 + 1) * Rnd + 1)
sTgt = sTgt & sDlm & Trim(sSrc(k))
Next
|
сделать
Код:
For j = 1 To iW_Words(0)
Sleep(Int(20 * Rnd + 1))
Randomize (GetTickCount)
k = Int((iQty - 1 + 1) * Rnd + 1)
sTgt = sTgt & sDlm & Trim(sSrc(k))
Next
|
|
Всего записей: 1163 | Зарегистр. 20-08-2011 | Отправлено: 17:01 01-11-2011 | Исправлено: grbdv, 17:55 01-11-2011 |
|
