Jump to content

Skorpion

Üye
  • Content Count

    73
  • 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. 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
×
×
  • Create New...