İleri düzey AutoIT örnekleri

[Fox]

[b]arkadaşlar halen sorunu çözemedim .. [/b]

[FrenzyTR]

                  Arkadaşlar merhaba.  Altta beyaz rengine odaklanmış pixelsearch botu yazdım. Ancak istediğim şey mause imlecinin verdiğim renge 1 kere gittikten sonra mause imleci o rengin üstündeyken 10 piksel aşağısına inmesini istiyorum, yani rengin pikseli atıyorum 1300,500 deyse ben bunu 1300,510 yapmak istiyorum, yani 10 piksel aşağı inme olayını pikseli yakaladıktan sonra yapmasını istiyorum, bu konuda aşağıdaki koddan yardımcı olabilirmisiniz? (Kırmızı işaretlediğim yerden sonra 10 piksellik ayarı eklemek istiyorum).

                  Bir de pixelsearch, pikseli ekranda 1 yerde buluyor ve sallıyorum sağ tıklıyor, bunu ekrandaki tüm aynı renk pikselleri bulup her birine bulur bulmaz sağ tıklama olayını yapabilirmiyiz?

While MouseClick ( "right", 1147, 762 )
Sleep(1000)
$pixel = PixelSearch(350, 200, 1350, 800, 0xFFFFFF)
If IsArray($pixel) = True Then
MouseMove($pixel [0], $pixel [1], 1)
EndIf
MouseClick ("left")
MouseClick ("left", 800, 800 )
MouseClick ("right", 227, 140 )
WEnd

[oktay454]

 

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Language Select", 212, 77, 192, 124)
$Group1 = GUICtrlCreateGroup("Language Select", 8, 8, 193, 57)
$Language = GUICtrlCreateCombo("Language", 16, 32, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("OK", 141, 30, 49, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


EndSwitch
WEnd

Selamün Aleyküm Arkadaşlar yukarıdaki GUI ekranını hazırladım ama pek beceremedim. Ben şimdi bu listeye türkçe ingilizce almanca falan ekleyip $Kur değişkenin içindeki $DilSec değişkenin yerine yazsın istiyorum. Mesela ben listeye Turkish diye seçtim ama $DilSec değişkenine tr_TR yazsın ve OK butonuna tıklayınca da $Kur değişkeni çalışsın. Olur mu böyle, bir yol gösterin lütfen.

 

Birde RunWait komutunda çalıştırılacak uygulamaya nasıl parametre eklerim.

 

Şimdiden teşekkürler. Allah(C.C.)'a emanet olun.

Edited February 26, 2013 by oktay454

[koray3737]

Kolay gelsin arkadaşlar

 

 

Bu tarz bir program yapmaya çalışıyorum autoit scripti açıldığında webbrowserdan açılan sayfadan 3 kere reklam açmamızı isteyecek her basmamızda alttaki buton 3-2-1 şeklinde değişecek ve 3 tıklamanın sonunda buton aktif olup içine compile ettiğim rar dosyasını açıcak 

 

şimdi benim sıkıntım bu butonu nasıl yapıcam help i defalarca inceledim ama istediğim tarz da birşey bulamadım

 

yardımcı olabilirseniz sevinirim teşekkürler

[MostWanted]

Bari iki kod vereydin de düzeltseydik. Bu haliyle ancak fikir veririm. AdlibRegister ın time ını 1000 ayarlayıp her çalıştırılışında butondaki sayıyı 1 azaltırsın 0 olduğunda ise rar göstertebilirsin vs.

[koray3737]

Bari iki kod vereydin de düzeltseydik. Bu haliyle ancak fikir veririm. AdlibRegister ın time ını 1000 ayarlayıp her çalıştırılışında butondaki sayıyı 1 azaltırsın 0 olduğunda ise rar göstertebilirsin vs.

 

Yukarda verdiğim örnek delphi olduğundan autoit e pek geçiremedim ancak yardımın için teşekkürler işe yararsa delphi kaynak kodlarını koyabilirim.

[crazy_pretty_murat]

Ben 3 tane script hazırladım.Bunların 1 tanesi hazır fonksiyon 2 tanesinide ben yazdım.Amacım dosyaya iki kere tıklandığında şifre soracak.Yanlışsa scripti kapatacak doğruysa button menüsü gelecek.Bunlarda sorun yok bunları yaptım ama 3 tane ayrı dosyayla yaptım.Hepsini bir scriptte yapınca hata veriyor.Muhtemelen # komutlarıyla alakalı ama hepsini bir dosyada çalıştıramadım.Çok uzun diye burada paylaşmadım.Upload yaptım.Gerekli açıklamayı dosyanın içindede yaptım zaten.Yardım edecek arkadaşlara şimdiden teşekkürler.

http://www.dosya.tc/server16/cmBAfD/AutoitScript.rar.html

Edited September 17, 2013 by crazy_pretty_murat

[crazy_pretty_murat]

Arkadaşlar bir sorum daha var.Şimdi mesela web sayfasının bir köşesinde 75 yazıyor diyelim.Fakat bu rakam zaman zaman değişiyor.Bu rakamın 76 olduğunda autotin beni uyarmasını istiyorum.Uyarma kısmını filan ben yaparım onlar sorun değil ama,web sayfasında yazan 75 rakamını nasıl algılayacakta 76 olduğunda bunu farkedecek ? Nasıl bir öneride bulunursunuz bunu için ?

[crazy_pretty_murat]

Ohohooo.Bu forum eskiden canavar gibiydi.Mesajı atalı o kadar uzun zaman oldu.Hala kimse cevaplamamış.Bu kadar zor mu bu sorduklarım ya?

[isimsiz2]

Func içinde exitloop çalışmaz diye biliyorum.

[xarax]

Arkadaşlar bir sorum daha var.Şimdi mesela web sayfasının bir köşesinde 75 yazıyor diyelim.Fakat bu rakam zaman zaman değişiyor.Bu rakamın 76 olduğunda autotin beni uyarmasını istiyorum.Uyarma kısmını filan ben yaparım onlar sorun değil ama,web sayfasında yazan 75 rakamını nasıl algılayacakta 76 olduğunda bunu farkedecek ? Nasıl bir öneride bulunursunuz bunu için ?

web sayfasını InetRead ile okut BinaryToString ile string'e çevir.

string'e çevrilen web sayfasının html kodlarından bu istediğin kısmı String.. komutları ile alabilirsen ve bu işlemi timer'a bağlarsan belirli sürelerde kontrol edecek şekilde ayarlanabilir. Çok iyi bilmediğinden sadece fikir verebiliyorum, zor birşey değil gibi geliyor bana.

[crazy_pretty_murat]

Peki bakalım denerim onu xarax.

Şimdi ben bir soru daha sorayım.Arkadaşlar ben bir script hazırlayacam.Bu scripti msconfige filan koyacam.Bu program her açılışta arka planda çalışacak.Bunları yaparız o kolayda bana şu lazım.Scriptin içindeki fonksiyon 01.02.2014 tarihinde çalışacak.Yani hazırladığım script bilgisayarın tarihinin 01.02.2014 mü olup olmadığına bakacak ve ona göre çalışacak.if şöyleyse then böyle falan filan.O tarihi nasıl kontrol ettirebilirim ? 

Edited January 15, 2014 by crazy_pretty_murat

[pairs]

Peki bakalım denerim onu xarax.

Şimdi ben bir soru daha sorayım.Arkadaşlar ben bir script hazırlayacam.Bu scripti msconfige filan koyacam.Bu program her açılışta arka planda çalışacak.Bunları yaparız o kolayda bana şu lazım.Scriptin içindeki fonksiyon 01.02.2014 tarihinde çalışacak.Yani hazırladığım script bilgisayarın tarihinin 01.02.2014 mü olup olmadığına bakacak ve ona göre çalışacak.O tarihi nasıl kontrol ettirebilirim ?

#include <Date.au3>
$tTime = _Date_Time_GetSystemTime()
$sCurTime = _Date_Time_SystemTimeToDateStr($tTime);
if ($sCurTime == "01/15/2014") then
MsgBox(0,"","Eşit")
Else
MsgBox(0,"","Eşit değil")
EndIf

Yapabilirsin bu şekilde.

[crazy_pretty_murat]

Vay oldu.Çok teşekkürler.Blue_life gibi bi profesyonel arkadaşımız daha mı var yoksa.Yeri gelmişken bir soru daha sorayım.Saat 10:00 mu değil mi.Onu nasıl kontrol ettirebiliriz ?

[blue_life]

Autoit makrolarıyla zaman bigisi alınabildiğinden herangi bir kütüphane kullanılmasına bence gerek yok...  

if (@YEAR & @MON & @MDAY) == "20140115" then ;yılaygün
    MsgBox(0,"","Eşit")
Else
    MsgBox(0,"","Eşit değil")
EndIf

If @HOUR = 10 Then  MsgBox(64,"","Saat 10")

[crazy_pretty_murat]

Blue_life yine çıktı sahneye.Yani gerçekten helal olsun.Yalnız verdiğin örnekte tam saat var.Bi kaç bişey denedim hata verdi.10:01 içinde yazarsan çok sevinirim.

[blue_life]

;saatdakika
If (@HOUR & @MIN) == "1001" Then  MsgBox(64,"",@HOUR & ":" & @MIN)

Edited January 15, 2014 by blue_life

[MostWanted]

Biliyorum artık genelde kullanıcıların tarih ayarları doğru oluyor fakat herhangi bi kullanıcı hackini engellemek istiyorsan (yani trial yapmak için falan kullanıyorsan aşağı da verdiğim kod internet varsa tarih bilgisini ordan alıyor tabiki biraz yavaş oluyor ama daha güvenilir.

#include <String.au3>
MsgBox(0,"",_Bugun())
Func _Bugun()
Dim $aylar[12]=["January", "February", "March","April","May","June","July","August","September","October","November","December"]
$ping=Ping("www.google.com")
;~ MsgBox(0,"", @error)
If $ping Then
	$don=_StringBetween(_INetGetSource("http://nist.time.gov/timezone.cgi?Eastern/d/-5"),'color',"<br>")
	$gun=0
	for $i=0 To UBound($don)-1
		If StringLeft($don[$i],9) = '="white">' Then
		If StringInStr(StringTrimLeft($don[$i],9), ":") Then
			$ayirtime=StringSplit(StringTrimLeft(StringTrimLeft($don[$i],9),3), ":")
			If Number($ayirtime[1]) > 17 Or Number($ayirtime[1]) = 17 Then
				$gun=1

			EndIf
		Else
			$hangiay=0
			$ayir1=StringSplit(StringTrimLeft($don[$i],9),",")
			For $i=0 To 11
				If StringInStr($ayir1[2], $aylar[$i]) Then
					$hangiay=$i+1
					$hangigun=StringStripWS(StringReplace($ayir1[2], $aylar[$i], ""),8)+$gun
					$hangiyil=StringStripWS($ayir1[3],8)
				EndIf

			Next
			Return $hangiyil&"/"&$hangiay&"/"&$hangigun
		EndIf
		EndIf
	Next
Else
	Return @YEAR & "/" & @MON & "/" & @MDAY
EndIf

EndFunc
Func _INetGetSource($s_URL, $bString = True)
	Local $sString = InetRead($s_URL, 1)
	Local $nError = @error, $nExtended = @extended
	If $bString Then $sString = BinaryToString($sString)
	Return SetError($nError, $nExtended, $sString)
EndFunc   ;==>_INetGetSource

[crazy_pretty_murat]

Blockinput komutu laptoplarda çalışmıyor.Nedendir ?

[blackman12]

Blockinputun udf si var sitede örneği mevcut onu kullanabilirsiniz. ama bildiğim kadarıyla çalışıyor o komut.

[bitmez13]

mrb flash diskime bir virüs sanirim girdi autoitle yapılmış flashdaki bütün dosyaları gizliyor ve dosyaların yerine ksayol oluşturuyor combofix ve avirayla temizledim

ama usb disk security kurulu ama o yakalayamadi

[Quandrostr]

Bunla cmd akranına yönvermek münkünmü ?

[blackman12]

Nasıl bi yön vericez? Consoleu okuyabilirsin, okuduğun değere göre komut gönderebilirsin vs.

[mesale0077]

mrb flash diskime bir virüs sanirim girdi autoitle yapılmış flashdaki bütün dosyaları gizliyor ve dosyaların yerine ksayol oluşturuyor combofix ve avirayla temizledim

ama usb disk security kurulu ama o yakalayamadi

new folder virüsü :)

[crazy_pretty_murat]

Arkadaşlar word veya  excel dosyasının içine birşeyler eklemek için kısayol komutu var mı.