كود محيرني

السلام عليكم اعضاء المنتدي الكرام

من فضلكم ممكن احد يشرح هذا الكود

Private Declare Sub GetMem1 Lib "msvbvm60.dll" (ByVal MemAddress As Long, _

var As Byte)

Private Function GetBIOSInf(MemAddr As Long, n As Integer) As String

Dim p As Byte, sBios As String

Dim i As Integer

For i = 0 To n

Call GetMem1(MemAddr + i, p)

sBios = sBios & Chr$(p)

Next i

GetBIOSInf = sBios

End Function

Private Sub Form_Load()

Label1(0).Caption = GetBIOSInf(&HFF400, 12)

Label1(1).Caption = GetBIOSInf(&HFF450, 31)

Label1(2).Caption = GetBIOSInf(&HFF478, 40)

Label1(3).Caption = GetBIOSInf(&HFFFF5, 7)

End Sub

ولماذا يهنج الجهاز عند تنفيذة ويتوقف الفيجول بيسك عن الاستجابة