PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

SysTray Tool to quickly facilitate disabling your network

https://www.purebasic.fr/english/viewtopic.php?t=69668

Page 1 of 1

SysTray Tool to quickly facilitate disabling your network

Posted: Tue Nov 21, 2017 9:06 pm
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

Re: SysTray Tool to quickly facilitate disabling your networ

Posted: Tue Nov 21, 2017 9:49 pm
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.

Re: SysTray Tool to quickly facilitate disabling your networ

Posted: Wed Nov 22, 2017 3:47 pm
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

Re: SysTray Tool to quickly facilitate disabling your networ

Posted: Wed Nov 22, 2017 11:07 pm
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.

Re: SysTray Tool to quickly facilitate disabling your networ

Posted: Thu Nov 23, 2017 12:28 pm
by Kwai chang caine
Nice :wink:
Thanks for sharing 8)
All times are UTC+01:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited