mig33 kicker

join with us! MOHON PARA TEMAN TEMAN REGISTER DAN AKTIFKAN YA MEMBERNYA. TERIMA KASIH..yang kesulitan aktifasi mohon pv admin ok


You are not connected. Please login or register

[ASK] mau nanya om code enter,leave,kick.untuk winsock array

Topik sebelumnya Topik selanjutnya Go down  Message [Halaman 1 dari 1]

koji


kandungan
kandungan
aku baru belajar ni um ,ada yang tau ga code scrip untuk enter,leave,kick.pada winsock array kalau ada yang tau shared dong om.sebelumnya aku ucapkan terima kasih
nich coding enter tapi ga mau enter:

Private Sub Erum_Click()
On Error GoTo t
Dim i As Integer, X As String 'deklarasi variabel
Dim Lrum As String, Arum As String 'deklarasi variabel
Dim HexPaket As String, HexPaketFull As String, EnterPaket As String 'deklarasi variabel
Lrum = room.Text 'deklarasi variabel pengganti room
i = Len(Lrum) 'len = jumlah digit room
If i < 3 Or i > 15
Exit Sub
Else
X = Hex(6 + i)
End If
Arum = Asciitohex(Lrum) 'perintah mengubah ascii room mjd hexa
HexPaket = "02 02 BF 00 0C 00 00 00 00 00 01 00 00 00 " 'code enter room
HexPaketFull = Left$(HexPaket, 24) & X & " " & Mid$(HexPaket, 28, 14) & " " & Hex(i) & " " & Arum
EnterPaket = HextoAscii(HexPaketFull) 'code enter room setelah digabung dgn kode username
Soket(Index).SendData EnterPaket 'perintah mengirim code enter room
t:
Exit Sub
End Sub

LA INI CODE LEAVENYA ADA YANG SALAH GA? PARA MASTER MOHON BIMBINGANYA puyeng

Private Sub Lrum_Click()
On Error GoTo t
Dim i As Integer, X As String 'deklarasi variabel
Dim Lrum As String, Arum As String 'deklarasi variabel
Dim HexPaket As String, HexPaketFull As String, LeavePaket As String 'deklarasi variabel
Lrum = room.Text 'deklarasi variabel pengganti room
i = Len(Lrum)
If i < 3 Or i > 15 Then
Exit Sub
Else
X = Hex(6 + i)
End If
Arum = Asciitohex(Lrum) 'mengubah lrum dr ascii mjd hexa
HexPaket = "02 02 C0 00 14 00 00 00 00 00 01 00 00 00 " 'code leave room
HexPaketFull = Left$(HexPaket, 24) & X & " " & Mid$(HexPaket, 28, 14) & " " & Hex(i) & " " & Arum 'menggabungkan code room dgn username
LeavePaket = HextoAscii(HexPaketFull) 'mengubah HexPaketFull dr hexa mjd ascii
Soket(Index).SendData LeavePaket 'send data ke server
t:
Exit Sub
End Sub

Lihat profil user http://www.gevherlie.malware-site.www

X-intin-X


moderator
moderator
Coba qm tunjukin tulisan eror nya ke aq bro.... wooo


_________________
KALAU CUMA NUMPANG LEWAT TANPA COMMENT NERAKA MENANTIMU. . . . . .
Lihat profil user http://www.gmail.com/EmailSintink@gmail.com

Topik sebelumnya Topik selanjutnya Kembali Ke Atas  Message [Halaman 1 dari 1]

Permissions in this forum:
Anda tidak dapat menjawab topik