function send text 320 charter

[mataram]

akang-akang bagai mana funtion send text 320 charater?

[migduel]

REKAM DULU SEND TEXT NYA TERUS HASIL REKAMANNYA DI POST DISINI OM...
NANTI KITA BAHAS RAME2

[mataram]

Public Function textroom(username As String, kata As String, Room As String)
textroom = H2A("0201F4000B000000" & DecToHex(Len(username) + 40 + Len(Room) + Len(kata)) & "0008000000" & DecToHex(Len(kata)) & A2H(kata) & "00060000000200010004000000" & DecToHex(Len(Room)) & A2H(Room) & "000300000001030002000000" & DecToHex(Len(username)) & A2H(user) & "00010000000101")
End Function ' ini paket function ak , kl send text 320 pasti socket close

[satria-fakir]

lanjutkan mas.....

[migduel]

Public Function textroom(username As String, kata As String, Room As String)
textroom = H2A("0201F4000B000000" & DecToHex(Len(username) + 40 + Len(Room) + Len(kata)) & "0008000000" & DecToHex(Len(kata)) & A2H(kata) & "00060000000200010004000000" & DecToHex(Len(Room)) & A2H(Room) & "000300000001030002000000" & DecToHex(Len(username)) & A2H(user) & "00010000000101")
End Function ' ini paket function ak , kl send text 320 pasti socket close

DecToHex(Len(username)) & A2H(user) & dr ini aja udah salah om, variabel user kan tidak ada disitu, adanya username,

oya apa paket itu kl send text kurang dari 320 , lancar
jika send text kurang dari 320 lancar , itu closed bukan dr function textroom nya om
di sek lagi aja subhedaer dll lain nya

[mataram]

maaf salah ketik, username harus nya, udah fix function itu cuma gtu kendalanya ga bsa sendtext banyak, maaf ak pemula belajar vb, ok makasih kang atas sarannya

[satria-fakir]

Public Function SendTextRoom(user As String, kata As String, room As String)
SendTextRoom = HextoAscii("02 01 F4 00 " & Hex(increment) & " 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")
increment = increment + 1
End Function
copas di forum sebelah

[satria-fakir]

Public Function textroom(kata As String, Room As String, user As String) As String
Dim send As String
send = "0008" & F4(kata) & A2H(kata) & "00060000000200010004" & F4(Room) & A2H(Room) & "000300000001030002" & F4(user) & A2H(user) & "00010000000101"
textroom = H2A("0201F400AE" & F4(H2A(send)) & send)
End Function
pake yang ini coba mas, moga manfaat dunia akhiran...

[migduel]

Public Function textroom(kata As String, Room As String, user As String) As String
Dim send As String
send = "0008" & F4(kata) & A2H(kata) & "00060000000200010004" & F4(Room) & A2H(Room) & "000300000001030002" & F4(user) & A2H(user) & "00010000000101"
textroom = H2A("0201F400AE" & F4(H2A(send)) & send)
End Function
pake yang ini coba mas, moga manfaat dunia akhiran...

hahahah...dah succes yah 320 karakternya
biar di copas ama, oom yang di atas , kl oom diatas g ada function f4 nya bisa ambil di projeck login itu yg ane pos

[mataram]

watur nuhun akang2, mantap udah bisa

[migduel]

watur nuhun akang2, mantap udah bisa

kl bs jangan lupa app nya posting sini, yg trial juga gpp ah

ane kunci ah kl dah bisa mah

[Sponsored content]