Sub Button1_Click
Dim SERVERAUTH() As Byte
Dim rCON As String = "flo1993lol"
SERVERAUTH(0) = rCON.Length + 13
SERVERAUTH(4) = 0
SERVERAUTH(8) = SERVERDATA_AUTH
SERVERAUTH(12) = rCON.GetBytes("ascii")
AStreams.Write(SERVERAUTH)
ToastMessageShow("Finisched",True)
End Sub
Dim SERVERAUTH(128) As Byte
Dim rCON As String = "xxxxxx"
SERVERAUTH(0) = rCON.Length
SERVERAUTH(4) = 0
SERVERAUTH(8) = SERVERDATA_AUTH
SERVERAUTH(12) = rCON.GetBytes("UTF8")
For i = 0 To rCON.Length - 1
SERVERAUTH(12+i) = rCON.SubString2(i,i+1).GetBytes("UTF8")(0)
Next
AStreams.Write(SERVERAUTH)