' for info>>>>
'Public Server_IP() As Byte
'Sub SplitIP(IPbuffer() As Byte ) As Byte()
'-----------------------
If bc.IndexOf(s, "a1=") <> -1 Then 'server bağlantı ıp
SplitIP((bc.SubString(s,"a1=".Length)))
Dim o1(4) As Byte=SplitIP((bc.SubString(s,"a1=".Length)))
Log(o1.Length)
Log("0:",o1(0)) 'returned >> 0:192
Log("1:",o1(1))'returned >> 1:168
Log("2:",o1(2))'returned >> 2:1
Log("3:",o1(3))'returned >> 3:5
bc.ObjectCopy(o1,Server_IP,o1.Length)
Log("Server_IP:",Server_IP.Length)'returned >> Server_IP:0
Log("Server_IP:",Server_IP)'returned >> Server_IP:
End If