,Bir Web sayfası yapın girişi username ve password ile olsun. Arkadaşlarınıza ayrı ayrı şifreler verin. Her giren şifre ile girsin, buraya programın ürettiği seri no yu yazsın. Karşılığında da lisans şifresini göstersin. Bu web sayfası aynı zamanda arkada log tutsun. Şu username, şu tarihte, şu kodu vererek şifre aldı, şeklinde. Böylece herşey sizin kontrolünüzde olacaktır.
hocam yardımların için teşekkür ederim ama ben web cahili bi insanım sadece html yapmasını bilirim. bu asp ve php ile ilgili çok fazla değil hiç bi bilgim yok bu konuda sizden bi örnek istesem nasıl olur acabacelalatak yazdı:En kolayı icq dan pager göndermedir. Program internette olduğunu tespit edecek ve kullanıcı adı vs bilgileri belirlediğin icq uin e gönderecek. Kodları bulamazsan yardımcı olabilirim.
Kod: Tümünü seç
Delphi ve Web Snap ile veya Intraweb ile çok kolay bir şekilde yapabilirsin.<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta http-equiv="Content-Language" content="tr">
<meta name="ProgId" content="FrontPage.Editor.Document">
<META http-equiv=Content-Type content="text/html; charset=windows-1254">
<title> Takipci.com </title>
<style type="text/css">
#main
{position: absolute;
top: 168px;
left: 325px;
width:450 px;
}
</style>
</head>
<body>
<?php
// xxxx@xxxxx.com yazan yere emaili yaz
mail("xxxx@xxxxx.com", "Message from Contact Page", ($_POST['name'] ."\n". $_POST['email'] ."\n". $_POST['message']));
?>
<div id="main">
<p><b><big>Mesajiniz gonderildi .</b></big><br>
<p><big></p></big><br>
<br>
<b><big><a href="http://www.domainAdı.com">Tekrar mesaj gonder</a><br>
<!-- Fill in your home page URL below -->
</b></big> <b><big><a href="http://www.domainAdı.com">Ana Sayfa</a></b></big>
</p>
<p> </p>
<p> </p>
<p> </p>
</div>
</body>
Kod: Tümünü seç
IdTCPClient1.Port:=80;
IdTCPClient1.Host:='www.domainAdı.com';
IdTCPClient1.Connect(4000);
Kod: Tümünü seç
procedure TForm1.IdTCPClient1Connected(Sender: TObject);
var
buffer,mesaj:string;
uz:integer;
begin
mesaj:='name=xxxxxxxxx&email=xxxxxxx&message=xxxxxxx&submit=Gonder';
uz:=length(mesaj);
buffer :='POST http://www.domainAdı.com/contact.php HTTP/1.0' + #13#10 +
'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*' + #13#10 +
'Accept-Language: tr' + #13#10 +
'Content-Type: application/x-www-form-urlencoded' + #13#10 +
'Connection: Keep-Alive' + #13#10 +
'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)' + #13#10 +
'Content-Length: ' +inttostr(uz)+ #13#10 +
'Pragma: no-cache' + #13#10 +
'Host: www.domainAdı.com' + #13#10 + #13#10 +
mesaj + #13#10;
IdTCPClient1.WriteLn(buffer);
end;