Wenas, pues la pregunta es simple ¿cual es la referencia win.tlb?
Yo con tal nombre no la tengo en referencias..un saludo ;)
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.
La baje de aqui: http://www.geocities.com/practicalvb/vb/download/win32.html (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 (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!!
haber pone el codigo que estas usando..
Wenas, este es el code:
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 ;)