metin2 nin tüm hileleri
Navigasyon
  Ana Sayfa
 

METİN 2 HİLELERİNİ BU SİTEDE BULABİLİRSİNİZ SAYGILAR
ARKADAŞLAR BİZE YARDIMDA BULUNMAK İÇİN ANNER A TIKLAYIN

  
  Bugün 1 ziyaretçi (1 klik) kişi burdaydı!  
 
<% '|====================================== '| Forum Kodları Fonksiyonu '| mydesign a.k.a doronty37 '| http://www.mydesign.gen.tr '| mydesign@mydesign.gen.tr '|====================================== Function MesajFormatla(strMesaj) strMesaj = Replace(strMesaj, "<", "&lt;", 1, -1, 1) strMesaj = Replace(strMesaj, ">", "&gt;", 1, -1, 1) strMesaj = Replace(strMesaj, Chr(10), "
", 1, -1, 1) strMesaj = Replace(strMesaj, "[B]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/B]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[STRONG]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/STRONG]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[U]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/U]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[I]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/I]", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":)", "", 1, -1, 1) strMesaj = Replace(strMesaj, ";)", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":O", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":))", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":S", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":(", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":'(", "", 1, -1, 1) Do While inStr(strMesaj, "[URL=") > 0 And inStr(strMesaj, "[/URL]") > 0 DeyimBaslangici = inStr(strMesaj, "[URL=") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/URL]") + 6 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 strLink = trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici))) strGeciciMesaj = strLink strGeciciMesaj = Replace(strGeciciMesaj, "[URL=", "", 1, -1, 1) strGeciciMesaj = Replace(strGeciciMesaj, "]", """ target=""_blank"">", 1, -1, 1) Else strGeciciMesaj = strGeciciMesaj & ">" End If strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1) Loop Do While inStr(strMesaj, "[URL]") > 0 And inStr(strMesaj, "[/URL]") > 0 DeyimBaslangici = inStr(strMesaj, "[URL]") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/URL]") + 6 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 6 strLink = trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici))) strGeciciMesaj = strLink strGeciciMesaj = Replace(strGeciciMesaj, "[URL]", "", 1, -1, 1) strGeciciMesaj = Replace(strGeciciMesaj, "[/URL]", "", 1, -1, 1) strGeciciMesaj = "" & strGeciciMesaj & "" strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1) Loop Do While inStr(strMesaj, "[QUOTE=") > 0 And inStr(strMesaj, "[/QUOTE]") > 0 DeyimBaslangici = inStr(1, strMesaj, "[QUOTE=", 1) + 7 DeyimSonu = inStr(DeyimBaslangici, strMesaj, "]", 1) If DeyimBaslangici > 6 And DeyimSonu > 0 Then strYazan = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) End If DeyimBaslangici = DeyimBaslangici + Len(strYazan) + 1 DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) If DeyimSonu - DeyimBaslangici =< 0 Then DeyimSonu = DeyimBaslangici + Len(strYazan) If DeyimSonu > DeyimBaslangici Then strAlintiMesaji = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) strYazan = Replace(strYazan, """", "", 1, -1, 1) strAlinti = "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "
Alıntı Sahibi: " & strYazan & "
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" & strAlintiMesaji & "
" End If DeyimBaslangici = inStr(strMesaj, "[QUOTE=") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]") + 8 If DeyimSonu - DeyimBaslangici =< 7 Then DeyimSonu = DeyimBaslangici + Len(strYazan) + 8 strAsilMesaj = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) If strAlinti <> "" Then strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1) Else strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1) End If Loop Do While inStr(strMesaj, "[QUOTE]") > 0 And inStr(strMesaj, "[/QUOTE]") > 0 DeyimBaslangici = inStr(strMesaj, "[QUOTE]") + 7 DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 If DeyimSonu > DeyimBaslangici Then strAlintiMesaji = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) strAlinti = "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "
Alıntı:
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" & strAlintiMesaji & "
" End If DeyimBaslangici = inStr(strMesaj, "[QUOTE]") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) + 8 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 strAsilMesaj = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) If strAlinti <> "" Then strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1) Else strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1) End If Loop MesajFormatla = strMesaj End Function %>
Bu web sitesi Bedava-Sitem.com ile ücretsiz oluşturuldu. Siz de kendi web sitenizi ister misiniz?
Ücretsiz kayıt ol