SimpsoN_Bart
-
Posts
712 -
Joined
-
Last visited
-
Days Won
6
Content Type
Profiles
Forums
Calendar
Posts posted by SimpsoN_Bart
-
-
İlk sorunuzun cevabı:
İki tane yazmanız gerekmez. Orda birden fazla işlem için kullanabileceğini göstermiş. Oraya istediğin işlemin adını yazarak RAM tüketimini azaltabilirsin.
Örneğin ;
$LIST = "explorer.exe|splayer.exe|firefox.exe|winamp.exe"
CPU çok kasıyorsa ;
Bu arada küçük bir kaç hatırlatma daha yapayım, $LIST değişkenine istediğiniz kadar process yazabilirsiniz tabi yazım şekline uyarak program onları split eder ek olarak kullanım sırasında sorun yaşarsanız intervali yükseltin 10000 ms (10sn) veya üstü yaparsanız daha iyi performans sağlarsınız.İyi günlerde kullanın.
Yazılan iletileri güzel bir şekilde okuyun. Aradığınız mutlaka yazılı olacaktır ki sorduğunu 2 sorunun cevabı burada mevcut idi. PM nize bu yüzden cevap vermedim.
-
Date&Time Synchronize, sistem saatiniz yanlış ise internet üzerinden sisteminizi kısa sürede senkronize eden bir uygulamadır.. Kullanımı gayet basit ve kullanıcı dostudur. Çift tıklamanız kâfidir. Programa komut satırı da koydum dilerseniz bu şekilde de çalıştırabilirsiniz..İyi çalışmalar arkadaşlar.
Programdan Görüntüler:[spoiler]
[/spoiler]Komut Satırı :
/Silent : Program sessiz şeklilde çalışır. Herhangir bir uyarı veya bilgi mesajı vermez.
/About : Program hakkında bilgi sağlar.
/? : Programın nasıl kullanılacağı hakkında bilgi sağlar.
https://app.box.com/s/auk2cmh0cxrvpakyo35w
-
SkinCrafter windows uygulamaları için özel temalı arayüzler tasarlamanıza olanak sağlayan bir araçtır. Desteklediği programlama dilleri C++ , C# , Visual Basic, .NET ve Delphi. Ek olarak autoit de bile desteği bulunmaktadır.Aslında benimde çok sevdiğim bir kütüphane fakat tam olarak isteğim gibi bir tema dosyası bulamadım, bulduklarımda C# da çalışmadı veya Framework desteği yoktu. Autoit de kullanımı gayet sade ve anlaşılır biçimdedir. UDF açıklamalarına göz gezdirin. İyi çalışmalar..
Kaynak:
http://skincrafter.com/
Kaynak Kodlar + 1 Adet Tema:
https://app.box.com/s/14twqc75izfg9gi9jz1e
-
Aslında autoit ile yapılan katılımsız programlar pek stabil değil.. Bazen sıkıntılar çıkarabiliyor, komutlar ve ilgili yöntemleri bilmiyorsanız hiç bulaşmayın derim. En temizi repacker yapmak o da her programla değil özellikle smart install maker ve Advanced Installer.. Aralarında en iyi program Inno Setup. Bununla çok iyi repacker yapabilirsiniz her yönüyle başarılı bir programdır ve forumda katılımsız ustaları bu programla katılımsız yapmaktalar..Yanlış hatırlamıyorsam açık koda bile destek veriyordu yani delphi vs dil biliyorsanız harika setuplar yapabilirsiniz.
-
[spoiler]
[/spoiler]Ayarlarınızı bu şekilde yapın. En alt da Ses denetimi var orda test yaparsanız sonuç alabilirsiniz.
-
.NET Framework kurulu olunca çalışıyorsa demek ki C# vb. dilde yazıldı.
-
Nice yıllara hemşo. Rabbim uzun ve sağlıklı ömürler versin. :)
-
gitti geldi mahvetti
-
Geldi Hoş Geldi.
-
Bazı zamanlarda host dosyasından site engellemek istediğim oluyordu bunu daha hızlı hala getirmek için böyle bir şey geliştirmek istedim. Aslında tam olarak amacım c++ kodlarını biraz daha hatırlamaktı ama sizlere de paylaşmanın iyi olacağını düşündüm.Program dan yapmak isteğiniz seçeneği girmeniz yeterli olacaktır.Umarım işinize yarar. :)
Kullanım şekli : siteadi.com
Not : Site ismi girerken :
www.
http://www. vs kullanmayınız.Program + Kaynak Kodlar:https://app.box.com/s/13fwkx2jx25ilvlc47js
-
-
Geliştirdiğiniz projelerinize koyabileceğiniz, kendim için geliştirdiğim bir fonksiyon. Programınızdan iki tane açılmasını önler eğer açıksa size sorar. Mutex çalışma prensibine benzer bir yapısı bulunmaktadır.
#RequireAdmin $Form1 = GUICreate("Form1", 318, 190) GUISetState(@SW_SHOW) _SK_ProcessCheck('TNCTR', $Form1) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd Func _SK_ProcessCheck($UNIQUENAME, $PROGRAMNAME, $CONFIRM = 7) DllCall('kernel32.dll', 'int', 'CreateSemaphore', 'int', 0, 'long', 1, 'long', 1, 'str', $UNIQUENAME) Local $GETLASTERROR = DllCall('kernel32.dll', 'int', 'GetLastError'), $ERROR_ALREADY_EXISTS = 183 If $GETLASTERROR[0] = $ERROR_ALREADY_EXISTS And $CONFIRM = 7 Then $CONFIRM = MsgBox(16 + 4, $PROGRAMNAME, 'Bu programın bir örneği zaten çalışıyor! Yeni bir örneğini daha açmak ister misiniz?','',$PROGRAMNAME) If $CONFIRM = 6 Then Return Else Exit EndIf AutoItWinSetTitle($PROGRAMNAME) WinActivate($PROGRAMNAME) EndIf EndFunc ;==>_SK_ProcessCheck()https://www.box.com/s/qymb7inswlhlurpze7kn
Ayrıca Bkz:
http://www.tnctr.com/topic/204059-singleton-v2/
MSDN Kaynağı:
http://msdn.microsoft.com/en-us/library/aa911525.aspx http://msdn.microsoft.com/en-us/library/windows/desktop/ms682438(v=vs.85).aspx
Kolay Gelsin..
-
Kullandığınız İşletim sistemi sürümünün bazı ekstra özelliklerini göstermek için olan bir fonksiyonu biraz daha araştırıp geliştirdim. Umarım işinize yarar.
#include <array.au3> $aRes = _GetOSVersionEx() _ArrayDisplay($aRes) Func _GetOSVersionEx() Local Const $OSVERSIONINFOEXW = "dword dwOSVersionInfoSize;dword dwMajorVersion;dword dwMinorVersion;dword dwBuildNumber;dword dwPlatformId;" & _ "wchar szCSDVersion[128];ushort wServicePackMajor;ushort wServicePackMinor;ushort wSuiteMask;byte wProductType;byte wReserved" Local $OSVI = DllStructCreate($OSVERSIONINFOEXW) DllStructSetData($OSVI, "dwOSVersionInfoSize", DllStructGetSize($OSVI)) Local $ret = DllCall("kernel32.dll", "int", "GetVersionExW", "ptr", DllStructGetPtr($OSVI)) Local $aReturn[12][2] $aReturn[1][0] = "dwOSVersionInfoSize" $aReturn[2][0] = "dwMajorVersion" $aReturn[3][0] = "dwMinorVersion" $aReturn[4][0] = "dwBuildNumber" $aReturn[5][0] = "dwPlatformId" $aReturn[6][0] = "szCSDVersion" $aReturn[7][0] = "wServicePackMajor" $aReturn[8][0] = "wServicePackMinor" $aReturn[9][0] = "wSuiteMask" $aReturn[10][0] = "wProductType" $aReturn[11][0] = "wReserved" If Not @error Then For $i = 1 To 11 $aReturn[$i][1] = DllStructGetData($OSVI, $i) Next $aReturn[0][0] = $aReturn[2][1] & "." & $aReturn[3][1] & "." & $aReturn[4][1] EndIf Return $aReturn EndFunc ;==>_GetOSVersionExhttps://www.box.com/s/5pf3x72rjdwon42uzpxr
Aldığım kaynak için:
http://msdn.microsoft.com/en-us/library/ms724451.aspx
-
Programlamaya ilk başladığımda dos komutlarına ilgim baya fazlaydı. O zaman nlite ile Windows XP dosyaları ile uğraşırken böyle bir programa ihtiyacım vardı. Bende kodlamıştım. Dosyalarımı düzenlerken buldum hoşuma gitti biraz düzenleyip, sizinle paylaşmak istedim.Umarım işinize yarar.
Peki Nedir makecab ?
Bildiğiniz gibi Microsoft programlarının çoğu CAB uzantılı dosyalardan kurulur. Belki sizde CAB dosyası yapmak isteyebilirsiniz. O zaman bu basit program yardımınıza koşacaktır.-Program gayet basit ne yapmak isteğinizi seçimle girin o sizin için hemen yapsın.
-Bulunduğu dizindeki tüm dosyaları kabine sokar ve kabinden çıkarır.
Şimdilik tadını çıkarın. Kolay Gelsin.
https://www.box.com/s/u51ryu6if5xb05auy4km
-
Chrome, Visual Studio 2012, SQL Management Studio, SciTE ,Adobe Photoshop, WampServer, Sublime Text, AIMP, KM Player, Unlocker, TeraCopy,Torrent ve IDM
Facebook, Vatanbilgisayar, Hepsiburada, Sahibinden, Sourceforge, MSDN, Youtube, Tnctr ve Yazete.
-
-
Arkadaşlar BlueLife nin yaptığı programı upload edecek biri var mı ?
https://www.box.com/s/5cpg1wpezh88qdckrbn9
-
PHP ile ilgili pek bir durum yok dom nesnelerin yerini değiştirmek istediğinden css de konumlarını yer değiştireceksin bu kadar.
-
Uzun zaman önce hazırladığım bu programı biraz düzenleyerek size sunmak istedim.. İşlerim yoğun olduğunda belirlediğim saatte beni uyarması için bir programa ihtiyacım vardı fakat bu denli bir şey yazacağımı tahmin etmiyorum. Hem işimi gördü hemde bazı kod yapılarını hatırlamış oldum. Program C# da yazılmıştır, çalışması için .NET Framework pc nizde kurulu olması gerekmektedir.. Programa başlamadan fikir konusunda yardım aldığım [member=pairs] e ve takıldığım bazı yerlerde işini gücünü bırakıp bana yardımcı olan [member=cumman] a teşekkürlerimi sunarım.. Kaynak kodlar paket içersinde mevcut incelemeyi unutmayın.
Program Özellikleri:Dilediğiniz kadar hatırlatma ekleyebilir bunları düzenleyebilir; silebilir, aktif veya pasif yapabilir, tekrar hatırlatmasını sağlayabilirsiniz.
Basit arayüzü ile kullanıcı dostudur.Yalnızca 188 KB boyutundadır.
Program kendisini gizleyerek sistem tepsisinde çalışabilir. Buradan da işlemlerinizi rahatlıkla yapabilirsiniz.
Hatırlatma ayarlarından programı windows başlangıcında çalıştırabilir ve isteğiniz şekilde uyarı vermesini sağlayabilirsiniz.
Program penceresi aktif iken CTRL + E kısayolu ile ekle menüsünü açabilirsiniz.
Aynı şekilde CTRL + F kısayolu ile programı sonlandırabilirsiniz. CTRL + G ile programı gizleyebilir, CTRL + D programı minimize edebilir CTRL + S ile ses çalıyorsa sesi kapatabilirsiniz.
Programı gizlediğiniz kapanmayıp sessiz şekilde arka planda çalışmaktadır yine buradan işlemlerinizi hızlıca yapabilirsiniz.
Programdan Görüntüler :[spoiler]
[/spoiler]Programı katılımsız olarak da kurabilirsiniz. Kolay gelsin.
https://www.box.com/s/hyc2a4uur0wkp0dgmb0p
-
Yeni görevinde başarılar dilerim. Çalışmalarının ivmeli olarak artmasını bekliyoruz cnm .s
-
FileNotFoundException nesnesi herhangi bir dosya bulunamadığı zaman geri döner net.png bulunamadığı için catch bloğun da hata yakalandı ve null sonuç döndü hata bu yüzden.
net.png olmadığı için olabilir.
-
FileNotFoundException nesnesi herhangi bir dosya bulunamadığı zaman geri döner net.png bulunamadığı için catch bloğun da hata yakalandı ve null sonuç döndü hata bu yüzden.
-
Bu ufak programla masaüstü arkaplan resminizi kolayca değiştirebilirsiniz.. GUI arayüzü koymaya şimdilik gerek duymadım, Sistem Tepsisinde çalışıyor. Windows 7 nin böyle bir özelliği var. XP kullanırken çok sevdiğim bir özellik olduğundan bunu geliştirdim, sizinde işinize yarayabilir diye paylaşıyorum.Geliştirmeye açık bir proje.Umarım işinize yarar.Kolay gelsin.
Bonus olarak paket içine 10 Adet HD Wallpaper Koydum.İyi günlerde Kullanın.
#RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=image.ico #AutoIt3Wrapper_Compression=3 #AutoIt3Wrapper_Res_Comment=BartSimpson #AutoIt3Wrapper_Res_Description=Random WallPaper Changer #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_LegalCopyright=S.K CODER (C) 2013 | TNCTR #Obfuscator_Parameters=/striponly #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <File.au3> #include <Array.au3> #include <GDIPlus.au3> Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) If UBound(ProcessList(@ScriptName)) > 2 Then MsgBox(16, "Hata!", "Zaten çalışan bir program mevcut!", 5) Exit 0 EndIf Global $PIC_FOLDER = IniRead("Settings.ini", "Path", "PicPath", @ScriptDir) Global $EXT_PICS[6] $EXT_PICS[0] = 5 $EXT_PICS[1] = 'jpeg' $EXT_PICS[2] = 'jpg' $EXT_PICS[3] = 'png' $EXT_PICS[4] = 'bmp' Global $TEMPFILE_PATH = @TempDir & "\+~RandomWallPaper~+.bmp" Global $BACKUP_FILE_PATH = @TempDir & "\+~RandomWallPaperBackUp~+.bmp" $RANDOM_WALL = TrayCreateItem("Rastgele Masaüstü ArkaPlanı") $UNDO = TrayCreateItem("Önceki Masaüstü ArkaPlanı") $PIC_PATH = TrayCreateItem("Resimler Klasörünü Seç...") $ABOUT = TrayCreateItem("Hakkında") TrayCreateItem("") $EXIT = TrayCreateItem("Çıkış") TrayItemSetOnEvent($RANDOM_WALL, "_SetRandomWallPaper") TrayItemSetOnEvent($PIC_PATH, "_PicPath") TrayItemSetOnEvent($UNDO, "_Undo") TrayItemSetOnEvent($EXIT, "_Exit") TrayItemSetOnEvent($ABOUT, "_ABOUT") Global $PICS = _FileListToArrayEx($PIC_FOLDER, $EXT_PICS) If $PICS = 0 Then _PathInValid() While 1 Sleep(100) WEnd Func _SetRandomWallPaper() TrayItemSetState($RANDOM_WALL, 4) If FileExists($TEMPFILE_PATH) Then FileCopy($TEMPFILE_PATH, $BACKUP_FILE_PATH, 1) _GDIPlus_Startup() $BMP_WALL = _GDIPlus_BitmapCreateFromFile($PIC_FOLDER & "\" & $PICS[Random(1, $PICS[0], 1)]) _GDIPlus_ImageSaveToFile($BMP_WALL, $TEMPFILE_PATH) _GDIPlus_BitmapDispose($BMP_WALL) _GDIPlus_Shutdown() _SetWallPaper($TEMPFILE_PATH) EndFunc ;==>_SetRandomWallPaper Func _PicPath() TrayItemSetState($PIC_PATH, 4) $PIC_FOLDER_TEMP = FileSelectFolder("Resimlerin bulunduğu dizini seçin", "", 7, $PIC_FOLDER) If Not @error And IsArray(_FileListToArrayEx($PIC_FOLDER_TEMP, $EXT_PICS)) Then If StringRight($PIC_FOLDER_TEMP, 1) = "\" Then $PIC_FOLDER_TEMP = StringTrimRight($PIC_FOLDER_TEMP, 1) $PIC_FOLDER = $PIC_FOLDER_TEMP $PICS = _FileListToArrayEx($PIC_FOLDER, $EXT_PICS) IniWrite("Settings.ini", "Path", "PicPath", $PIC_FOLDER) Return 1 EndIf Return 0 EndFunc ;==>_PicPath Func _PathInValid() Switch MsgBox(52, "Uyarı!", "Belirlediğiniz yolda uyumlu resim dosyaları yok veya yol geçersiz.Şimdi yolu tekar belirlemek ister misiniz?") Case 6 If Not _PicPath() Then _PathInValid() Case 7 MsgBox(64, "Bilgi", "Lütfen Resim Dosyalarınızın Bulunduğu Klasörü Seçin.Aksi Takdirde Rastgele Masaüstü ArkaPlanı Değişikliği Yapamazsınız.") TrayItemSetState($RANDOM_WALL, 128) EndSwitch EndFunc ;==>_PathInValid Func _FileListToArrayEx($PATH, $_EXT) If Not IsArray($_EXT) Then Return SetError(1, 0, 0) Local $FILES_RAW = _FileListToArray($PATH, '*', 1) Local $FILES_RETURN[1] For $I = 1 To $FILES_RAW[0] $EXT_TMP = StringRight($FILES_RAW[$I], StringLen($FILES_RAW[$I]) - StringInStr($FILES_RAW[$I], ".", 0, -1)) $VALID = False For $J = 1 To $_EXT[0] If $EXT_TMP = $_EXT[$J] Then $VALID = True Next If $VALID = True Then _ArrayAdd($FILES_RETURN, $FILES_RAW[$I]) Next If UBound($FILES_RETURN) <= 1 Then Return SetError(2, 0, 0) $FILES_RETURN[0] = UBound($FILES_RETURN) - 1 Return $FILES_RETURN EndFunc ;==>_FileListToArrayEx Func _Undo() TrayItemSetState($UNDO, 4) If FileExists($BACKUP_FILE_PATH) Then FileCopy($TEMPFILE_PATH, $TEMPFILE_PATH & '.copybuffer', 1) FileCopy($BACKUP_FILE_PATH, $TEMPFILE_PATH, 1) FileCopy($TEMPFILE_PATH & '.copybuffer', $BACKUP_FILE_PATH, 1) FileDelete($TEMPFILE_PATH & '.copybuffer') _SetWallPaper($TEMPFILE_PATH) EndIf EndFunc ;==>_Undo Func _SetWallPaper($IMAGE_PATH) RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallPaper", "REG_SZ", 0) RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", "REG_SZ", -1) RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper", "REG_SZ", $IMAGE_PATH) DllCall("user32.dll", "int", "SystemParametersInfo", "int", 20, "int", 0, "str", $IMAGE_PATH, "int", BitOR(1, 2)) EndFunc ;==>_SetWallPaper Func _EXIT() Exit EndFunc ;==>_EXIT Func _ABOUT() Local $RTN = DllCall("shell32.dll", "long", "ShellAboutA", "ptr", "hwnd", "str", "Random WallPaper Changer", "str", "© " & @YEAR & " SimpsoN_Bart | TNCTR.COM", "long", 0) If @error Then SetError(1, 0, 0) Return $RTN EndFunc ;==>_ABOUTPaket içeriği : Program + Kaynak Kod + 10 Adet HD Wallpaper
https://www.box.com/s/c2o8i1rxgl7b8z93108v
-
AdlibRegister("_OPEN_SITE", 120 * 1000) Func _OPEN_SITE() ShellExecute("www.travian.com.tr") EndFunc ;==>_OPEN_SITE While Sleep(100) WEnd
[/spoiler]
[/spoiler]
[/spoiler]
Guıctrlcreateprogress Ekleyemiyorum
in AutoIT
Posted
Bu progressbar zımbırtısı her zaman sorun olmuştur. Eğer işlemleri tam okuyamıyorsan ilerletmek zor olur.. Program kurulumlarında ben InstallTips öneririm. Sorunsuz çalışır hemde kurulurken kullanıcıya bilgi sağlar. Yinede sana ufak bir örnek verelim. Örneği kendine göre düzenlersin.
#include <File.au3> Global $EXE_FILE = _TempFile() FileInstall("program1.exe", $EXE_FILE) _SET_PROGRESS($EXE_FILE, "Deneme", "Flash Player yüklenirken lütfen bekleyiniz...") FileDelete($EXE_FILE) FileInstall("program2.exe", $EXE_FILE, 1) _SET_PROGRESS($EXE_FILE, "Deneme", "Java yüklenirken lütfen bekleyiniz...") FileDelete($EXE_FILE) Func _SET_PROGRESS($GET_EXE_FILE, $GET_TITLE = "UltraFlashPack v1", $GET_MSG = "Program(lar) Yuklenirken Bekleyiniz.") ProgressOn($GET_TITLE, $GET_MSG, "0 Saniye") Local $PR_PID = Run($GET_EXE_FILE, @WorkingDir) Local $START_TIME[2] = [TimerInit(), 0] Local $SET_PROGRES While ProcessExists($PR_PID) If Round(TimerDiff($START_TIME[0])) > $START_TIME[1] Then $START_TIME[1] = Round(TimerDiff($START_TIME[0]) / 1000) $SET_PROGRES += 1 ProgressSet($SET_PROGRES, $START_TIME[1] & " Saniye") If $SET_PROGRES >= 100 Then $SET_PROGRES = 1 EndIf Sleep(50) WEnd ProgressSet(100, "Bilgi", "Kurulum Tamamlandi") EndFunc ;==>_SET_PROGRESSBen burada Run kullandım sen istersen ShellExecute vs kullabilirsin buna ek olarak da parametre de ekleyebilirsin sana kalmış. Hayırlı geceler.