SimpsoN_Bart Posted January 3, 2011 Share Posted January 3, 2011 (edited) . Edited January 18, 2011 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
djonur007 Posted January 3, 2011 Share Posted January 3, 2011 (edited) [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 Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 3, 2011 Author Share Posted January 3, 2011 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 Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 3, 2011 Share Posted January 3, 2011 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. Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 3, 2011 Author Share Posted January 3, 2011 Cok saol üstad... ama Dllcal ı nasıl kullanacamı tam bilmiyorum onuda yazarsan cok ii olur... Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 3, 2011 Share Posted January 3, 2011 [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. Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 3, 2011 Author Share Posted January 3, 2011 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.