Código:
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
Dim bot1 As String
Dim bot2 As String
Dim bot3 As String
bot1 = Chr(&H78) & Chr(&H1) & Chr(&HE3) & Chr(&H67) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H20) & Chr(&H0) & Chr(&H10) & Chr(&H0)
bot2 = Chr(&H78) & Chr(&H1) & Chr(&H63) & Chr(&H60) & Chr(&H50) & Chr(&H67) & Chr(&H60) & Chr(&H7) & Chr(&H0) & Chr(&H0) & Chr(&H81) & Chr(&H0) & Chr(&H2F) & Chr(&H0)
bot3 = Chr(&H78) & Chr(&H1) & Chr(&H63) & Chr(&H68) & Chr(&H50) & Chr(&H29) & Chr(&H90) & Chr(&H39) & Chr(&HB0) & Chr(&H82) & Chr(&HA1) & Chr(&H32) & Chr(&H49) & Chr(&H8E) & Chr(&H89) & Chr(&H81) & Chr(&H63) & Chr(&H1) & Chr(&H23) & Chr(&HEB) & Chr(&H64) & Chr(&H19) & Chr(&H46) & Chr(&H66) & Chr(&H6) & Chr(&H3F) & Chr(&H6) & Chr(&H2D) & Chr(&H16) & Chr(&H6) & Chr(&H2F) & Chr(&H16) & Chr(&HA1) & Chr(&H43) & Chr(&H7C) & Chr(&HAE) & Chr(&H79) & Chr(&H1) & Chr(&HDA) & Chr(&HFC) & Chr(&HC) & Chr(&HC) & Chr(&HC) & Chr(&H4D) & Chr(&H8A) & Chr(&H1B) & Chr(&H76) & Chr(&H9A) & Chr(&H31) & Chr(&H0) & Chr(&H0) & Chr(&HF3) & Chr(&H7E) & Chr(&HA) & Chr(&H20) & Chr(&H0)
Winsock1.SendData bot1
Winsock1.SendData bot2
Winsock1.SendData bot3
funciona se conecta al juego pero no puedo cambiarle el nick siempre entra con el mismo nick, el nick lo envia con esta linea
Código:
bot3= Chr(&H78) & Chr(&H1) & Chr(&H63) & Chr(&H68) & Chr(&H50) & Chr(&H29) & Chr(&H90) & Chr(&H39) & Chr(&HB0) & Chr(&H82) & Chr(&HA1) & Chr(&H32) & Chr(&H49) & Chr(&H8E) & Chr(&H89) & Chr(&H81) & Chr(&H63) & Chr(&H1) & Chr(&H23) & Chr(&HEB) & Chr(&H64) & Chr(&H19) & Chr(&H46) & Chr(&H66) & Chr(&H6) & Chr(&H3F) & Chr(&H6) & Chr(&H2D) & Chr(&H16) & Chr(&H6) & Chr(&H2F) & Chr(&H16) & Chr(&HA1) & Chr(&H43) & Chr(&H7C) & Chr(&HAE) & Chr(&H79) & Chr(&H1) & Chr(&HDA) & Chr(&HFC) & Chr(&HC) & Chr(&HC) & Chr(&HC) & Chr(&H4D) & Chr(&H8A) & Chr(&H1B) & Chr(&H76) & Chr(&H9A) & Chr(&H31) & Chr(&H0) & Chr(&H0) & Chr(&HF3) & Chr(&H7E) & Chr(&HA) & Chr(&H20) & Chr(&H0)
alguien sabria como modificar esto? asi puedo cambiarle el nick? gracias