function send text 320 charter

Go down

function send text 320 charter

Post  mataram on Mon Aug 29, 2011 12:14 am

akang-akang bagai mana funtion send text 320 charater?

mataram
Bripda
Bripda

Jumlah posting : 8
Join date : 29.08.11

Lihat profil user

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  migduel on Mon Aug 29, 2011 8:45 am

REKAM DULU SEND TEXT NYA TERUS HASIL REKAMANNYA DI POST DISINI OM... bounce
NANTI KITA BAHAS RAME2 cheers
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 33
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  mataram on Mon Aug 29, 2011 10:07 pm

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

mataram
Bripda
Bripda

Jumlah posting : 8
Join date : 29.08.11

Lihat profil user

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  satria-fakir on Tue Aug 30, 2011 12:07 am

cheers lanjutkan mas.....

satria-fakir
Bripda
Bripda

Jumlah posting : 12
Join date : 27.08.11

Lihat profil user

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  migduel on Tue Aug 30, 2011 3:49 pm

mataram wrote: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 Very Happy
jika send text kurang dari 320 lancar , itu closed bukan dr function textroom nya om
di sek lagi aja subhedaer dll lain nya Very Happy
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 33
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  mataram on Tue Aug 30, 2011 11:50 pm

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

mataram
Bripda
Bripda

Jumlah posting : 8
Join date : 29.08.11

Lihat profil user

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  satria-fakir on Tue Aug 30, 2011 11:54 pm

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 Very Happy

satria-fakir
Bripda
Bripda

Jumlah posting : 12
Join date : 27.08.11

Lihat profil user

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  satria-fakir on Wed Aug 31, 2011 1:19 am

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... cheers

satria-fakir
Bripda
Bripda

Jumlah posting : 12
Join date : 27.08.11

Lihat profil user

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  migduel on Wed Aug 31, 2011 1:27 am

satria-fakir wrote: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... cheers

hahahah...dah succes yah 320 karakternya Very Happy
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 Very Happy
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 33
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  mataram on Thu Sep 01, 2011 12:35 am

Very Happy Very Happy Very Happy watur nuhun akang2, mantap udah bisa

mataram
Bripda
Bripda

Jumlah posting : 8
Join date : 29.08.11

Lihat profil user

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  migduel on Thu Sep 01, 2011 8:55 pm

mataram wrote: Very Happy Very Happy Very Happy watur nuhun akang2, mantap udah bisa


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

ane kunci ah kl dah bisa mah Embarassed
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 33
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: function send text 320 charter

Post  Sponsored content


Sponsored content


Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik