blue_life

Sağlıklı, mutlu, huzurlu ... ve sevdiklerinle birlikte nice yıllara... Doğum günün kutlu olsun... [img]http://www.resimlerii.com/wp-content/resimleri/dogum_gunun_kutlu_olsun.jpg[/img]

@radyofon Söylediklerini yapmak mümkün. Autoitte sistemin 32 bit veyahut 64 bit olduğunu, sistemin tipini gösteren macrolar bulunmaktadır. Bu macroları kullanarak sisteme uygun programı yükletebilirsin. Ben sana ufak bir örnek vereyim. [codebox]#NoTrayIcon #RequireAdmin Global $X64 = False If @OSArch <> "X86" Then $X64 = True Global $WIN7 = True If StringInStr("WIN_2003|WIN_XP|WIN_XPe|WIN_2000",@OSVersion) <> 0 Then $WIN7 = False If $X64 = False Then ;32 bit (x86) ise If $WIN7 = False Then ;XP ve benzeri bir sistem ise _XP_X86() Else ;Deyilse _WIN7_X86() EndIf Else If $WIN7 = False Then ;XP ve benzeri bir sistem ise _XP_X64() Else ;Deyilse _WIN7_X64() EndIf EndIf Exit Func _XP_X86() MsgBox(64,"Kodlar buraya","XP X86") ;Kodlar buraya EndFunc Func _XP_X64() MsgBox(64,"Kodlar buraya","XP X64") ;Kodlar buraya EndFunc Func _WIN7_X86() MsgBox(64,"Kodlar buraya","WIN7 X86") ;Kodlar buraya EndFunc Func _WIN7_X64() MsgBox(64,"Kodlar buraya","WIN7_X64") ;Kodlar buraya EndFunc[/codebox] Sen MsgBox satırlarının altına uygun programı kurmak için ilgili komutları girersin. Diğer konuya gelirsek; internet explorer bu ayarları nerde tuttuğunu tespit etmelisin! Genlede registryde olabilirler. Tespit ettikten sonra, burdan yazarsın ve seni yönlendirmeye çalışırım. Kolay gelsin...

@cnks Ilgili bileşeni seçince hreangi bir hata çıkıyor mu? Biraz daha detay vermelisin? Belki cd sorunlu yazılmış, veyahut cd okuyucun düzgün okuyamıyor olabilir. Yani grub4dos iso dosyasının ufak bir bölümünü okumakta zorlanırsa haliyle hata çıkacaktır.

Sicitede Tolls -> Koda (FormDesigner) ile gui tasarımını yapabilirsin. [codebox]$Form1 = GUICreate("Form1", 640, 480) $Tab1 = GUICtrlCreateTab(0, 0, 500, 300) $TabSheet1 = GUICtrlCreateTabItem("TabSheet1") $TabSheet2 = GUICtrlCreateTabItem("TabSheet2") $TabSheet3 = GUICtrlCreateTabItem("TabSheet3") GUICtrlSetState($TabSheet1,16) GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd[/codebox]

@de3ka1 Neyi yapamıyorsun? Biraz daha detay vermelisin! Tabiki ilk denemelerde başarıya ulaşmayabilirsin lakin biraz çaba azim gösterdikçe başarıya ulaşabileceğini düşünüyorum.

[codebox]FileWrite(@ScriptDir & "\Deneme.txt","Selam dünyalı!")[/codebox]

@dequeen Bunun için control komutlarını kullanmalısın.... Notepad için basit bir örnek vermem gerekirse; Global $Hwnd While 1 $Hwnd = WinGetHandle("[CLASS:Notepad]", "") If $Hwnd <> "" Then ControlSend($Hwnd, "", "Edit1", "{ENTER}") Sleep(1000) WEnd

@ali::12 Şimdi hex editor ile kısaca baktım, ve denemem malesef olumsuz... Farklı yöntemleri izlemelisin... Kolay gelsin...

Bende denetim masasında Konuşma Seçenekleri yok. (XP) Konuşma diye bir seçenek mevcut. Lakin açınca içerikte fazla bir ayar yok. Konuşma hızını ayarlayabileceğin bir bar var. Bu bardan yaptığım değişikliklerde registryde tutuluyor. HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices altındaki DefaultTTSRate anahtardında! Fazla yarcımcı olamıyorum, kusura bakma... Istersen pcde olduğun zaman bana mesaj atarsın ve teamviewer vs ile iletişim kurup halledebiliriz...

@dequeen Bu değerler gui elemanları için sabittir. Yani [b]GUICtrlSetState($Input1,128)[/b] disable eder. GUICtrlSetState($Input1,64)ise enable Aslında ben fazla kütüphane kullanmadığım için sabit değerler girerim. Böyle alışmışım Yoksa bunlar kütüphanlerle geliyor. Bu değerler GUIConstantsEx.au3 ile değişkenlere atanmıştır... #include <GUIConstantsEx.au3> Tabi farklı kütüphanelerde farklı farklı değişkenelre atanmış değerler haliyle vardır. Zamanla alışırsın...

@dequeen Ben yukarıdaki örnek için gerekli eklemeyi yapayım, sen kendine göre ayarlarsın... [codebox]Local $INPUT_READ,$ekrem $Form1 = GUICreate("Form1", 315, 221, 192, 124) $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 32, 32, 97, 17) $Input1 = GUICtrlCreateInput("Input1", 136, 32, 121, 21) GUICtrlSetState($Input1,128) $Button1 = GUICtrlCreateButton("Start", 16, 80, 145, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Checkbox1 If GUICtrlRead($Checkbox1) = 1 Then GUICtrlSetState($Input1,64) Else GUICtrlSetState($Input1,128) EndIf Case $Button1 If GUICtrlRead($Checkbox1) = 1 Then ;START TUŞUNA BASILDIĞINDA CHECKBOX 1 İŞARETLİ İSE $INPUT_READ = StringStripWS(GUICtrlRead($Input1),3) If GUICtrlRead($Input1) <> "" Then ;İNPUT 1 A BAKILACAK EĞER BOŞ İSE MsgBox(0,"Mesaj","1"&"Mesaj") ;HATA MESAJI VERECEK $ekrem = False ;VE BAŞLAMIYACAK EndIf EndIf EndSwitch WEnd[/codebox]

@dequeen [codebox]Local $INPUT_READ,$ekrem $Form1 = GUICreate("Form1", 315, 221, 192, 124) $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 32, 32, 97, 17) $Input1 = GUICtrlCreateInput("Input1", 136, 32, 121, 21) $Button1 = GUICtrlCreateButton("Start", 16, 80, 145, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 If GUICtrlRead($Checkbox1) = 1 Then ;START TUŞUNA BASILDIĞINDA CHECKBOX 1 İŞARETLİ İSE $INPUT_READ = StringStripWS(GUICtrlRead($Input1),3) If GUICtrlRead($Input1) <> "" Then ;İNPUT 1 A BAKILACAK EĞER BOŞ İSE MsgBox(0,"Mesaj","1"&"Mesaj") ;HATA MESAJI VERECEK $ekrem = False ;VE BAŞLAMIYACAK EndIf EndIf EndSwitch WEnd[/codebox]

Hızlı cevap yazdığım için görmemişim Bu bir key ise; [codebox]#NoTrayIcon #RequireAdmin RegDelete("HKEY_CLASSES_ROOT\.lnk\IsShortcut")[/codebox] Değer ise; [codebox]#NoTrayIcon #RequireAdmin RegDelete("HKEY_CLASSES_ROOT\.lnk","IsShortcut")[/codebox]

@yunus_28 Iso oluşturmak için pakketeki mkisofsu kullan ve çalıştığın sürücüde yeterli boş alan olup olmadığını kontrol et. Heralde install.wim dosyası sorunlu kayıt ediliyor. Bunun nedenlerinden biriside sürücüde yeterli boş alan olmaması olabilir.

@mehmetben [codebox]#NoTrayIcon #RequireAdmin RegDelete("HKEY_CLASSES_ROOT\.lnk")[/codebox]

@yunus_28 Oluşan iso dosyasını açıp, bootmgr dosyasının olup olmadığını kontrol et. Iki kodda doğru sayılır. Tabi grub4dosta dosya isimlerine dikkat etmek lazım. Misasl senin bootmgr dosyasının adı Bootmgr ise hata alırsın. bootmgr dosyasının ismini büyük harfli yapıp (BOOTMGR), ikinci verdiğin komutu kullan. Vayahut aşağıdaki kodda yeterli olacaktır... [b]grub4dos chainloader /BOOTMGR boot[/b]

@dequeen Biraz kurcala... [codebox]Global $Start = False Global $TIME1, $TIME1_R Global $TIME2, $TIME2_R Opt("GUIOnEventMode", 1) Global $Form1 = GUICreate("Form1", 461, 270) GUISetOnEvent(-3, "_EXIT") Global $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 10, 105, 25) GUICtrlSetState($Checkbox1, 1) Global $Input1 = GUICtrlCreateInput("1", 128, 10, 121, 21, 0x2000) GUICtrlCreateUpdown($Input1) Global $Input2 = GUICtrlCreateInput("a", 280, 10, 121, 21) Global $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 8, 30, 105, 25) GUICtrlSetState($Checkbox2, 1) Global $Input3 = GUICtrlCreateInput("2", 128, 30, 121, 21, 0x2000) GUICtrlCreateUpdown($Input3) Global $Input4 = GUICtrlCreateInput("e", 280, 30, 121, 21) Global $Button1 = GUICtrlCreateButton("Başlat", 16, 160, 225, 41) GUICtrlSetOnEvent(-1, "_Start_Stop") Global $Test = GUICtrlCreateInput("", 10, 220, 300, 25) GUISetState(@SW_SHOW) While 1 If $Start = True Then If $TIME1_R > 0 Then $TIME1 += 100 If $TIME1 >= ($TIME1_R * 1000) Then Send(GUICtrlRead($Input2)) $TIME1 = 0 EndIf EndIf If $TIME2_R > 0 Then $TIME2 += 100 If $TIME2 >= ($TIME2_R * 1000) Then Send(GUICtrlRead($Input4)) $TIME2 = 0 EndIf EndIf EndIf Sleep(100) ;Cpu save WEnd Func _Start_Stop() $Start = Not $Start If $Start = True Then GUICtrlSetData($Button1, "Durdur") If GUICtrlRead($Checkbox1) = 1 Then $TIME1_R = GUICtrlRead($Input1) Else $TIME1_R = 0 EndIf If GUICtrlRead($Checkbox2) = 1 Then $TIME2_R = GUICtrlRead($Input3) Else $TIME2_R = 0 EndIf ; Test-------- GUICtrlSetData($Test, "") GUICtrlSetState($Test, 256) ;--------------- Else GUICtrlSetData($Button1, "Başlat") EndIf EndFunc ;==>_Start_Stop Func _EXIT() Exit EndFunc ;==>_EXIT[/codebox]

@woramon Internetin çalışması için gerekli bir servisi kapatman çözüm olabilir... Misal ben şuan xp kullanıyorum ve dhcp servisini kapatmam internet bağlantısını kesiyor... [codebox]#RequireAdmin _BL_Service_Disable_Enable("dhcp",True) MsgBox(64,"","dhcp kapandı!") _BL_Service_Disable_Enable("dhcp") MsgBox(64,"","dhcp açıldı!") Func _BL_Service_Disable_Enable($ServiceName = "dhcp",$Disable = False) Local $Type = "start" If $Disable = True Then $Type = "stop" RunWait("net " & $Type & " " & $ServiceName,@SystemDir,@SW_HIDE) EndFunc[/codebox] Autoit forumunda daha gelişmiş örnekler haliyle vardır... Araştırmak lazım...

@ali::12 Hayır uygulayamassın! Sadece ams ile oluşturulmuş dosyalar için gereçlidir.

Kısa bir bilgi; @EgZOtiCs bana özel mesaj atmıştı ve özelden onu yönlendirmiştim. Neyse, bunu belitmemin amacı, başka bir arkadaşımızında bu konuda yardıma ihtiyacı olabileceği düşüncesidir. Kısaca MouseClick komutları sorunlu komutlardır. Her zaman istediğimiz vermi vermeyebilir. Bunun yerine ControlClick vb. gibi Control komutları daha sorunsuzdur. Lakin Control komutları işinizi görmez ise MouseClick komutlarınıda kullanabilirsiniz. MouseClick komutlarıyla sorun yaşamamanız için; 1 - Tıklatacağınız pencreyi aktif yapmalısınız. Yani tüm pencerelerin önüde olmalı. 2 - Opt("MouseCoordMode", 0) opsiyonunu kodlarınıza eklemelisiniz. 3 - Autoit Info gibi bir programla ilgili pencre için pozizyonlarını alıp çalışmanıza eklemelisiniz. Hadi basit bir örnek verelim.... [codebox]Local $MouseCoordMode Local $Form1 = GUICreate("Form1 - Test", 460, 200) Local $Button1 = GUICtrlCreateButton("Mouse ile Buton2 ye tıklat", 20, 100,200, 50) Local $Button2 = GUICtrlCreateButton("Test için buraya tıklatılacak", 240, 100,200, 50) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 $MouseCoordMode = Opt("MouseCoordMode", 0) WinActivate("Form1 - Test","") MouseClick("primary", 340, 140, 1, 1) Opt("MouseCoordMode", $MouseCoordMode) Case $Button2 MsgBox(64,"BlueLife","Test....") EndSwitch WEnd[/codebox] Örnekte gördüğünüz üzere pencreniz nerde olursa olusun birinci butona basarsak MouseClick komutuyla ikinci butona bastırabiliyoruz... Neyse kolay gelsin arkadaşlar...

@mustafakara Ilgili programlar hakkında bilgim olmadığı için net bir şey söyleyemiyorum. Lakin ilgili programlar bu kullanıcı bilgilerini bir yerde tutmak zorunda. Bu bilgiler herangi bir dosyada tutulabileceği gibi registryde de tutulabilir. Kısaca ilgili programı inceleyip, bu bilgileri nerede tuttuğunu tespit etmek lazım. Sonrasında istediğin müdehaleyip yapabilirsin. Yukarıda yazdığım en sağlam, mantıklı yöntemdir. Tabi bdiğer bir yöntem olarakta belki programı autoit ile açıp ayarları yaptırılabilir. Ama sağlıklı bir yöntem deyil açıkçası....

@woramon Tam olarak ne yapmak isiyorsun? Birden fazla exe ile yapacağın işi (işe bağlı olarak) tek bir exe ile de yapabilirsin. Autoitte dll çalıştırılabiliyor lakin dll yazılamıyor.

[img]http://k3kgig.bay.livefilestore.com/y1pj1Xrg5DOv7X7rcR1G-7t-VQE_C5zbmm4zpiqeodgNGW_-m1QvETM-5E7k236E6rYHERufMaC1i0HkVF1IHTBpw/edit.png[/img] Gerçekten ufak cüssesine rağmen, Notepad2 çok başarılı bir editordür. Brudan indirdiğiniz kurulumu sisteminize kurduğunuzda; notepad.exe ile ilişkilendirilmiş tüm dosyalar notepad2 ile açılacaktır. Kaldırdığınızda haliyle eski ayarlarınız aktif olacaktır... [b]Notepad2 V4.1.24 Türkçce (X86) (Yaklaşık 1MB)[/b] [color="#0000FF"][u][b]http://bluelife.winbuilder.net/Silent_Setup/Notepad2.zip[/b][/u][/color] Not:Katılımsız için autoit kullanılmıştır ve indirdiğiniz pakette autoit kodlarını bulabilirsiniz... Ilgili bağlantılar: http://www.flos-freeware.ch/notepad2.html http://kadirdemirel.net84.net/1_10_Notepad2-Turkce.html

Dün bir arkadaşın ricası üzerine bu konuda ufak bir yama hazırlamıştım. Başka bir arkadaşın, işine yarayabilir düşüncesiyle burda da paylaşmak istiyorum... Yama kısaca sağ tuşta (sistemde winrar yüklüyse tabi) winrar eklentilerinin görünmemsini sağlar. [b][color="#8B0000"]AmsDwrm.zip[/color] (Yaklaşık 300 KB)[/b] [color="#0000FF"][u][b]http://bluelife.winbuilder.net/Autoit/Ams_RightClick/AmsDwrm.zip[/b][/u][/color] Not:Benim ams konusunda herangi bir tecrübem yok. Kolay gelsin arkadaşlar...

@casira O zaman ilgili klasör içindeki tüm klasörleri listeleyip, hepsine kopyala.exe yi kopyalayalım [codebox]Global $FolderList = _ListFolder(@ProgramFilesDir & "\ABC\") For $I = 1 To $FolderList[0] FileCopy("kopyala.exe", $FolderList[$I] & "\Kopyala.exe", 9) ;~ FileInstall("kopyala.exe",$FolderList[$I] & "\Kopyala.exe",1) Next Func _ListFolder($TargetLocation) If StringRight($TargetLocation, 1) <> "\" Then $TargetLocation &= "\" Local $BL_RETURN[1] = [0], $Folder Local $BL_Searc = FileFindFirstFile($TargetLocation & "*") If $BL_Searc <> -1 Then While 1 $Folder = FileFindNextFile($BL_Searc) If @error Then ExitLoop If @extended = 1 Then $BL_RETURN[0] += 1 ReDim $BL_RETURN[$BL_RETURN[0] + 1] $BL_RETURN[$BL_RETURN[0]] = $TargetLocation & $Folder EndIf WEnd EndIf FileClose($BL_Searc) Return $BL_RETURN EndFunc ;==>_ListFolder[/codebox]