این کد را برایم تفسیر کنید

[hraeissi]

با سلام

من یه فایل excel دارم که برام درستش کردن که داخل آن با VB برنامه ای نوشته شده است .

حالا از قرار معلوم بعد از هر 1000 بار این پیغامی میده که توش تلفن است .

قسمت مربوطه را پیدا کردم و مشکل را حل کردم ولی می خوام دوستان که در خصوص برنامه نویسی تجربه دارن این را برایم تفسیر کنند که خطاش چه کار می کرده .



'Lock
Dim intLock As Integer

Dim sSave As String, Ret As Long
'Create a buffer
sSave = Space(255)
'Get the system directory
Ret = GetSystemDirectory(sSave, 255)
'Remove all unnecessary chr$(0)'s
sSave = Left$(sSave, Ret)

Open sSave + "\winmgw32.dll" For Random As #1
pathfile = sSave + "\winmgw32.dll"

'intLock = 1

Get #1, 1, intLock

If intLock > 10000000 Then
intMsg = MsgBox("Your Product has been expired! " _
+ "Contact to Azin - 0912 000 ", vbOKOnly + vbExclamation, "Expiration")
End
End If

Put #1, 1, intLock + 1
Put #1, 2, 123456
Put #1, 3, 2687954
Put #1, 4, 748.236

Close 1



'change time lock


'KPD-Team 1998
'URL: http://www.allapi.net/
'KPDTeam@Allapi.net
Dim m_Date As Date, lngHandle As Long
Dim udtFileTime As FILETIME
Dim udtLocalTime As FILETIME
Dim udtSystemTime As SYSTEMTIME
m_Date = Format(Now, "DD-MM-YY")
m_Date = m_Date - 300
'Set the dialog's title
' cdbox.DialogTitle = "Choose a file ..."
'Set the dialog's filter
' cdbox.Filter = "All Files (*.*)|*.*"
'Show the 'Open File'-dialog
' cdbox.ShowOpen

udtSystemTime.wYear = Year(m_Date)
udtSystemTime.wMonth = Month(m_Date)
udtSystemTime.wDay = Day(m_Date)
udtSystemTime.wDayOfWeek = Weekday(m_Date) - 1
udtSystemTime.wHour = Hour(m_Date)
udtSystemTime.wMinute = Minute(m_Date)
udtSystemTime.wSecond = Second(m_Date)
udtSystemTime.wMilliseconds = 0

' convert system time to local time
SystemTimeToFileTime udtSystemTime, udtLocalTime
' convert local time to GMT
LocalFileTimeToFileTime udtLocalTime, udtFileTime
' open the file to get the filehandle
lngHandle = CreateFile(sSave + "\winmgw32.dll", GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
' change date/time property of the file
SetFileTime lngHandle, udtFileTime, udtFileTime, udtFileTime
' close the handle
CloseHandle lngHandle
' MsgBox "The date of the file '" + pathfile + "' has been changed to" + STR$(m_Date), vbInformation + vbOKOnly, App.Title