mig33 kicker
Would you like to react to this message? Create an account in a few clicks or log in to continue.
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

2 posters

Go down  Message [Halaman 1 dari 1]

koji

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

http://www.gevherlie.malware-site.www

X-intin-X


moderator
moderator

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

http://www.gmail.com/EmailSintink@gmail.com

Kembali Ke Atas  Message [Halaman 1 dari 1]

Permissions in this forum:
Anda tidak dapat menjawab topik