Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Type IpAddress(First As Int, Second As Int, Third As Int, Fourth As Int)
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
Dim ipString As List = Array As String("192.168.1.32","192.168.1.20","192.168.1.1","192.168.1.3","192.168.1.2","192.168.1.22","192.168.1.222","192.168.1.25","192.168.1.11","192.168.1.9","192.168.1.6")
Dim IpAddressType As List
IpAddressType.Initialize
For i = 0 To ipString.Size - 1
Dim ipS As String = ipString.Get(i)
Dim ipAdd As IpAddress
ipAdd.Initialize
ipAdd.First = ipS.SubString2(0,3)
ipAdd.Second = ipS.SubString2(4,7)
ipAdd.Third = ipS.SubString2(8,ipS.IndexOf2(".",8) + 1)
If ipS.lastIndexOf(".") + 1 = ipS.Length - 1 Then
ipAdd.fourth = ipS.SubString(ipS.Length - 1)
Else
ipAdd.fourth = ipS.SubString2(ipS.lastIndexOf(".") + 1,ipS.Length)
End If
IpAddressType.Add(ipAdd)
Next
IpAddressType.SortType("Fourth",True)
For i = 0 To IpAddressType.Size - 1
Dim ipAdd As IpAddress = IpAddressType.Get(i)
Log(ipAdd.First&"."&ipAdd.Second&"."&ipAdd.Third&"."&ipAdd.fourth)
Next
End Sub