Jump to content

Skorpion

Üye
  • Content Count

    76
  • Joined

  • Last visited

Community Reputation

2 Neutral

About Skorpion

  • Rank
    Azimli üye

Profile Information

  • Male

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Cok Tesekkür ederim arkadasim tam istedigim buydu fakat ben isin mantigini tam anlayamadim mesela ben senin düzenledigin kod ile birseyler degistirmeye calisdim bir klasör daha ekledim ve sadece portable isimli klasörün icine 2019 ve 2020 klasörünü olusturmak istedim sayilarla oynadim ama ya hepsine atiyor yada eksik klasör olusturuyor bana bu isin mantigini aciklarmisin acaba tek bir klasöre veya diyelim 8 tane klasör olusturdum bunlarin 2 ci ve 6 ci sirasindaki klasöre 2019 ve 2020 klasörünü nasil olusturabilirim Saygilar
  2. Selam asagadaki kod sayesinde bir klasör ve icine diger klasörleri aciyorum yanliz ben katilmsiz ve portable klasörlerinin icine 2 ser tane 2019 ve 2020 adinda klasör acmak istiyorum bunu nasil yapabilirim $text = "Programlar\" $user = "Katilimsiz\Portable\Program\" $array = StringSplit($user, '\', 2) For $i = 0 To UBound($array) - 1 DirCreate(@DesktopDir & '\' & $text & '\' & $array[$i]) Next
  3. Selam arkadaslar ben internetten 2 tane 2tb kapasiteli usb bellek aldim bunlara kopyalama yaptikdan sonra ici dolu olan klasörler bos görünüyor ama sadece klasörlerde oluyor bu normal bir filim veya program attigimda sorun yok ama atiyorum programlar klasörünü ve yaninda filim falan atiyorum kopyalamayi yapiyor yarim saat kadar sürüyor bittiginde klasörü aciyorum bos ama filim vs hersey duruyor bunun sebebi nedir usb exfat formatida ntfs ceviripde denedim sonuc ayni Saygilar
  4. 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
  5. nasil bulamadin kanal d nin sayfasinda hepsi var https://www.kanald.com.tr/arka-sokaklar/bolumler/arka-sokaklar-463-bolum
  6. 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
  7. 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
  8. 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
  9. 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
  10. Evet ondanmis süper calisdi cok tesekkür ederim arkadasim bir konu daha acmisdim masa üstü arka plani hakkinda onunda calismamama nedeni buymus
  11. 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
  12. Cok tesekkür ederim @SimpsoN_Bart , @Mehmet ikiside calisdi ilk basda mehmet arkadasinki calismamisdi benim autoit eski versiyonu imis yenisi ile harika oldu
  13. 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
  14. 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
  15. 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
×
×
  • Create New...