Req Function

Go down

Req Function

Post  agori on Sat Mar 17, 2012 4:47 am

maaf um w lum bisa kasih apa" di forum ini tapi malah banyak minta
pa lagi sekarang w mau minta bantuan lagi
boleh minta beberapa function di bawah ni kg um :
function Detect Level
function Auto Answer Pvt
function Leave Group Chat

kl bisa sxn tutorialnya y um
avatar
agori
Bripda
Bripda

Jumlah posting : 15
Join date : 28.09.11
Lokasi : indramayu

Lihat profil user http://mig33kertasemaya.blogspot.com

Kembali Ke Atas Go down

Re: Req Function

Post  migduel on Sun Mar 18, 2012 12:23 pm

leave gc
Code:
If TxtType = "02" Then 'GC
    If CheckBoxGC.Value = Checked Then
        NameTarget = SubHeader(data, "0004")
        SckMain.SendData 1, LeaveGC(NameTarget)
    End If
End If

level
Code:
If InStr(1, data, "has entered") > 0 Then
Dim jembut As String
Dim Lvl As String

jembut = SubHeader(data, "0008")
jembut = Split(jembut, " ")(0)
Lvl = Split(SubHeader(data, "0008"))(1)
Lvl = Replace(Lvl, "[", "")
Lvl = Replace(Lvl, "]", "")
end if

untuk auto answernya ambil aja di code pv nya
Code:
If Header = "0201F4" Then
TxtType = A2H(SubHeader(Value, "0003"))
If TxtType = "01" Then 'PV
perintah autonya
end if
end if
avatar
migduel
Admin
Admin

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

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

Kembali Ke Atas Go down

Re: Req Function

Post  agori on Fri Mar 23, 2012 4:35 am

thanks y um Embarassed
avatar
agori
Bripda
Bripda

Jumlah posting : 15
Join date : 28.09.11
Lokasi : indramayu

Lihat profil user http://mig33kertasemaya.blogspot.com

Kembali Ke Atas Go down

Re: Req Function

Post  migduel on Fri Mar 23, 2012 8:57 pm

sama2
avatar
migduel
Admin
Admin

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

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

Kembali Ke Atas Go down

Re: Req Function

Post  agori on Sun Mar 25, 2012 11:15 pm

um
untuk auto answer kan katanya suruh pake function pvt biasa
sedangkan di function pvt kan perintahnya
user,target,teks
nah kalau user kan dah pasti di isi user login
tekks di isi ma textbox yg mau di send
sdngkan untuk target di isi apa um ? kan ni auto jd g tau siapa target ny
kalau untuk pvt biasa sih gampang karna target kita sudah tau siapa

nih function pvt w um coba cek

Code:
Public Function SendTextPv(user As String, lawan As String, kata As String)
SendTextPv = H2ANS("0201F40070" & DecToHexFull(Len(kata) + 40 + Len(target) + Len(user)) & "0008" & DecToHexFull(Len(kata)) & A2HNS(kata) & "00060000000200010004" & DecToHexFull(Len(target)) & A2HNS(target) & "000300000001010002" & DecToHexFull(Len(user)) & A2HNS(user) & "00010000000101")
End Function


w kalau pasang di cmd pvt kaya gini

Code:
Socket.SendData 0,sendtextpv(user.text,target.text,teks.text)

coding yang di kasih um kan gini, dan di pasang di arrival

Code:
If Header = "0201F4" Then
TxtType = A2H(SubHeader(Value, "0003"))
If TxtType = "01" Then 'PV
disini diisi perintah send pvt biasa
End If
End If

nah w coba pasang gini

Code:
If Header = "0201F4" Then
TxtType = A2H(SubHeader(Value, "0003"))
If TxtType = "01" Then 'PV
Socket.SendData 0,sendtextpv(User.text,Target.text,Teks.text)
End If
End If

tapi setelah di pikir pikir ni kan target ny lum tau jd gimana bisa w pasang target ny um

mohon bantuannya y um
avatar
agori
Bripda
Bripda

Jumlah posting : 15
Join date : 28.09.11
Lokasi : indramayu

Lihat profil user http://mig33kertasemaya.blogspot.com

Kembali Ke Atas Go down

Re: Req Function

Post  Sponsored content


Sponsored content


Kembali Ke Atas Go down

Kembali Ke Atas


 
Permissions in this forum:
Anda tidak dapat menjawab topik