İleri düzey AutoIT örnekleri

mrecep38 · June 22, 2010

$deger = ControlGetText("NetSupport School Ürün Aktifleştirme","","Static9")

msgbox(0,"ad",$deger)

Yazınca kodu doğru verdi. Ben bu kodu aktivatöre nasıl aktaracağım?

İçerik şöyle:

$deger = ControlGetText("NetSupport School Ürün Aktifleştirme","","Static9")
msgbox(0,"ad",$deger)
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('NETSUPPORT SCHOOL keygen.exe')
WinWait("classname=#32770","NetSupport School Ke")
If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")
WinWaitActive("classname=#32770","NetSupport School Ke")
Send("{CAPSLOCK}recep{TAB}{TAB}25{TAB}{TAB}{CTRLDOWN}v{CTRLUP}")
MouseMove(249,384)
MouseDown("left")
MouseUp("left")
MouseDown("left")
MouseUp("left")
MouseDown("left")
MouseUp("left")
MouseMove(229,65)
MouseDown("left")
MouseMove(481,-68)
MouseUp("left")
MouseMove(105,354)
MouseDown("left")
MouseMove(127,352)
MouseUp("left")
Send("{CTRLDOWN}c")
WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")
If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")
WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")
MouseMove(211,246)
MouseDown("left")
MouseUp("left")
Send("v")
WinWait("classname=#32770","NetSupport School Ke")
If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")
WinWaitActive("classname=#32770","NetSupport School Ke")
MouseMove(133,355)
MouseDown("left")
MouseMove(156,352)
MouseUp("left")
Send("c")
WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")
If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")
WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")
MouseMove(277,249)
MouseDown("left")
MouseUp("left")
Send("v")
WinWait("classname=#32770","NetSupport School Ke")
If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")
WinWaitActive("classname=#32770","NetSupport School Ke")
MouseMove(163,356)
MouseDown("left")
MouseMove(188,354)
MouseUp("left")
Send("c")
WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")
If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")
WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")
MouseMove(362,243)
MouseDown("left")
MouseUp("left")
Send("v")
WinWait("classname=#32770","NetSupport School Ke")
If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")
WinWaitActive("classname=#32770","NetSupport School Ke")
MouseMove(194,351)
MouseDown("left")
MouseMove(230,351)
MouseUp("left")
Send("c")
WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")
If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")
WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")
MouseMove(420,250)
MouseDown("left")
MouseUp("left")
Send("v{CTRLUP}")
WinWait("classname=#32770","NetSupport School Ke")
If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")
WinWaitActive("classname=#32770","NetSupport School Ke")
MouseMove(315,390)
MouseDown("left")
MouseMove(316,390)
MouseUp("left")
WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")
If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")
WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")
MouseMove(424,276)
MouseDown("left")
MouseUp("left")
WinWait("NetSupport School","You license activati")
If Not WinActive("NetSupport School","You license activati") Then WinActivate("NetSupport School","You license activati")
WinWaitActive("NetSupport School","You license activati")
MouseMove(342,44)
MouseDown("left")
MouseUp("left")

blackman12 · June 22, 2010

Şu codeboxı kullanıver Allah aşkına çok dağınık oluyor.

$deger = ControlGetText("NetSupport School Ürün Aktifleştirme","","Static9")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;tahminen bu satırlara gerek yok scriptin başında zaten vardır; ile başlayan satırları silebilirsin.

;Opt("WinWaitDelay",100)

;Opt("WinTitleMatchMode",4)

;Opt("WinDetectHiddenText",1)

;Opt("MouseCoordMode",0)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Run('NETSUPPORT SCHOOL keygen.exe')

WinWait("classname=#32770","NetSupport School Ke")

If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")

WinWaitActive("classname=#32770","NetSupport School Ke")

Send("{CAPSLOCK}recep{TAB}{TAB}25{TAB}{TAB}{CTRLDOWN}v{CTRLUP}")

;mousemove down up lar yerine tab, enter vs gibi klavye tuşlarını kullanmalısın.

MouseMove(249,384)

MouseDown("left")

MouseUp("left")

MouseDown("left")

MouseUp("left")

MouseDown("left")

MouseUp("left")

MouseMove(229,65)

MouseDown("left")

MouseMove(481,-68)

MouseUp("left")

MouseMove(105,354)

MouseDown("left")

MouseMove(127,352)

MouseUp("left")

Send("{CTRLDOWN}c{CTRLUP}")

WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")

If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")

WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")

MouseMove(211,246)

MouseDown("left")

MouseUp("left")

Send("{CTRLDOWN}v{CTRLUP}")

WinWait("classname=#32770","NetSupport School Ke")

If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")

WinWaitActive("classname=#32770","NetSupport School Ke")

MouseMove(133,355)

MouseDown("left")

MouseMove(156,352)

MouseUp("left")

Send("{CTRLDOWN}c{CTRLUP}")

WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")

If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")

WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")

MouseMove(277,249)

MouseDown("left")

MouseUp("left")

Send("{CTRLDOWN}v{CTRLUP}")

WinWait("classname=#32770","NetSupport School Ke")

If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")

WinWaitActive("classname=#32770","NetSupport School Ke")

MouseMove(163,356)

MouseDown("left")

MouseMove(188,354)

MouseUp("left")

Send("{CTRLDOWN}c{CTRLUP}")

WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")

If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")

WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")

MouseMove(362,243)

MouseDown("left")

MouseUp("left")

Send("{CTRLDOWN}v{CTRLUP}")

WinWait("classname=#32770","NetSupport School Ke")

If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")

WinWaitActive("classname=#32770","NetSupport School Ke")

MouseMove(194,351)

MouseDown("left")

MouseMove(230,351)

MouseUp("left")

Send("{CTRLDOWN}c{CTRLUP}")

WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")

If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")

WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")

MouseMove(420,250)

MouseDown("left")

MouseUp("left")

Send("v{CTRLUP}")

WinWait("classname=#32770","NetSupport School Ke")

If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")

WinWaitActive("classname=#32770","NetSupport School Ke")

MouseMove(315,390)

MouseDown("left")

MouseMove(316,390)

MouseUp("left")

WinWait("NetSupport School Ürün Aktifleştirme","Your license could n")

If Not WinActive("NetSupport School Ürün Aktifleştirme","Your license could n") Then WinActivate("NetSupport School Ürün Aktifleştirme","Your license could n")

WinWaitActive("NetSupport School Ürün Aktifleştirme","Your license could n")

MouseMove(424,276)

MouseDown("left")

MouseUp("left")

WinWait("NetSupport School","You license activati")

If Not WinActive("NetSupport School","You license activati") Then WinActivate("NetSupport School","You license activati")

WinWaitActive("NetSupport School","You license activati")

MouseMove(342,44)

MouseDown("left")

MouseUp("left")[/CODE]

Böyle bişeyler yaptım ama bu script çok sağlıksız arkadaşım

[CODE]$deger = ControlGetText("NetSupport School Ürün Aktifleştirme","","Static9")

Run('NETSUPPORT SCHOOL keygen.exe')

WinWait("classname=#32770","NetSupport School Ke")

If Not WinActive("classname=#32770","NetSupport School Ke") Then WinActivate("classname=#32770","NetSupport School Ke")

WinWaitActive("classname=#32770","NetSupport School Ke")

controlsettext("classname=#32770","NetSupport School Ke","licenseinputunuyazburaya","recep")

controlsettext("classname=#32770","NetSupport School Ke","maxclientinputunuyazburaya","25")

controlsettext("classname=#32770","NetSupport School Ke","activasionkodinputunuyazburaya",$deger)

controlclick("classname=#32770","NetSupport School Ke","generatebuttonuyazburaya")

$serial = Controlgettext("classname=#32770","NetSupport School Ke","AktivasyonKodYazanBölüm")

$4lu = stringsplit($aktivasyon,"-")

for $i = 1 to $4lu[0]

controlsettext("NetSupport School Ürün Aktifleştirme","","input"&$i,$4lu[$i])

next[/CODE]

bunu kendine göre düzenle çok daha iyi olur.

mrecep38 · June 23, 2010

Please register to see this content.

$serial = Controlgettext("classname=#32770","NetSupport School Ke","Edit6")

$4lu = stringsplit($aktivasyon,"-")

for $i = 1 to $4lu[0]

controlsettext("NetSupport School Ürün Aktifleştirme","","input"&$i,$4lu[$i])

next[/CODE]

Nerede hata yapıyorum, çözemedim?

blackman12 · June 23, 2010

$serial diye alıyorsun ama $aktivasyon diye ayırıyorsun öyle şey mi olur.

$serial = Controlgettext("classname=#32770","NetSupport School Ke","Edit6")

$4lu = stringsplit($serial,"-")

for $i = 1 to $4lu[0]

controlsettext("NetSupport School Ürün Aktifleştirme","","input"&$i,$4lu[$i])

next[/CODE]

mrecep38 · June 23, 2010

Sorularımla sizi sıkmıyorumdur umarım?

URL=http://img194.imageshack.us/i/23290383.png/][/url]

controlsettext("classname=#32770","NetSupport School Ke","Edit5",$deger)

controlclick("classname=#32770","NetSupport School Ke","Button1")

$serial = Controlgettext("classname=#32770","NetSupport School Ke","Edit6")

$4lu = stringsplit($serial,"-")

controlclick("classname=#32770","NetSupport School Ke","Button2")

WinWait("NetSupport School Ürün Aktifleştirme","")

If Not WinActive("NetSupport School Ürün Aktifleştirme","") Then WinActivate("NetSupport School Ürün Aktifleştirme","")

WinWaitActive("NetSupport School Ürün Aktifleştirme","")

for $i = 1 to $4lu[0]

controlsettext("NetSupport School Ürün Aktifleştirme","","input"&$i,$4lu[$i])

next[/CODE]

Resimde görülen 4 kutuya 16 karakteri dörderli olarak yapıştırması için;

controlsettext("classname=#32770","NetSupport School Ürün Aktifleştirme","Edit1")

şeklinde tek tek tanımlasam yeterli olur mu?

Edited June 23, 2010 by mrecep38

MostWanted · June 23, 2010

Soracağına denesene Tek tek instance'lerine dikkat ederek tanımlaman yeterli olur...

mrecep38 · June 23, 2010

Sormak istediğim, yukarıda zaten 16 karakter olarak üretilen serial, dörderli yazılsın kutulara tanımı mevcut değil mi?
Yoksa şöyle yazdırabiliyorum bir kutuyu ancak biraz uzuyor:

MostWanted · June 23, 2010

for $i = 1 to $4lu[0]

controlsettext("NetSupport School Ürün Aktifleştirme","","Edit"&$i,$4lu[$i])

blackman12 · June 24, 2010

Ahh ahh hani benim emeklerim nerde.Resmen nerede kod bulmuşsan yamamışsın sen arkadaşım.Bir de gelmiş trip atıyorsun talhaya

mrecep38 · June 24, 2010

Üstad, sizin ve talha_252'nin yardımlarınızı asla inkar edemem.
Amacım da kesinlikle trip değil, öyle anlaşılmışsa, her ikinizden de
çok çok özür diliyorum. Sadece, bu benim ilk Aotoit çalışmam olduğu
için çok bocaladım. Formda ne kadar kod varsa faydalanmaya çalıştım.
Seçtiğim program da benim gibi bir acemiye ağır geldi. Sıkıştığım yerde
uzun yolu tercih ettim. Her ikinizin de ellerinize sağlık.
Sizler olmasanız ben bu ilk çalışmada pes ederdim. Hakkınızı
helal ediniz lütfen.

blackman12 · June 24, 2010

Neyse ne de. Arkadaşlar bundan sonraki mesajlarınızda codebox yerine code kullanın.Codebox sayfa yapısını bozuyor.

mrecep38 · June 24, 2010

NETSUPPORT SCHOOL keygen.exe'yi Script ile çalıştırırken

böyle bir hata aldım. Daha önceki denemelerimde yoktu.

Run('NETSUPPORT SCHOOL keygen.exe')[/CODE]

sonuna /s parametresini Script içinde nasıl ekleyebilim?

Edited June 24, 2010 by mrecep38

casira · June 24, 2010

Autoit ile herhangi bir yerde,dizindeki bir dosyanın üzerine sağ tıklayıp mesela çıkan seçeneklerden Yükle veya kopyala yaptırmak için nasıl bir kod düzenlemeliyiz.

MostWanted · June 24, 2010

@recep_demirci eğer kastettiğin işletim sistemindeki sağ tıksa ona göre kod düzenleyip command vermelisin...Eğer hangi dosya türleri için bunu istediğini söylersen yardımcı olabilirim.Bir de sadece kendi bilgisayarında kullanacaksan fast explorer ile de bunu kolay biçimde yapabilirsin..

@mrecep38 ;

Run('NETSUPPORT SCHOOL keygen.exe /S')[/CODE]

diyerek /s parametresi ile çalıştırabilirsin yalnız exe'nin ismini boşlukluz yapman senin için daha hayırlı olur..

casira · June 24, 2010

Şimdilik mesela Setup.inf adlı bir dosyaya xp,visya,seven farketmiyor sağ tıklayıp yükle seçeneği var onu autoit ile uygulamak istiyorum.Her pcde çalışmalı.Birde mesela aaa.html adında bir dosyam var bun sağ tıklayıp not defteriyle aç demek istiyorum.

Kastettiğim dediğiniz gibi işletim sisteminde dosyaya sağ tıklayınca çıkan menü.

MostWanted · June 24, 2010

HKEY_CLASSES_ROOT\inffile\shell[/CODE]

mesela bunun altına atıyorum Talha adında bi anahtar aç.Sonra onunda altına command diye bi anahtar oluştur.Command anaktarındaki default değere

[CODE]%SystemRoot%\system32\NOTEPAD.EXE %1[/CODE]

atıyorum bunu yaz.Bu inf dosyalarına talha adında sağ tık ekler. %1 değeri hangi dosyayı tıkladıysan onun yolunu sana verir.Umarım anlatabilmişimdir..

mrecep38 · June 25, 2010

WinWait("NetSupport School","")

If Not WinActive("NetSupport School","") Then WinActivate("NetSupport School","")

WinWaitActive("NetSupport School","")

Send("{ALTDOWN}{SPACE}{ALTUP}{DOWN}{ENTER}")

yada

Send("{ALTDOWN}{F4}{ALTUP}")

veya

controlclick("classname=#32770","NetSupport School","Internet Explorer_Server1")[/CODE]

Üçünü de tek tek denedim, kapatmıyor.

X'nın, ClassnameNN değeri yok.

Resimdeki bu bölümü nasıl kapattırabilirim?

Edited June 26, 2010 by mrecep38

casira · June 26, 2010

Autoİt ile veya .bat ile veya farklı herhangi bir yöntemle şöyle birşey yapılabilirmi.

Bilgisayarda kurulu olan avafind bazen kararsız bilgisayar restart hadisesinden sonra masaüstüne avafind error.log adlı pis bir dosya atıyor.Benim istediğim script masaüstünü devamlı tarayacak eğer bu isimdeki dosya var ise hiç bana sormadan benim müdahalem olmadan geri dönüşüme bile göndermeden silecek.Böyle birşey olursa iyi olur.İşin doğrusu bazen o dosyayı silmeye üşeniyorum.

blackman12 · June 26, 2010

O zaman başlangıça bir bat dosyası ekle, içeriği de bu olsun

set a="%UserProfile%\Desktop\avafind error.log"

if exist %a% goto sil

:sil

del /f /s %a%

:end

mrecep38 · June 27, 2010

WinClose("NetSupport School", "")

Kulandığımda resimdeki hatayı alıyorum.

Run('taskkill.exe /f /im pcinssui.exe')

ile kapanıyor ancak açmak için yazdığım

Run(@ProgramFilesDir & "\NetSupport\NetSupport School\pcinssui.exe")

ile aynı sorun devam ediyor.

Lütfen yardım eder misiniz?

MostWanted · June 27, 2010

Bu hatayı almanın sebebi autoit değil..Bilgisayarından kaynaklı olabilir..

Dj Demir · June 28, 2010

ya peki şu sorunumu nasıl çözerim

help'e de baktım ama bulamadım

_WinWaitActive("Yerel Ağ (LAN) Ayarları","")

Send("{TAB}{TAB}{SPACE}{TAB}201.254.54.81{TAB}{TAB}{TAB}{TAB}{SPACE}")

_WinWaitActive("Internet Seçenekleri","")

Send("{TAB}{SPACE}")

Func _WinWaitActive($title,$text,$timeout=0)

WinWait($title,$text,$timeout)

If Not WinActive($title,$text) Then WinActivate($title,$text)

WinWaitActive($title,$text,$timeout)

EndFunc

ben pencereyi getirtmek veya göstertmek istemiyorum

direk istediğim yere istediğim yazıları yazacak

WinWaitActive'nin yerine ne kullansam olur acaba

blackman12 · June 28, 2010

Galiba DNS değiştirmek istiyorsun:

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

Dj Demir · June 28, 2010

hayır proxy atamak istiyorum

Dns Reg işlemi ile yapılıyor biliyorum

hatta yapıp sunmuştum bi tane program

ama proxy'yi regden halledemedim .

Edited June 29, 2010 by Dj Demir

MonPC · July 7, 2010

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

While 1
    $i = 0
Do
send("z")
until 1=2
WEnd


Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Bu şekilde durmadan z harfini gönderilmesini sağlıyorum ancak sadece bir programa göndermesi için ne yapmam gerekir??

Sign In

İleri düzey AutoIT örnekleri

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

sk8er_boi

blue_life

blue_life

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