DivaneTR

Neredeyse 10 yıl önce KYK öğrenci yurdunda hazırlanmış bir çalışma. Boş zamanımda sizler için son bir düzenleme yapabilirim. Özel mesaj üzerinden ihtiyaç duyduğunuz özellikleri yazabilirsiniz. Saygılarımla.

#include <WinAPISysWin.au3> yukarıdaki kod ile ilgili kütüphaneyi scripte eklemek gerekiyor. autoit sürüm güncelleyince farklı kütüphaneye alınmış bazı fonksiyonlar.

#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GuiIPAddress.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 560, 310, -1, -1) $Group1 = GUICtrlCreateGroup("NetSh", 11, 8, 538, 177) GUICtrlSetFont(-1, 10, 400, 0, "Tahoma") $Input1 = GUICtrlCreateInput("Local Area Connection", 32, 40, 496, 24) GUICtrlSetFont(-1, 10, 400, 0, "Tahoma") $IPAddress1 = _GUICtrlIpAddress_Create($Form1, 32, 80, 354, 21) _GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0") $IPAddress2 = _GUICtrlIpAddress_Create($Form1, 32, 112, 354, 21) _GUICtrlIpAddress_Set($IPAddress2, "0.0.0.0") $IPAddress3 = _GUICtrlIpAddress_Create($Form1, 32, 144, 354, 21) _GUICtrlIpAddress_Set($IPAddress3, "0.0.0.0") $Button1 = GUICtrlCreateButton("Run", 400, 78, 130, 88) GUICtrlSetFont(-1, 10, 400, 0, "Tahoma") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("NetDom", 11, 192, 538, 105) GUICtrlSetFont(-1, 10, 400, 0, "Tahoma") $Input2 = GUICtrlCreateInput("", 32, 236, 354, 24) GUICtrlSetFont(-1, 10, 400, 0, "Tahoma") $Button2 = GUICtrlCreateButton("Run", 400, 222, 130, 49) GUICtrlSetFont(-1, 10, 400, 0, "Tahoma") GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $str = GUICtrlRead($Input1) $ip1 = _GUICtrlIpAddress_Get($IPAddress1) $ip2 = _GUICtrlIpAddress_Get($IPAddress2) $ip3 = _GUICtrlIpAddress_Get($IPAddress3) $cmd = "netsh interface ip set address name=" & '"' & $str & '"' & " static " & $ip1 & " " & $ip2 & " " & $ip3 RunWait(@ComSpec & " /c " & $cmd) Case $Button2 $str2 = GUICtrlRead($Input2) $cmd2 = "netdom /domain:test /user:test /password:test " & $str2 & " /joindomain" RunWait(@ComSpec & " /c " & $cmd2) EndSwitch WEnd

Ellerinize sağlık, tasarım ve içerik oldukça güzel. Herhangi bir tweak yaptıktan sonra explorer'ı yeniden başlatması zaman kaybına sebep oluyor. Explorer resetlenmeden değişiklikleri uygulamak mümkün. Cleaning menüsünde ise tüm seçenekleri seçip Analyze butonuna basınca progress tıkanıp program kapanıyor. Yönetici olarak çalıştırıp denedim sonuç değişmedi. Windows 11 Pro sistemde test ettim.

@deli_petro06 Güzel derleme olmuş, emeğinize sağlık. Güncel Windows indirmek için foruma giriş yaptım ve tesadüf bu konuyu gördüm. Lite sistemlerle ilgilenmesem de sayenizde güncel ISO indirmenin pratik yolunu öğrenmiş oldum. 👏

File.Delete herhangi bir diyalog göstermeksizin siler hedef dosyayı.

Görünmezden kastınız nedir?

ProcessWait("CCleaner64.exe") ProcessClose("CCleaner64.exe") bu şekilde yazman gerekiyor. script, işlemin açılmasını bekleyip açılır açılmaz kapatır.

Pardon! Ben yanlış anlamışım. Autoit kodlarına dönüştürmek çok kompleks iş. Bunun yerine en makul yol, bat dosyasını script içinden execute etmek. https://www.autoitscript.com/forum/topic/67799-running-a-batch-file-in-autoit/ AutoIt forumundaki bu konudan nasıl execute edeceğinize dair bilgi edinebilirsiniz.

AutoIt forumunda paylaşılmıştı daha önce. Orjinal konuyu bulamadığım için dosyayı buradan paylaşıyorum. CmdBatCompiler.zip

Build, projenin belirtilen seçenekler doğrultusunda derlenmesi demektir. Sadece yazılan ilacın isminin gelmesi için; if (dr["ilac-adi"].ToString() == textBox1.Text) { ListViewItem item = new ListViewItem(dr["id"].ToString()); item.SubItems.Add(dr["ilac-adi"].ToString()); item.SubItems.Add(dr["il"].ToString()); item.SubItems.Add(dr["eczaneler"].ToString()); listView1.Items.Add(item); }

Build kısmından x64 yapınca sorun çözüldü. Proje Yönetimi.rar

Kaynak kodlar eklenmiştir. QuickInstaller.rar

Repackager uygulamarı registry takibi için kullanılabilir. Advanced Installer ile kolay bir şekilde yüklenen programın registry girdileri görülebilir.

Sürekli tekrarlanması gereken görevlerde sleep kullanmak bir hatadır, sleep süresince scriptin kilitlenmesine sebebiyet verir. Bunun yerine AdlibRegister kullanmak en doğrusudur.

Sleep kullandığın için problem yaşıyorsun. Block butonuna bastığından andan itibaren script sonsuz sleep içine giriyor. Bunun yerine AdlibRegister kullanarak bu sorunu aşabilirsin. Farklı şekilde de döngüyü break edebilirsin ama AdlibRegister bu iş için en iyisi. #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) Opt("TrayAutoPause", 0) ;ikona basınca durdur olmaz Opt("WinTitleMatchMode", 2) ;Bu komutla onu kaldırabilirsin. Opt("TrayOnEventMode", 1) Opt("TrayAutoPause", 0) ;Eğer menününde olmamasını istiyorsan alttaki kodu kullan. Opt("TrayMenuMode", 1) $gostertry = TrayCreateItem("Menüyü Göster") ;ileti bu TrayItemSetOnEvent(-1, "goster") ; görevi "goster" functionunu calıstırmak ;~ TrayCreateItem("") $gizletry = TrayCreateItem("Menüyü Gizle") ;ileti bu TrayItemSetOnEvent(-1, "gizle") ; görevi "gizle" functionunu calıstırmak ;~ TrayCreateItem("") $config_tray = TrayCreateItem("..:Hakkımda:..") ;ileti bu TrayItemSetOnEvent(-1, "mms") ; görevi "mms" functionunu calıstırmak ;~ TrayCreateItem("") $exit_tray = TrayCreateItem(" Çıkış") TrayItemSetOnEvent(-1, "exxit") TraySetState() ;--------------------------- #Region ### START Koda GUI section ### Form= ;~ HotKeySet("{ESC}" ,"Kapat") ;kısayol gui kapat $Form1 = GUICreate("Win Tasker v.1.0", 236, 101, 728, 461) GUISetBkColor(0x4DBFD5) GUISetOnEvent($GUI_EVENT_CLOSE, "exxit") HotKeySet("{ESC}", "gizle") ;kısayol gui gizle $Combo1 = GUICtrlCreateCombo("", 8, 10, 170, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) ;combo ollusturdum $var = WinList() Dim $winfirst For $i = 1 To $var[0][0] GUICtrlSetOnEvent($Combo1, "Combo1Change") ;combo görevi If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then ;eger pencereler varsa GUICtrlSetData(-1, $var[$i][0], "") ;bunu comboya ekle EndIf Next $Button1 = GUICtrlCreateButton("Show", 8, 63, 42, 35) GUICtrlSetOnEvent($Button1, "Button1Click") $Button2 = GUICtrlCreateButton("Hide", 50, 63, 42, 35) GUICtrlSetOnEvent($Button2, "Button2Click") $Button3 = GUICtrlCreateButton("Reflesh", 185, 10, 46, 25) GUICtrlSetOnEvent($Button3, "Button3Click") $Button4 = GUICtrlCreateButton("Block", 92, 63, 42, 35) GUICtrlSetOnEvent($Button4, "Button4Click") $Button5 = GUICtrlCreateButton("Gizle", 134, 63, 46, 35) GUICtrlSetOnEvent($Button5, "gizle") $Button7 = GUICtrlCreateButton("Unblock", 185, 63, 46, 25) GUICtrlSetOnEvent($Button7, "Unblock") $Button6 = GUICtrlCreateButton("Rename", 185, 40, 46, 25) GUICtrlSetOnEvent($Button6, "Button6Click") $Combo2 = GUICtrlCreateCombo("", 8, 40, 170, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) ;combo ollusturdum GUISetState(@SW_SHOW) While 1 Sleep(100) WEnd Func Button1Click() $hWnd = (GUICtrlRead($Combo1)) WinSetState($hWnd, "", @SW_SHOW) WinActivate($Form1) EndFunc ;==>Button1Click Func Button2Click() $hWnd = (GUICtrlRead($Combo1)) WinSetState($hWnd, "", @SW_HIDE) EndFunc ;==>Button2Click Func Button3Click() If @Compiled = 1 Then Run(FileGetShortName(@ScriptFullPath)) Else Run(FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath)) EndIf Exit EndFunc ;==>Button3Click Func Combo1Change() EndFunc ;==>Combo1Change Func Form1Close() Exit EndFunc ;==>Form1Close Func IsVisible($handle) If BitAND(WinGetState($handle), 2) Then Return 1 Else Return 0 EndIf EndFunc ;==>IsVisible Func Button6Click() $winfirst = GUICtrlRead($Combo1) $winsecond = GUICtrlRead($Combo2) WinSetTitle($winfirst, "", $winsecond) EndFunc ;==>Button6Click Func Button4Click() $winfirst = (GUICtrlRead($Combo1)) AdlibRegister("_WinKill") EndFunc ;==>Button4Click Func _WinKill() WinKill($winfirst) EndFunc ;==>_WinKill Func mms() ;hakkımda try MsgBox(64, "Win Tasker v.1.0", "Yapımcı :" & @CRLF & "Adem SEZGİN") EndFunc ;==>mms Func goster() ;menuyu goster try GUISetState(@SW_SHOW) EndFunc ;==>goster Func Unblock() ;menuyu goster try AdlibUnRegister("_WinKill") ;Exit EndFunc ;==>Unblock Func exxit() ;exit try Exit EndFunc ;==>exxit Func gizle() ;menuyu goster try GUISetState(@SW_HIDE) EndFunc ;==>gizle

$Param = "youtube-dl -o " & '"' & "C:\Users\X\Videos\YoutubeDLG/%(playlist)s/%(playlist_index)s. %(title)s.%(ext)s" & '"' $Param &= " --sub-lang en,tr --write-sub --write-auto-sub --convert-subtitles srt --continue --ignore-errors --embed-subs " $Param &= "-f " & '"' & "299+bestaudio[ext=m4a]/137+bestaudio[ext=m4a]/37/298+bestaudio[ext=m4a]/22/136+bestaudio[ext=m4a]/135+bestaudio[ext=m4a]/59/78/134+bestaudio[ext=m4a]/18/133+bestaudio[ext=m4a]/160+bestaudio[ext=m4a]" & '"' $Param &= " --add-metadata --merge-output-format mp4" ShellExecute(@ComSpec, "/C " & $Param, @ScriptDir)

Administrative Tools "::{D20EA4E1-3957-11d2-A40B-0C5020524153}" Briefcase "::{85BBD920-42A0-1069-A2E4-08002B30309D}" Control Panel "::{21EC2020-3AEA-1069-A2DD-08002b30309d}" Fonts "::{D20EA4E1-3957-11d2-A40B-0C5020524152}" History "::{FF393560-C2A7-11CF-BFF4-444553540000}" Inbox "::{00020D75-0000-0000-C000-000000000046}" Microsoft Network "::{00028B00-0000-0000-C000-000000000046}" My Computer "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" My Documents "::{450D8FBA-AD25-11D0-98A8-0800361B1103}" My Network Places "::{208D2C60-3AEA-1069-A2D7-08002B30309D}" Network Computers "::{1f4de370-d627-11d1-ba4f-00a0c91eedba}" Network Connections "::{7007ACC7-3202-11D1-AAD2-00805FC1270E}" Printers and Faxes "::{2227A280-3AEA-1069-A2DE-08002B30309D}" Programs Folder "::{7be9d83c-a729-4d97-b5a7-1b7313c39e0a}" Recycle Bin "::{645FF040-5081-101B-9F08-00AA002F954E}" Scanners and Cameras "::{E211B736-43FD-11D1-9EFB-0000F8757FCD}" Scheduled Tasks "::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}" Start Menu Folder "::{48e7caab-b918-4e58-a94d-505519c795dc}" Temporary Internet Files "::{7BD29E00-76C1-11CF-9DD0-00A0C9034933}" Web Folders "::{BDEADF00-C265-11d0-BCED-00A0C90AB50F}"

Tarayıcının java servisine izin verdiğinden emin olun. Firefox için örneğin;

http://www.tnctr.com/topic/189128-goerev-cubudhu-sadh-tyk-dedhithtirme/

Floor(28.4)+1