Autoit De Bazı Exe Kodlara Ihtiyacım Var ?

[SimpsoN_Bart]

. Edited January 18, 2011 by SimpsoN_Bart

[djonur007]

[color="#000000"][b][font="Trebuchet MS"][size="2"] 1. Sorunun cevabı; değişkenleri local tanımlayarak, sık kullanılmayanları ram'den sildirebilirsin.
2. Sorunun cevabı; forumda bunlarla ilgili eklentiler var onları incele.
3. Sorunun cevabı; saat ve tarih yanlışsa direk olarak buton ile ayarlıyamazsın. Bir inputbox ile ayarlatabilirsin. [/size][/font][/b][/color]

Edited January 3, 2011 by djonur007

[SimpsoN_Bart]

ilgin için saol dostum ama istediğim gibi bulamadım aradıklarımı.. Dosyaları göster gizle yazmıstım ama dosyalara sağ tık için

If $Cmdline[0] <> 0 Then
$attrib="+H"
$hata=False
For $i=1 To $Cmdline[0]
If StringInStr(FileGetAttrib($Cmdline[$i]), "D") Then
If StringInStr(FileGetAttrib($Cmdline[$i]),"H") Then $attrib ="-H"
FileSetAttrib($Cmdline[$i], $attrib,1)
$dosyalarilistele=_FileFolderList($Cmdline[$i])
If Not @error Then
For $t = 1 To $dosyalarilistele[0][0]
$returnattrib=FileSetAttrib($dosyalarilistele[0][$t], $attrib)
If Not $returnattrib Then $hata=True
Next
EndIf
Else
If StringInStr(FileGetAttrib($Cmdline[$i]),"H") Then $attrib ="-H"
$returnattrib=FileSetAttrib($Cmdline[$i], $attrib)
If Not $returnattrib Then $hata=True
EndIf
Next
EndIf

Func _FileFolderList($path)
Dim $return[2][1000000]
If StringRight($path,1) <> "\" Then $path &="\"
$search = FileFindFirstFile($path & "*")
If @error = 1 Then SetError(2)
If Not StringInStr(FileGetAttrib ( $path), "D") Then Return SetError(1)

$afile = 0
$folder = 0
While 1
$file = FileFindNextFile($search)
If @error = 1 Then ExitLoop
If @extended = 1 Then
$folder += 1
$return[1][$folder]=$path & $file

Else
$afile += 1
$return[0][$afile]=$path & $file

EndIf
WEnd
FileClose($search)
$return[1][0]=$folder
$return[0][0]=$afile
ReDim $return[2][_Max($folder, $afile)+1]
Return $return
EndFunc ;==>_FileFolderList
Func _Max($nNum1, $nNum2)
If $nNum1 > $nNum2 Then
Return $nNum1
Else
Return $nNum2
EndIf
EndFunc ;==>_Max


bunu benim için düzenlermisin.. Bide aynısının uzantıyı göster gizle için yazarsan ii olur bunları auto it de istiyorum. forum istediğim gibi yok. dedim gibi tıkladığında tüm dosya ve klasörler acık sa kapalı kapalıysa acık olsun bunu istyorum ikisinde de

[blackman12]

1- http://www.tnctr.com/topic/146043-ythlemin-hafyza-kullanymyny-duthurmek/
2- bunu yapan dlller var dllcall ile bunu yaptırabilirsin
3- bu isteğini yapabilmek için güvendiğin bir saat sitesinden saati çekmelisin ve nereye ayarlanıyorsa artık oraya veriyi girmelisin.

[SimpsoN_Bart]

Cok saol üstad... ama Dllcal ı nasıl kullanacamı tam bilmiyorum onuda yazarsan cok ii olur...

[blackman12]

[code]$text = BinaryToString(InetRead('http://www.saatkac.com', 1))
$s_Start = StringRegExpReplace('<span id="hours1">', "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1")
$s_End = StringRegExpReplace("</span>", "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1")
$a = StringRegExp($text, "(?s)(?i)" & $s_Start & "(.*?)" & $s_End, 3)
$s_Start = StringRegExpReplace('<span id="minutes1">', "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1")
$b = StringRegExp($text, "(?s)(?i)" & $s_Start & "(.*?)" & $s_End, 3)
$tarihzaman = DllStructCreate("word Year;word Month;word Dow;word Day;word Hour;word Minute;word Second;word MSeconds")
DllStructSetData($tarihzaman, "Month", @MON)
DllStructSetData($tarihzaman, "Day", @MDAY)
DllStructSetData($tarihzaman, "Year", @YEAR)
DllStructSetData($tarihzaman, "Hour", $a[0])
DllStructSetData($tarihzaman, "Minute", $b[0])
DllStructSetData($tarihzaman, "Second", 0)
DllStructSetData($tarihzaman, "MSeconds", 0)
DllCall("kernel32.dll", "bool", "SetLocalTime", "ptr", DllStructGetPtr($tarihzaman))[/code]

ben saatkac.com'dan aldım veriyi ve buna göre ayarladım.

[SimpsoN_Bart]

süpersin blackman12 aradım bu yanlız şu konuda acıklık getirelim o gizli dosyaları göster uzantı programını da rica etsem lazım bana hem
öğrenmiş olacam kendimi geliştriyorum bi el at da yaz bu o prgramları da