#sha
Add(UDP,6550112,231,245)
{
 LocalPort=8888
 RemotePort=9999
 LocalIP="10.71.18.118"
 RemoteIP="10.71.18.118"
 AutoConnect=0
 link(onReceive,7760830:doAdd,[])
}
Add(Edit,12844596,147,245)
{
 Left=5
 Top=10
 Width=125
 Text="doInfo"
 link(onEnter,6550112:doSend,[])
}
Add(ListBox,7760830,287,245)
{
 Left=5
 Top=35
 Width=125
 Height=155
}
Add(UDP,11456131,147,28)
{
 LocalPort=9999
 RemotePort=8888
 LocalIP="10.71.18.118"
 RemoteIP="10.71.18.118"
 AutoConnect=0
 link(onReceive,5057160:doCase,[])
}
Add(DiskInfo,12888210,308,28)
{
 Point(OccupiedSpace)
 Point(FreeSpace)
 Point(FullSize)
 link(onInfo,10776676:doData,[(379,34)(379,101)(156,101)(156,160)])
}
Add(Case,11159379,203,28)
{
 Value=String(doInfo)
 link(onTrue,2639141:doEvent,[(243,41)(243,34)])
}
Add(DoData,7764291,168,154)
{
 link(onEventData,16485369:doSend,[(212,160)(212,92)(139,92)(139,41)])
 link(Data,15064611:DeviceID,[(174,110)(314,110)])
}
Add(Debug,10575197,252,28)
{
 link(onEvent,15064611:doInfo,[])
}
Add(MainForm,13779453,14,14)
{
 Left=20
 Top=105
 Width=231
 Height=106
 link(onCreate,16485369:doOpen,[])
}
Add(UDP,16485369,147,28)
{
 LocalPort=9999
 RemotePort=8888
 LocalIP="10.71.18.118"
 RemoteIP="10.71.18.118"
 AutoConnect=0
 link(onReceive,5057160:doCase,[])
}
Add(DiskInfo,15064611,308,28)
{
 Point(OccupiedSpace)
 Point(FreeSpace)
 Point(FullSize)
 link(onInfo,10776676:doData,[(379,34)(379,101)(156,101)(156,160)])
}
Add(Case,5057160,203,28)
{
 Value=String(doInfo)
 link(onTrue,2639141:doEvent,[(243,41)(243,34)])
}
Add(DoData,10776676,168,154)
{
 link(onEventData,16485369:doSend,[(212,160)(212,92)(139,92)(139,41)])
 link(Data,15064611:DeviceID,[(174,110)(314,110)])
}
Add(Debug,2639141,252,28)
{
 link(onEvent,15064611:doInfo,[])
}