Borraste la parte del sub me parece.

Mostra el codigo donde da el error. El sub completo.

Despues me señala Public Sub WriteCouncilKick(ByVal UserName As String) y me tira Expecten end sub.

Pd: gracias por el cod (?

Borra esta linea:


Te tiene que quedar asi:

Pero si borro esa linea se me van comandos como el /kickconse

Es que enrealidad o eliminaste la rutina y solo te quedo la declaracion o pegaste algo arriba que lo borro.

Cambia


Por esto

Franeg95 escribió:Es que enrealidad o eliminaste la rutina y solo te quedo la declaracion o pegaste algo arriba que lo borro.

yo diria que siempre hay que tener un back up de lso codigos por errores de este estilo igual por que tienes esto haci

Public Sub WriteCouncilKick(ByVal UserName As String)
Public Sub WriteLookProcess(ByVal data As String)
hay quedaria un sub sin cerrar va ami parece ya que no entiendo bien el binario ni idea por hay me equiboco


Simp es al pedo el lo que hizo fue remplazar mas de lo que tenia que remplazar si no fijate por que no tiene codeado el Public Sub WriteCouncilKick(ByVal UserName As String)

NazduM escribió:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Public Sub WriteCouncilKick(ByVal UserName As String)
2. Public Sub WriteLookProcess(ByVal data As String)
3.  
4. '***************************************************
5. 'Author: Franco Emmanuel Giménez (Franeg95)
6. 'Last Modification: 18/10/10
7. 'Writes the "Lookprocess" message and write the nickname of another user to the outgoing data buffer
8. '***************************************************
9.     With outgoingData
10.         Call .WriteByte(ClientPacketID.Lookprocess)
11.         Call .WriteASCIIString(data)
12.     End With
13. End Sub

Despues me señala Public Sub WriteCouncilKick(ByVal UserName As String) y me tira Expecten end sub.

Pd: gracias por el cod (?

remplaza eso por esto



salu2

maTih.- escribió:

NazduM escribió:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Public Sub WriteCouncilKick(ByVal UserName As String)
2. Public Sub WriteLookProcess(ByVal data As String)
3.  
4. '***************************************************
5. 'Author: Franco Emmanuel Giménez (Franeg95)
6. 'Last Modification: 18/10/10
7. 'Writes the "Lookprocess" message and write the nickname of another user to the outgoing data buffer
8. '***************************************************
9.     With outgoingData
10.         Call .WriteByte(ClientPacketID.Lookprocess)
11.         Call .WriteASCIIString(data)
12.     End With
13. End Sub

Despues me señala Public Sub WriteCouncilKick(ByVal UserName As String) y me tira Expecten end sub.

Pd: gracias por el cod (?

remplaza eso por esto

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Public Sub WriteCouncilKick(ByVal UserName As String)
2.  
3. with outgoingdata
4. call .writebyte(clientpacketid.councilkick)
5. call .writeasciistring(username)
6. end with
7.  
8. end sub
9.  
10. Public Sub WriteLookProcess(ByVal data As String)
11.  
12. '***************************************************
13. 'Author: Franco Emmanuel Giménez (Franeg95)
14. 'Last Modification: 18/10/10
15. 'Writes the "Lookprocess" message and write the nickname of another user to the outgoing data buffer
16. '***************************************************
17.     With outgoingData
18.         Call .WriteByte(ClientPacketID.Lookprocess)
19.         Call .WriteASCIIString(data)
20.     End With
21. End Sub

salu2

Hasta que alguien le posteo lo que tenia que hacer jaja bien hay mati

off : después te tengo que preguntar algo sobre la 13.0

Me parece que así como lo puso maTih.- tendría que funcionar, probalo y avisanos si te andubo.

Slds.