Jump to content

MostWanted

Emekli
  • Posts

    3255
  • Joined

  • Last visited

Everything posted by MostWanted

  1. Bu konu "Windows Vista" forumundan "Program-Appz - Ebook İstek" forumuna taşınmıştır.
  2. [font=consolas]Bu gün sizlere autoitte kullanmadığımız fonksiyonlardan nasıl kurtulacığımızı anlatacağım.[topic=197064]Bu konuda[/topic] ilgili bi sorun çıkmıştı ve bende araştırma yaptım.Autoit kütüphaneleri ile ilgili gerçek şu ki siz bir kütüphaneyi koyduğunuzda gerekli gereksiz tüm fonksiyonları içine alır.Sayın @blackman12 bu konuda haklı imiş Bu size scriptinize gereksiz yere bir yoğunluk ve hantallık kazandırır.Fakat bunu engellemenin de bir yolunu bulduk.Şimdi o yolu açıklayalım; İlk önce scriptinizi Compile etmek için Ctrl + F7 ye basıyoruz.Sonra; [img]http://i.imgur.com/gl2we.png[/img] şekilde görüldüğü gibi /striponly yazıyoruz.Eğer sadece include dosyalarımızı temizlemek istiyorsan /striponlyincludes yazıyor.Sonra istediğiniz ikonu falan gibi ayarları yaptıktan sonra karşınızda tertemiz bir program çıkacaktır.Son olarakta obfuscator temizlediği scripti _obfuscated ekiyle beraber hemen scriptimizin yanına kaydediyor. İyi kodlamalar...[/font]
  3. Laptopunda sorun olabilir mi?Onu başka modemle denedin mi?
  4. [codebox]#include <String.au3> Func _Bugun() Dim $aylar[12]=["January", "February", "March","April","May","June","July","August","September","October","November","December"] $ping=Ping("www.google.com") ;~ MsgBox(0,"", @error) If $ping Then $don=_StringBetween(_INetGetSource("http://nist.time.gov/timezone.cgi?Eastern/d/-5"),'color',"<br>") $gun=0 for $i=0 To UBound($don)-1 If StringLeft($don[$i],9) = '="white">' Then If StringInStr(StringTrimLeft($don[$i],9), ":") Then $ayirtime=StringSplit(StringTrimLeft(StringTrimLeft($don[$i],9),3), ":") If Number($ayirtime[1]) > 17 Or Number($ayirtime[1]) = 17 Then $gun=1 EndIf Else $hangiay=0 $ayir1=StringSplit(StringTrimLeft($don[$i],9),",") For $i=0 To 11 If StringInStr($ayir1[2], $aylar[$i]) Then $hangiay=$i+1 $hangigun=StringStripWS(StringReplace($ayir1[2], $aylar[$i], ""),+$gun $hangiyil=StringStripWS($ayir1[3], EndIf Next Return $hangiyil&"/"&$hangiay&"/"&$hangigun EndIf EndIf Next Else Return @YEAR & "/" & @MON & "/" & @MDAY EndIf EndFunc Func _INetGetSource($s_URL, $bString = True) Local $sString = InetRead($s_URL, 1) Local $nError = @error, $nExtended = @extended If $bString Then $sString = BinaryToString($sString) Return SetError($nError, $nExtended, $sString) EndFunc ;==>_INetGetSource[/codebox] Üstte yazdığım _Bugun() fonksiyonu eğer internet varsa ilgili web sitesine bağlanıp tarihi alıyor.Fakat internet bağlantısı yoksa bilgisayarın tarihi dönüyor.Ha sadece internetten tarihi aldırmasını istiyorsan Return @YEAR & "/" & @MON & "/" & @MDAY bu kısmı return False yaparsın.Ona göre internet bağlantınız yok programı açamazsınız gibi bişi yaparsınız.Trial kavramı için alttaki örneği inceleyebilirsin. http://www.tnctr.com/topic/146006-30-gun-trial-program/
  5. Bu konu "Yazılım" forumundan "Katılımsız Kurulum Destek" forumuna taşınmıştır.
  6. \t tab \b (tam emin değilim) boşluk .Diğerleri gereksiz.
  7. Sol altta arama kipini "Uzatılmış" seçip değişecek metine "." , değiştirilecek metine \r\n girersen istediğin olur sanırım.
  8. Nasıl olayı tartışmaya getiriyorsunuz bilmiyorum.İki dakka eğlenin makarısına yazılmış bişiyi de ciddiye almayın.
  9. Haber 2012 video yüklenme tarihi 2011.Editör yapacak bişi bulamayınca youtube da video avına çıkmış anlaşılan.
  10. Aslında autoit yapımcısına bunu sormak lazım.
  11. Yanlış mı sayıyorum bilmem ama o cümlede 6 tane sesli harf var sanki?
  12. Ve bunu diyen adam da compiler ın include dosyasında sadece gerekli yeri aldığını bilmez.En azından C de öyle ve autoit de c tabanlı olduğuna göre susuyorum.
  13. Windows zaten linuxtaki ekran yakalayıcısını da kopyalamıştı.Gördün mü?
  14. Zorunlu değil diyen arkadaşlara bakmayın C dersinde canınızı okurlar bu yüzden ama tabi size gerek yok
  15. Çocuklar iki dakka eğlencek şurda tadı damaklarında kaldı resmen ayıp ayıp
  16. Bu konu "Sohbet-Chat" forumundan "Yazılım" forumuna taşınmıştır.
  17. İlk önce dikkat etmemişim zaten kodları yanlış yazmışızsınız onları düzeltmek gerekiyor.İkincisi ise yolladığım autoit editörüdür.Siz autoit programını yüklemiş olabilirsiniz ama bu parça olmadan eksik olacaktır.Bunun da kesin yüklü olduğuna emin misiniz?Çünkü kodlarda hata yok. [codebox]FileInstall("WinRAR4.1x64.exe",@TempDir & "WinRAR4.1x64.exe") FileInstall("WinRAR4.1x86.exe",@TempDir & "WinRAR4.1x86.exe") FileInstall("rarreg.key",@TempDir & "rarreg.key") FileInstall("rar.lng",@TempDir & "rar.lng") FileInstall("rarext.lng",@TempDir & "rarext.lng") FileInstall("uninstall.lng",@TempDir & "uninstall.lng") FileInstall("winrar.lng",@TempDir & "winrar.lng") If @OSArch = "X86" Then ShellExecuteWait(@TempDir & "WinRAR4.1x86.exe","/s") FileCopy(@TempDir & "winrar.lng",@ProgramFilesDir & "\WinRAR\winrar.lng",1) FileCopy(@TempDir & "uninstall.lng",@ProgramFilesDir & "\WinRAR\uninstall.lng",1) FileCopy(@TempDir & "rarext.lng",@ProgramFilesDir & "\WinRAR\rarext.lng",1) FileCopy(@TempDir & "rar.lng",@ProgramFilesDir & "\WinRAR\rar.lng",1) FileCopy(@TempDir & "rarreg.key",@ProgramFilesDir & "\WinRAR\rarreg.key",1) TrayTip("WinRAR 4.10 Beta 5 TR (x86) Kurulumu Tamamlandı!",5,4) Sleep(3000) Else ShellExecuteWait(@TempDir & "WinRAR4.1x64.exe","/s") FileCopy(@TempDir & "winrar.lng",@HomeDrive & "\Program Files\WinRAR\winrar.lng",1) FileCopy(@TempDir & "uninstall.lng",@HomeDrive & "\Program Files\WinRAR\uninstall.lng",1) FileCopy(@TempDir & "rarext.lng",@HomeDrive & "\Program Files\WinRAR\rarext.lng",1) FileCopy(@TempDir & "rar.lng",@HomeDrive & "\Program Files\WinRAR\rar.lng",1) FileCopy(@TempDir & "rarreg.key",@HomeDrive & "\Program Files\WinRAR\rarreg.key",1) TrayTip("WinRAR 4.10 Beta 5 TR (x64) Kurulumu Tamamlandı!",5,4) Sleep(3000) EndIf FileDelete(@TempDir & "WinRAR4.1x86.exe") FileDelete(@TempDir & "rarreg.key") FileDelete(@TempDir & "rar.lng") FileDelete(@TempDir & "rarext.lng") FileDelete(@TempDir & "uninstall.lng") FileDelete(@TempDir & "winrar.lng") Sleep(100)[/codebox]
  18. Google Chrome ile Internet Explorer ne alaka?
  19. http://www.autoitscript.com/cgi-bin/getfile.pl?../autoit3/scite/download/SciTE4AutoIt3.exe Bunu yükleyince düzeleceğini düşünüyorum.
  20. Yazıcını taktığın usb gözüne kendi flash belleğini taktığın zaman çalışıyor mu?Çalışmıyorsa flash belleğin hasar görmüştür.WebCam sorunu ise demek istediğiniz driver olmalı sanırım.Onunla ilgili yapılması gereken aygıt yöneticisinden doğru yüklenip yüklenmediği eğer doğru yüklenmişse ya usb yerinde arıza vardır ya da webcamin kendisinde.
  21. Bu konu "TnCXP Sp3 Soru ve Problemler" forumundan "Katılımsız Kurulum Destek" forumuna taşınmıştır.
  22. Dediğin işlemler burda; http://en.wikipedia.org/wiki/Methods_of_computing_square_roots Fakat gecenin 3 ünde ne bunları çevirmekle uğraşacağım içim ne de çocuğun işine yaramadığı için vermedim İşine yarayacağı seri yukarda zaten.Yapsın bulsun ne yapalım.
  23. Şimdi baktım da vikipedia da şu makaleyi gördüm. http://en.wikipedia.org/wiki/Square_root_of_2 Burda genellikle kullanılan algoritma aşağıdaki gibiymiş. [img]http://upload.wikimedia.org/wikipedia/en/math/4/6/4/464b434e09739f052d56f44ee3e50a2c.png[/img] Yani şöyle, ilk önce 1 veriyosun bulduğun değer 3/2, sonra o değeri tekrar fonksiyonda yazıyorsun (3/2)/+1/(3/2) bu da 17/12 sonra onu tekrar yazıyosun.Ne kadar ilerletirsen gerçek sonuca o kadar yaklaşırsın.Bilgisayarda programlamak için long double ın yeteceğini sanmıyorum.Bunlar için özel geliştirilmiş bi metod vardır ama ben bilmiyorum ne yazık ki.
  24. Kodlar arasında bir fark yok, sen çalıştırdıktan sonra sildirmişsin.Flood olayına gelince flood ard arda mesaj atmak demektir.
  25. Bak canım arkadaşım flood yapmak yasaktır, bu yüzden önceki yorumunu silmiştim fakat devam ediyorsun, buna dikkat et.Sorununa gelince herhangi bir hata göremiyorum, ilgili programı alıp deneme yapmak gerekiyor.
×
×
  • Create New...