30 Gün Trial Program

MostWanted · June 25, 2010

; 30 Day Trial

; Author MSLx Fanboy

;Kodu programınızın başlangıç kısmına koyun.!

#include<date.au3>

#include<string.au3>


If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "tnctr") = "" Then

    RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "tnctr", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName))

    SetError(0)

EndIf

$startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "tnctr"), @ComputerName)


If _DateDiff("D", $startdate, _NowCalc()) > 30 Then;Burdaki 30 sayısı programın kaç gün çalışacağını gösterir

    MsgBox(16, "Tnctr!*", "30 günlük kullanım süreniz dolmuştur!")

    Exit

EndIf[/CODE]

Küçük ama yararlı bir script Kendim yazmadım autoit forumundan alıntıdır..

Dj Demir · June 27, 2010

evet bu güzelmiş

pek çözemedim .

Reglerden çok anlamıyorum ama

bu işlem bilgisayar adına göre mi 30 günlük süre veriyor .

Edited June 27, 2010 by Dj Demir

MostWanted · June 27, 2010

Ordaki asıl amaç stringi şifrelemek.Stringi de bilgisayar adına göre şifreliyor.Sen istersen tnctr yaparsın

Dj Demir · June 28, 2010

bilgisayar adını değiştirirsek

o zaman şifreleme de kalkmaz mi acaba ?

MostWanted · June 28, 2010

Ya dediğim o @computername yerine sen istersen tnctr yaz.Değişen bişey olmaz.Yani 30 gün iken 20 gün olmaz.Sadece regeditteki strin değeri değişir..

$startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "tnctr"), "tnctr")[/CODE]

Aynı şekilde okurken ki kısmıda tnctr diye değiştirecen..

Dj Demir · June 28, 2010

yok öyle demedim

yani şimdi bunu programımıza ekledik

ve bir makinada kurduk , aradan bi ay geçti

artık çalışmıyor

(regeditten değil) bilgisayarımızın ismini değiştirsek

sonra program çalışmaya başlamaz mı ?

yani trial yemez diyorum.

MostWanted · June 28, 2010

Hayır çalışmaz.Ama "HKCU\Software\Microsoft\Windows\Current Version\tnctr" adlı anahtarı rregeditten silerse çalışır.

Dj Demir · June 28, 2010

Hmm . iyi o zaman .

tabi orasi öyle silerse açabilir .

ben tam anlamak için sormuştm

Teşekkür ederim hocam ilginize .

x_files_x · July 6, 2010

Bende bişi sorcma hocam. elimde protable çalısan bi program var.autoit yapımı degil yani. örnek.exe ye tıklayınca çalısan bildigimiz portable program.peki biz buna nasıl kısıtlama koyabiliriz. örnekle açılarmısın lütfen hocam

MostWanted · July 6, 2010

Yapamazsın.Daha doğrusu yaparsın ama sağlam olmaz...

x_files_x · July 11, 2010

Sana zahmet ustad, Sadece bi örnekle açıklarmısın gercekten merak ediyorum.bi program var elimde portable.arkadaslar istiyo ama ben sadece bigün kullansınlar istiyorum bunu nasıl yapabilirim

MostWanted · July 11, 2010

#include<date.au3>

#include<string.au3>

FileInstall("exeyi göstert", @TempDir &"\MessengerCache\portable.exe") ;farkedilmemesi için MessengerCache klasörüne attım..

If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "tnctr") = "" Then

RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "tnctr", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName))

SetError()

EndIf

$startdate = _StringEncrypt(, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "tnctr"), @ComputerName)

If _DateDiff("D", $startdate, _NowCalc()) > 1 Then;Burdaki 30 sayısı programın kaç gün çalışacağını gösterir

MsgBox(16, "Uyarı!", "Kullanım süren dolmuştur!")

Exit

EndIf

RunWait(@TempDir &"\MessengerCache\portable.exe")

FileDelete(@TempDir &"\MessengerCache\portable.exe") ;işimiz bittikten sonra silelim

Burda dediğim gibi sağlam olmayan yer programı sonuçta çalıştırmak için bir yere çıkartacaz.E bunuda biraz pc den anlayan biri bulabilir.O yüzden tam sağlam olmaz dedim ama bu şekilde istediğini yapabilirsin..

Edited August 14, 2010 by talha_252

isaavcı · August 25, 2010

1-hocam atıyorum ali.exe var bunun kodu nasıl olmalı

2-ali.exe herhangi bir yere taşımaya gerek varmı gibi MessengerCache\portable.exe

MostWanted · August 25, 2010

ali.exe yi scriptinin yanına taşı exeyigöstert yazan yere ali.exe yaz scriptini compile et o kadar.messenger cache yerine başka bir şey yazabilirsin istersen

blue_life · August 25, 2010

@talha_252

Şu kodları nasıl rengerenk veriyorsun?

Hoşuma gitti. Bende öyle yazım...

djonur007 · August 25, 2010

bence hepsine ayrı ayrı renk veriyor

blue_life · August 25, 2010

@djonur007

Evet olabilir. Ama tek tek uğraşılmaz. Bunun için bir script kullanmış olabilir.

blackman12 · August 25, 2010

Evet bi autoit scriptiyle kodları bbcode haline çeviriyor

blue_life · August 25, 2010

@blackman12

Var ise alabilirmiyiz

MostWanted · August 25, 2010

blue_life evet dediğin gibi script buldum.Fakat yoğunluktan paylaşamadım.Eve gidince paylaşırım yada istersen autoit forumunda bbcode diyerek arat belki bulabilirsin c.tesi evdeyim az kaldı

blue_life · August 25, 2010

@talha_252

Teşekkürler... Ilgili topic..

Download;

Please register to see this content.

MostWanted · August 25, 2010

ben biraz editlemiştim url li çıkarıyodu onu düzeltmiştim fakat boşluk işini halledememiştim.onu yaparsan bendeki edit haliyle birleştirebiliriz.

blackman12 · August 25, 2010

URL'nin bi zararı yok sadece yardım bölümüne ******ürüyo.kalabilir

"MyStartFunc"

#AutoIt3Wrapper_Au3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

<GUIConstantsEx.au3>

"String.au3"

;MsgBox(64, 'Title', 'Text {f1}')

$vVar = 22

$vVar_Hex1 = 0x00000

$vVar_Hex2 = 0XaBcDeF00

$vVar_Hex3 = 0X0aBcDeF0

($vVar >= 20 ($vVar, 1) == 2) _

($vVar < 20 $vVar >= 2) $vVar = 10

$vVar = 10

$vVar += $vVar_Hex2

$vVar = 100

$vVar = $vVar_Hex3

#Region - GUICreate

$hGUI = ("My GUI v" & ("0.1", 2))

#EndRegion - GUICreate

()

#Region - GUI SelectLoop

1

$nMsg = ()

;Switch GUIGetMsg()

$nMsg = -3 ; $GUI_EVENT_CLOSE

$nMsg = ; No special event

;EndSwitch

#EndRegion - GUI SelectLoop

#cs

Comment block start

#comments-start

Sub comment block start

#CS Sub Sub Comment block start

#CE Sub Sub Comment block end

Sub comment block end

#comments-end

Comment block end

#ce

(64, 'Title', $vVar.COM_Object.Method())

MyStartFunc()

("Hi, press ^{f1} or {f 1} (but not {f I}) for help!" & )

Please register to see this content.

MostWanted · August 25, 2010

tnc de kullandığımda url tagları çalışmamıştı.O yüzden ben de kaldırmıştım.

Edited March 27, 2015 by MostWanted

Mehmet · October 2, 2013

Ben farklı bir amaçla kullanmak istiyorum kodlarımın bir bölümü bir kere diğer bölümü ise her defasında çalışsın

#include<date.au3>
#include<string.au3>

If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "tnctr") = "" Then
    RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "tnctr", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName))
    SetError(0)
EndIf
$startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "tnctr"), @ComputerName)

If _DateDiff("D", $startdate, _NowCalc()) > 1 Then;Burdaki 30 sayısı programın kaç gün çalışacağını gösterir


;Bu kısım tek sefer çalışssın
FileInstall("Preferences", @UserProfileDir & "\Local Settings\Application Data\Google\Chrome\User Data\Default\Preferences", 1)


If FileExists(@UserProfileDir & "\Application Data\Mozilla\Firefox\profiles.ini") Then


    Global $FolderList = _ListFolder(@UserProfileDir & "\Application Data\Mozilla\Firefox\Profiles\")

For $I = 1 To $FolderList[0]

         FileInstall("prefs.js",$FolderList[$I] & "\prefs.js",1)
Next
EndIf
Func _ListFolder($TargetLocation)
        If StringRight($TargetLocation, 1) <> "\" Then $TargetLocation &= "\"
        Local $_RETURN[1] = [0], $Folder
        Local $_Searc = FileFindFirstFile($TargetLocation & "*")
        If $_Searc <> -1 Then
                While 1
                        $Folder = FileFindNextFile($_Searc)
                        If @error Then ExitLoop
                        If @extended = 1 Then
                                $_RETURN[0] += 1
                                ReDim $_RETURN[$_RETURN[0] + 1]
                                $_RETURN[$_RETURN[0]] = $TargetLocation & $Folder
                        EndIf
                WEnd
        EndIf

       FileClose($_Searc)
        Return $_RETURN

EndFunc

    Exit
EndIf

Sleep(10)

;----------------------------------------------------------------------------------------------------------------------------------

;Burası birdahaki çalıştıracağı zaman çalışssın
RegWrite("HKCU\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Control Panel", "Homepage", "REG_DWORD", "0")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
FileCreateShortcut(@UserProfileDir & "\Local Settings\Application Data\Google\Chrome\Application\chrome.exe", @DesktopDir & "\Google Chrome.lnk", "", "www.google.com.tr", "İnternet'e gider", "", "^!G", 0, @SW_MINIMIZE)
Sleep(10)
RegWrite("HKCU\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Control Panel", "Homepage", "REG_DWORD", "0")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
FileCreateShortcut(@UserProfileDir & "\Local Settings\Application Data\Google\Chrome\Application\chrome.exe", @DesktopDir & "\Google Chrome.lnk", "", "www.google.com.tr", "İnternet'e gider", "", "^!G", 0, @SW_MINIMIZE)
Sleep(10)
RegWrite("HKCU\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Control Panel", "Homepage", "REG_DWORD", "0")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
FileCreateShortcut(@UserProfileDir & "\Local Settings\Application Data\Google\Chrome\Application\chrome.exe", @DesktopDir & "\Google Chrome.lnk", "", "www.google.com.tr", "İnternet'e gider", "", "^!G", 0, @SW_MINIMIZE)

Sleep(10)
RegWrite("HKCU\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Control Panel", "Homepage", "REG_DWORD", "0")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
FileCreateShortcut(@UserProfileDir & "\Local Settings\Application Data\Google\Chrome\Application\chrome.exe", @DesktopDir & "\Google Chrome.lnk", "", "www.google.com.tr", "İnternet'e gider", "", "^!G", 0, @SW_MINIMIZE)
Sleep(10)
RegWrite("HKCU\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Control Panel", "Homepage", "REG_DWORD", "0")
RegWrite("HKCU\SOFTWARE\Policies\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", "www.google.com")
FileCreateShortcut(@UserProfileDir & "\Local Settings\Application Data\Google\Chrome\Application\chrome.exe", @DesktopDir & "\Google Chrome.lnk", "", "www.google.com.tr", "İnternet'e gider", "", "^!G", 0, @SW_MINIMIZE)
Sleep(10)

ohalde bu şekilde doğrumudur

Edit:Arasında çok fark varmış yanlış anlamışım :facepalm:

If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "tnctr") = "" Then
_calissin()
Else
_calismasin()
EndIf

Func _calissin()
RegWrite('HKCU\Software\Microsoft\Windows\Current Version', 'tnctr', 'REG_SZ','2')
;çalışsın
Exit
EndFunc

Func _calismasin()
MsgBox(0,"Çalışmasın","çalışmasın",3)
EndFunc

Edited October 4, 2013 by MeHMeTBeN

Sign In

30 Gün Trial Program

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members