SysTray Tool to quickly facilitate disabling your network

Applications, Games, Tools, User libs and useful stuff coded in PureBasic
User avatar
Zebuddi123
Enthusiast
Enthusiast
Posts: 794
Joined: Wed Feb 01, 2012 3:30 pm
Location: Nottinghamshire UK
Contact:

SysTray Tool to quickly facilitate disabling your network

Post by Zebuddi123 »

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/viewtop ... 6&start=90 Filled Version info etc

Zebuddi. :)


Image


EnetSysTray.zip MD5 12132c908988896f582205aacd1230c4
https://goo.gl/f3uF97
EnetSysTray.exe MD5 2eace52e69302af9d8f1fbd8d099cb73
Last edited by Zebuddi123 on Tue Nov 21, 2017 9:50 pm, edited 1 time in total.
malleo, caput, bang. Ego, comprehendunt in tempore
User avatar
Zebuddi123
Enthusiast
Enthusiast
Posts: 794
Joined: Wed Feb 01, 2012 3:30 pm
Location: Nottinghamshire UK
Contact:

Re: SysTray Tool to quickly facilitate disabling your networ

Post by Zebuddi123 »

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
User avatar
Zebuddi123
Enthusiast
Enthusiast
Posts: 794
Joined: Wed Feb 01, 2012 3:30 pm
Location: Nottinghamshire UK
Contact:

Re: SysTray Tool to quickly facilitate disabling your networ

Post by Zebuddi123 »

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: Select all

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
Dude
Addict
Addict
Posts: 1907
Joined: Mon Feb 16, 2015 2:49 pm

Re: SysTray Tool to quickly facilitate disabling your networ

Post by Dude »

A simple DOS command (with admin rights) does the same thing:

Code: Select all

; 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.
User avatar
Kwai chang caine
Always Here
Always Here
Posts: 5342
Joined: Sun Nov 05, 2006 11:42 pm
Location: Lyon - France

Re: SysTray Tool to quickly facilitate disabling your networ

Post by Kwai chang caine »

Nice :wink:
Thanks for sharing 8)
ImageThe happiness is a road...
Not a destination
Post Reply