the people were are marketing for do not have this motivation. and also, like I said before, registrations would be stored in a text file on the server, and any future registrations would be check against the entries in the text file and then appropriate action would be taken. is that difficult you think?
Function CheckForValidation()
If DLookup("needvalidation", "validate") = "no" Then
GoTo OpenProgram
End If
If IsNull(DLookup("needvalidation", "validate")) Then
DoCmd.OpenForm "frm"
Exit Function
Else
GoTo OpenProgram
End If
OpenProgram:
'DO THE OPENING PROGRAMMING STUFF HERE
End FunctionPrivate Sub ValidateButton_Click()
DoCmd.Hourglass -1
DoCmd.SetWarnings False
Dim db As Database
Set db = CurrentDb()
Dim rs As Recordset
Set rs = db.OpenRecordset("validate", dbOpenDynaset)
Dim ie As Object
Dim address As String
Dim StopTime As Variant, start As Variant
Set ie = CreateObject("internetexplorer.application")
address = "http://YOUR VALIDATION PAGE"
ie.navigate address
While ie.busy And ie.readystate <> 4
DoEvents
Wend
start = 0
StopTime = 10000000
While start < StopTime
start = start + 1
Wend
'SEARCH FOR INDIVIDUAL LISTINGS OF THE CATEGORY HERE
ie.Document.all("key").Value = Me.TXT1 & Me.TXT2 & Me.TXT3 & Me.TXT4
ie.Document.Forms(0).submit
While ie.busy And ie.readystate <> 4
DoEvents
Wend
start = 0
StopTime = 10000000
While start < StopTime
start = start + 1
Wend
If ie.Document.all("Confirm").Value = "true" Then
MsgBox "This license has already been registered." & vbCr & vbCr & _
"You may only register a license one time...", vbCritical, "Validation Error"
Application.Quit
Else
rs.AddNew
rs!needvalidation = "no"
rs.Update
MsgBox "Product Now Validated. Thank you!"
DoCmd.Close
'RUN THE REST OF THE OPENING CODE HERE THAT YOU NEED TO
End If
cleanup:
ie.Quit
Set ie = Nothing
DoCmd.SetWarnings True
DoCmd.Hourglass 0
End Sub<?php
//If the key is blank, go on to the HTML section
if (! $_POST["key"]) {
//DO NOTHING
}
else
{
$validation = "false";
$logfile = "validation.txt";
//Read file for creating final report
$handle = fopen($logfile, "r");
//If there is no information in the log, display a message and exit
if (filesize($logfile) < 1) {
$validation = "false";
fclose ($handle); }
//Otherwise, print the report!
else {
$log = fread($handle, filesize($logfile));
fclose ($handle);
// Seperate each logline
$log = explode("|", trim($log));
// Seperate each part in each logline
for ($i = 0; $i < count($log); $i++) {
if ($log[$i] == $_POST["key"]) {
$validation = "true"; }
}
}
if ($validation == "false") {
$handle = @fopen("Validation.txt", "a");
fputs($handle, $_POST["key"] . "|");
fclose ($handle);
}
}
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"...
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Validation Log</title>
</head>
<body>
<form action="" method="post" name="frm">
<center><br />
Enter Your Product Key:<br />
<input type="text" id="key" name="key" /><br />
<input type="text" id="Confirm" name="Confirm" value="<?php echo $validation; ?>" />
<!--<input type="text" id="Confirm" name="Confirm" />-->
</center>
<p>
<label>
<center><input type="submit" id="valcheck" value="Validate" /></center>
</label>
</p>
</form>
</body>
</html>you can do this in any number of ways. the easiest is probably to check appliction.currentuser in code. If it's different than the one put in the table when its registered, shut it down. That's what I do now, which tells you the owner of the PC. I believe that's what it reads.
