[Линда Кайе]

#post-id: 3546-02-47
#original-date: 11.04.2010 Sun
#original-time: 2:47 AM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Ещё фрагмент. Генератор случайных чисел ^^ Тоесть, имеется нтишная функция, которая заполняет буфер случайными числами. А вот как применить её в народном хозяйстве я ещё не придумала...

Option Explicit

' http://msdn.microsoft.com/en-us/library/aa387694(VS.85).aspx
' http://blogs.msdn.com/michael_howard/archive/2005/01/14/353379.aspx
Declare Function RtlGenRandom Lib "AdvAPI32.DLL" Alias "SystemFunction036" (ByRef RandomBuffer As Any, ByVal RandomBufferLength As Long) As C_BOOL

'====================================================================
Public Sub Main()
  asRegisterAppPath
  InitCommonControls
  If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  Dim Buff(0 To 99) As Byte
  Dim RC As C_BOOL
  Dim TXT As BStr
  
  RC = RtlGenRandom(Buff(0), UBound(Buff) - LBound(Buff) + 1)
  If RC = 0 Then
    MsgBox "RtlGenRandom() failed!", vbCritical
  Else
    MsgBox asExpandByteBuffer(Buff), vbInformation
  End If
End Sub

#music: Armin van Buuren\№1\Sound Of Goodbye (Simon & Shaker Remix)

Comments

[Tenno Seremel]

>SystemFunction036

(O.o)

[Линда Кайе]

Ну да, это чтобы дурак не влез ^^ А в доках функция называется понятным именем ^^ Просто везде указано, что нужно искать функцию вот по такому имени.