Forget what Laurie just told you. That is about as lame as it gets.
It's a simple matter to defeat that by setting the system clock back (and
resetting it before saving a file to get the correct file date). Many users
that defeat time-limited demos using nothing more complicated than the
system clock will use scripts to change the time when they need to, which
makes it very easy.
You can get the true date from the internet. Of course, that requires the
system running the demo app have an internet connection, which is quite
reasonable for a demo.
{code}
Function InternetGetDate() As String
Dim URL As String
Dim dat As String
Dim datStart As Integer
Dim datEnd As Integer
Dim oHttpTest As Object
Set oHttpTest = CreateObject("Microsoft.XMLHTTP")
URL = "http://www.time.gov/timezone.cgi?Central/d/-6"
oHttpTest.Open "POST", URL, False
oHttpTest.Send
If CLng(oHttpTest.Status) < 300 Then
datStart = InStr(oHttpTest.responseText, "
" color=" & Chr(34) & "white" & Chr(34) & ">") + 116
datEnd = InStr(datStart, oHttpTest.responseText, "
")
dat = Mid(oHttpTest.responseText, datStart, datEnd - datStart)
InternetGetDate = dat
Else
InternetGetDate = "Error: " & oHttpTest.statusText
End If
Set oHttpTest = Nothing
End Function
Public Sub TestInternetGetDate()
Dim sDate As String
sDate = InternetGetDate()
MsgBox sDate
End Sub
{code}
There are many ways to get the date & time from the internet. The above code
is really just serves to demonstrate that it can be done, but isn't
necessarily the best way to do it.
--
http://www.caddzone.com
AcadXTabs: MDI Document Tabs for AutoCAD
Supporting AutoCAD 2000 through 2010
http://www.acadxtabs.com
Email: string.Format("{0}@{1}.com", "tonyt", "caddzone");
wrote in message news:[email protected]...
Thank's Laurie for the reply,
in fact i wrote a code(VBA) for a company, that code will save their
engineers a lot of time(hence $$$$$), they are willing to buy it from me,
but they need to test it first, the code generates automated drawings using
forms and dynaminc blocks. I can't just hand them the code, i need to
protect myself somehow, can you point me to the right direction.
Regards,
