Jump to content

İleri düzey AutoIT örnekleri

sk8er_boi

By sk8er_boi,
in AutoIT

 Share

Recommended Posts

blackman12 Newbie

blackman12

Posted
Posted 

if FileExists(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}") then

    _sifrecoz()

EndIf

if not FileExists(@scriptdir & "\dvd") then

    DirCreate(@scriptdir & "\dvd")

EndIf

$mesaj = MsgBox(4,"Klasör Şifreleme 1.0","Klasoru Sifre Ile Acilacak Sekilde Gizlemek Istiyormusunuz ?")

if $mesaj = 6 Then

    _sifrele()

Else

    Exit

EndIf


func _sifrele()

    $sifrebelirle = InputBox("Klasör Şifreleme 1.0","Klasörünüz için bir şifre giriniz:","","*")

    if @error Then

        Exit

    Else

        $dirmove = DirMove(@scriptdir & "\dvd",@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}",0)

        $setfile = FileSetAttrib(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}","+HS",1)

        if $setfile = 1 and $dirmove = 1 Then

            MsgBox(0,"Klasör Şifreleme 1.0","Klasör şifreleme başarıyla tamamlandı.")

            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\blackman12","Versiyon","REG_SZ",$sifrebelirle)

        Else

            MsgBox(0,"Klasör Şifreleme 1.0","Bir hatayla karşılaşıldı, program kapatılacak.")

            Exit

        EndIf

    EndIf

    Exit

EndFunc


func _sifrecoz()

    $sifresor = InputBox("Klasör Şifreleme 1.0","Gizlenen Klasor Icin Sifreyi Giriniz:","","")

    if @error Then Exit

    $sifregetir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\blackman12","Versiyon")

    if $sifregetir = $sifresor Then

        $setfile2 = FileSetAttrib(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}","-HS",1)

        $dirmove2 = DirMove(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}",@scriptdir & "\dvd",0)

        if $setfile2 = 1 and $dirmove2 = 1 Then

            MsgBox(0,"Klasör Şifreleme 1.0","Klasör şifresi başarıyla kaldırıldı.")

        Else

            MsgBox(0,"Klasör Şifreleme 1.0","Bir hatayla karşılaşıldı, program kapatılacak.")

        EndIf

    Else

        MsgBox(0,"Klasör Şifreleme 1.0","Yanlış bir şifre girdiniz!")

    EndIf

    Exit

EndFunc[/CODE]

Tabi çok daha geliştirilmesi gereken bir kod ama ben sadece bat dosyasını autoite çevirdim.Üstüne birde şifreyi kendinde belirleme özelliğini ekledim o kadar.
Link to comment
Share on other sites
  • Replies 976
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

sk8er_boi
sk8er_boi

İlk örnek kurulum dosyasını autoit içine gizlemek. Katılımsız kurulum dosyaınızı çaldırmak istemiyorsanız güzel bir seçennek. FileInstall("C:\Documents and Settings\Administrator.PC\Desktop\emule.

blue_life
blue_life

Harfi bilinmeyen CD/DVD romdaki bir programı çalıştırmak....... $CD_DRV = DriveGetDrive("CDROM");Mevcut Cd/Dvd Sürücülerini arıyor... If NOT @error Then For $i = 1 to $CD_DRV[0] $DRV_ST = DriveS

blue_life
blue_life

@mkayer   Anladığım kadarıyla admin yetkisine sahip olmayan autoit çalışmanın içinden, admin yetkileri ile komut istemini çalıştırmak istiyorsun. Bunun için sana basit bir örnek vereyim. Sen kendine

x_files_x Rookie

x_files_x

Posted
Posted (edited)

Please register to see this content.

ben ccleaner programını otomatik hale getirmek istiyorum gerekli kodları yaptım ama sorun bi noktaya çözülmüyor. ilk olarak tarama tuşuna bastırıyorum daha sonra tarama bitince, taramayı iptal et kısmına tıklaması lazım ama bu işlemi tarama bitince yapması lazım..acaba nasıl bekletebiliriz.cünkü bu süre degisen bi süre.mesela bazen 5-10 vb oluyor.acaba o tuş aktif olunca tıklatıcak bi kod varmı ben bilmiyorum :( yani hem temizlik hemde kayıt defterini temizleticek kod yapmak amacım

run(@ProgramFilesDir & "\CCleaner\CCleaner.exe")

WinWait("Piriform CCleaner")

WinWaitActive("Piriform CCleaner")

ControlClick("Piriform CCleaner","","Button1")

WinWait("Piriform CCleaner")

WinWaitActive("Piriform CCleaner")

ControlClick("Piriform CCleaner","","Button2")

WinWait("Piriform CCleaner")

WinWaitActive("Piriform CCleaner")

ControlClick("Piriform CCleaner","","Button1")

WinWait("Piriform CCleaner")

WinWaitActive("Piriform CCleaner")

ControlClick("Piriform CCleaner","","Button4")

WinWait("Piriform CCleaner")

WinWaitActive("Piriform CCleaner")

ControlClick("Piriform CCleaner","","Button2")

WinWait("Piriform CCleaner")

WinWaitActive("Piriform CCleaner")

ControlClick("Piriform CCleaner","","Button3")

Sleep(5000)

ControlClick("Piriform CCleaner","","Button3")

ControlClick("Piriform CCleaner","","Button3")

ControlClick("Piriform CCleaner","","Button3")

Edited by x_files_x
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@x_files_x

CC ile otomatik temizlik yaptırmak için /Auto parametresini kullanabilirsin.

Diğer parametreler ve ayrıntılı bilgi için;

http://docs.piriform.com/ccleaner/advanced-usage/command-line-parameters[/CODE]

Kolay gelsin......

Link to comment
Share on other sites
blackman12 Newbie

blackman12

Posted
Posted

GUICtrlCreatePic ( filename, left, top [, width [, height [, style [, exStyle]]]] )

$x = InputBox ( "sayı gir", "x konumunu belirleyin", "50", " M3")

$y = InputBox ( "sayı gir", "x konumunu belirleyin", "50", " M3")

GUICtrlCreatePic(@SystemDir & "\oobe\images\mslogo.jpg", $x, $y, 200, 50)

tabi bunları biraz daha geliştirmen lazım örneğin

$x = InputBox ( "sayı gir", "x konumunu belirleyin", "50", " M3")

if not @error then

$y = InputBox ( "sayı gir", "x konumunu belirleyin", "50", " M3")

if not @error then

GUICtrlCreatePic(@SystemDir & "\oobe\images\mslogo.jpg", $x, $y, 200, 50)

endif

endif

gibi.Ayrıca normal input kullanırsan sadece sayı girilmesini de exstyle kısmına $EX_NUMBER yazarak sağlayabilirsin.

Link to comment
Share on other sites
noneik Newbie

noneik

Posted
Posted

arkadaslar aranizda bu guzel bilgileri paylasanlardan biri online mi? :) autoit'i simdilik ogrenecek zamanim yok da deepfreeze'in yeni versiyonunu katilimsiz yaptim (programin kendi parametreleri ile) ama seriali girmek icin parametre koymamis adamlar.

Ben de bu seriali baska yoldan girmek istiyorum setup sirasinda..

online olan varsa biraz yardiminizi rica ediyorum

Link to comment
Share on other sites
noneik Newbie

noneik

Posted
Posted
Onlineız online olmasınada sitede benzeri anlatımlar var sabit başlıklardan autoit ile ilgili olana gir görüceksin kaç tane konu var.

ben autoit meselesini kesinlikle ogrenecegim ve de sizin paylasimlariniz sayesinde olacak bu ama gercekten su an ayiracak vaktim yok. Sorumlulugum fazla.

Kendi isini kendin gor demissiniz resmen :) bu isi siz yalayip yutmussunuz sikintili birsey olmamasi lazim sizin icin :)

Sessiz kurulum yaparsam Deep Freeze kurulduktan sonra pc aciliyor ama 30 gunluk deneme surumu oluyor. Ctrl+Shift+F6 ile paneli acip ilgili kisma keyi girdirmem gerekiyor. Sizce bu hic bilmeyen biri icin kolay mi? Eger yardim alamayacaksam simdilik makro kaydedip cozmeyi dusunuyorum :)

tesekkurler.

Link to comment
Share on other sites
noneik Newbie

noneik

Posted
Posted (edited)
@noneik

Senin mesajını görünce aşağıdaki konuda bulunan üçün videoyu çektim.

Senin için gerekli bilgiyi orda bulabilirsin...

http://www.tnctr.com/index.php?showtopic=130213[/CODE]

Kolay gelsin....

kardesim sen bir tanesin :) ilk yardimin da degil. Isteklerimizi cevapsiz birakmiyorsun cok sagol.

Arkadaslar hazirci izlenimi gostermis olabilirim ama ben internet kafe kuruyorum ve ogrenciyim. Evimde de su an bilgisayar yok yani calisma ortamim yok. Ama daha once de yazdigim gibi bu isi kesinlikle ogrenecegim ve sizin paylastiklarinizla olacak bu.

Yani paylasimlariniz icin tesekkur ederim. "Benim icin yapabilir misiniz" olayini hazira konma olarak dusunmeyin lutfen :)

@duzenleme: imla hatasi...

Edited by noneik
Link to comment
Share on other sites
önercuu Newbie

önercuu

Posted
Posted (edited)

Arkadaşlar şu codlara bakarmısınız nerde yanlışlık var ..

Run('klasörkilidi.exe')

WinSetTrans("Klasör Kilidi 1.8 Kurulumu","&Next >",1)

WinWait("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö")

If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö")

WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö")

Send("{ENTER}")

WinWait("Klasör Kilidi 1.8 Kurulumu","Choose Install Locat")

If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Choose Install Locat") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Choose Install Locat")

WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Choose Install Locat")

Send("{ENTER}")

WinWait("Klasör Kilidi 1.8 Kurulumu","Choose a Start Menu ")

If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Choose a Start Menu ") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Choose a Start Menu ")

WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Choose a Start Menu ")

Send("{ENTER}")

WinWait("Klasör Kilidi 1.8 Kurulumu","Select additional sh")

If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Select additional sh") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Select additional sh")

WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Select additional sh")

Send("{ENTER}")

WinWait("Klasör Kilidi 1.8 Kurulumu","Setup is now ready t")

If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Setup is now ready t") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Setup is now ready t")

WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Setup is now ready t")

Send("{ENTER}")

WinWait("Klasör Kilidi 1.8 Kurulumu","Please wait while Kl")

If Not WinActive("Klasör Kilidi 1.8 Kurulumu","Please wait while Kl") Then WinActivate("Klasör Kilidi 1.8 Kurulumu","Please wait while Kl")

WinWaitActive("Klasör Kilidi 1.8 Kurulumu","Please wait while Kl")

Send("{TAB}{ENTER}{TAB}{ENTER}{TAB}{ENTER}{TAB}{ENTER}")

Edited by blackman12
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted (edited)

@önercuu

WinWait komutunun ardından WinMove kullanabilirsin. (Tabi WinSetTrans da kullanılabilir, lakin winmove daha iyidir. Kasa eseri fareyle pencereye tıklamanı önler)

Misel senin ilk winwait satırındaki bilgiler;

WinWait("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö")[/CODE]

Bu satırın bir altına ;

[CODE]WinMove("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö", @DesktopWidth + 10, @DesktopHeight + 10)[/CODE]

Koyabilirsin. Başlık ve text bilgilerini WinWait satırından alacaksın.

[CODE]WinWait("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö")
WinMove("Klasör Kilidi 1.8 Kurulumu","Welcome to the Klasö", @DesktopWidth + 10, @DesktopHeight + 10)[/CODE]

Bu arada Control komutları kullanmak daha avantajlıdır... Neyse kolay gelsin.....

http://www.tnctr.com/index.php?showtopic=130213

Edited by blue_life
Link to comment
Share on other sites
gangster94 Newbie

gangster94

Posted
Posted

arkadaşlar acaba şöyle birşey yapabilirmiyiz

@necooy arkadaşımın office programında gördüm

207s5k9.png

resimli bilgi scripti değil onu biliyorum saatin yanındaki office 2007 kurulama başlandı

bileşenleriniz falan yazıyor öyle birşey yapabilirmiyiz bizde kodu varmı acaba bunun

yazıların yanındaki küçük mavi iconuda editleme şansımız olabilirmi ??

cevabınızı sabırsızlıkla bekliyorum

Link to comment
Share on other sites
neccooy Newbie

neccooy

Posted
Posted
arkadaşlar acaba şöyle birşey yapabilirmiyiz

@necooy arkadaşımın office programında gördüm

resimli bilgi scripti değil onu biliyorum saatin yanındaki office 2007 kurulama başlandı

bileşenleriniz falan yazıyor öyle birşey yapabilirmiyiz bizde kodu varmı acaba bunun

yazıların yanındaki küçük mavi iconuda editleme şansımız olabilirmi ??

cevabınızı sabırsızlıkla bekliyorum

Autoİt kodu:

Opt("TrayMenuMode",1)

TrayTip("Office 2007 SP2 Kurulumu Başladı...", "Bileşenleriniz: Word, Excel, PowerPoint, Outlook", 10, 1)

Sondaki "1"  flagları işaret ediyor, flagları windowstan alıyor.

sanırım flag değiştirmeyi blackman12 yapabilir :)

>@blackman12: Kafamı buluyon len benle :D

flags "1=Info icon, 2=Warning icon, 3=Error icon"

Link to comment
Share on other sites
shmd Newbie

shmd

Posted
Posted (edited)

arkadaşlar şimdi ben @blackman12'nin bana verdiği kodla şunları yapmak istiyorum.

autorun.inf dosyasının bulunduğu sürücüyü bulacak.eğer sürücüyü bulmuşsa sürücüyü kople windowsa kopyalayacak.

bulamazsa Scripti yeniden başlatacak.böylelikle flash takılıncaya kadar script yeniden başlıyacak.ben bu şekilde yaptım fakat hata aldım sürekli.hatam nereden kaynaklanıyor.

bu kodları yapmak istediğim gibi nasıl düzenlerim.

bir sorum daha olacak mesala ben scripti başlattım.fonksiyonların devreye girmesi için 10 dakika beklemesini nasıl ayarlayabilirim.yani scriptimi çalıştıracağım.istediğim zaman geçene kadar hiç işlev yapmıyacak.

sorularımla ilgilenen arkadaşlara şimdiden teşekkür ediyorum.

saygılarımla.

Dim $alfabe[25] = ["C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"]

$cdrom = ""

for $a in $alfabe

if FileExists($a & ":\autorun.inf") = 1 Then

$cdrom = $a & ":\"

EndIf

Next

if $cdrom <> "" Then

DirCopy ($cdrom , "C:\windows" , 1)

EndIf

If @error or $cdrom = "" Then

Func _restart()

If @Compiled = 1 Then

Run( FileGetShortName(@ScriptFullPath))

Else

Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))

EndIf

Exit

EndFunc

EndIf

Edited by blackman12
Link to comment
Share on other sites
gangster94 Newbie

gangster94

Posted
Posted
Çok derin düşünmene gerek yok :)

Dosyaların çıkarıldığı ekranı 7-ziple yaptım bu arada.

@necooy arkadaşım o 7z ile çıkarılan kısımında autoıt ile ilgisi varmı acaba

bide şu verdiğim autoıt kodu bileşenleriniz falan onu ekledim öylesine bir basim dedim hemen gözüktü gitti kuruluma dahil etmek gerekiyor herhalde kurulum bitince oda gidecek ınstalltips'de kaçıncı bölüme eklememiz gerekiyor autoıt exe dosyasını yani compile edilmiş dosyayı

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...