İleri düzey AutoIT örnekleri

blue_life · August 25, 2010

Geldim Evet aynen söylediğin gibi @talha_252

_Temp_7z_Remove()
Func _Temp_7z_Remove()
	Local $search = FileFindFirstFile(@TempDir &amp; "\*.*") ,$file
	If $search = -1 Then
		Return
	EndIf
	While 1
		$file = FileFindNextFile($search)
		If @error Then ExitLoop
		If StringInStr(FileGetAttrib(@TempDir &amp; "\" &amp; $file),"D") And StringLeft($file,2) = "7z" Then
			FileSetAttrib(@TempDir &amp; "\" &amp; $file,"-RS",1)
			DirRemove(@TempDir &amp; "\" &amp; $file,1)
		EndIf
	WEnd
	FileClose($search)
EndFunc

@djonur007

Sen tam olarak ne yapmak istiyorsun? Biraz daha detay verirmelisin.

djonur007 · August 25, 2010

ayar.xml'den bir yeri okutmak istiyorum. okuyacak ve msgbox'a yazacak olay bu.

blue_life · August 25, 2010

@djonur007

Deneme yapabilmemiz için tabiki ayar.xml ve ilgili okuncak kısım hakkında bilgi vermelisin!

Özel bir çalışmaysa özelden gönderirsin...

casira · August 25, 2010

blue life oldu eline sağlık işe yaradı.

djonur007 · August 25, 2010

pek özle değil işinize yaramaz zaten.

&lt;IMAGE INDEX="1"&gt;
  &lt;DIRCOUNT&gt;11581&lt;/DIRCOUNT&gt;
  &lt;FILECOUNT&gt;53877&lt;/FILECOUNT&gt;
  &lt;TOTALBYTES&gt;8537329859&lt;/TOTALBYTES&gt;
  &lt;CREATIONTIME&gt;
	&lt;HIGHPART&gt;0x01CA0443&lt;/HIGHPART&gt;
	&lt;LOWPART&gt;0x6568BDF8&lt;/LOWPART&gt;
  &lt;/CREATIONTIME&gt;
  &lt;LASTMODIFICATIONTIME&gt;
	&lt;HIGHPART&gt;0x01CA12E2&lt;/HIGHPART&gt;
	&lt;LOWPART&gt;0xBDE6C2AA&lt;/LOWPART&gt;
  &lt;/LASTMODIFICATIONTIME&gt;
  &lt;WINDOWS&gt;
	&lt;ARCH&gt;0&lt;/ARCH&gt;
	&lt;PRODUCTNAME&gt;Microsoft® Windows® Operating System&lt;/PRODUCTNAME&gt;
	&lt;EDITIONID&gt;Ultimate&lt;/EDITIONID&gt;
	&lt;INSTALLATIONTYPE&gt;Client&lt;/INSTALLATIONTYPE&gt;
	&lt;HAL&gt;acpiapic&lt;/HAL&gt;
	&lt;PRODUCTTYPE&gt;WinNT&lt;/PRODUCTTYPE&gt;
	&lt;PRODUCTSUITE&gt;Terminal Server&lt;/PRODUCTSUITE&gt;
	&lt;LANGUAGES&gt;
  	&lt;LANGUAGE&gt;tr-TR&lt;/LANGUAGE&gt;
  	&lt;DEFAULT&gt;tr-TR&lt;/DEFAULT&gt;
	&lt;/LANGUAGES&gt;
	&lt;VERSION&gt;
  	&lt;MAJOR&gt;6&lt;/MAJOR&gt;
  	&lt;MINOR&gt;1&lt;/MINOR&gt;
  	&lt;BUILD&gt;7600&lt;/BUILD&gt;
  	&lt;SPBUILD&gt;16385&lt;/SPBUILD&gt;
  	&lt;SPLEVEL&gt;0&lt;/SPLEVEL&gt;
	&lt;/VERSION&gt;
	&lt;SYSTEMROOT&gt;WINDOWS&lt;/SYSTEMROOT&gt;
  &lt;/WINDOWS&gt;
-------------------------------------------------------------------------
  &lt;NAME&gt;Windows 7 Ultimate 32 Bit&lt;/NAME&gt;
------------------------------------------------------------------------
 &lt;DESCRIPTION&gt;Windows 7 Ultimate 32 Bit Türkçe - By M.Baran&lt;/DESCRIPTION&gt;
  &lt;FLAGS&gt;Ultimate&lt;/FLAGS&gt;
  &lt;HARDLINKBYTES&gt;3324040481&lt;/HARDLINKBYTES&gt;
  &lt;DISPLAYNAME&gt;Windows 7 Ultimate 32 Bit&lt;/DISPLAYNAME&gt;
  &lt;DISPLAYDESCRIPTION&gt;Windows 7 Ultimate 32 Bit Türkçe - By M.Baran&lt;/DISPLAYDESCRIPTION&gt;
&lt;/IMAGE&gt;

buradaki Name değerini okuyacak. tabi burası değişken

Edited August 25, 2010 by djonur007

blue_life · August 25, 2010

@djonur007

Bu iş için herangi bir udf ye gerek yok... Basit bir şekilde;

Tabi aşağıdaki örenek ile farklı aralıklarıda bulabilirsin...

Global $OKU = FileRead(@ScriptDir &amp; "\ayar.xml")
MsgBox(64,"",_Bl_XML_MID($OKU,"&lt;NAME&gt;", "&lt;/NAME&gt;",1))

Func _Bl_XML_MID($BL_TEXT,$FIRST,$SECOND,$Start = 1)
	Local $BL_RETURN,$INSTR = StringInStr($BL_TEXT,$FIRST,0,$Start)
	If not $INSTR Then Return SetError(1,0,"")
	$BL_RETURN = StringTrimLeft($BL_TEXT,$INSTR + (StringLen($FIRST) -1))
	$INSTR = StringInStr($BL_RETURN,$SECOND)
	If not $INSTR Then Return SetError(1,0,"")
	$BL_RETURN = StringLeft($BL_RETURN,$INSTR -1)
	Return $BL_RETURN
EndFunc

djonur007 · August 25, 2010

valla hocam eline sağlık diyorum başka bişi demiyorum ....

Aqil990 · August 27, 2010

Su _Bl_XML_MID funksiyonla htmldanda bir sey okuta bilirmiyiz??

blue_life · August 27, 2010

@Aqil990

Okutabilrisin. Misal elimizde şöyle bir yazı var.

Selam millet nasılsınız?

Biz Selam ile nasılsınız? arasındaki yazıyı bulmak istiyoruz. Bu aradaki yazı tabi değişken.

_Bl_XML_MID("Selam millet nasılsınız?","Selam ","nasılsınız?") yazarsam aradaki yazıyı bulmuş olurum.

Elimizdeki yazıda birden fazla aynı yazılar mevcutsa, misal yazımız şöyle olsun.

Selam millet nasılsınız? Selam tnctr ahalisi nasılsınız?

Bizi ikinci Selam ile nasılsınız? arasındaki yazıyı bulmak istiyoruz. O zaman;

_Bl_XML_MID("Selam millet nasılsınız? Selam tnctr ahalisi nasılsınız?","Selam ","nasılsınız?",2)

Umarım anlamıştırsın.

Edited August 27, 2010 by blue_life

Aqil990 · August 27, 2010

anlamasina anladimda, simdi eger biz bilmiyorsak Selam la nasilisnizin arasinda ne olacagini onda nasil yapacik?

Aqil990 · August 27, 2010

Simdi su funksiyonla hmtl sourcesindende yuklarida gosterdigin gibi de okuta bilirmiyiz??

mesela <head> </head> arasindaki ne varsa

MsgBox(64,"",_Bl_XML_MID($source_desgisenimiz,"<head>", "</head>",1))

blue_life · August 27, 2010

@Aqil990

Evet aynen dediğin gibi.

Aqil990 · August 27, 2010

Tamam iyi bir funksiya tesekkur ederim

Edited August 27, 2010 by Aqil990

peerfen · September 2, 2010

Cd sürücüsünü kilitlemek ve takrar acmak icin bir kod varmidir acaba

1 yasinda oglum var kerata fena takti cd sürücüdüne elinde kalacak yoksa birgün

blue_life · September 2, 2010

@peerfen

Malesef cd sürücünü kapağını kitlemek için herangi bir kod mevcut deyil!

Tabi ufaklık pc yanına geldiği zaman için bir önlem alabilirsin.

Misal aşağıdaki kodu compile et ve çalıştır. Kapak açılmadan tekrar kapanacaktır.

Lakin birden fazla sürücün var ise ve sürücülerinden birisi cdtray komutuna devamlı tepki verirse sorunlu olabilir. Yine de denemeye değer...

Local $CD_DVD_DRV = DriveGetDrive("CDROM"),$i
If @error Then Exit
While 1
	For $i = 1 to $CD_DVD_DRV[0]
		CDTray($CD_DVD_DRV[$i], "Close")
	Next
	Sleep(100)
WEnd

ali::12 · September 6, 2010

#Region --- CodeWizard generated code Start ---

;ToolTip features: Text=Yes, X Coordinate=Yes, Y Coordinate=Yes, Title=Yes, No icon

If Not IsDeclared("sToolTipAnswer") Then Local $sToolTipAnswer

$sToolTipAnswer = ToolTip("Kurulum Tamamlandı",1300,820,"Bilgi",0,0)

#EndRegion --- CodeWizard generated code End ---

Sleep(3000)

bu kodlarla çıkan bilgi mesajının ekranın çözünürlüğünü otomatik alıp saatin üstünde çıkmasını nasıl sağlarım arkadaşlar.

blue_life · September 6, 2010

@ali::12

TrayTip niye kullanmıyorsun?

TrayTip("", "Kurulum Tamamlandı.", 5,1)
Sleep(2000)

ToolTip kullanmak istiyorsan;

Global $BL_Shell_Pos = WinGetPos(WinGetHandle("[CLASS:Shell_TrayWnd]"))
Global $sToolTipAnswer = ToolTip("Kurulum Tamamlandı",@DesktopWidth - 130 ,@DesktopHeight - ($BL_Shell_Pos[3] + 60),"Bilgi",1,0)
Sleep(3000)

Tabi yazdığın cümlenin uzunluğuna göre rakamlar düzenlenmeli!

blue_life · September 6, 2010

Bir arkadaş özelden NET Framework v3.0 yüklü olup olmadığını nasıl öğrenebiliriz diyi bir mesaj atmıştı.

Kısaca Registryden ufak bir kontrol yaparak anlayabiliyoruz.

Aşağıdaki örnekte misal v4.0 yüklü olsa bile olumlu yanıt gelecektir.

Tab obj vs gibi farklı yöntemlerde vardır ama, bu yönteminde sorunsuz çalışacağını düşünüyorum.

Ayrıca bu örnek sadece v3.0 için deyildir... Örneği inceleyiniz...

If Not _Bl_NetFR_Check() Then ;Yüklü deyilse
	MsgBox(16,"","Yüklü deyil")
	Exit
EndIf
MsgBox(64,"","Yüklü")

Func _Bl_NetFR_Check($Version = "v3.0")
	;Net Versionları...
	;Net2 = v2.0.50727
	;Net3 = v3.0
	;Net4 = v4
	;Net4 = v4.0
	Local $Net_F_Read = RegEnumKey("HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\" &amp; $Version,1)
	If @error &lt;&gt; 0 then Return False
	Return True
EndFunc

ali::12 · September 7, 2010

Traytip pek hoşuma gitmedi onu kullandım ama tooltip hoşuma gitti nedense

OzgrGvnc · September 16, 2010

3 soruda ben sorayım bari konu şenlensin

1. Soru

Elimde program files içine kopyalanacak 3 adet compile edilmiş exe dosyası var. Ben bunları tek scriptte toplamak istiyorum. Yani au3 olarak scripte ekletip (boyutunun küçük olması açısından) ayrı ayrı compile edilmesi mümkünmüdür.

2. Soru

Exeler program files içinde bir klasöre çıkartıldıktan sonra başlat menüsü programlar içinde bir dizine bunların kısayolları eklenecek ama @ProgramsCommonDir ile birçok deneme yaptım çözüme ulaşamadım. Dizin belirtmem gerekiyor ama diğer windows sürümlerinde dizinin yeri farklıdır diye tırsıyorum

3. Soru

Ekrana çıkacak splash.png var. Ekranı ortalamak için alttaki kodda Width ve Height kaç olmalı. Göz kararı 100 e 100 yaptım ama emin değilim.

$yGUI = GUICreate("", 172, 128, (@DesktopWidth/2)-100, (@DesktopHeight/2)-100, $WS_POPUP , $WS_EX_LAYERED + $WS_EX_TOOLWINDOW+$WS_EX_TOPMOST)

blue_life · September 17, 2010

@Hemoroid

1. Cevap

Bir au3 dosyasını compile etmek için bazı dosyalara ihtiyacın olacaktır. Yani çalışmanın kapasitesi haliyle yine büyüyecektir.

Tabi autoit yüklü olmayan bir pcde de direkt au3, a3x dosyalarını çalıştırabilrisin. (Autoit ile hazırlanmış herangi bir exe yeterli)

Lakin üç çalışmayıda bir autoit.exe sinde birleştirebilirsin. (Ben genelde bu yöntemi kullanırım)

Bunun için bir çok yöntem bulunnmakta ama malesef kısa keseceğim. Şimdi kararın değiştimi? Ne yapmak istiyorsun?

2. Cevap

Bir örnek verim kurcala!

;Dosya Adı|Kısayol konumu|Çalışma dizini|Parametre|Açıklama|Simge|Simge numarası|Başlagıç sitili|Kısayol tuşu
BL_KISAYOL(@AutoItExe, @ProgramsCommonDir &amp; "\!Deneme\!Deneme")
Func BL_KISAYOL($S_file, $S_lnk, $S_workdir = "", $_args = "", $_desc = "", $_icon = "", $_icon_num = 0, $_state = "", $_hotkey = "")
	Local $S_Folder
	If $_icon_num = "" Then $_icon_num = 0
	If StringRight($S_lnk, 4) &lt;&gt; ".lnk" Then $S_lnk &amp;= ".lnk"
	If Not StringInStr($S_file, ":\", 0) Then $S_file = @ScriptDir &amp; "\" &amp; $S_file
	If Not FileExists($S_file) Then Return -1
	$S_Folder = StringSplit($S_lnk, "\")
	$S_Folder = StringLeft($S_lnk, StringInStr($S_lnk, $S_Folder[$S_Folder[0]]) - 2)
	If Not FileExists($S_Folder) Then DirCreate($S_Folder)
	FileCreateShortcut($S_file, $S_lnk, $S_workdir, $_args, $_desc, $_icon, $_hotkey, $_icon_num, $_state)
EndFunc   ;==&gt;KISAYOL

3. Cevap

-1 yaz...

$yGUI = GUICreate("", 172, 128, -1, -1, $WS_POPUP , $WS_EX_LAYERED + $WS_EX_TOOLWINDOW+$WS_EX_TOPMOST)

Kolay gelsin...

OzgrGvnc · September 17, 2010

Ustam çok saol.

1. sorudan vazgeçtim Zaten boyut olarak çok büyük olmadı sandığım gibi.

2. soruya verdiğin cevap fikir oluşturdu kafamda, şu şekilde hallettim. Fonksyonlar kafamı kurcalamadan.

FileSetAttrib(@UserProfileDir &amp; @ProgramsDir, "-RSA")
DirCreate(@ProgramsDir &amp; "\Deneme\")
FileCreateShortcut(@ProgramFilesDir &amp; "\Deneme\Deneme.exe", @ProgramsDir &amp; "\Deneme\Deneme.lnk", @ProgramFilesDir &amp; "\Deneme\")

Teşekkürler tekrar.

Edited September 17, 2010 by Hemoroid

MostWanted · September 19, 2010

@blue_life #NoAutoIt3Execute

Aqil990 · September 21, 2010

bi soruda ben soruyum

simdi GUICtrlCreateList (listview yok list)

simdi bu liste ekliyorum itemleri bana Listede secilmis itemi nasil bildiririm

yani buttona tiklayinca listde secilmish satiri gostersin mesela.

Ikinci sorum su mp3 ler okutmaq icin program yazasi olsak play list icin hangisin kullanmak

iyi? listviewmi? listmi? listboxmu?

Yada hic birinimi?) :D:D:D

Simdiden tewekkurler.

blue_life · September 22, 2010

@Aqil990

Yarıdım dosysında gerekli örnek zaten var!

#include &lt;GUIConstantsEx.au3&gt;
Opt('MustDeclareVars', 1)
Example()

Func Example()
	Local $add, $clear, $mylist, $Slect, $msg
	GUICreate("My GUI list") ; will create a dialog box that when displayed is centered
	$add = GUICtrlCreateButton("Ekle", 64, 32, 75, 25)
	$clear = GUICtrlCreateButton("Sil", 64, 72, 75, 25)
	$mylist = GUICtrlCreateList("Murat Kekilli", 176, 32, 121, 97)
	GUICtrlSetLimit(-1, 200) 	; to limit horizontal scrolling
	GUICtrlSetData(-1, "Murat Göğebakan")
	$Slect = GUICtrlCreateButton("Seçili olan", 64, 160, 175, 25)
	GUISetState()
	$msg = 0
	While $msg &lt;&gt; $GUI_EVENT_CLOSE
		$msg = GUIGetMsg()
		Select
			Case $msg = $add
				GUICtrlSetData($mylist, "Murat Kekilli|")
			Case $msg = $clear
				GUICtrlSetData($mylist, "")
			Case $msg = $Slect
				MsgBox(0, "", GUICtrlRead($mylist))
		EndSelect
	WEnd
EndFunc   ;==&gt;Example

Ikinci soruna gelirsek; kullanıcıaya daha fazla düzenli bilgi verebilmek için ben olsam GUICtrlCreateListView seçeneğini seçerdim.

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