Forum
Aktif konular
Üyeler
Kurallar
Arama
Session Ve Application Arasındaki Fark ? Session Ve Application Arasındaki Fark ?
-
Sub HareketsizDenetle
If Application("UyeHavuzu") = "" Then Exit Sub
HavuzleriBol = Split(Application("UyeHavuzu"), "|")
For ix = 0 To UBound(HavuzleriBol)-1
zamanbul = Split(HavuzleriBol(ix), ":")
zamani=left(zamanbul(1),2)&":"&left(right(zamanbul(1),4),2)&":"&right(zamanbul(1),2)
If DateDiff("n", zamani, zaman2)>5 Then
havuzcuBas = Instr(1, Application("UyeHavuzu"), HavuzleriBol(ix))
havuzcuSon = Instr(havuzcuBas, Application("UyeHavuzu"), "|")
havuzcuBul = Mid(Application("UyeHavuzu"), havuzcuBas, havuzcuSon)
Application.Lock
Application("UyeHavuzu")=Replace(Application("UyeHavuzu"), havuzcuBul,"")
Application.UnLock
End If
Next
end subörnek mesela. ipde 5 dakkadır haraket yoksa direk replaceyle havuzdan silinmiş oluyor
applicationumuz UyeHavuzu bunda veriler 127.0.0.1:121212|127.0.0.1:141414| şeklinde gidiyor 121212 vb ipnin saati oluyor
öncelikle ben splitle | karakterinden bölüyorum. veriler
127.0.0.1:121212
127.0.0.1:141414
şeklinde sıralanıyor.
: bu karakterden sonra yine bölüp sayıyı saate çeviriyorum.
şuanki saatle ipnin saati arasında 5 dk zaman varsa
ipyi ve saatini alıp replaceyle havuzdan atıyorum
anladın?
-
dai benden öle teknik bir bilgi bekleme ama bazen bu tarz şeyleri anlamak için sözlüğe bakmak yetiyor
-
wert : sözlükde uygulama yazmış bırakmışlar :D insan pesü gibi örnek koyar demi :D
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla