Jump to content
TNC-TR

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. Skorpion

    Arka Sokaklar (2013)

    nasil bulamadin kanal d nin sayfasinda hepsi var https://www.kanald.com.tr/arka-sokaklar/bolumler/arka-sokaklar-463-bolum
  3. Skorpion

    Sendto Kalsörüne Kisayol Atmak

    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. Skorpion

    Cikis Butonu Calismiyor

    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. Skorpion

    Klasör Symbol Degistirmek

    Evet ondanmis süper calisdi cok tesekkür ederim arkadasim bir konu daha acmisdim masa üstü arka plani hakkinda onunda calismamama nedeni buymus
  8. Skorpion

    Arkaplan Degistirme Kod Hatasi

    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. Skorpion

    Klasör Symbol Degistirmek

    Cok tesekkür ederim @SimpsoN_Bart , @Mehmet ikiside calisdi ilk basda mehmet arkadasinki calismamisdi benim autoit eski versiyonu imis yenisi ile harika oldu
  10. Skorpion

    Arkaplan Degistirme Kod Hatasi

    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. Skorpion

    Klasör Symbol Degistirmek

    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. Skorpion

    Ekran Pozisyonu

    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. Skorpion

    Windows Güncellemeleri Kapatmak

    o programi kullandigimi yazmisdim zaten zorunlu güncellemelerde ise yaramiyor
  14. Skorpion

    Windows Güncellemeleri Kapatmak

    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. Skorpion

    Programfilesdir X86 Yolu

    denedim fakat olmadi
×