Amilo Posted April 21, 2012 Share Posted April 21, 2012 (edited) beyler ben daha önce bir kod istemiştim ve verdiniz kodu kendime göre editledim Global $Title = _Read_Data("http://www.sitem.com.tr/deneme.txt") WinWait($Title) ProcessClose("Script.exe") Func _Read_Data($Link) Local $sData = InetRead($Link,1) If @error = 0 Then Return BinaryToString($sData) Else Return SetError(1,0,"") EndIf EndFunc ______ WinWait($Title) Yaptım Ama Sitedeki .txt Den Sadece Üsttekini Alıyor Alttakileri Okumuyor :S Nasıl Alttakileride okutabilirim Edited April 21, 2012 by Amilo Quote Link to comment Share on other sites More sharing options...
blackman12 Posted April 21, 2012 Share Posted April 21, 2012 _read_data fonksiyonunu görmemiz gerekli. return olarak handle döndüğünü sanmıyorum o fonksiyondan dolayısıyla winwait komutunda tıkanma olacaktır. Quote Link to comment Share on other sites More sharing options...
blue_life Posted April 22, 2012 Share Posted April 22, 2012 @Amilo deneme.txt dosyasının içeriği ve içerikteki bilgiyi tam olarak nasıl kullanmak istediğine dair bilgi vermelisin. Quote Link to comment Share on other sites More sharing options...
Amilo Posted April 22, 2012 Author Share Posted April 22, 2012 @blue_life Deneme.txt Benim istedigim Winwait İsimleri Var Ama Program Sadece En Üstteki İsimi Okuyor Yazdıgım Diğer İsimleri okumuyor Ben İstiyorumki alt alt yazıcam yazdıklarımdan biri winwait olunca program kapatılcak Quote Link to comment Share on other sites More sharing options...
blackman12 Posted April 22, 2012 Share Posted April 22, 2012 aa pardon ya sen fonksiyonu vermişsin zaten ben görmemişim. buyur anladığım kadarıyla yaptım: [code];~ #include <Array.au3> Global $Title = _Read_Data("http://blackman12.zzl.org/version.txt") ;~ _ArrayDisplay($Title) for $T in $Title $T = StringReplace($T,@CR,"") if WinExists($T) Then MsgBox(0,"Buyur:","Bu Pencere var: "&$T) Next Func _Read_Data($Link) Local $sData = InetRead($Link) ;~ $sdata = FileRead(@DesktopDir&"\a.txt") If @error = 0 Then $sdata = BinaryToString($sData) $ayir = StringSplit($sdata,@LF) Return $ayir Else Return SetError(1,0,"") EndIf EndFunc[/code] Quote Link to comment Share on other sites More sharing options...
daft117 Posted April 29, 2012 Share Posted April 29, 2012 alt alta yazdığın pencere isimlerini array'a atman gerekli parçalayıp. daha sonra döngülerle tek tek işlem yapıcaksın blackman12 sanırım kodunda eksik var. $ayir = StringSplit($sdata,@LF) StringSplit($sdata,@CRLF,1) olması gerekmez mi? muhtemelen notdefteriyle yazmıştır = notdefteri enter tuşunda @CRLF kullanır Quote Link to comment Share on other sites More sharing options...
blackman12 Posted April 30, 2012 Share Posted April 30, 2012 Zaten split edip array dönüyor orada sıkıntı yok. @CRLF yerine @LF ile ayırmamın nedenini deneyerek bulabilirsin her kelime arasına boş arraylar giriyo onun yerine @LF ile ayırıp sağdaki @CR yi sildirmek daha mantıklı Quote Link to comment Share on other sites More sharing options...
hakanight Posted May 3, 2012 Share Posted May 3, 2012 pekii.. Mesela http://blackman12.zzl.org/version.txt buraya kodları yazmak istiyorum. her açılışta oradaki kodları okuyucak. Ona göre Açılcak. böyle bir program yapabilirmiyiz? Quote Link to comment Share on other sites More sharing options...
blackman12 Posted May 3, 2012 Share Posted May 3, 2012 e bak ben yapmışım demekki yapılıyomuş program açılırken oradaki versiyon değerini okuyor ve eğer versiyon değeri programınkinden büyükse güncelleme uyarısı çıkıyor böylece ama sen ne yapmak istiyosun tam anlat 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.