Jump to content

MostWanted

Emekli
  • Posts

    3255
  • Joined

  • Last visited

Everything posted by MostWanted

  1. "const" aslında memoryden fazla veya az kaplama ile alakalı bir durum değil."const"'un program yazımıyla ilgili bir çok yardımı var (mesela const yaptığın zaman hiç değiştiremezsin ve bu sana daha üst seviyelerde class tasarımında yardımı çoktur, başka bi yardımı anlamsız sayılar dediğimiz programlardaki sonradan bakılınca anlamını kolay anlayamayacağımız şeyler için kullanılır vs.).Ama memory ile ilgili bildiğim yardımı ki bu dilden dile derleyiciden derleyiciye göre bile değişir o değişmeze ulaşım hızını artırması yani boyut olarak bi değişiklik yok fakat hız olarak var ama tabi bu autoit için geçerli midir? Geçerli olsa bile ne kadar etkiler bunlar ayrı sorular.
  2. Çeviri için teşekkürler, gerçekten artık autoit epey güzelleşti.Fakat null ve ptr nin ne gereği vardı tabi sorgulanabilir.Sonuçta bu basit bi dil olarak kalması gerekiyordu hem dinamik memory allocation'ı zaten kullanıcıya bırakmıyor ama anladığım kadarıyla daha profesyonel kullanıcıların aradığı özellikleri eklemiş olabilirler, güzel olmuş.Bir de tam anlaşılmamış olabilir kanısıyla "?" operatörüne küçük bi örnek de ben vermek istiyorum:   $foo = $yukardabiyerdedegisken = "tnctr" ? "evet tnctr imiş." : "yok kardeş değilmiş."
  3. Biliyorum artık genelde kullanıcıların tarih ayarları doğru oluyor fakat herhangi bi kullanıcı hackini engellemek istiyorsan (yani trial yapmak için falan kullanıyorsan aşağı da verdiğim kod internet varsa tarih bilgisini ordan alıyor tabiki biraz yavaş oluyor ama daha güvenilir. #include <String.au3> MsgBox(0,"",_Bugun()) 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], ""),8)+$gun $hangiyil=StringStripWS($ayir1[3],8) 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
  4. Tam cevap yazacam devamını okuyorum Kintaro zaten diyeceklerimi yazmış.Gençlik bu paranoyaklığı bırakın lütfen.
  5. Biliyorum okumayacaksın (ödevini yapması için internette birisini aradığına göre) ama gerçekten güzel bi kaynak diyebileceğim ve herkesin okuması gereken bi kitap var. http://www.onergurcan.org/Mete%20Dural%20Kitapligi/METE/Modernlesen%20Turkiye'nin%20Tarihi.pdf
  6. Bu konu "Donanım" forumundan "Sistem / Donanım Tavsiyeleri" forumuna taşınmıştır.
  7. Takıldığın yer neresi?İndirtme yapamıyorsun tamam fakat neyi denedin de olmadı.Şu anda çok farazi kalıyor bu soru.
  8. Bu konu "Yazılım" forumundan "Oyun Hataları-Sorunları" forumuna taşınmıştır.
  9. Devlet olsak vergi verseniz anlarım, yaptğınız bi hizmet karşılığında bunu isteseniz anlarım da ben sizi hiç anlayamadım.
  10. blackman bize paylaşım yapsana, yapsana, yapsana :D
  11. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Form = GUICreate("Adres kontrol", 429, 216) $siteurl = GUICtrlCreateInput("", 120, 72, 169, 21) $Label2 = GUICtrlCreateLabel("Örnek:http://tnctr.com", 120, 40, 167, 20) $varmiyokmu = GUICtrlCreateButton("varmı yokmu", 108, 160, 195, 33) $Input1 = GUICtrlCreateInput("", 64, 110, 337, 21) $Label3 = GUICtrlCreateLabel("Adres", 16, 112, 31, 17) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $varmiyokmu $sURL = GUICtrlRead($siteurl) $linkontrol = StringRegExp($sURL, "(http|https):\/\/(\w+:{0,1}\w*@)?(\S+)(:[0-9]+)?(\/|\/([\w#!:.?+=&%@!\-\/]))?") if $linkontrol then $isExist = HttpGet($sURL, "/eğitim") ;eğitimden başka bişi aramak istiyorsan burayı değiştir if $isExist Then GUICtrlSetData($Input1, GUICtrlRead($siteurl) & "/egitim") Else GUICtrlSetData($Input1, "Böyle bir url yok") Endif Else MsgBox(0, "Hata", "Girdiğiniz url geçerli değil!") EndIf EndSwitch WEnd Func HttpGet($sURL, $sPath = "") Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1") if StringLeft($sPath, 1) <> "/" then $sPath = "/" & $sPath $oHTTP.Open("GET", $sURL & $sPath , False) If (@error) Then Return SetError(1, 0, 0) $oHTTP.Send() If (@error) Then Return SetError(2, 0, 0) If ($oHTTP.Status = 200) Then Return True Return False EndFuncKod gayet güzel çalışıyor fakat şöyle bi açığı var şimdiden görebiliyorum.Diyelim ki server çöktü veya herhangi bi nedenden dolayı o sayfaya ulaşılamazsa da bu kod "böyle bi link yok" diye dönecek.Bunu ;   If ($oHTTP.Status = 200) Then Return Truesatırını   If ($oHTTP.Status <> 404) Then Return Trueyaparak çözebilirsin.Ancak bu sefer de diyelim ki sayfa yok ama server da problem varsa kod o sayfa var diye dönecektir.Neyse çok önemli bir şey olmadığını varsayarak o durumları yoksaydım.Kısaca bağlantı da veya server da sorun yoksa bu kod çalışır :) . (Bu arada bu çocuk beni azarladı sonra gitti http get kullandı demeyesin diye not düşeyim, objeyi olutşturmadan önce http kullanmışsın ve copy paste yaptığın çok belli oluyordu çünkü en az bi kere çalıştırsan compile bile olmadığını görecektin.)
  12. $HTTP.Open("GET", $siteurl)gibi kullanımı neye göre yaptın açıkçası anlayamadım?Yapmak istediğin şeyi de açıkçası anlayamadım.Eğer girilen şey url değil mi diye anlamak istiyorsan şöyle bi kalıp kullanabilirsin. $a = StringRegExp($sURL, "(ftp|http|https):\/\/(\w+:{0,1}\w*@)?(\S+)(:[0-9]+)?(\/|\/([\w#!:.?+=&%@!\-\/]))?")eğer url ise 1 döner değilse 0.
  13. Dostum yanlış anlamazsın umarım ama kişisel bir şey olsa yine yardım edeceğim fakat bu kadar büyük kurumsal bi olayı bırak da şirket gereken yerlere fiyatını ödeyerek yaptırsın.İlla yapacağım dersen sana burda yardımcı olacak bir sürü insan bulursun zaten (umuyorum).
  14. Sınır gördüğünüz gibi çok üstlerde.Bir arkadaşım için oyun bilgisayarı toplayacağız.Önerilerinizi almak istedim.
  15. http://www.hepsiburada.com/liste/logitech-driving-force-gt-direksiyon-941-000021-/productDetails.aspx?productId=oyunlog008793&categoryId=1200698 Böyle fiyata en iyisi bu. (Ben aldığımda 100 lira daha ucuzdu gerçi :) )
  16. 1- Euro Truck Simulator 2 (Avrupanın tozunu attırmışımdır direksiyon setiyle ayrı bi güzel) 2- Total War Rome II (Dünyayı fethetmeme az kaldı :) ) 3- NBA 2k14 (Artık sınıfının lideri bahsetmeye gerek yok)
  17. Bu konu "Sistem / Donanım Tavsiyeleri" forumundan "Sohbet-Chat" forumuna taşınmıştır.
  18. Reyiz gibi şu anda örnek yapmaya uğraşamyacağım (çıkmam gerekiyor) ama Send("{SPACE down}") senin istediğin şey.
  19. Sen cmd'ye yazı yazdıramıyorum demiştin.Kullandığın programın parametresi var mı?
  20. Aslında oluyor, hangi sürümü kullanıyorsunuz?
  21. Yapılabilir tabi, fakat iş karmaşıklacağı için böyle kolay bi yol seçtim.
  22. Dosyayı düzenleyerek ekte sundum. $PROGRESS_HIZI diye bi değişmez koydum programın başına.Şu anki değeri 0.7 bunu düzenleyerek istediğin hızı elde edebilirsin.Daha sonrakodu compile ettikten sonra kendi scriptinde runwait komutuyla beraber kullanırsın sonrada artık neyi çalıştıracaksan onu çalıştırıp yoluna devam edersin. http://rapidshare.com/share/FF0AEE129DB75C7F4CF71DE8E0C8F8CF
  23. Sen örnek ver ki biz de onu düzeltelim.Şu anki yapacağım şey senin hali hazırda bulunan kodunu while içine alıp bi tanede çıkış komutu eklemek olacaktır.
×
×
  • Create New...