İleri düzey AutoIT örnekleri

razkul · December 26, 2009

Autoit ile programı katılımsız yaparken nasıl bir animasyon gosterebiliriz yani yuklendıgını gosterebilirz. bu animasyonu autoit.exe içine koyacak sekilde yani kurulum sırasında yuklendıgını gostersin.ben autoit ile kurulumu parametre ile yaptırıyorum o yuzden kurulum ekranı kayboluyor

blackman12 · December 26, 2009

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

Resim yerine gif kullanmak isterseniz de _Ani.au3 adlı bir ekstra kaynağı kullanabilirsiniz. GuiCTRLCreateGif komutuyla gif eklemeyi sağlıyor.

blackman12 · December 27, 2009

Klasik bir rutini sürekli yaptırmak ve durdurup tekrar başlatmak:

;örnek1

HotKeySet("p","dur")
dim $deger,$Paused
$deger = 0
dur()
Func calis()
	do
		Send("1")
	until $deger = 0
EndFunc
func dur()
	if $deger = 1 Then
		$deger = 0
		do
			Sleep(100)
		until $deger = 1
	Else
		$deger = 1
		calis()
	EndIf
EndFunc

;örnek 2

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
dim $deger
$Form1 = GUICreate("(B2F) Auto Res", 203, 193, 199, 124)
$Slot1 = GUICtrlCreateInput("Slot1", 40, 80, 121, 21,$ES_NUMBER)
$Button1 = GUICtrlCreateButton("Başlat", 16, 120, 75, 25)
$Button2 = GUICtrlCreateButton("Durdur", 112, 120, 75, 25)
$Label1 = GUICtrlCreateLabel("Skill Slot numarasını Giriniz", 32, 48, 128, 17)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1
			$deger = 1
		case $Button2
			$deger = 0
	EndSwitch
	if $deger = 1 Then
		Send(GUICtrlRead($Slot1))
	ElseIf $deger = 0 Then
		Sleep(100)
	EndIf
WEnd[/CODE]

HknBskc · January 6, 2010

Dim Komut As New AutoItX3Lib.AutoItX3

Private Sub From_Load()

Timer1.Interval = 100

Form1.BorderStyle = 4

End Sub

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Komut.Send ("Z")

Komut.Send ("1")

End Sub

diye kod buldum intten

1 timer 2 Command ekle dedi yaptım ayalrdım

timerden interval 100 yao diyodu yaptım denedim z1 z1 z1 sürekli yazıyor tamam iyi güzel

tek Command ile nasıl hem başla hem dur yabilirim

bide kısayol nasık eklerim kısayolla dur başka yapmak istiyorum

capon · January 6, 2010

cok yararlı bilgiler oldu herkesin emegine saglık..

HknBskc · January 6, 2010

kimse bilmiyormu ya

blackman12 · January 6, 2010

HknBskc, sorunun hemen üstündeki benm mesajıma bir bakarmısın? Yada oradaki scripti bir autoitine yapıştırıp çalıştırırmısn ne işe yarıyormş?

HknBskc · January 7, 2010

bu kodlar vb autoit karışımı bişe bende hazır buldum dendim çalışıyor başlat diyince z1 yapıyor sürekli z1z1z1z1z1 diyincede duruyor

sadece autoit kullanarak başlat butonu olcak tıklayınca başlıcak tekrar tıklayınca durcak

text alanında ne yazıyorsa sürekli onu tekrarlıcak

bide her zaman en üstte kalma olayı checkbox mı ne var o seçiylen sürekli üstte kalcak değiken kalmıcak

böyle bişe nasıl olur

yapıbilcek varmı ben yapmaya çalışıyorum ama beceremedim

blackman12 · January 7, 2010

Sen gözünün önündekini görmüyrsun boşver program yazmayı falan:

;örnek1

HotKeySet("p","dur")
dim $deger,$Paused
$deger = 0
dur()
Func calis()
	do
		Send("1")
	until $deger = 0
EndFunc
func dur()
	if $deger = 1 Then
		$deger = 0
		do
			Sleep(100)
		until $deger = 1
	Else
		$deger = 1
		calis()
	EndIf
EndFunc

;örnek 2

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
dim $deger
$Form1 = GUICreate("(B2F) Auto Res", 203, 193, 199, 124)
$Slot1 = GUICtrlCreateInput("Slot1", 40, 80, 121, 21,$ES_NUMBER)
$Button1 = GUICtrlCreateButton("Başlat", 16, 120, 75, 25)
$Button2 = GUICtrlCreateButton("Durdur", 112, 120, 75, 25)
$Label1 = GUICtrlCreateLabel("Skill Slot numarasını Giriniz", 32, 48, 128, 17)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1
			$deger = 1
		case $Button2
			$deger = 0
	EndSwitch
	if $deger = 1 Then
		Send(GUICtrlRead($Slot1))
	ElseIf $deger = 0 Then
		Sleep(100)
	EndIf
WEnd[/CODE]

gangster94 · January 8, 2010

bende auto it ile record yaptım next vb. klavye ile bastırdım ama yapılan şeyler gözüküyor yani transparan değil geçen gün cevabını buldum ama işe yaramadı 1 yapmıştım transparant değerini kodu neereye koyucam bilmiyorum alta koydum olmadı üste koydum olmadı acaba transpanarlık kodu için verilen kodu düzenlemekmi lazım ınstall cretor vermiş niçin verilmiş oda bilmiyorum

bide kurulum bittikten sonra hareketli gif resmi nasıl göstertirim

Edited January 8, 2010 by gangster94

blackman12 · January 8, 2010

Gif kullanmak için:

http://www.autoitscript.com/forum/index.php?showtopic=95260[/CODE]

buradaki udf yi kullanmalısın.Guictrlcreategif komutu ile gif oluşturulabiliyor.Ama diğer konuyu anlamamışsan daha fazla yardımcı olamıcam...Konunun komplesini oku blue_life birine cevap vermişti.Ama ben artık forumda cevabı olan sorulara cevap vermmeye dikkat ediyorum.

gangster94 · January 9, 2010

sağol ama tek sorum ordaki koduda mı düzenliycek şeffaf yapıolacak

cobalt_60 · January 13, 2010

Blackman kardeş su gif kullanmayada bi örnek versen mümkünmü ? Teşekkürler

Hiçbir frumda örnek verilmemiş aramadığım yer kalmadı

Edited January 13, 2010 by cobalt_60

blackman12 · January 13, 2010

Ani ve Gif Örnek:

//Forum düzenini bozduğu için örnek kaldırıldı.

cobalt_60 · January 14, 2010

Blackman bu kadar hızlı cevabın için teşekkürler.

Benim kendi gifimi oynatmam için nereyi editlemeliyim

mahsatım kendi yaptıgım katılımsızlarıma bunu ekleyim başlangıç veya sonunda imzamı koymak

sitenin birindeki katılımsızlarda gördüm çok hoş olmuş.

Edited January 14, 2010 by cobalt_60

blackman12 · January 14, 2010

GUICtrlCreateGifEx yada GUICtrlCreateGif ile oluşturabilirsin.

GUICtrlCreateGif ($gui, $gif, genislik, yukseklik, x, y, -1, -1, 1, 1)

*KuZeYLi* · January 16, 2010

benn şöyle bişey yapmak istiyorum bi program yüklennecek gibi bu program bilgisayarı ölçeçek ve bennim istetiğim özellikleri karşılıyyorsa uyygun veya değil diyecek bir nevi sisem annalizi yapacak böyle bişey mümkün mü ?

blackman12 · January 16, 2010

Mümkün tabiki.Ama unutmayın ki bu konunun adı "ileri düzey autoit örnekleri" bunu yazmayı bizden beklemeyin.Siz elinizde bir şey varsa ve çözemediğiniz bir problem olursa sorarsınız.Söylediğim yanlış anlaşılmasın şahsınıza değil genele söylüyorum.

*KuZeYLi* · January 16, 2010

Hayır tabiyki yanlış anlamam ben yapılabilir mi diye sordum yazım yanlışı varsa ozur dilerim klavye sakat ta biraz ilginiz için teşekkürler autoit forumunda örneklerde arasam bulabilirmiyim işime yarar bişeyler

blackman12 · January 16, 2010

Tabiki bunun üzerine hazır udf bile var buyur bak çok yardımcı olacak çok kolay şekilde hazırlayabileceksin programı:

CompInfo.au3

http://rapidshare.com/files/336247600/CompInfo.au3[/CODE]
Buda bir örnek:
	CompInfoExamples.au3
[CODE]http://rapidshare.com/files/336247601/CompInfoExamples.au3[/CODE]

blue_life · January 16, 2010

@*KuZeYLi*

Tabiki istediğini kolay bir şekilde yapabilirsin. Ama sen tam olarak hangi özellikleri öğrenmek istiyorsun.

Sadece CPU ve Ram miktarını mı?

Basit bir şey...

Global $CPU_GHZ = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")
Global $Total_MEM = MemGetStats()
$Total_MEM = $Total_MEM[1]
MsgBox(64,"","CPU = " & $CPU_GHZ & @crlf & "Total Memory = " & $Total_MEM)[/CODE]

Mesela toplam ram miktarı 512 MB den küçük ise şöyle yaparsın;

[CODE]Global $CPU_GHZ = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")
Global $Total_MEM = MemGetStats()
$Total_MEM = $Total_MEM[1]

If $Total_MEM < 512 Then
MsgBox(64,"","Ram 512 MB den küçük")
Else
MsgBox(64,"","Ram 512 MB den büyük")
Endif[/CODE]

Diyelim CPU 1000 Mhz den küçük ise de,

[CODE]Global $CPU_GHZ = RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")
Global $Total_MEM = MemGetStats()
$Total_MEM = $Total_MEM[1]

If $CPU_GHZ < 100 Then
MsgBox(64,"","CPU 1000 Mhz den küçük")
Else
MsgBox(64,"","CPU 1000 Mhz den büyük")
Endif[/CODE]

Tabi bunlar sadece örnek. Yapmak istediğin çalışmayı önce kafanda canlandırıp, kendine göre düzenlemelisin.

Kolay gelsin....

*KuZeYLi* · January 16, 2010

Kafamda Şöyle bişey yapmayı hayel ettim program sistem analizi yapacak örneğin ram 256 mb işlemci 1.6 nın altında ise ise yetersiz sistem diye uyarı verecek ram 512 mb işlemci 2.6 ise normal diyecek ram 1gb ise işlemci 3.20 ise uygun diyecek gibi bi de uygun mesale uygun derse yeşil renk düşük kırmızı abi. İşlemci ghz sine bakacak mhz de olur. Uyarıyı not gibi label e yazacak dialog da alt ta yazacak...

blackman12 & blue_life abilerime ilgilerinizden dolayı teşekürler udf ve kodu deneyemedim telefondan girdim internete de.

Edited January 16, 2010 by *KuZeYLi*

ASEV13 · January 28, 2010

Opt("TrayIconHide", 1)

#include <IE.au3>

$oIE = _IECreate ("192.168.1.1")

WinWait("192.168.1.1 öğesine bağlan","P&arolamı anımsa")

WinWaitActive("192.168.1.1 öğesine bağlan","P&arolamı anımsa")

Send("admin{TAB}pass{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKS

PACE}{BACKSPACE}14531453{TAB}{TAB}{ENTER}")

Send("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTE

R}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}{TAB}{ENTER}")

modeme arayüzüne şifreyi girdip girebiliyorum ama ordan sonra yazdığım ve denediğim kodlar işe yaramıyoraşagıdaki ekrana kadar geliyorum işaretli komutlardan sonrası işlem yaptıramıyorum

Edited January 28, 2010 by ASEV13

*KuZeYLi* · February 10, 2010

merhaba arkadaşlar ben autoit te for lar arası nasıl geçebilirim mesale program kurarken filan ileri ileri diyoruz ya onun gibi

Mükemmel · February 10, 2010

Anlatımın olduğu bölümdesin, farkındamısın bilmem.

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