Kısıtlı Program Nasıl Yapılır

[DivaneTR]

[b]Bir çalışma yapıyorum. Program üç bilgisayardan fazla bilgisayarda çalışmayacak. Bir ini dosyası ile yapmaya çalıştım. Program sadece 3 bilgisayarda çalışacak. Bir başka bilgisayara kopyalandığında çalışmayacak. Şöyle birşey yaptım ama olmadı.[/b]

[spoiler][codebox]
Oku = TextFile.ReadToString("AutoPlay\\Docs\\user.ini");
if Oku == "" then
Kullanici = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion", "RegisteredOwner", true);
Sifrele = Crypto.BlowfishEncryptString(Kullanici, "trustno1withthispassword", 0);
INIFile.SetValue("AutoPlay\\Docs\\user.ini", "Kullanici", "1", Sifrele);
else
nCount = INIFile.GetValueNames("AutoPlay\\Docs\\user.ini", "kullanici");
nSay = Table.Count(nCount);
for i=1, 3 do
Check = INIFile.GetValue("AutoPlay\\Docs\\user.ini", "kullanici", i);
Kullanici = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion", "RegisteredOwner", true);
end

if Check ~= Kullanici and nSay < 3 then
Sifrele = Crypto.BlowfishEncryptString(Kullanici, "trustno1withthispassword", 0);
INIFile.SetValue("AutoPlay\\Docs\\user.ini", "Kullanici", nSay+1, Sifrele);
else
Dialog.Message("Hata", "Program Kullanım Kotası Dolmuştur.\nProgram Şimdi Kapanacak !", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
os.exit()
end
end
[/codebox][/spoiler] Edited February 22, 2012 by Baba_

[dragon3781]

MAC adres bilgileri ile çalışsa mesala ;

MAC adresi okuyup hafızaya alacak (ini veya .db ye kayıt edecek), 3 adet MAC adres sonrası program kapanacak.

[El-Arabi]

mysql e eklet

[abdullahTR]

banada bunu tek pc için olanı lazım

[kamuran731]

ilerleme varmı? Olursa güzel olur.

[El-Arabi]

En güzeli mac adresine göre

[mk_29]

in dosyasına falan gerek yok çalıştırılacak pc ler belli ise mac adreslerini al ve programda açılışta mac adresini okut okunulan adresleri if ile karşılaştır denk değil ise çıkış

[NotToday]

Benim aklımada hdd seriali gelmişti ama fazla bilgim yok.Yani benzersiz olması konusunda.

[DivaneTR]

Hallettim.

[center][spoiler]
[b]Global[/b]
[code]Dizin = _ProgramFilesFolder.."\\Common Files\\System\\data.ini"[/code]
[b]Page > On Preload[/b]
[codebox]
Kontrol = File.DoesExist(Dizin);
if Kontrol == false then
File.Copy("AutoPlay\\Docs\\Data.dvn", Dizin, true, true, false, true, nil);
Oku = TextFile.ReadToString(Dizin);
if Oku == "" then
sKullanici = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion", "RegisteredOwner", true);
sKullanici = Crypto.BlowfishEncryptString(sKullanici, "DivaneSoft", 0);
INIFile.SetValue(Dizin, "kullanici", "1", sKullanici);
else
Kisi = INIFile.GetValueNames(Dizin, "kullanici");
nCount = Table.Count(Kisi);
if nCount < 3 then
sKullanici = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion", "RegisteredOwner", true);
sKullanici = Crypto.BlowfishEncryptString(sKullanici, "DivaneSoft", 0);
Check = String.Find(Oku, sKullanici, 1, false);
if Check == -1 then
INIFile.SetValue(Dizin, "kullanici", nCount+1, sKullanici);
elseif nCount > 2 then
Dialog.Message("Sistem", "Program Kısıtlaması !", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
os.exit()
end
end
end
end
[/codebox]
[b]Page > On Close[/b]
[code]File.Copy(Dizin, "AutoPlay\\Docs\\Data.dvn", true, true, false, true, nil);[/code]
[/spoiler][/center]

[pilgetir]

Ben de çalışmadı winrar sfx ile yap dedin ama ben projemi Hard drive folder olarak yazdırıyorum ve açılmamasını istiyorum olmuyor :S

[Guest _ULTIMATE_]

Bence bu dediğiniz gerçek olsa idi bunu önce microsoft düşünmezmiydi
Ama burası tnctr burda herşey olur diyorsanız. Ona sözüm yok

Edited February 21, 2012 by &ULTİMATE&

[DivaneTR]

[b]Çalışmadığını farkettim mert. Yalnız bu kadar kod yazmam bile senin için yeter. Az çok AMS biliyorsun. Devamını da sen getir artık. Her şeyi devletten bekleme. [/b]