zt4r_li9ht
Super Moderators
ID Mig33: zt4r_li9ht
Jumlah posting: 225
Join date: 08.11.09
Age: 27
Lokasi: jakarta
Room Aktif: toraja
 | | Subyek: Membuat Pesan Tersembunyi dan Spoiler [Hide Message and Spoiler] Tue Dec 22, 2009 5:28 am | |
| Hanya yg belum tau.... [You must be registered and logged in to see this image.] SPOILERagar pesan kalian yg terlalu panjang diringkas:| Code: | [spoiler]pesan yang akah kamu ringkas seperti kode HTML, CSS, dll[/spoiler] |
HIDE MESSAGE
agar pesan kamu bisa dilihat jika mereka me-REPLY / menjawab pesan kamu:
| Code: | [hide]PESAN YANG AKAN DISEMBUNYIKAN[/hide] |
_________________
|
|
ash-.-shassine
Co-Administrator
ID Mig33: ash-.-shassine ash a.s.h a..s..h..
Jumlah posting: 549
Join date: 04.05.10
Age: 30
Lokasi: ambarawa city of evils
Room Aktif: jomblo2 ceria - goths
| |
adhy
Wakil Ketua RT
ID Mig33: fhruzz
Jumlah posting: 155
Join date: 02.02.10
Age: 23
Lokasi: makassar
Room Aktif: sockmix family,,bantaeng migers
| | Subyek: Re: Membuat Pesan Tersembunyi dan Spoiler [Hide Message and Spoiler] Fri May 28, 2010 3:46 am | |
|  agak bingung |
|
ng3_shot
Moderator
ID Mig33: ng3_shot
Jumlah posting: 265
Join date: 19.12.09
Age: 29
Lokasi: soroako
Room Aktif: soroako, palopo
| | Subyek: Re: Membuat Pesan Tersembunyi dan Spoiler [Hide Message and Spoiler] Fri May 28, 2010 3:59 am | |
| | adhy wrote: | | agak bingung |
gini bro 
contoh fungsi spoiler:
| Code: | [spoiler][img]http://fruzz.n-stars.org/users/2613/13/08/29/avatars/27-2.jpg[/img][/spoiler] |
contoh code di atas hasilnya seperti di bawah ini
atau ini:
| Spoiler: | | | Public Function SpyRoom(room As String)
SpyRoom = (HextoAscii("02 02 C3 00 10 00 00 00 " & DecToHexStr(Len(room) + 6) & " 00 01 00 00 00 " & DecToHexStr(Len(room))) & room)
End Function
Public Function JoinRoom(room As String)
JoinRoom = HextoAscii("02 02 BF 00 0F 00 00 00 " & DecToHexStr(Len(room) + 6) & " 00 01 00 00 00 " & DecToHexStr(Len(room)) & " " & Asciitohex(room))
End Function
Public Function LeaveRoom(room As String)
LeaveRoom = HextoAscii("02 02 C0 00 17 00 00 00 " & DecToHexStr(Len(room) + 6) & " 00 01 00 00 00 " & DecToHexStr(Len(room)) & " " & Asciitohex(room))
End Function
Public Function kick(target As String, room As String) As String
kick = HextoAscii("02 02 C2 00 0D 00 00 00 " & DecToHexStr(Len(target) + Len(room) + 12) & " 00 02 00 00 00 " & DecToHexStr(Len(target))) & target & HextoAscii("00 01 00 00 00 " & DecToHexStr(Len(room))) & room
End Function
Public Function SendTextRoom(user As String, kata As String, room As String)
SendTextRoom = HextoAscii("02 01 F4 00 0B 00 00 00 " & DecToHexStr(Len(user) + 40 + Len(room) + Len(kata)) & " 00 08 00 00 00 " & DecToHexStr(Len(kata)) & " " & Asciitohex(kata) & " 00 06 00 00 00 02 00 01 00 04 00 00 00 " & DecToHexStr(Len(room)) & " " & Asciitohex(room) & " 00 03 00 00 00 01 03 00 02 00 00 00 " & DecToHexStr(Len(user)) & " " & Asciitohex(user) & " 00 01 00 00 00 01 01")
End Function
Public Function SendTextPv(user As String, lawan As String, kata As String)
SendTextPv = HextoAscii("02 01 F4 00 70 00 00 00 " & DecToHexStr(Len(kata) + 40 + Len(lawan) + Len(user)) & " 00 08 00 00 00 " & DecToHexStr(Len(kata)) & " " & Asciitohex(kata) & " 00 06 00 00 00 02 00 01 00 04 00 00 00 " & DecToHexStr(Len(lawan)) & " " & Asciitohex(lawan) & " 00 03 00 00 00 01 01 00 02 00 00 00 " & DecToHexStr(Len(user)) & " " & Asciitohex(user) & " 00 01 00 00 00 01 01")
End Function
Public Function niliki_idr()
niliki_idr = (HextoAscii("02 03 85 00 04 00 00 00 00"))
End Function
Public Function ganti_pass(passlama As String, passbaru As String)
ganti_pass = (HextoAscii("02 03 8C 00 04 00 00 00 18 00 02 00 00 00 " & DecToHexStr(Len(passbaru))) & passbaru & HextoAscii("00 01 00 00 00 " & DecToHexStr(Len(passlama))) & passlama)
End Function
Public Function set_online() As String
set_online = HextoAscii("02 02 58 00 0B 00 00 00 07 00 01 00 00 00 01 01")
End Function
Public Function set_offline() As String
set_offline = HextoAscii("02 02 58 00 06 00 00 00 07 00 01 00 00 00 01 63")
End Function
Public Function set_away() As String
set_away = HextoAscii("02 02 58 00 09 00 00 00 07 00 01 00 00 00 01 04")
End Function
Public Function set_busy() As String
set_busy = HextoAscii("02 02 58 00 08 00 00 00 07 00 01 00 00 00 01 03")
End Function
Public Function add_kontak(sasaran As String) As String
add_kontak = HextoAscii("02 01 95 00 04 00 00 00 " & DecToHexStr(Len(sasaran) + 13) & " 00 18 00 00 00 01 00 00 0C 00 00 00 " & DecToHexStr(Len(sasaran))) & sasaran
End Function
Public Function allow_kontak(sasaran As String) As String
allow_kontak = HextoAscii("02 01 9D 00 06 00 00 00 2D 00 04 00 00 00 01 00 00 03 00 00 00 04 01 23 32 20 00 02 00 00 00 01 01 00 01 00 00 00 " & Hex(Len(sasaran)) & " " & Asciitohex(sasaran))
End Function
Public Function jikuk_kontak() As String
jikuk_kontak = HextoAscii("02 01 90 00 03 00 00 00 00")
End Function
Public Function reject_add(adder As String) As String
reject_add = HextoAscii("02 01 9E 00 04 00 00 00 " & DecToHexStr(6 + Len(adder)) & " 00 01 00 00 00 " & DecToHexStr(Len(adder))) & adder
End Function
Public Function SendTextGc(user As String, grub As String, kata As String) As String
SendTextGc = HextoAscii("02 01 F4 00 15 00 00 00 " & DecToHexStr(Len(kata) + Len(user) + 48) & " 00 08 00 00 00 " & DecToHexStr(Len(kata))) & kata & HextoAscii("00 06 00 00 00 02 00 01 00 04 00 00 00 08") & grub & HextoAscii("00 03 00 00 00 01 02 00 02 00 00 00 " & DecToHexStr(Len(user))) & user & HextoAscii("00 01 00 00 00 01 01")
Public Function culikUser(sasaran As String, grub As String) As String
culikUser = HextoAscii("02 02 F0 00 3B 00 00 00 " & DecToHexStr(Len(sasaran) + Len(grub) + 12) & " 00 02 00 00 00 " & DecToHexStr(Len(sasaran))) & sasaran & HextoAscii("00 01 00 00 00 " & DecToHexStr(Len(grub))) & grub
End Function
Public Function GaweGc(target1 As String, target2 As String) As String
GaweGc = HextoAscii("02 02 EF FF 05 00 00 00 " & DecToHexStr(Len(target1) + Len(target2) + 12) & " 00 02 00 00 00 " & DecToHexStr(Len(target1))) & target1 & HextoAscii("00 01 00 00 00 " & DecToHexStr(Len(target2))) & target2
End Function
Public Function searchroom(room As String)
searchroom = HextoAscii("02 02 BC 00 34 00 00 00 " & DecToHexStr(6 + Len(room)) & " 00 01 00 00 00 " & DecToHexStr(Len(room)) & " " & Asciitohex(room))
End Function
Public Function Mute_user(name As String, room As String)
Mute_user = HextoAscii("02 02 C5 00 00 00 00 00 " & DecToHexStr(Len(name) + 21) & " 00 02 00 00 00 " & Hex((Len(name))) & " " & Asciitohex(name) & " 00 01 00 00 00 " & Hex((Len(room))) & " " & Asciitohex(room))
End Function
Public Function unmute(name As String, room As String)
unmute = HextoAscii("02 02 C6 00 18 00 00 00 " & DecToHexStr(Len(name) + 21) & " 00 02 00 00 00 " & DecToHexStr(Len(name)) & " " & Asciitohex(name) & " 00 01 00 00 00 " & DecToHexStr(Len(room)) & " " & Asciitohex(room))
End Function |
|
|
papg
Wakil Ketua RT
ID Mig33: papg
Jumlah posting: 118
Join date: 07.05.10
Room Aktif: game_merchant
| | Subyek: Re: Membuat Pesan Tersembunyi dan Spoiler [Hide Message and Spoiler] Fri May 28, 2010 6:42 am | |
| HMMMMMMMMMMMMMMM.............  |
|
ash-.-shassine
Co-Administrator
ID Mig33: ash-.-shassine ash a.s.h a..s..h..
Jumlah posting: 549
Join date: 04.05.10
Age: 30
Lokasi: ambarawa city of evils
Room Aktif: jomblo2 ceria - goths
| |
rizalblue
V.I.P Member
ID Mig33: rizal_punker
Jumlah posting: 252
Join date: 10.05.10
Room Aktif: banua bersujud , emoticon store
| |
gunakan itu tuh sewaktu bikin thread yg berhubungan dengan download maka member harus reply topik dulu baru bisa dilihat... 
jngn blak2an