DivaneTR Posted February 20, 2012 Share Posted February 20, 2012 (edited) [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_ Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted February 20, 2012 Share Posted February 20, 2012 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. Quote Link to comment Share on other sites More sharing options...
El-Arabi Posted February 20, 2012 Share Posted February 20, 2012 mysql e eklet Quote Link to comment Share on other sites More sharing options...
abdullahTR Posted February 20, 2012 Share Posted February 20, 2012 banada bunu tek pc için olanı lazım Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted February 20, 2012 Share Posted February 20, 2012 ilerleme varmı? Olursa güzel olur. Quote Link to comment Share on other sites More sharing options...
El-Arabi Posted February 20, 2012 Share Posted February 20, 2012 En güzeli mac adresine göre Quote Link to comment Share on other sites More sharing options...
mk_29 Posted February 20, 2012 Share Posted February 20, 2012 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ış Quote Link to comment Share on other sites More sharing options...
NotToday Posted February 20, 2012 Share Posted February 20, 2012 Benim aklımada hdd seriali gelmişti ama fazla bilgim yok.Yani benzersiz olması konusunda. Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted February 21, 2012 Author Share Posted February 21, 2012 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] Quote Link to comment Share on other sites More sharing options...
pilgetir Posted February 21, 2012 Share Posted February 21, 2012 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 Quote Link to comment Share on other sites More sharing options...
Guest _ULTIMATE_ Posted February 21, 2012 Share Posted February 21, 2012 (edited) 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& Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted February 22, 2012 Author Share Posted February 22, 2012 [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] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.