Jump to content
TNC-TR

Skorpion

Üye
  • Content Count

    73
  • Joined

  • Last visited

Everything posted by Skorpion

  1. Dialog ekran boyutunu degistirmek Selam Arkadaslar sizlere sorum benim projemde 1 tane dialog var boyutunu 350x250 olarak ayaraladim benim istedigim bir butona tiklayip dialog boyutunu 300x400 olarak degistirmek bu mümkünmüdür acaba arastirmalarimdan bir sonuc alamadim
  2. nasil bulamadin kanal d nin sayfasinda hepsi var https://www.kanald.com.tr/arka-sokaklar/bolumler/arka-sokaklar-463-bolum
  3. SendTo kalsörüne kisayol atmak Selam arkadaslar ben SendTo kalasörüne birkac tane kisayol atmak istiyorum internetten arastirdim ama denemelerim basarisiz oldu blulife arkadasimizin hazirladigi fileinstall recorder ilede denedim kisayollari bir türlü SendTo klasörüne atamadim _BL_FILE_INSTALL(@AppDataDir & "\Roaming\Microsoft\Windows\SendTo") Func _BL_FILE_INSTALL($NEREYE = @TEMPDIR,$UZERINI_YAZ = 1) If StringRight($NEREYE, 1) <> "\" Then $NEREYE &= "\" If $UZERINI_YAZ > 1 Or $UZERINI_YAZ < 0 Then $UZERINI_YAZ = 1 FileInstall("2.lnk",$NEREYE & "2.lnk",$UZERINI_YAZ) FileInstall("3.lnk",$NEREYE & "3.lnk",$UZERINI_YAZ) EndFunc
  4. windows Denetim Masası /Tüm Denetim Masası Öğeleri actirmak Selam arkadaslar konu basliginda hata varsa kusura bakmayin yurt disinda yasadigim icin türkce terimleri pek bilmiyorum dilim döndügünce istedigimi yazmaya calisayim ben autoit ile Denetim Masası \ Tüm Denetim Masası Öğeleri \ Kurtarma konumunu actirmak istiyorum yani scripti tiklayinca bu sayfa acilacak bunu nasil yapabilirim ShellExecute("explorer.exe", "Systemsteuerung\Alle Systemsteuerungselemente\Wiederherstellung") denedim olmadi umarim anlatabilmisimdir Saygilar
  5. Cikis butonu calismiyor Selam arkadaslar neden bu scripde cikis butonu calismiyor cözemedim bir türlü #include <GUIConstantsEx.au3> #Include <GuiListBox.au3> #include <ListviewConstants.au3> #include <WindowsConstants.au3> ;---------------------------------------------------------------------------------------------------- $Daten_Pfad1 = "Daten.ini" ;---------------------------------------------------------------------------------------------------- Global $GUI_01_Button_01 ;---------------------------------------------------------------------------------------------------- $GUI_01 = GUICreate ("Telefonnummern", 500, 600, -1, -1, 0x80000000) $GUI_01_List_01 = GUICtrlCreateListView ("Nachname|Vorname|Telefonnummer|Ort|Geburtstag", 5, 5, 490, 965, 0x8014, 0x00090121) $GUI_01_Button_01 = GUICtrlCreateButton ("Exit", 5, 475, 490, 20) GUISetBkColor (0x000000, $GUI_01) GUISetState (@SW_SHOW, $GUI_01) Sleep (500) ;---------------------------------------------------------------------------------------------------- _Daten () ;---------------------------------------------------------------------------------------------------- While True Switch GUIGetMsg () Case $GUI_01_Button_01 Exit EndSwitch WEnd ;---------------------------------------------------------------------------------------------------- Func _Daten () $INI_Read_Section_01 = IniReadSection ($Daten_Pfad1, "Daten") For $Stk = 1 To $INI_Read_Section_01[0][0] $INI_Daten_01 = IniRead ($Daten_Pfad1, "Daten", $INI_Read_Section_01[$Stk][0], "ERROR") $INI_Daten_02 = StringSplit ($INI_Daten_01, ",") $INI_Daten_03 = $INI_Daten_02[1] & " | " & $INI_Daten_02[2] & " | " & $INI_Daten_02[3] & " | " & $INI_Daten_02[4] & " | " & $INI_Daten_02[5] GUICtrlCreateListViewItem ($INI_Daten_03, $GUI_01_List_01) Next EndFunc
  6. Skorpion

    Lotto

    Lotto Selam dostlar sizlerden bir istegim var burdan bir tane lotto icin bir script buldum 6 numara sorunsuz oluyor fakat ben 6 numara ve asagi kisima iki kutucuk daha 0 dan 10 kadar sayi atmasini istiyorum denedim fakat basarili olamadim sizlerden ricam bunu benim icin ayarlayabilirmisiniz acaba ;Coder By SimpsoN_Bart Global $_BUTTON = False Local $GUI = GUICreate("Lotto", 240, 100) Local $LABEL = GUICtrlCreateLabel("7 Nummer ", 15, 10) Local $GENERATE = GUICtrlCreateButton("Zahlen", 10, 30, 100, 20) Local $EXIT = GUICtrlCreateButton("Schließen", 130, 30, 100, 20) Global $I[6] For $N = 1 To 6 $I[$N - 1] = GUICtrlCreateInput("", 10 + 35 * ($N - 1), 60, 30, 20, 10) Next GUISetState() While 1 $MSG = GUIGetMsg() Select Case $MSG = -3 Or $MSG = $EXIT Exit Case $MSG = $GENERATE If $_BUTTON = False Then $_BUTTON = True Else $_BUTTON = False EndIf If $_BUTTON = True Then GUICtrlSetData($GENERATE, 'Stop') AdlibRegister('_SK_RANDOM_NUMBER', 50) EndIf If $_BUTTON = False Then GUICtrlSetData($GENERATE, 'Zahlen') AdlibUnRegister('_SK_RANDOM_NUMBER') EndIf EndSelect WEnd Func _SK_RANDOM_NUMBER() For $N = 1 To 6 GUICtrlSetData($I[$N - 1], Random(1, 49, 1)) Next EndFunc ;==>_SK_RANDOM_NUMBER
  7. Evet ondanmis süper calisdi cok tesekkür ederim arkadasim bir konu daha acmisdim masa üstü arka plani hakkinda onunda calismamama nedeni buymus
  8. ahh ah hep bu üsengencligimden kaynaklaniyormus eski sürüm autoit yüklü oldugu icin calismiyormus simdi hemen oturup ne kadar program varsa hepsini güncelleyecegim yardimlariniz icin cok tesekkür ederim sagolun
  9. Cok tesekkür ederim @SimpsoN_Bart , @Mehmet ikiside calisdi ilk basda mehmet arkadasinki calismamisdi benim autoit eski versiyonu imis yenisi ile harika oldu
  10. Arkaplan degistirme kod hatasi Selam arkadaslar bir script var bununla önceden masaüstü arka plani sorunsuz degistiriyordum yanlislikla biryerinimi degistirdim naptim simdi calismiyor hata nerede acaba bakabilirmisiniz #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\test2.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Dim $favDir = @MyDocumentsDir & "\Wall\" Dim $cCounter = 0 Dim $FindFile = FileFindFirstFile($favDir & '*.bmp') While 1 FileFindNextFile($FindFile) If @error Then ExitLoop $cCounter = $cCounter + 1 WEnd FileClose($FindFile) $FindFile = FileFindFirstFile($favDir & '*.bmp') Dim $RandomNum = Random(1, $cCounter, 1) Dim $curFile For $i = 1 To $RandomNum $curFile = FileFindNextFile($FindFile) If $RandomNum = $i Then ChangeDesktopWallpaper($favDir & $curFile) ExitLoop EndIf Next FileClose($FindFile) Exit Func ChangeDesktopWallpaper($bmp) ;=============================================================================== ; Usage: _ChangeDesktopWallPaper(@WindowsDir & '\' & 'zapotec.bmp') ; Parameter(s): $bmp - Full Path to BitMap File (*.bmp) ; Requirement(s): None. ; Return Value(s): On Success - Returns 0 ; On Failure - -1 ;=============================================================================== If Not FileExists($bmp) Then Return -1 ;The $SPI* values could be defined elsewhere via #include - if you conflict, ; remove these, or add if Not IsDeclared "SPI_SETDESKWALLPAPER" Logic Local $SPI_SETDESKWALLPAPER = 20 Local $SPIF_UPDATEINIFILE = 1 Local $SPIF_SENDCHANGE = 2 Local $REG_DESKTOP= "HKEY_CURRENT_USER\Control Panel\Desktop" ;Don't tile - just center RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 0) RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", 0) RegWrite($REG_DESKTOP, "Wallpaper", "REG_SZ", $bmp) DllCall("user32.dll", "int", "SystemParametersInfo", _ "int", $SPI_SETDESKWALLPAPER, _ "int", 0, _ "str", $bmp, _ "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE)) Return 0 EndFunc;==>_ChangeDestopWallpaper
  11. Klasör symbol degistirmek Selam arkadaslar ben autoit ile belirli bir klasörün symbolünü degistirmek istiyorum bir tane scrip buldum fakat bunda kalasörü secmelisin symbolu secmelisin benim istedigim mesela 1 adli bir klasörüm var birde 22.ico iconum var ben scripte tikladigimda otomatik olarak 1 adli klasörüme 22.ico adli symbolu ekleyecek buldugum kod söyle $folder = FileSelectFolder("Choose folder...", "") If @error Then Exit $ico = FileOpenDialog("Select a file...", "", "Icon contains files (*.ico;*.exe;*.dll)", 1) If @error Then Exit IniWriteSection($folder & "\" & "Desktop.ini", ".ShellClassInfo", _ "IconFile=" & $ico & @LF & _ "IconIndex=0" & @LF & _ "InfoTip=AutoIt RULEZZZ!") FileSetAttrib($folder & "\" & "Desktop.ini", "+H") FileSetAttrib($folder, "+R") Tesekkürler
  12. Ekran Pozisyonu Selam arkadaslar kendime ufak bir proje hazirladim fakat ben acilisda pencerenein sag asagida acilmasini istikyorum sanirim Window.SetPosition ile oluyormus cok aradim denedim fakat hicbiri ise yaramadi pencerenin sag asagida acilmasini nasil saglarim acaba Tesekkürler
  13. o programi kullandigimi yazmisdim zaten zorunlu güncellemelerde ise yaramiyor
  14. Windows güncellemeleri kapatmak Selam arkadaslar benim sorunum windows güncellemeleri Blulife arkadasin hazirladigi Windows Update Blocker v1.1 2 ay öncesine kadar ise yariyordu simdi zorunlu güncellemeler cikdi basimiza manuel olarak görev planlamasından engelliyorum fakat birkac gün sonra tekrar kendi kendini aktif edip güncellememleri indirip yüklemeye calisiyor hasta ediyor beni bu güncellememeler bunu daimi olarak nasil kaldirabilirim hic bir sekilde güncelleme yapmasin
  15. ProgramFilesDir x86 yolu Selam ben blulife ustanin hazirladigi file instal recorder ile kopyalama gerceklestirmek istiyorum fakat sorunum kopylama yapacagim dosya ProgramFilesDir x86 da buna göre asagidaki scripti nasil düzenlemem gerekiyor Tesekkürler _Buton_FILE_INSTALL(@ProgramFilesDir & "\My Program")
  16. selam arkadaslar acer marka dizüstü bilgisayar aldim (almaz olaydim ) benim aldigim bu bilgisayrda windows 10 yüklü ben windows 7 yüklemek istedim biosdan ayarlari yapiyorum tam yükleme baslayacakken donup kaliyor defalarca denedim bu sefer dedim hadi win 10 pro yükleyim ondada yüklemeye basliyacagi sirada driver leri istedi usb den taktim yerini gösterdim dirverleri tanimiyor bu acer benim öldürecek nerden aldiysam bunu kizima gecen sene samsung aldim sifir sorun her seyi yapabiliyorsun nasil birsey bu anlamadim gitti markasi acer aspire es 15 Saygilar
  17. Kusura bakmayin acmelikden sanirim ama benim indirigim dosyada install.wim yok win7 yi sources kalsörüne bir türlü atamadim
  18. linkler gitmis yenisini ekliyebilirmisiniz
  19. @blue_life 2 gündür konularini inceliyorum bende bir multiboot yapaya karar verdim anlatimlariniz cok iyi fakat acemice bir soru sormam gerekiyor mesela ben partition magic programini multiboota aticam bunu iso yapmam gerekyior sanirim programme files deki partition magic klasörünün iceriginimi isoya cevirmem gerekiyor Saygilar
  20. Skorpion

    ProBox AI v1.1

    Programlar nasil ekleniyor acaba sürkle birakla olmuyor
×
×
  • Create New...