Usuário(a):Girad Mund/Testes
 | Esta é uma página de testes de Girad Mund, uma subpágina da principal. Serve como um local de testes e espaço de desenvolvimento, desta feita não é um artigo enciclopédico. Para uma página de testes sua, crie uma aqui. Como editar: Tutorial • Guia de edição • Livro de estilo • Referência rápida Como criar uma página: Guia passo a passo • Como criar • Verificabilidade • Critérios de notoriedade |
) "" H_Enum
ifstr $(H_Enum) == $(KeyNull)
OpenRegKey $(H_ConnectionType) "" "enum" $(MAXIMUM_ALLOWED) H_Enum
ifstr $(H_Enum) == $(KeyNull)
set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY
CloseRegKey $(H_ConnectionType)
goto fatalregistry
endif
endif
set NewValueList = $(ConnectionTypeEnumList)
Shell $(UtilityInf), AddValueList, $(H_Enum), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
CloseRegKey $(H_Enum)
CloseRegKey $(H_ConnectionType)
; for 3065 NetworkAddress registry >>>>>>>>>>>>>>>>>
CreateRegKey $(H_UI) {"NetworkAddress",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" H_NetworkAddress
ifstr $(H_NetworkAddress) == $(KeyNull)
OpenRegKey $(H_UI) "" "NetworkAddress" $(MAXIMUM_ALLOWED) H_NetworkAddress
ifstr $(H_NetworkAddress) == $(KeyNull)
set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY
CloseRegKey $(H_UI)
goto fatalregistry
endif
endif
set NewValueList = $(NetworkAddressParamList)
Shell $(UtilityInf), AddValueList, $(H_NetworkAddress), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
CloseRegKey $(H_NetworkAddress)
; for 3065 TransmitBuffers registry >>>>>>>>>>>>>>>>
CreateRegKey $(H_UI) {"TransmitBuffers",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" H_TransmitBuffers
ifstr $(H_TransmitBuffers) == $(KeyNull)
OpenRegKey $(H_UI) "" "TransmitBuffers" $(MAXIMUM_ALLOWED) H_TransmitBuffers
ifstr $(H_TransmitBuffers) == $(KeyNull)
set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY
CloseRegKey $(H_UI)
goto fatalregistry
endif
endif
set NewValueList = $(TransmitBuffersParamList)
Shell $(UtilityInf), AddValueList, $(H_TransmitBuffers), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
CloseRegKey $(H_TransmitBuffers)
; for 3065 ReceiveBuffers registry >>>>>>>>>>>>>>>>>
CreateRegKey $(H_UI) {"ReceiveBuffers",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" H_ReceiveBuffers
ifstr $(H_ReceiveBuffers) == $(KeyNull)
OpenRegKey $(H_UI) "" "ReceiveBuffers" $(MAXIMUM_ALLOWED) H_ReceiveBuffers
ifstr $(H_ReceiveBuffers) == $(KeyNull)
set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY
CloseRegKey $(H_UI)
goto fatalregistry
endif
endif
set NewValueList = $(ReceiveBuffersParamList)
Shell $(UtilityInf), AddValueList, $(H_ReceiveBuffers), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
CloseRegKey $(H_ReceiveBuffers)
; for 3065 FlowCtrl registry >>>>>>>>>>>>>>>>>>>>>>>
CreateRegKey $(H_UI) {"FlowCtrl",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" H_FlowCtrl
ifstr $(H_FlowCtrl) == $(KeyNull)
OpenRegKey $(H_UI) "" "FlowCtrl" $(MAXIMUM_ALLOWED) H_FlowCtrl
ifstr $(H_FlowCtrl) == $(KeyNull)
set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY
CloseRegKey $(H_UI)
goto fatalregistry
endif
endif
set NewValueList = $(FlowCtrlParamList)
Shell $$(UtilityInf), AddValueList, $(H_FlowCtrl), $(NewValueList)
ifint $($ShellCode) .!= $(!SHELL_CODE_OK)
goto ShellCodeError
endif
; for 3065 FlowCtrl Enum registry
CreateRegKey $(H_FlowCtrl) {"enum",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" H_Enum
ifstr $(H_Enum) == $(KeyNull)
OpenRegKey $(H_FlowCtrl) "" "enum" $(MAXIMUM_ALLOWED) H_Enum
ifstr $(H_Enum) == $(KeyNull)
set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY
CloseRegKey $(H_FlowCtrl)
goto fatalregistry
endif
endif
set NewValueList = $(FlowCtrlEnumList)
Shell $(UtilityInf), AddValueList, $(H_Enum), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
CloseRegKey $(H_Enum)
CloseRegKey $(H_FlowCtrl)
; for 3065 AdaptiveInt registry >>>>>>>>>>>>>>>>>>>>>>>
CreateRegKey $(H_UI) {"AdaptiveInt",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" H_AdaptiveInt
ifstr $(H_AdaptiveInt) == $(KeyNull)
OpenRegKey $(H_UI) "" "AdaptiveInt" $(MAXIMUM_ALLOWED) H_AdaptiveInt
ifstr $(H_AdaptiveInt) == $(KeyNull)
set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY
CloseRegKey $(H_UI)
goto fatalregistry
endif
endif
set NewValueList = $(AdaptiveIntParamList)
Shell $(UtilityInf), AddValueList, $(H_AdaptiveInt), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
; for 3065 AdaptiveInt Enum registry
CreateRegKey $(H_AdaptiveInt) {"enum",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" H_Enum
ifstr $(H_Enum) == $(KeyNull)
OpenRegKey $(H_AdaptiveInt) "" "enum" $(MAXIMUM_ALLOWED) H_Enum
ifstr $(H_Enum) == $(KeyNull)
set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY
CloseRegKey $(H_AdaptiveInt)
goto fatalregistry
endif
endif
set NewValueList = $(DisableEnableEnumList)
Shell $(UtilityInf), AddValueList, $(H_Enum), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
CloseRegKey $(H_Enum)
CloseRegKey $(H_AdaptiveInt)
CloseRegKey $(KeyParam)
; Update Software Title
set ParamPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$(IE_KeyName)
OpenRegKey $(!REG_H_LOCAL) "" $(ParamPath) $(!REG_KEY_WRITE) KeyParam
SetRegValue $(KeyParam) {Title,$(NoTitle),$(!REG_VT_SZ),"["$(IE_KeyName)"] "$(ProductHardware$(Option)$(Sub)Title)}
CloseRegKey $(KeyParam)
; Update Version Number
set ParamPath = "SOFTWARE\"$(Manufacturer)"\"$(ProductSoftwareName)"\CurrentVersion"
OpenRegKey $(!REG_H_LOCAL) "" $(ParamPath) $(!REG_KEY_WRITE) KeyParam
SetRegValue $(KeyParam) {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)}
SetRegValue $(KeyParam) {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)}
CloseRegKey $(KeyParam)
endif
endif
CloseRegKey $(IE_KeyService)
endif
CloseRegKey $(IE_Card)
EndForListDo
CloseRegKey $(IE_KeyNetcards)
EndForListDo
; setting default value for 3043 *****************************
ForListDo $(AdapterList43)
set BusNum = *( $($), 1 )
set DeviceNum = *( $($), 2 )
set Sub = "VT3043"
set Description = $(ProductHardware$(Option)Description)
set Product = $(ProductHardwareName)
OpenRegKey $(!REG_H_LOCAL) +
"" +
"SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards" +
$(!REG_KEY_READ) +
IE_KeyNetcards
EnumRegKey $(IE_KeyNetcards) IE_KeyNameList
ForListDo $(IE_KeyNameList)
set IE_KeyName = *( $($), 1 )
OpenRegKey $(IE_KeyNetcards) "" $(IE_KeyName) $(!REG_KEY_READ) IE_Card
ifstr $(IE_Card) == $(KeyNull)
Set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
Goto fatalregistry
endif
GetRegValue $(IE_Card),"ProductName", ProductNameInfo
set CardProductName = *( $(ProductNameInfo), 4 )
ifstr(i) $(CardProductName) == $(Product)
GetRegValue $(IE_Card), "ServiceName", ServiceNameInfo
set ServiceName = *( $(ServiceNameInfo), 4 )
OpenRegKey $(!REG_H_LOCAL) +
"" +
$(!NTN_ServiceBase)"\"$(ServiceName)"\Parameters" +
$(!REG_KEY_READWRITE) +
IE_KeyService
ifstr $(IE_KeyService) == $(KeyNull)
Set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
Goto fatalregistry
endif
GetRegValue $(IE_KeyService), "BusNumber", BusInfo
GetRegValue $(IE_KeyService), "SlotNumber", SlotInfo
set CardBusNum = *( $(BusInfo), 4 )
set CardSlotNum = *( $(SlotInfo), 4 )
ifint $(CardBusNum) == $(BusNum)
ifint