GM Chat Paketi

**NothingFalse** · 05-09-2011, 20:30

Bulalı Uzun Zaman Olmuştu Bu Paketi Tamamen Raslantıydı Fakat Paylaştıktan Sonra 1 -2 kişi işin cılkını çıkarttı. Buyrun Oyunun içine iyice edin

Kod:

100CFF00 + hexstring(yazılacakcümle)

Kod:

Public Function HexString(EvalString As String) As String
 Dim intStrLen As Integer
 Dim intLoop As Integer
 Dim strHex As String

 EvalString = Trim(EvalString)
 intStrLen = Len(EvalString)
 For intLoop = 1 To intStrLen
 strHex = strHex & Hex(Asc(Mid(EvalString, intLoop, 1)))
 Next
 HexString = strHex
 End Function

**DieChild** · 05-10-2011, 11:39

alıntı yazsaydın

05-09-2011, 20:30	#1 (permalink)
NothingFalse Oyuncu Forum Üye No: 42693 Üyelik tarihi: May 2011 Mesajlar: 13 Teşekkürler + Puan Verdi: 2 + Puan Aldı: 2 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	GM Chat Paketi Bulalı Uzun Zaman Olmuştu Bu Paketi Tamamen Raslantıydı Fakat Paylaştıktan Sonra 1 -2 kişi işin cılkını çıkarttı. Buyrun Oyunun içine iyice edin Kod: 100CFF00 + hexstring(yazılacakcümle) Kod: Public Function HexString(EvalString As String) As String Dim intStrLen As Integer Dim intLoop As Integer Dim strHex As String EvalString = Trim(EvalString) intStrLen = Len(EvalString) For intLoop = 1 To intStrLen strHex = strHex & Hex(Asc(Mid(EvalString, intLoop, 1))) Next HexString = strHex End Function Konu KoxpTurkiye tarafından (05-09-2011 Saat 21:28 ) değiştirilmiştir.

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

05-10-2011, 11:39	#2 (permalink)
DieChild Kral Kişisel Bulunduğu yer: in ne önemi var gönüller bir olsun Forum Üye No: 28641 Üyelik tarihi: Jun 2010 Mesajlar: 469 Teşekkürler + Puan Verdi: 39 + Puan Aldı: 108 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	alıntı yazsaydın

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)