Jump to content

Skorpion

Üye
  • Posts

    87
  • Joined

  • Last visited

Everything posted by Skorpion

  1. Cok tesekkür ederim ustam yarin is yerinde deniyecegim Efsanesin . Galiba kordinatlarla ilgili bir sorunum var sayfayi maximal boyuta alip denemeye calisacagim (bugün isler yogun oldugundan fazla zaman ayiramadim ) cok emek vermissin @nuh21tr arkadasim ugrastirdim seni Varol
  2. Selam Arkadaslar, ben almanyada bir is yerinde ustabasiyim ve bu aralar almanca bilmeyen cesitli ülkelerden isciler geliyor ben yeni ise baslayan kisilere pcde egitim vermem gerekiyor bende cözümü resimleri googletranslate ile tercüme etirmek ile buldum yanliz bunu biraz kolaylastirmak istiyorum her seferinde sayfayi kapatip diger resimi göstermek ugrastiriyor veya sirasini karistirabiliyorsun ben söyle birsey ypmak istiyorum desktopda egitim 1 adli klasörde 45 tane resim var bunlari bir skript ile sirayla web sayfasinda actirmak istiyorum https://translate.google.de/?sl=de&tl=tr&op=images bir tus ileri gidecek digeri geri böyle birsey yapmak mümkünmü acaba. Saygilar
  3. Selam Arkadaslar yedeksiz silinen whatsapp mesajlarını geri getirme gibi bir sansimiz varmi acaba herhangi bir programla oluyormu bir cok program denedim ama geri getiremedim Saygilar
  4. Selam ben yaklasik 10 senedir skrill kullaniyorum istersen online alisveris yapabilir istersen parani banka hesabina aktarabilirsin ayrica benim kendi skrill kredi kartim var(hesabinada para olursa kullanabilirsin )onunlada istedigin yerden alisveris yapabilirsin
  5. Selam Windows 10 baslat butonu degistirmek icin hangi dosyayi editlemek gerekiyor acaba bunu yapan programlar var ama ben editleyip kendim yapmak istiyorum eskiden xp de yapiyordum simdi tamamen unuttum nasil oldugunu bu windows 10 da mümkünmü
  6. Tabi https://dosya.co/y7tcx45n6s6a/setup.msi.html
  7. baslikda belirttigim gibi Msi Package Builder ile hazirlandi
  8. bu sekilde hic kurulum gerceklesmiyor @Motun arkadasim hepsini denedim kurulum bile gerceklesmiyor anlamadim gitti bu isi cmd deye start /wait Katilmsiz.msi yazsam bile katilmsiz kurulum gerceklesiyor fakat kurulum ekrani görünüyor
  9. Selam ben MSI Package Builder ile birkac katilimsiz program yaptim tabi bildiginiz gibi uzantisi msi normalde q veya qn pramentesi ile tam katilmsiz olamasi lagzim fakat bende kurulum katilmsiz gerceklesiyor ama ekranda kurulum görünüyor bunu nasil tam katilmsiz hale getirebilirim acaba umarim anlatabilmisimdir Saygilar
  10. Selam Benim sorunum flash bellekde autoit ile yazilmis programlar veya office windows cracklari bulunun dosyalar var bunu herhangi bir bilgisayara taktigimda windows defender veya virüs programlari bunlari siliyor bu dosyalarin silinmesini nasil engellerim acaba arastirdim ama net bir sonuc alamadim asagidaki gibi yapinca oluyor ama bu islemin yapildigi bilgisayarda oluyor baska bir bilgisayara takinca yine siliniyor cözümü varmidir bunun diskpart list disk select disk 1 attributes disk set readonly koruma attributes disk clear readonly koruma kapat
  11. Dircreate ile klasör acmasini biliyorum @nuh2ltr arkasimin dedigi gibi for döngüsü mantigini cözmek istedim ve harika anlatimi ile sagolsun mantigi anladim @nuh2ltr estafurullah kodlama konusunda üsdat oldugunuz belli ben az cok kendimce birseyler yapabiliyorum ama sizin yaninizdan bile gecemem yardimlarin icin tekrar cok tesekkür ederim Saygilar
  12. Cok Tesekkür ederim arkadasim harika anlatmissin isin mantigini anladim cok sagol
  13. 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
  14. 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
  15. 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
  16. 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
  17. 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
  18. 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
  19. 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
  20. 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
  21. Evet ondanmis süper calisdi cok tesekkür ederim arkadasim bir konu daha acmisdim masa üstü arka plani hakkinda onunda calismamama nedeni buymus
  22. 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
  23. Cok tesekkür ederim @SimpsoN_Bart , @Mehmet ikiside calisdi ilk basda mehmet arkadasinki calismamisdi benim autoit eski versiyonu imis yenisi ile harika oldu
  24. 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
  25. 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
×
×
  • Create New...