es que da **** reiniciar la pc para probar overclocks.... hay alg soft que trabaje como el aibooster directamente con el bios?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúOption Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Function ToBinary(lnum As Long) As String
Dim b(3) As Byte
Dim i As Long
Dim strmsg As String
CopyMemory b(0), lnum, &H4
For i = 0 To 3
strmsg = strmsg & Chr$(b(i))
Next
ToBinary = strmsg
End Function
Function FromBinary(strmsg As String) As Long
Dim c() As Byte
Dim lnum As Long
Dim i As Long
For i = 1 To Len(strmsg)
ReDim Preserve c(i - 1)
c(i - 1) = Asc(Mid$(strmsg, i, 1))
Next
CopyMemory lnum, c(0), Val("&H" & UBound(c) + 1)
FromBinary = lnum
End Function
Private Sub Form_Load()
MsgBox ToBinary(96412234)
MsgBox FromBinary(ToBinary(96412234))
End Sub