Req Function

[agori]

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

[migduel]

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

[agori]

thanks y um

[migduel]

sama2

[agori]

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

[Sponsored content]