x_files_x Posted June 19, 2010 Share Posted June 19, 2010 Arkadaşlar ,şimdi bende bi kac program var, arkadaşlar hep rica ediyo veriyom ama, ben şöyle bişi düsünüyorum verdigim bi program diyelim 10 defa kullanımdan sonra yada iki gün sonra calısmıcak kendini silicek yada işte kullanılmaz olucak.bunu AUTOIT veya farklı yollarlada olabilir nasıl yapabilirim?? program herhangi bi program olabilir amaç sadece kullanımı kısıtlamak.lütfen yardımcı olursanız çok sevinirim Tşk ederim şimdiden Link to comment Share on other sites More sharing options...
MostWanted Posted June 19, 2010 Share Posted June 19, 2010 Buyur autoit forumundan bir yanıt; ; 30 Day Trial ; Author MSLx Fanboy #include<date.au3> #include<string.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 30 Then MsgBox(0, "*XPClean Menu*", "You're registration period has expired.") Exit EndIf[/CODE] Orjinal Konu Linki; [CODE]http://www.autoitscript.com/forum/index.php?showtopic=19370&st=60&p=199599entry199599[/CODE] Link to comment Share on other sites More sharing options...
x_files_x Posted June 19, 2010 Author Share Posted June 19, 2010 Buyur autoit forumundan bir yanıt; ; 30 Day Trial ; Author MSLx Fanboy #include<date.au3> #include<string.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 30 Then MsgBox(0, "*XPClean Menu*", "You're registration period has expired.") Exit EndIf[/CODE] Orjinal Konu Linki; [CODE]http://www.autoitscript.com/forum/index.php?showtopic=19370&st=60&p=199599entry199599[/CODE] Hocam çok özür dileyerek bişi sorcam diyelim ki bu exem Kur.exe isminde bi program bunu nasıl uygularım bu kodlara.ben yapaamdım da lütfen bilgisizligime mazur görün Link to comment Share on other sites More sharing options...
MostWanted Posted June 19, 2010 Share Posted June 19, 2010 Exe'nin ismine gerek yok bunu programın başlangıcına koy o kendi iş yapar zaten.Bir de şurdaki If _DateDiff("D", $startdate, _NowCalc()) > 30 Then[/CODE] 30 değeri kaç gün programı kullanabileceğini gösterir.Atıyorum sen onu 10 yaparsan 10 gün kullanabilir.. Link to comment Share on other sites More sharing options...
x_files_x Posted June 19, 2010 Author Share Posted June 19, 2010 #include<date.au3> #include<string.au3> If _DateDiff("D", $startdate, _NowCalc()) > 30 Then If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 30 Then MsgBox(0, "*XPClean Menu*", "You're registration period has expired.") Exit EndIf Böylemi olucak peki hocam ?? Link to comment Share on other sites More sharing options...
MostWanted Posted June 19, 2010 Share Posted June 19, 2010 Ben ne yazdıysam aynısını yazmışsın Evet öyle olacak korkma autoit yemez Dene öğren geliştir kendini.. Link to comment Share on other sites More sharing options...
x_files_x Posted June 20, 2010 Author Share Posted June 20, 2010 Tskler ama hocam bi hata verdi ( İf ile ilgili hata verdi.program acılmadan hata verio Link to comment Share on other sites More sharing options...
MostWanted Posted June 20, 2010 Share Posted June 20, 2010 Bnm yazdığımı scriptinin en başına koy Link to comment Share on other sites More sharing options...
x_files_x Posted June 20, 2010 Author Share Posted June 20, 2010 #include<date.au3> #include<string.au3> If _DateDiff("D", $startdate, _NowCalc()) > 30 Then If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) MsgBox(0, "*XPClean Menu*", "You're registration period has expired.") Exit EndIf ----------------------------------- Link to comment Share on other sites More sharing options...
MostWanted Posted June 20, 2010 Share Posted June 20, 2010 Bunu değil yavrucum şunu; ; 30 Day Trial ; Author MSLx Fanboy #include<date.au3> #include<string.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 30 Then MsgBox(0, "*XPClean Menu*", "You're registration period has expired.") Exit EndIf[/CODE] Link to comment Share on other sites More sharing options...
x_files_x Posted June 20, 2010 Author Share Posted June 20, 2010 Tşkler Hocam Allah Razı Olsun.Bişi daha sorsam olurmu Link to comment Share on other sites More sharing options...
MostWanted Posted June 20, 2010 Share Posted June 20, 2010 Sorsam diyene kadar sorsana şaşkın Link to comment Share on other sites More sharing options...
x_files_x Posted June 20, 2010 Author Share Posted June 20, 2010 ) şimdi bi program var.ben bunun hep pencerelerin üstünde olmasını istiyorum.bunu autoitle nasıl yapabiliriz Link to comment Share on other sites More sharing options...
MostWanted Posted June 20, 2010 Share Posted June 20, 2010 WinSetOnTop(-guinin değişkeni-, "",1)[/CODE] guinin değişkeni yerine GuiCreate'teki değişkeni yazacaksın.. Link to comment Share on other sites More sharing options...
x_files_x Posted June 20, 2010 Author Share Posted June 20, 2010 Tsklerr Hocam.sizden ögrenicegim çok şey var iyi geceler Link to comment Share on other sites More sharing options...
isaavcı Posted August 12, 2010 Share Posted August 12, 2010 istediğimiz herhangi bir exe ye bunu nasıl uygularız yazılan kodda bunu göremedim mesela hayır.exe nasıl kısıtlarım kodolarak paylaşırsanız senirim birde protabledede mantık aynımı Link to comment Share on other sites More sharing options...
djonur007 Posted August 14, 2010 Share Posted August 14, 2010 x.exe'ye bunu uygulamak için kodu en üste yapıştırın. ; 30 Day Trial ; Author MSLx Fanboy #include<date.au3> #include<string.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 30 Then MsgBox(0, "*XPClean Menu*", "You're registration period has expired.") Exit EndIf Link to comment Share on other sites More sharing options...
MostWanted Posted August 14, 2010 Share Posted August 14, 2010 Onur'cum arkadaşın istediği sanırım autoit olmayan bir programı nasıl böyle çalıştırabileceğim.Onu da alttaki konuda küçük bir örnek olarak paylaşmıştım; Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.