It is currently Fri Jul 03, 2020 9:46 pm

All times are UTC + 1 hour




Post new topic Reply to topic  [ 5 posts ] 
Author Message
 Post subject: SysTray Tool to quickly facilitate disabling your network
PostPosted: Tue Nov 21, 2017 9:06 pm 
Offline
Enthusiast
Enthusiast
User avatar

Joined: Wed Feb 01, 2012 3:30 pm
Posts: 766
Location: Nottinghamshire UK
Hi to All. Here is a small utility to quickly facilitate the ability to enable or disable your network from the system tray. I busy with working on the house :( lol and I wanted to play my music in the background as you do, being lazy I was using an online link to play the music (Northern Soul) although I have 2200 + tracks. I had not copied them to my drive as over 2gb, subconsciously it always niggles me as I want my network on when I`m using it and off when I`m not without going through all the rigmarole of wading through settings grrrr. Hence this little utility

I have run the executable though VirusTotal and is Totally Clean :) (Although with a different embedded icon resource "Cylance" gave an Unsafe. Strange as that was the only Difference in the code)

As discussed in topic http://www.purebasic.fr/english/viewtopic.php?f=7&t=69166&start=90 Filled Version info etc

Zebuddi. :)


Image


EnetSysTray.zip MD5 12132c908988896f582205aacd1230c4
https://goo.gl/f3uF97
EnetSysTray.exe MD5 2eace52e69302af9d8f1fbd8d099cb73

_________________
malleo, caput, bang. Ego, comprehendunt in tempore


Last edited by Zebuddi123 on Tue Nov 21, 2017 9:50 pm, edited 1 time in total.

Top
 Profile  
Reply with quote  
 Post subject: Re: SysTray Tool to quickly facilitate disabling your networ
PostPosted: Tue Nov 21, 2017 9:49 pm 
Offline
Enthusiast
Enthusiast
User avatar

Joined: Wed Feb 01, 2012 3:30 pm
Posts: 766
Location: Nottinghamshire UK
Update: Now takes 1 parameter as the network interface name to work with ie: ( EnetSysTray.exe "Interface name") --- "Ethernet" or "mynetwork" or "wifi" etc

ToDo --- add menu`d list of available connected interfaces to select as current interface. all links and md5`s updated

see 1st post

Zebuddi.

_________________
malleo, caput, bang. Ego, comprehendunt in tempore


Top
 Profile  
Reply with quote  
 Post subject: Re: SysTray Tool to quickly facilitate disabling your networ
PostPosted: Wed Nov 22, 2017 3:47 pm 
Offline
Enthusiast
Enthusiast
User avatar

Joined: Wed Feb 01, 2012 3:30 pm
Posts: 766
Location: Nottinghamshire UK
Hi to All. Here is the source code. Now shows available interface., Select the interface to work with from the menu to enable enabling and disabling of the interface, Still WIP

Compiler Option: Request administrator Mode.

Zebuddi. :)

Code:
EnableExplicit

Enumeration 1024
   #InterFaces
   #EnableNetwork
   #DisableNetwork
   #Exit
EndEnumeration


#MAX_ADAPTER_ADDRESS_LENGTH = 8

Structure IP_ADAPTER_ADDRESSES
   Length.l ; unsigned
   IfIndex.l
   *Next.IP_ADAPTER_ADDRESSES
   *AdapterName
   *FirstUnicastAddress;.PIP_ADAPTER_UNICAST_ADDRESS
   *FirstAnycastAddress;.PIP_ADAPTER_ANYCAST_ADDRESS
   *FirstMulticastAddress;.PIP_ADAPTER_MULTICAST_ADDRESS
   *FirstDnsServerAddress;.PIP_ADAPTER_DNS_SERVER_ADDRESS
   *DnsSuffix           ;.PWCHAR
   *Description        ;.PWCHAR
   *FriendlyName        ;.PWCHAR
   PhysicalAddress.b [#MAX_ADAPTER_ADDRESS_LENGTH]
   PhysicalAddressLength.l
   Flags.l
   Mtu.l
   IfType.l
   OperStatus.l
   Ipv6IfIndex.l
   ZoneIndices.l [16]
EndStructure

Define iHwnd = OpenWindow(#PB_Any, 100, 150, 300, 100, "Pure NetWrk En\Disabler Zebuddi.", #PB_Window_Invisible)

Define iEventID.i, iSysTrayID.i, iPopUpMenuID.i, iImgID.i, bQuit.b = #False, sInterface.s, iIndex.i, iNbr.i, iResult.i

Define sCmdString.s = "netsh", sParamString.s = "Interface set Interface " + Chr(34)

Macro Failed(string)
   MessageRequester("Pure NetWork En\Disabler Error", String, #PB_MessageRequester_Error)
   End
EndMacro   


Procedure.s sGetfriendlyName()
   Protected iCounter.i, sReturnString.s, iLibOpen.i, iGetAdaptersAddresses.i, iTableSize.i, bValid.b
   iLibOpen = OpenLibrary(#PB_Any, "iphlpapi.dll")
   If iLibOpen
      iGetAdaptersAddresses = GetFunction(iLibOpen, "GetAdaptersAddresses")
      If iGetAdaptersAddresses
         iTableSize = SizeOf(IP_ADAPTER_ADDRESSES)
         Define *table.IP_ADAPTER_ADDRESSES = AllocateMemory(iTableSize)
         bValid = #False
         Repeat
            Select CallFunctionFast(iGetAdaptersAddresses, #AF_INET, 0, #Null, *table, @iTableSize)
               Case #NO_ERROR
                  bValid = #True
               Case #ERROR_BUFFER_OVERFLOW
                  *table = ReAllocateMemory(*table, iTableSize)
            EndSelect
         Until bValid
      EndIf
      Define *info.IP_ADAPTER_ADDRESSES = *table
      While *info
         iCounter + 1
         sReturnString + PeekS(*info\FriendlyName, -1, #PB_Unicode) + Chr(124)
         *info = *info\Next
      Wend
      CloseLibrary(iLibOpen)
      FreeMemory(*table)
      If iCounter
         ProcedureReturn Str(iCounter) + Chr(124) + sReturnString
      EndIf
   Else
      ProcedureReturn #Null$
   EndIf
EndProcedure   

If iHwnd
   sInterface = sGetfriendlyName()
   If sInterface <> #Null$
      iNbr = Val(StringField(sInterface, 1, Chr(124)))
      Dim sIfaces.s(iNbr)
         
      iImgID = CatchImage(#PB_Any, ?enet_ico_Start)
      If iImgID
         
         iSysTrayID = AddSysTrayIcon(#PB_Any, WindowID(iHwnd), ImageID(iImgID))
         SysTrayIconToolTip(iSysTrayID, "Enable\Disable Network")
         
         iPopUpMenuID = CreatePopupMenu(#PB_Any)
         
         If iPopUpMenuID
            MenuItem(#InterFaces,     "Select An Interfaces")
            OpenSubMenu("Interfaces")
            For iIndex = 2 To iNbr
               MenuItem(iIndex, StringField(sInterface, iIndex, Chr(124)))
            Next
            
            CloseSubMenu()
            MenuBar()
            MenuItem(#EnableNetwork,  "Enable Network")  : DisableMenuItem(iPopUpMenuID, #EnableNetwork,  #True)
            MenuItem(#DisableNetwork, "Disable Network") : DisableMenuItem(iPopUpMenuID, #DisableNetwork, #True)
            MenuItem(#Exit,           "Quit")    
         Else
            Failed("Failed To create Menu`s")
         EndIf
         
         Repeat
            iEventID = WaitWindowEvent()
            Select iEventID
               Case #PB_Event_SysTray
                  DisplayPopupMenu(iPopUpMenuID, WindowID(iHwnd))
                  
               Case #PB_Event_Menu
                  Select  EventMenu()
                     Case #EnableNetwork
                        iResult = RunProgram(sCmdString, sParamString + sInterface + Chr(34) + " admin=enable",  "", #PB_Program_Hide)
                        If iResult
                           DisableMenuItem(iPopUpMenuID, #EnableNetwork, #True)
                           DisableMenuItem(iPopUpMenuID, #DisableNetwork, #False)
                        EndIf   
                        Case #DisableNetwork
                        iResult = RunProgram(sCmdString, sParamString + sInterface + Chr(34) + " admin=disable",  "",  #PB_Program_Hide)
                        If iResult
                           DisableMenuItem(iPopUpMenuID, #DisableNetwork, #True)
                           DisableMenuItem(iPopUpMenuID, #EnableNetwork, #False)
                        EndIf   
                        Case #Exit
                        bQuit = #True
                        
                     Case 0 To 1023 ; allows For 1024 interfaces
                        sInterface = GetMenuItemText(iPopUpMenuID, EventMenu())
                        SetMenuTitleText(iPopUpMenuID, #InterFaces,     sInterface)
                        DisableMenuItem(iPopUpMenuID,  #EnableNetwork,  #False)
                        DisableMenuItem(iPopUpMenuID,  #DisableNetwork, #False)
                  EndSelect
            EndSelect
         Until bQuit = #True
         
         CloseWindow(iHwnd)
         End
         
      Else
         
         Failed("Failed To Create TrayIcon")
         
      EndIf
   Else
      Failed("No Interfaces Found.")
      End
   EndIf
Else
   
   Failed("Failed to create window")
   End
   
EndIf

DataSection
   enet_ico_start:
   ; size : 10862 bytes
   Data.q $0000000100010000,$2A58002000010000,$5089000000160000,$00000A1A0A0D474E,$0000524448490D00
   Data.q $0608000100000001,$0066A8725C000000,$78544144491F2A00,$B9D51598799DEDDA,$034343DAAADF7FAF
   Data.q $88D0506070404069,$126D04789460D188,$8DCBC14994440635,$93A651EB93C6E68A,$1C4E4E502713B698
   Data.q $C8E90144271E49CE,$E8DE3B40D84D46A4,$A98608328D9C5111,$FBBEB54F7BA10691,$DD4F7BB1ECDDEF47
   Data.q $B623E3CF57F6BB5D,$6AABBDFDAD565EBD,$DEA2B64115FAAD57,$EFE996CED7FC5BEE,$F50658F98AFEE0CF
   Data.q $4F5400F74807A024,$12F695A15000F468,$4087B4ACDCAC4DC3,$38320E144DDC806E,$4109907498055A48
   Data.q $07EC2801C01F95A5,$081D7307ED581D74,$C2336D022ED135FB,$7C88F8FFA6B36DDE,$CACA80BE51BBC50A
   Data.q $8596AF9F61C09451,$1BDB8D4D555E3857,$143C40C344510D74,$43FA98007882069A,$E50AE8A7203898E1
   Data.q $8507D8D3C6B731F1,$E1345BC506D8D0AD,$3EEB07AEE6F49303,$7B5F3E486673399B,$19472B2A009AF2F3
   Data.q $E5E12D6AF9F33F89,$7EE53D9BA6F73BCE,$434C318046A03EFA,$BAD5C02AA752830F,$7CE23FDCD5C29CAB
   Data.q $D4144FEB41081A78,$F91D6FCD6B361066,$A3757E7F7FBBFB66,$0B31E664786D8BD4,$D9784B0011338919
   Data.q $E3C7B7A3355E46F1,$73AE98679D4A0F3D,$173E9AA507BFA8D1,$2C9D6AB266541402,$00A797CB75C852AB
   Data.q $C4D35860061A9417,$D385D084E3D4E8C1,$F4C3A9BC2226CFFF,$6EED5F3E6BD536A6,$394C0029E10E97A9
   Data.q $A9CB9C2674533636,$0DEE5F2FE6F1A948,$FCC158B852B46036,$6565BCA0429C0C11,$63FA18F1314AED1C
   Data.q $DC2A792F4C4CBD02,$2F52034BD2F2FDAF,$8026EC8C2233CE6D,$E8F304CE8A776348,$7C755B2FF779E38C
   Data.q $AD9A25F4B2AC6988,$C32BFFF629D520D1,$8A041F256D2E59C8,$9AF5A8288FA1A795,$26D3B9F9F9A44BF5
   Data.q $1E6CCF382BFA94EC,$8A4F634880266CEE,$F379638CE8F204CE,$984C55C60BEEAE97,$DB10C93700B9C044
   Data.q $F9DD3DF2E432A292,$4B41E580A1BF063C,$FEA5BB83E4FB5B3F,$004C8E0C23B9E6F2,$74537800AC6C329A
   Data.q $E33A1CEAD5F3EFC6,$2219EB9E4BFDDE48,$A543FD60498C093D,$44859658667B5354,$897D0AEDC8C30C1B
   Data.q $ADD7ADA5B165B4F1,$FCAD5F1DFEC56050,$CD65FD48DFB58DF8,$7CF8013A33874773,$67452CB8D86516B5
   Data.q $555578638CE8F31A,$C6642F33E0F3AA55,$667AD5D27C615AF5,$66186848E9385658,$64C8234F3095721E
   Data.q $EF17E0C7FDC3073D,$2E33EACEAEAEA86F,$F3EFC8E122F67AD1,$3A62C5CE568186D5,$A3C868034DA5FB13
   Data.q $C945DB4BB8809D33,$9A94BAC715A9F3BB,$76BA9818019FA201,$4CA600BA4E1C3A19,$69E78BC273DBA733
   Data.q $8B9972A8F0892F8D,$4E09BBD5ACBC4F66,$7A272893272CBFAA,$98D0B52202F9A0E7,$0E008A1FE4558D22
   Data.q $515B3314F299D1E7,$BA622CEAB259EEF1,$78A968C14A898195,$0C110D217E2870AD,$D3C34BC20CB395D3
   Data.q $BCE168072D15AC3A,$30E5FD72726F97A9,$05DC4FF23A394499,$7BDE8E0F7E416A44,$55557F292548CE8C
   Data.q $B8C512F3390EF295,$9A798DAB2251840D,$FE3C99CFF7C1B3D7,$3A3CBF9612E22265,$4880BA4FE47A3822
   Data.q $E40FC8FE2377E469,$55D57F8394521A77,$3C01A7BD2EFA8C53,$31E1E2D64453A00B,$77EADB7DD34AC7F4
   Data.q $CA096F4AF57CFD2C,$531BF91E8F633D1F,$3E489BF214A03DDD,$9E4723FC929637F2,$50985359F079D8DF
   Data.q $E122D645EFDF3485,$3FF30D8DFC5BFC85,$56F5F5F5B3FCF759,$9BF92D59651FC909,$F213F23F88980138
   Data.q $5E3C7BF25450F5BB,$2AA0C84BFAF9391A,$2D8F0E72E4443505,$ADEDBDDC0C1C2CFE,$852E1C5A2D174B75
   Data.q $C53B99E2DFC88E7A,$60FE47A3F1188C00,$CA6369F8DE7FC8A9,$5C8A868A52AF75BA,$CF67A527DE81E60E
   Data.q $467F2E1CDFC5729E,$F91EC7D2A2008A3C,$E6758354586E5D73,$5DCFBDDAE90DC78F,$9E1D2AE452B7AF2E
   Data.q $94FBFEB7D2605E06,$802763F9552F3E2B,$FE0FF2E9D87F23C4,$A79B0C07BD1539FE,$E4432EDCB99FAE5C
   Data.q $E83C2661D69E412A,$BEBE31996F6FD209,$CB001001354FE4D4,$B8C4631EDDBBF2C9,$06576F7970CBFFA9
   Data.q $8A75D0D3C20C8855,$5D1E3DEFE7C35E69,$0027130EB72A5859,$A43F198D87F964ED,$4738CA541E6398E2
   Data.q $7180B508325E1064,$F20A597E1627DAC3,$87F60703BE259103,$2706D96CB7AB57CF,$1589C27157945CED
   Data.q $BBCBCADBCAF8BFDF,$2F0832289D4A463D,$C70DF0E96FE846E5,$6EF1D9EC354C329D,$FE40FCB276834343
   Data.q $274FC47F97B66091,$F44443C56BA9D05D,$F358F2997841915D,$8BE362FDD7D6DF87,$004D79FCAA726ECF
   Data.q $BB80F43F9FB9DF76,$9BB3994A1DC7B7B7,$A782CBC20C8BECD7,$09E418EF34D32C99,$B7E2ACC4E27133DF
   Data.q $25B951CACAFE418A,$92C4F77EE77DDA46,$32211A2289630093,$7266BC669E5F2F08,$04EEDCAE6BACDA78
   Data.q $A6741B0D0133623F,$5D8693B2A6663C60,$78A40344539F99AB,$84D44E111E085785,$15BEEDA4C2663DFF
   Data.q $53DECDFC80743FCB,$9A9AAABC60A67707,$C9A1D688F5C06F72,$3C669E2B6BC2BC52,$4A217AA537655A65
   Data.q $776DA026739FC891,$55E693072B65EEEE,$ED78578A577D6C3A,$3EFF15D30AC0FBC0,$26527F264517DC7D
   Data.q $CF778C14CEA0EAA0,$F911FFE691C66BD3,$EFC50DD3BC8ED785,$BF224565E57A7FCC,$D6DABE7C28C07242
   Data.q $ED3B0C45926200CF,$AAEC35B18D4D4D5C,$61D78578A4AFC666,$F23CCF6BEDFACB3C,$6D3F9636CFC040FB
   Data.q $202668E34191A026,$CBBABA3FE6E765D9,$78A4CFC60158C301,$BF417C2B3CA1D785,$A1D2FD01D70D8653
   Data.q $301A3F943643BBFD,$FE8BA2B01556347A,$6C120266C71A168C,$C2FDF3F970B80992,$8578A5F3E625AF26
   Data.q $B7D1549D111E0767,$FBAC5E2ADD6545DF,$1EC602659B1ECB6A,$17013368A84019B8,$4022F5B34C335D2C
   Data.q $619E3B678578A4FD,$B8EA773A5E65057C,$2A8099467F206C8F,$2D1DD223AF89FC8D,$F582D8FD564BBDFF
   Data.q $7194F2DB3C2FC8BA,$4AEAC960B9BD6002,$0A54851BD19FC81B,$410343B088BD53F9,$42FE998D355B2FE7
   Data.q $1E676784D8A45D4C,$BA5FCD2FD6657541,$CA7BA7F7E48D8A72,$3B882BD5200CF137,$8237D5D2FE741034
   Data.q $2BC26C521B113169,$EF7258D6A6529E0A,$D6EBF2C1D67EABD3,$177D8503003155FC,$801BFF57FB4E0159
   Data.q $94F1B15E136296FF,$F564BF9D1E8A4452,$8DDCCE8CFE483B2F,$1D20629F957A2008,$99F069D4CCC80996
   Data.q $2BC26C523DC221BF,$0A4C5731E2E11E6A,$CFE59DAD7F2E56F9,$87F20951040D1788,$05DF574B05FE523A
   Data.q $1E08E784D8A5DBA2,$6871324C579545D1,$8802763F92762BCF,$0F06CB013343BF95,$3C26C5237E889DBF
   Data.q $864371CBFC00F127,$F22EDDFD368FF6D2,$DEF013343A009AA7,$6295EE888DFFAB25,$F417194A79139E13
   Data.q $DE9BC7C77EAC321B,$67874013B1FC83B1,$3C2246FABA5FCE02,$D30CF3273C26C520,$3E3B9DF4F837ECAC
   Data.q $BFCA8C04C94DEF7E,$444493F16D34D56C,$C1948F3A73C26C52,$B2C57A99CF574186,$2B90A009AF3F948E
   Data.q $785F9F722FE998FC,$9E2E830C3AD3C525,$C3BF928EBAFC6533,$82CC335D2C170133,$F2495E13F0ACBAF5
   Data.q $3B3DAD91A2B20E34,$05C6872A809996D0,$7857BCB2C18FAA7B,$B8BD6C46E853CBA5,$71BF2CED3E85E6A0
   Data.q $5747FCFF201D0BB4,$9C7CCC0BD65A0977,$04EA479A4AF08714,$3B5FF16FB85F870E,$5918FACF71FC93B7
   Data.q $58C301CF92582E34,$5BCD784F0BF3CF21,$A53D0E46D3A1565F,$DF9436E15E5795E6,$1ADC04CF76E2C09D
   Data.q $E10E2952F9835576,$9F069D71A3762F09,$80991EDF9236EBF9,$2D5E911C66BD3CF7,$6B5A6F25E13C21C5
   Data.q $D5E87E2DD763D686,$D0655013369FCB02,$06EE8E72F7E12CB8,$A9784F08714B1785,$AF0F4FD6B0A22237
   Data.q $62965FCA02C0C9FC,$0264BB59CD7E6932,$E9F22CBB94D4D556,$9784F087149C75B0,$1FD753B7AF60479E
   Data.q $2FB7D91CCF8D5836,$EFC82D5404CE3688,$1EB80DE5D75E8141,$1E332F09E17EDC91,$47EF2319EA7A1A29
   Data.q $3D27B99E240ACFFE,$23E48DDF91A46FE2,$FA7C1DE33A5C91FF,$4F08714BB7596D74,$81F4E7B74CF39978
   Data.q $1F33E56FA9FB9E67,$2C653F91E27F28E6,$701A7244DF90A518,$02936325E96FCE63,$F259784F08714B95
   Data.q $713B9B0D5BB20E34,$6FE4B56FC87957EC,$DC07A1FCFE02659B,$72F09E17E444B180,$9AA9F870A37429E4
   Data.q $132ED8EBD7569A9A,$211A22957BA78FB0,$FD4F0F9784F0A61F,$67F20E7667B096CB,$3F74F44011480994
   Data.q $7E238099CE7F7BF6,$2AD7DD2EB282E93A,$5CB9DF0C50C6B915,$9ECA9430DC79946E,$304A8331C1810A17
   Data.q $B1E505784FF4795C,$89939457FF914206,$8F267339E69861D6,$6880BA33F90B377D,$04CE738D31044EC6
   Data.q $2B5D4E8AC4E138AC,$078F5EFCBFB2221E,$A1FAE380C1F5FA83,$E1AFCB59502EB747,$F5E0888B0AE3FBF7
   Data.q $DAF09FE872A4417A,$AF823E1E0E10078A,$A1C2EF5F17C7EEF7,$1989103F21C50D23,$311A7F4FE9FD8FD7
   Data.q $9D8FE4A150CCE673,$F4380995E71B6200,$9676BBE8885BCADC,$4E3FA83A181A65DF,$B9132A753A1FBE3E
   Data.q $4EF8E52E9DF7844A,$F96C44E8369C7297,$0C6817E9FBBC6EE7,$86000E747F2DED04,$0A0B0016EBD2E81F
   Data.q $6361C04CE0503F25,$0818F6EF2F290FC6,$2E13B9D2EFE55D86,$B281EAF6FA386B3C,$CA5D157954BF9132
   Data.q $10703DEC1F6FA031,$026E6FE5AD80FE0D,$68706A6B8AE63F9C,$747440ACF40A3D57,$76EFC8EBCDABE7D8
   Data.q $0A007AF4C7EE8C7B,$A067D9D17FCB3B6E,$79943C20C899794B,$E2ABD1C339D1F8DC,$1CCBD0D23F97B63B
   Data.q $F40A0BBCBCBCA47E,$C68184B9000180AC,$0CFA62BDCE800FCA,$2FFB4F9D99FAE5C3,$0C8AF2773A386B3C
   Data.q $ABDF1C2914DE6BC2,$6428608BDAEEB627,$FD31FFA85607BBFF,$E736F7E3E3B9DE4F,$83FCAF9004F37F2B
   Data.q $5F8E63D7454E7FBF,$8CEFC17AECCA8A4A,$83221EAF6FA20793,$E65E5030D33692F0,$43ADC516763B97C5
   Data.q $77EA8BC99046B943,$6395404CCF23F2EF,$3E9E067D100BB8C3,$27FDABE761541957,$DE5A5E10644FDF1F
   Data.q $DB72D747A33ADD31,$90FC79E850000FCB,$BAE890708F2166B3,$B8F1FCCF0133BC9F,$FE7DF3B3AFBA6421
   Data.q $B5E17ED5C8FAFD41,$8FE5FDAFAFD41BCA,$B8CCC71BB2B2CCF0,$809990A3F22E5075,$1976E5CBB9F7BB5D
   Data.q $1913F5C701AC1E76,$45EECF6FAF2AD784,$85AC817220D062B3,$68B2A809971FC839,$718DA7E379FF249C
   Data.q $A3D7E15F7695BD79,$BCF2AD784191175B,$E5A6297794BA375E,$59319AE977BD3FC2,$339C83DDC246EFC8
   Data.q $5EEB75952F1E3D01,$8565B8F32AC1F765,$8B799795E632F09F,$AAA82F05DFA6FE45,$6026652BD924CAAA
   Data.q $780004592297A3AB,$DA868A512FEBE4E4,$F059785F910CB07D,$06EBB1D792C8D30C,$5BE3E1E0F3BC3014
   Data.q $6B57CFAFE89BD7F1,$E026527F2AB7DA45,$C5554193F0AFCBE0,$CF3C2BC20C8A5334,$191EA9D5CCCCF51E
   Data.q $A53F20B5501324CE,$C2715FEE1C00399A,$C89E17E444350564,$61ADB4EA567A836F,$37F0A53BF90A6273
   Data.q $314D5755E026579C,$2BC52583B4555098,$A3BAB4DD1FC9273C,$328CFE463306C36A,$6A16AF13F91A5501
   Data.q $0D3DE977D41D1644,$8DBF22785F9140C0,$9C1E7FE7706159EA,$FACF54818253C2DA,$AC16269137E42998
   Data.q $E2ADF4CACF236AE9,$C4D1B1E6903F924E,$822F5E3CF05205FE,$6866647D165430C1,$1337F7417334F31B
   Data.q $25075F1DDB9B6B5E,$97956798B3647F23,$FC1230F87C39AF97,$A00F312FD07BA7F5,$012F3390EF3058C5
   Data.q $BF4DE37FCA294A70,$102266B2191A04CC,$2DF19C5D9F17B7D3,$ABEAFE08FC3FDFC9,$166A0BB5DAEBCB4D
   Data.q $FDD7755BFBC677FD,$F7C779694D9DEB78,$EF31905C1E478BEB,$917D9FA7C2ADCEFF,$DBF058A9E86C3796
   Data.q $B05BC6F6BBCC655F,$EDB5AFC716DECF67,$7CD5917E8EDDDFCE,$A1A15B43333F26A5,$2CD6B7A2F6345DA7
   Data.q $404CC851579D175D,$9A02CFE4D4ADB8C5,$56586B5A6EC6F157,$2DA794156D3CB0B8,$28A57FB0171E505D
   Data.q $18E6F9DCEDE7947F,$13F9115404CD5B7F,$F7C6E68677E8D6FF,$FE44A3081675592C,$0AE3C7F7EFDF97B6
   Data.q $15E68518FF6C2BC2,$CA50007E594B7F66,$86434E1365D6751C,$7F271E23A3A90A0F,$6FE455BA6242D5D2
   Data.q $C147DB978599F91F,$71E7ADD7947F2D25,$24A8E26094FA6537,$715A9F3B800427DD,$AEDF917E4513032C
   Data.q $BF2F25020608003C,$74B5DF278060BA61,$60B19480265CEF4D,$FC8B7C473466A52E,$F6C2BCC0A13F23ED
   Data.q $911F92F21E68508F,$4A01113F2EA508BB,$77A2B099B5F40699,$9555554329DD3801,$8AFEB734A9D7C4D2
   Data.q $6182227E4D8AB061,$653CA0A329E58598,$954E1CE548F282A8,$03DFD1FCB49479F4,$9CC5A888FBE663AE
   Data.q $17EE94153D34054F,$A0350542F33E0F3A,$9BF93A2A142B0768,$143CD0A1E50547FA,$A0A1C235F907679A
   Data.q $FBDF2740A428DE23,$C60CAA635A0BEACC,$27C519299E62FAF7,$2DAF22972F8FB67F,$4F5F98A9B5F54FE4
   Data.q $4CD5B312DF5D34A6,$8C2B463F2F96BBC0,$2284EFC051F9562F,$478F6E0807E5BDBF,$7EEE13D6771D8FE4
   Data.q $099467E2548F6572,$5B4AB80544CF2CA8,$5CDBF22FDF808D7E,$5E53B102EC15107E,$4CAE9328F294AA4C
   Data.q $1526320267191F94,$6FC8A169F028FCBD,$EA60B9A54373F94B,$F904A4F13312B7A0,$7EF9FCB85C04CB33
   Data.q $7D141F9662C3FD60,$32E0A00FCBC76CCB,$72E9BF2945C79BD8,$0582EA0AE495EA3B,$1C30133AC9F42F35
   Data.q $5FCB51514A54AEB6,$3EEE9FCAF90375C0,$B4F282EB3032AE75,$E4E8AB2CB3CA0AB6,$8559EBCD8BEEF5CF
   Data.q $47202675912BC143,$2D25C3874331FE56,$9D5ABAA7F2FE513F,$ECB9085BBB710C97,$1981E172850793CE
   Data.q $FBC04C9B21268708,$1981E70A1E3AAD97,$E504A3F07F8E1596,$FADF42EA7DC1B4F7,$0ACF259FC89E152A
   Data.q $7D55C9F88E463343,$A62180996B463FA3,$2FB184ACB2C300B1,$4559142D3D73F93D,$4A03B99D35E68EFE
   Data.q $669904B8AD76F229,$9F3C256D62F98202,$2A0B78AE17F2B25D,$F2279DD972C0A103,$EBA657733D8BCB67
   Data.q $3D7FDE701324C847,$89AD7C617C2B065F,$A440CA42DE2885FC,$30CF2828CA53CA0A,$CA5C103C2EDF910C
   Data.q $7F12BB9F86F23D1C,$A751472B2A046E3F,$EC7629D5205186B2,$C5BC501DFC8A6995,$34DFC89FEF0EA3CD
   Data.q $0A7795060061867C,$9430000138B647BA,$EFE4430DADB1C5C2,$9A1463F2EC2DE298,$CE47F224E4F5B607
   Data.q $25F1590C79B30DDC,$1FCD836BA3802769,$AF17BB7F221CCDC5,$D329E085FC8A0264,$FA2009A4A6431F8C
   Data.q $E8CD579180020122,$6624650180A7030D,$C6F6FFCAF9FC8A84,$0608CCCC5EFD5AF7,$0ACF22D03BABA803
   Data.q $5F8D197BE37B785B,$F22D43C1FD401830,$0D0D23BC564081FC,$5E2B387B7D0EF22D,$844798DBF9141830
   Data.q $F4D66BD15E2DF7A1,$1EE9A88026E37B09,$575C8C81023CF78F,$F71DEF152DFC89A7,$F01A1A4778C147FC
   Data.q $DD5F6F182FEEBB9B,$5051DF6DB6F282FE,$D3CCB7F222F5A65E,$C77FE8EAC00F3A86,$DBF91291E7528A8F
   Data.q $01324F3DB5E17E42,$91B8C085DC51E133,$55C8BF22B9D74C31,$52131E75BF913CAC,$A07B374DEE7C004E
   Data.q $697F2258389CF7F5,$559C691BF4FE44F1,$F3E004DC6F06C4F5,$4CA50FBE9FB972D5,$678501338D960DC7
   Data.q $53769809939DF937,$01371D9C0FB99770,$5DA53389C238FE44,$9A9DF93F67850133,$624039D111B8940C
   Data.q $6BB7E4D398632026,$04C93C36DAC8A026,$35013293D38814CC,$0133DD9CEC2730F4,$86602649E3B6D645
   Data.q $000567FA233ACB4C,$23AA75286E353555,$2F6AC8A02651B7E5,$86B531260264295E,$79B362E6301D4E06
   Data.q $7FD312435D06F002,$56450132DDBF209D,$2218C04CB4EFCBFB,$4E794A50C18165B4,$2A026688C9C27DE8
   Data.q $809966DF948E61A2,$EFC4E4283C316B22,$3EE9A66EC7F24DFC,$1B16D0F1202668FD,$3BF21255C8A0264B
   Data.q $52800BD929301333,$81A6A036F44069C6,$01332160264B1BE9,$4F09795DBF915645,$7CE23814A4081295
   Data.q $13253FCBC5200CF4,$DFC8AB228099D0B0,$FCD6EC602668BC9E,$530013A3FF428FAC,$21A2CA02648044FF
   Data.q $07045C4FE578BF91,$74DD1DF91FE23E8A,$3850E535355557D0,$45F91404C97E4926,$563013313F95A2FE
   Data.q $BE5C2CFA8A50007E,$1D8C4E7B0B2CCCBC,$589280489E3AD66C,$4EB0498F86661830,$E2F2F08913AE59FE
   Data.q $DC2295EC9A38FC89,$7F7064D13B2E1FC7,$2C4ABBA4539F918A,$6266233CA9D65018,$4F3B9784190F28FF
   Data.q $150CDC4C04CE4FE4,$FC4051B1F314A01E,$5FC8972280992BAC,$B4DC4C04CCA7F2AC,$6E5DF133D418A3EA
   Data.q $89722FC88182E440,$934F4047045D8EFC,$91404C943FF11E80,$786CC04C97E558AB,$90027E3A40A1E84C
   Data.q $09927948AB91404C,$3D500A9E808F1D98,$3F913C09CB917E45,$AFA6E8287A069E3B,$809982585E3F3900
   Data.q $9B667F2279BDAB22,$7F2C1C0540033A6A,$5FCB2756450133A1,$4AEEE83CB1809902,$0998A52E93D39D2B
   Data.q $064BD2FE5B3AB228,$17F2A9DB86228F22,$324F3FB56450B4F2,$CAC456E01263B301,$91404CB36B9DA4ED
   Data.q $1990CC04C93CF6D5,$7B4AC51E0ACFEE59,$B2285A7F0A3F2D1C,$9B318099AA57833A,$976B9D84EDC8115B
   Data.q $4297F2F1CB91404C,$60C851E1A6F36026,$E414AB91404C9002,$79065000404CA52F,$2AE45013258D4654
   Data.q $52CA3013274BF909,$F980992C6E5B0700,$F2877F22AC8A0264,$2808D680020264D2,$99BE602648013B4E
   Data.q $16BC91DFC8AB2280,$AB48A02140010133,$21A2CA0264802A40,$30132D6FE578BF91,$5F94A60E931505B2
   Data.q $E568BF917E450132,$A023480010132D6F,$3404CCA401371098,$969DF912E4501325,$B1FCAD295040C809
   Data.q $9722FC8A026727F2,$37ED05404CC4EFC8,$0C0236E202881C01,$D8EFC8972260B125,$9FD850980EA5404C
   Data.q $F225C8BF22101336,$404CEA069C11753B,$572280992E8AC5D7,$14F0D980992FCAF1,$4A1FD8FED5815FB0
   Data.q $04C93CAC55C8982C,$9D73029D40C78ECC,$67F2278139722FC8,$E8FEC2057EC623C7,$649404C97E533980
   Data.q $9A53A80B253F9120,$7F225C8A02649768,$408ADDE9420265E9,$FC8A0264BF2B1CDB,$C21428192D4AB059
   Data.q $73B69CDBBD846536,$CC04C93C9A580992,$359A9B6B1BE8798E,$4FE44FB1A047C7FD,$8E80992809921C5F
   Data.q $2F4DAEFFB969BF92,$3AB61414FA681C3C,$9F165E1404C97E56,$26F6F3320264A96F,$97E5139B634001F5
   Data.q $64A97F2B65E1404C,$000136002B631202,$33D4B7ECB4B4B78A,$52872974BA114901,$B64C8A75ABC5CE46
   Data.q $59C29B1A1A47790C,$E7794BA111172E6C,$C8F54BF1D737F7BC,$5B50133A3BF2366B,$DABE7C5BC19C7588
   Data.q $42DC503E134009A6,$B85DBB7404CF12E3,$DB224CEC175FCEFB,$65B11FC3FFBF126B,$CA5D000FCB5B76EB
   Data.q $72F02BCEDFCEE33B,$120264715E736D5C,$BE440CD81907FCE2,$992C6FA737A49802,$DD1FCB3B36297680
   Data.q $A0FA2404C922FE44,$0D33EEB07AE80279,$9FC8A0264B9A1284,$264117F225B5A6D5,$1FE2A7D8D03AD6A0
   Data.q $D0433399CCC013CD,$ED0132530FB893FA,$342D8843ACB17F23,$8901336979C3BF91,$013CDC3A3D1EAA3E
   Data.q $325F938E6D41FD34,$7A4AB696BC536D01,$13212F279FC89E45,$FCC66CFF441F0150,$82C4A0264D2066CE
   Data.q $2FC8986BF12F2875,$D06404CE4BCE67F2,$888B7E6B4009A4E6,$785D982C4A026453,$E236FC880F2FBFB6
   Data.q $FF356F4C5404CBA5,$377F6CDF2387FA39,$45F910E6746042EE,$8DBF22194A790CFE,$4247823501332978
   Data.q $A39595004DC6375D,$36B6846EAFCFEFE8,$43F246DF910FFF35,$A9DEF142FE44FC32,$F22001371FDA319E
   Data.q $0305F3526F088105,$74158F233C2EDF91,$1BF146D71FC8BF22,$6F4C3A2A371DFFB1,$B607B978FD982C4A
   Data.q $D2AD3B427F22FC88,$5FC8BAF5D786004F,$69B74FE45F913CFC,$7CFB001354CDFF97,$F43176E329DCD6B5
   Data.q $17E45F912C1B4EC7,$9A4D5FE6F5AD01F9,$9B6AF9F002692FB4,$C0558351D97A0469,$3B3BF2E9DF91404C
   Data.q $94693B724A915013,$CA8594CD2725E988,$93D3BF2F9DF91404,$472B2BB738E2B481,$6BF70A9E4BF89991
   Data.q $B173AA0A23FEF50D,$917E44D42B2A5FCB,$687EEDBFA1F955BF,$E7F074D1F1511BDF,$140697A5E5FAD1A4
   Data.q $1DF917E45F917AD4,$433399CCDF1012F5,$7F34AB2BEF9BF911,$C8BF221F918ECBEB,$E811BE0F89CF1D9F
   Data.q $A4F9166226FC88E5,$5FC82739FAD6351C,$3BF2F9DF91404CE8,$FC3856CD6B501331,$94E3F0AFC46E0017
   Data.q $A38C9D84DA773723,$2FE450133D4A862B,$AF44C8099A9DF90D,$C3F209FDE1EA7FAE,$E580A7A3B4E5ABE7
   Data.q $5FC8A0267C94DE91,$3FE43013333BF22A,$AD6AF9F67E412AB2,$CB685681DA69E788,$44D9B3F91404C962
   Data.q $767B03EA0265DB7E,$9CB11CD036A7173F,$2CBB9FFE3ED7AF76,$A67F2280992EBD6D,$B2D0132FDA02649B
   Data.q $8C6F617FAE1FABF4,$3CF7297F85D8E1FC,$442B028563D0B572,$FC880798CC04C97E,$622B838567045B36
   Data.q $8802729FCAC60FE4,$B57C77FB4006EFC8,$9E58EC04C9411A12,$BFD8F1B9FC8A0264,$8903F911D5D6DB77
   Data.q $6FE5478099B103F2,$E9BF6B1BF1F84FBE,$52B9E98673D0603D,$6387B388DE38EFE4,$63CCD7F79B0349F0
   Data.q $973C50AFC629C2FC,$7A43A788DBF22DDB,$9FC0003FAD6FE7CD,$842B4D0009A4FE4A,$8891FF70C216AEE2
   Data.q $D9F6778E3BF914AE,$BE2BC1A57FBADA67,$34002786C6FEE15B,$91E6BB5D3AB57CFA,$0FE03F2C951CACA8
   Data.q $C8A5F1AD06FEF17E,$6986EE88BF913C2F,$FE496BE9DFADE17C,$F9048FEA722009E6,$D6AEAEAEAD5F3E03
   Data.q $5FC89E17E4547844,$F6E47D80AD37F224,$0265C7DAD6ACABDB,$CCB950B5771FC8C6,$E44F0BF22C3AD045
   Data.q $F30642BA64FCBFB7,$9F7492A389184CA2,$56B76CBC4F660010,$FF6FC89E17E45CB4,$13E9ACD9788A61BB
   Data.q $16AEE9580132E6F6,$6FC89E17E450B402,$594CC2C60A61BBFF,$4DE607E5E9809971,$C1C62FAF34137CBD
   Data.q $E333F22A57841912,$04D59CDB8EA7B36F,$F7C1B97F71F892D0,$F0A026509560DD17,$CCC367F744101324
   Data.q $3472FF1E4CE6946A,$5E74E78501325835,$CA673CDEB5AFC9B1,$D951CACACCA65F58,$C49F74D2B111148D
   Data.q $00FC97B7E44F0982,$F9B3D5A888FB8500,$F593F75D1451CACA,$F90AD4B1DFAB6D68,$246DF913C2FC88B7
   Data.q $2659786641D3F83F,$D58DF4C04CD5A3F2,$F30D8DFD7A57ABE7,$4F0A0267077E468B,$13898EFD0A630132
   Data.q $60267ADFC8195A27,$D64FA0039401F93A,$026499FC5B2CFF3D,$FC04CD22BC69CF0A,$FC819CFEF7D3E1A0
   Data.q $D4003F24B6026599,$796EE060E15BD7D7,$3D6115E3CE785844,$E2B75ABABAA6FF33,$EE34260264D907AF
   Data.q $52DD6B7B6C733894,$16B4B2C1F76CDE66,$B2B61C2F31978419,$A9ECE36CC1F875E4,$CDB22F5FC569AF97
   Data.q $0C7BF0965C698C04,$3444C38B45A2F0E0,$33A0860FE583EEDB,$03F835E10644049C,$2BBA7668343F24C5
   Data.q $7AD3EB3E26FE31FF,$E34537833BE46026,$FE3D5EE70C47D1C3,$33160F3B17FCD0AF,$5AF08322C3A1FF63
   Data.q $8BFBF068830635E5,$FADC75379EAC7E48,$33CCDFC294EFE416,$D6E94FE8FF925B01,$B9DAC1E8EC149ED6
   Data.q $AFBCAB5E10644EB7,$1A08D0FC8D15D4F7,$9F2472FE416B6FA4,$A4D93F18099767B9,$C67F97699CC01F90
   Data.q $EE765B583CED0784,$745E10644035FB4A,$003F21C5D7C77CFB,$D97C5729ECFDF856,$809994EF0789FC82
   Data.q $2D0DC68A66FC852A,$5D0D5BF482788B25,$C9F004086AC1D767,$BEF2D2F083229DF6,$145B7E0FFB17BDDA
   Data.q $B2BB80D43DEB43F2,$A6A8E260266D3F90,$96E8562D6C6B058A,$0E5B3CD315EBE319,$78382D8FFCDB6456
   Data.q $3F9E24BC20C888E4,$90E28FFC7CFFC410,$2EEB9CCE632B001F,$04CDF235F90336FF,$7BF9F0D6E8FE4D6C
   Data.q $000FCA3B15E06B8F,$18D19B3BC3634B61,$DA8BAB8BC20C8A0C,$F90E281021A33777,$819C5D8CA6737DA1
   Data.q $2D004F37B99EADFC,$D5D5D553BA660265,$AEC0565960DF499A,$6FCBC4686DBE7C8B,$C20C88DF75BD83BE
   Data.q $C46D6FB580206343,$68D6BF214543FABE,$20B5FB6F6333D664,$E0600035FC4CE1FF,$99424288022AFEC0
   Data.q $81CF70746EC40466,$B28D4A50C33D4EE3,$B62363635E51FC9B,$BADD15088A0BBD7E,$331E3128644A50C0
   Data.q $0FA6CAF0BB9DCBE3,$F4DFC85163436DF1,$2C5E13D5EE6F3CAB,$56FCAC4013B1FC94,$C77BB0D33B47F22E
   Data.q $7A8894BD4F035EC6,$DF3D8CCD0159F5D9,$C11340F73FEB63D4,$5945286EDC784D34,$B1AD69E262AE44F0
   Data.q $F89FF3B17C61D0FF,$86EF5F2D827E1F7F,$86C6C01F91A2E965,$A93E4F2BFD73BF63,$BC9062FC903F250B
   Data.q $DF42FB75754007E4,$3AD7A2BCA2FDD7D6,$50756D79D865CB97,$DD6F1F03BADE3E33,$230D305CBB700001
   Data.q $07D1046C21285E33,$F09B5E122E48F28F,$F23FC70A18216D2C,$9081A794CBFA836B,$85C3A3D1EABAF9A1
   Data.q $CA28E56540511F94,$FFB5D1733A96FC45,$FCABB3BF50CAAFFA,$673C18F0B15E13C2,$903F2D0A0BF1D4EE
   Data.q $3C3803F2A6602665,$61F2EBC007BE13C8,$86F434F3B9784F0A,$47E42DBFBBDECFC6,$DF733B47F260A802
   Data.q $A099B529689ECFD3,$CB65E13C2987CABA,$329B6E33A20C07D3,$8A39595FC85B477E,$659EE6771986C728
   Data.q $0A61F225A62AA6AB,$ECE26988F1D9784F,$6E47F2D0B9FDC7AB,$FCAB92081A642BFB,$F19AA5F8CA6F3000
   Data.q $5DCD9784F0871494,$133DCFE50DBC7E26,$004DD95698CE9730,$D832F09E10E2903E,$2368BF8332E4DEB4
   Data.q $E71A2CA1F59EE3F9,$50C939AF17BB99D5,$4F087149BA140EFC,$ACF83037C7DCE978,$DF9036ABE1FD8F75
   Data.q $39D0139E9A30611D,$3E9F7F99D2E60265,$3C21C5235F400BEE,$29E861B35F93A5E1,$E9730133E17F206D
   Data.q $EB6B4178AE6B9CCC,$46F25E13C21C5277,$DAF80F63DBFF6EA4,$99DAE60267C2FE40,$5EB2DA1FF23D97D7
   Data.q $2B68E2F09E10E296,$DFC81B7E72BB5D3F,$103CA67439809976,$A59D79BFEFE7F3F0,$001E13C21C52FBF5
   Data.q $DCEED703FE7DEDE0,$6B7C63B4CE4155F9,$76F28FE42CC04C87,$B96D5F7DE1C1F47D,$95E10E290ED7294A
   Data.q $F2F1BF835B634F34,$DB5BE06D562E96F7,$9F33B47F2B660267,$652FA5D34BF6BEBC,$9E452BC21C5243E8
   Data.q $4B1BD97FDAC3EA06,$E18DB0746D0474FF,$EC399D0E60265DB5,$A87C279359EAD5F3,$4D8A58552D684D58
   Data.q $C26875A43F940E78,$B7F20ED1DC7FC586,$307F47F22E60266D,$B56BA0DA7DCBEAFB,$69E112BC21C52CD6
   Data.q $4EFC3D161B69A1D6,$C8B980997EDFCB1B,$1154BF194DE6DD1F,$85E092BC21C520DD,$B425F87A2FD6EBAD
   Data.q $95730132FDBF91FD,$0CA3FC7AB9CDBA3F,$59E64E784D8A45BE,$768AE0FC5BECDF5A,$B1200CF45E233F90
   Data.q $333A5CA064DF3071,$A5AFC664FFF8EA77,$F5BCFF23D0E784D8,$2763F9176C581E8B,$79BF908EE1C6D880
   Data.q $4EF998BBF2FAB812,$F5B5A78939E13629,$F24ECBFF07E2DF3B,$6FE523BAA0A1C903,$4321B8E579ED0EDE
   Data.q $15E1362902E32949,$83E4F75BCD6C2F3D,$7C0013B1FC9BB07F,$647436CB65BD5ABE,$F7F4DA3FDB796267
   Data.q $A56698683B0C86E3,$7D6967958AF09B14,$F28ED47C1F27BAF3,$B1FCA5B582447903,$53BB9A63355E1FBC
   Data.q $2957DD64618603F9,$BAD8734F2075E15E,$72066D52FC174ECE,$C7D5FC007E43DADC,$0CF83F59D271BDEF
   Data.q $2BC52F181365C79A,$B35CF91645E28EBC,$EDFCB3B39E87C9EE,$AB65FCDE28580992,$3C2A301295E6622E
   Data.q $1DA1343AD5EF2FBB,$D06C90132414F916,$1A735D2EF7798C99,$26C5209D4822F5B1,$FFB585B634F1DB3C
   Data.q $20266F9BDE5A76B2,$001F948ED050DB23,$0FF34851F71D4EE6,$78CD9E15E2946C00,$F9022BCF1B04376F
   Data.q $16FBBC90B013263B,$9154B238D873B5FF,$79843B3C2BC52B1A,$E91E8DB6B81FF3EC,$933A83A3404CD36D
   Data.q $3C3F43A7AAED6F17,$66B5638F571A94FD,$BDAF0AF149000A3D,$AC9FD7E0266B5A79,$B6EABC6FE7CB755D
   Data.q $669DD18099B1FCB1,$213B8D865356AF9F,$C59EEE766D818EFE,$EE0569FAD6165ECF,$DF1F93F6BC2BC526
   Data.q $0B587F13DF54F110,$3848BCF0D31C1D1B,$DB95A061B57CFBF2,$DA0A4FB162993180,$8AAEF6FFBEB6E76A
   Data.q $57CFCACBB8D6BD5E,$5673C2E495F6D94A,$7FE3DD68B81B3F6E,$A3013347F20454D8,$467F45D15801AD3B
   Data.q $0629410347098D0B,$B7BB40072B9DA762,$D1E99FFB51BEA3FC,$14BA7BDB975F5FBB,$BB8FCCC78ADAF0AF
   Data.q $DF43E8F6FF2BA15C,$33D18099B1FC8114,$F905A37F72EC5080,$7F47F28EC3F2093D,$DE0FF6E0BEDF6476
   Data.q $9A0CF9CEF7D0667D,$70AF0AF14AF0412A,$3D5EE7D341807D3C,$FE408BA75F5D5EFE,$2F94F49FC8F62F28
   Data.q $AAF63F911DDF91A5,$12B78A47E55D8366,$E297CE114A7CC987,$4F164DD15E215E15,$105DBB4EC26D3B9F
   Data.q $4940C9A38D7E40CF,$FD1C4DF90A51FA0F,$F22C58D0275D1FCE,$C86B631A9A9AB747,$1914CA50D5CC0735
   Data.q $FF0221034F2D9784,$44E271385A19A07A,$FC96ACB28FE4C8AB,$09F91FC44C009C4D,$CFF9BC56D60B14ED
   Data.q $180A63F5AD3DF73C,$D246DE0B2F08322E,$A767BFC66BECDD7C,$773395A16792CE7A,$E4CE6F25B602645B
   Data.q $0608CF76FF76EFB1,$A5AF08322FD801CF,$B1C35B7C02346B4D,$099467F2E4507EDD,$C8F63F74F4401148
   Data.q $F37921483843B41F,$CB11F873327F3C97,$2DA92F0832205D0A,$95F5779CCF598FB4,$068BC10B9EA18A5B
   Data.q $7E4D390FED5E2482,$F8BF7BF55DA1C000,$2869DE4FFD31E568,$83C20C893A1008D7,$B94CE62FD4987BD6
   Data.q $54A0769D87F3B6FC,$BCD6D809986C07E4,$3D17678DE30F87C3,$AD8567BFB793EDBD,$E51286448574C907
   Data.q $E0EF65EF98190469,$4A5C44493DC753B9,$00CF4402BF4703F2,$3331BC9ED809916C,$A9F80216B2041D6E
   Data.q $294ABD663C3A55C8,$549D2F8AE53D9ACC,$22E401AF9AF2D9CF,$C66BA5DEEB0693BE,$CB9102DDE2417830
   Data.q $D4DE7B341A8DBC71,$004D59CF5C9DEB71,$2AAAAAAC1B4E6EB9,$76B4DCF1F0F079D5,$C00FBC51CB9134E0
   Data.q $7B135F2F53D99BFC,$380135E7F2CA5FAA,$2D2F8C6A6A6AB079,$4593A050EE3024D7,$D1DC20A7F1E662AE
   Data.q $D6AEAEAE7F7BE9F0,$13278B302DCF58A5,$9D98361B557823B0,$5B4B3CC5AA7079FF,$D6B4F0F15722A1A1
   Data.q $6CBC3320DF70A19B,$F8BC73D49689C4E2,$9795E28EC04CC628,$7917B1A2ED397797,$C894732959BE773B
   Data.q $FBA206FE331E5F6A,$2FAA774BEB194CE7,$5CED872404CD1FF2,$F2D0D57A5C46F39B,$3DD393C0346F7D5E
   Data.q $574C8F2FB6B22063,$9ECE1630532F1148,$47F28B73D4B36E3A,$F1FC88013567566B,$5F406DE9AE96BBBC
   Data.q $DAC8927501EBE04B,$11EB970C2F8D3C01,$96F613E9ACD17983,$2026527F28E5FD52,$A4385F884E99D165
   Data.q $3331E08EC223DF91,$EBA6940BEACCFBDD,$E2AA4F294A09EB35,$40978B471830E1D5,$63CBA50CB399A650
   Data.q $2786C6FE35E90EBF,$655EDFB77D3BF5BC,$70C773C165FD7295,$01334CAC7E6B4D18,$2988058D44CC52CB
   Data.q $50F65727EEEF1472,$05D41493C4C95D26,$F620615961981400,$5CB90261860128DB,$AAFD2CB69E4D2D83
   Data.q $EAEB6DBBD8AE0E15,$2B2FEA407F5ADFCF,$2171B0CA404CDA5E,$179A82DE092C129F,$9AC8752BC14384FA
   Data.q $C1B5145294F3E80C,$976890B0643C8C30,$4357A2666B5A7913,$CD73BD7D0EAB23FE,$2F2FEA4FBCBEAFFB
   Data.q $3FB966216FC8F45E,$99D8960B1A38D0B5,$E237964B85CB8E40,$44B8AD76F5F55727,$061A3994B91FAE99
   Data.q $1D2565B41760E795,$F61CE5B720619559,$A903E1896FE869E3,$1EA7FAE2F4287497,$2C525E5057F52FDE
   Data.q $3079CE5538D0B518,$E1BC8E080F08CE8F,$7C5648F7414EAEE7,$E48CD0C2212E9809,$DB95C936EABF92B0
   Data.q $F522B37AD69E1766,$59BD08DF92FC56B2,$78FDA5EA5062713D,$79C38D14CD0132E9,$5E2DF77869784674
   Data.q $3246803CEA1B4BD1,$C17CD5059C692461,$48D41749D6B1A9A6,$08234F1875BAE429,$86F56B06FC561DE0
   Data.q $FB49A4D5FCDFF976,$30132A978E3A5EA4,$9784674795903255,$F732DE0D89EAAF05,$674E301CE889B381
   Data.q $149D8DDF50033ACB,$A780DA08A93595F2,$C07C0523E8800EB5,$AEA123ADE98ACDA0,$D8BD4BF68C67AB1B
   Data.q $D5E8E14590B89787,$6DF59B57CF800042,$3AF2088BCEE5E116,$E630186D3123D780,$9A6C9C27DE84F362
   Data.q $818D634E3295D3EE,$7D4528079ACFE850,$511C62E939959632,$7998BB784583CFEE,$D8190B7832B6313B
   Data.q $47F8ABF7F03FA4CC,$CDED7CF961D1E8F5,$F5C8E66E23D984A3,$F2E16F1FB5E16111,$0A8689D970FE65E5
   Data.q $84C9E8087D56800F,$F4050F40D4F4041E,$370087916CEEE864,$0651E1A1B800782B,$0010A0046B400079
   Data.q $ED054103008D2410,$FD80A75034075287,$EF4A1BFD3711D40C,$5FDB75FD8DB0850E,$7978A3CF97EA59AD
   Data.q $28DBC6B788661FFF,$4549000000008DD3
   Data.b $4E,$44,$AE,$42,$60,$82
   enet_ico_end:
EndDataSection

_________________
malleo, caput, bang. Ego, comprehendunt in tempore


Top
 Profile  
Reply with quote  
 Post subject: Re: SysTray Tool to quickly facilitate disabling your networ
PostPosted: Wed Nov 22, 2017 11:07 pm 
Offline
Addict
Addict

Joined: Mon Feb 16, 2015 2:49 pm
Posts: 1907
A simple DOS command (with admin rights) does the same thing:

Code:
; Request admin mode in Compiler Options

Procedure EnableNetwork(name$,onoff) ; onoff = 0 or 1
  If onoff=0 : s$="dis" : Else : s$="en" : EndIf
  RunProgram("netsh","interface set interface "+Chr(34)+name$+Chr(34)+" "+s$+"able","",#PB_Program_Hide)
EndProcedure

EnableNetwork("Wireless Network Connection",0) ; Turns my wi-fi connection off.


Top
 Profile  
Reply with quote  
 Post subject: Re: SysTray Tool to quickly facilitate disabling your networ
PostPosted: Thu Nov 23, 2017 12:28 pm 
Offline
Addict
Addict
User avatar

Joined: Sun Nov 05, 2006 11:42 pm
Posts: 4685
Location: Lyon - France
Nice :wink:
Thanks for sharing 8)

_________________
ImageThe happiness is a road...
Not a destination


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 5 posts ] 

All times are UTC + 1 hour


Who is online

Users browsing this forum: No registered users and 9 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  

 


Powered by phpBB © 2008 phpBB Group
subSilver+ theme by Canver Software, sponsor Sanal Modifiye