aquí te dejo un ejemplo, pero yo de BD se poco así que te pongo un ejemplo que e echo ahora(puede que sea muy cutre pero funciona).
1.-Subir un este fichero php a un Servidor que soporte php:
<?php
if ($_SERVER['HTTP_USER_AGENT'] == "Serials(By WarGhost)"){
$Serials = file('serial.txt');
for ($Num = 0; $Num < count($Serials); $Num++){
if (trim($Serial) == trim($Serials[$Num])){
echo "1";
$SerialUni = $Serials[$Num];
}
}
for ($Num = 0; $Num < count($Serials); $Num++){
$archivo .= "$Serials[$Num]";
if ($SerialUni != ""){
$txt = ereg_replace($SerialUni,"",$archivo);
$Open = fopen ('serial.txt',"w");
fwrite ($Open,$txt);
fclose ($Open);
}
}
}
?>
2.-alado creas un TXT con esto:
9SD87T1ADSF24JU85P74P1X54W7F4G
65498SDF12ZX302H54KHL7SDSXF6QW
ahora viene el código de VB6.
Private Sub Command1_Click()
ws.Close
ws.Connect "127.0.0.1", 80
End Sub
Private Sub ws_Connect()
ws.SendData "GET /Serial.php?Serial=" & Text1.Text & " HTTP/1.0" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: Serials(By WarGhost)" & vbCrLf & _
"Host: " & ws.RemoteHostIP & vbCrLf & vbCrLf
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
If Mid(data, Len(data)) = "1" Then
MsgBox "Serial correcta, recuerde de que este serial ya no sera valido."
Else
MsgBox "Serial incorrecta, puede que ya alla sido usado este serial."
End If
End Sub
Espero que te sirva.
P.D:Me a gustado mucho hacer este codigo asique gracias
Salu2, David
Autor
En línea
no tneia ni idea de que fuera asi. 
:D lo voy a usar en la mia.. solo q con algunas modificaciones. 
