Skorpion

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

 

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

 

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

 

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

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ü

MOTUN, 1 dakika önce yazdı:

hazırladığınız msi örneğini atsanız da denesek

Tabi

https://dosya.co/y7tcx45n6s6a/setup.msi.html

senyor3, 2 dakika önce yazdı:

Kullandığınız programdan ötürüdür büyük ihtimalle.

baslikda belirttigim gibi Msi Package Builder ile hazirlandi

senyor3, 11 dakika önce yazdı:

"/quiet /norestart" tam parametre bu oluyor. Kullandığınız programın full sürüm olduğundan emin olun. Demo vs ise özellikler kapalıdır.

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

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

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

 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

 

 

Cok Tesekkür ederim arkadasim harika anlatmissin

isin mantigini anladim cok sagol

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

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

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

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

 

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

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

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

 

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

 

Evet ondanmis süper calisdi cok tesekkür ederim arkadasim

bir konu daha acmisdim masa üstü arka plani hakkinda onunda calismamama nedeni buymus 

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

Cok tesekkür ederim @SimpsoN_Bart ,  @Mehmet  ikiside calisdi

ilk basda mehmet arkadasinki calismamisdi benim autoit eski versiyonu imis yenisi ile harika oldu

 

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

 

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