referencia win.tlb

[WestOn]

Wenas, pues la pregunta es simple ¿cual es la referencia win.tlb?
Yo con tal nombre no la tengo en referencias..un saludo

[seba123neo]

Hola...es la Windows Api Type Library te la tenes que bajar por ahi...es para poder tener las api's a mano cuando las estas escribiendo desde el editor de codigo...o buscarlas desde el explorador de objetos de visual sin abrir el api viewer...

saludos.

[WestOn]

La baje de aqui: http://www.geocities.com/practicalvb/vb/download/win32.html

Vi este ejemplo: http://foro.elhacker.net/programacion_vb/generador_de_numeros_aleatorios_en_vb-t21385.0.html
para generar numeros aleatorios..

un saludo grax

PD:Aunque de momento no he consegido que funcione con ese archivo, ¿les funciona con ese archivo? ami no!!

[seba123neo]

haber pone el codigo que estas usando..

[WestOn]

Wenas, este es el code:

Código (vb) [Seleccionar] Expandir

Function Rand(Optional Seed As Long) As Currency
          Dim lpMem As MEMORYSTATUS
          Dim lTime&, lProc&, lProcId&
          Dim lDate&, cRand@

  If Seed <= 0 Then Seed = Rnd * GetClsidCount
 
  'Datos que se usarán para generar el número aleatorio.
  '
  Call GlobalMemoryStatus(lpMem)
  lTime = timeGetTime
  lProc = GetCurrentProcess
  lProcId = GetCurrentProcessId
  lDate = CLng(Date)
 
  cRand = (lpMem.dwAvailVirtual Mod lTime) Xor _
               ((lTime Xor (lProc Mod lProcId)) Xor _
               (lProcId + (lDate Xor lpMem.dwTotalPageFile)))

  Rand = cRand
End Function
No lo hice andar al final, un saludo