If you want use packets, you should first build packets and get headers. Then you need regonize what like 0x01 packet does, it is not just keysends

Like i use in Diablo II
Public Sub Send0x0A()
'Enter chat
Call iClear
Call iNTSTRING(hAccount)
Call iNTSTRING("")
Call iHEADER(&HA)
Call iPacket(Form1.Winsock1.SocketHandle)
ShowChat vbWhite, "Entering Chat.."
End Sub
Good luck!