Вверх ↑
Главный модератор
Ответов: 2999
Рейтинг: 396
#1: 2019-09-24 06:58:17 ЛС | профиль | цитата
Demo


Add(hcButton,2,91,105)
{
link(onClick,4:doInline,[])
}
Add(hcVisualText,3,252,105)
{
@Color=16777215
Height=37
Width=125
}
Add(hcInline,4,182,105)
{
Code=#58:// Method signature: public object doInline(object[] args)|40:const string ntpServer = "pool.ntp.org";|27:var ntpData = new byte[48];|103:ntpData[0] = 0x1B; //LeapIndicator = 0 (no warning), VersionNum = 3 (IPv4 only), Mode = 3 (Client Mode)|0:|56:var addresses = Dns.GetHostEntry(ntpServer).AddressList;|51:var ipEndPoint = new IPEndPoint(addresses[0], 123);|88:var socket = new Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp);|0:|27:socket.Connect(ipEndPoint);|21:socket.Send(ntpData);|24:socket.Receive(ntpData);|15:socket.Close();|0:|115:ulong intPart = (ulong)ntpData[40] << 24 | (ulong)ntpData[41] << 16 | (ulong)ntpData[42] << 8 | (ulong)ntpData[43];|117:ulong fractPart = (ulong)ntpData[44] << 24 | (ulong)ntpData[45] << 16 | (ulong)ntpData[46] << 8 | (ulong)ntpData[47];|0:|74:var milliseconds = (intPart * 1000) + ((fractPart * 1000) / 0x100000000L);|85:var networkDateTime = (new DateTime(1900, 1, 1)).AddMilliseconds((long)milliseconds);|0:|34:return networkDateTime.ToString();|
Imports=#6:System|10:System.Net|18:System.Net.Sockets|5:HiAsm|
link(onResult,3:doText,[])
}
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Редактировалось 3 раз(а), последний 2020-08-18 11:44:34