Партнерка на США и Канаду по недвижимости, выплаты в крипто
- 30% recurring commission
- Выплаты в USDT
- Вывод каждую неделю
- Комиссия до 5 лет за каждого referral
;----------------------------------------------------
mov esi, offset _name ;<==Note the _name!
mov eax,[esi].VARIANT. bstrVal ;///Key!!VARIANT
invoke WideCharToMultiByte, CP_ACP, WC_COMPOSITECHECK, eax,-1,offset physicalMemoryManufacturerResult, physicalMemoryManufacturerSizeResult,0,0
;/// result->lpVtbl->Release(result);
mov edx, DWORD PTR result
mov eax, [edx].IWbemClassObject. lpVtbl
invoke [eax].IWbemClassObjectVtbl. Unknown. Release, edx
;----------------------------------------------------
jmp C100
.endif
;****************************************************************************************
.endif
mov edx, results
mov eax, [edx].IEnumWbemClassObject. lpVtbl
Продолжение Приложения Б
invoke [eax].IEnumWbemClassObjectVtbl. Unknown. Release, edx
ret
getPhysicalMemoryInfo endp
getDiskDriveInfo proc
invoke SysAllocString, offset diskDriveQuery
mov query, eax ;Into BSTR
mov edx, services
mov eax, [edx].IWbemServices. lpVtbl
invoke [eax].IWbemServicesVtbl. ExecQuery, edx, _language, query, 0, NULL, offset results
;--------------------------------------------------
.if results!=0
mov result,0
mov returnedCount,0
C100:
mov edx, results
mov eax, [edx].IEnumWbemClassObject. lpVtbl ;call eax,[eax]
invoke [eax].IEnumWbemClassObjectVtbl. Next, edx,-1, 1,offset result, offset returnedCount
;--------------------------------------------------
;**************************************************************************************
.if eax==0
mov edx, result
mov eax, [edx].IWbemClassObject. lpVtbl
invoke [eax].IWbemClassObjectVtbl. Get, edx, offset diskDriveNameQuery, 0,offset _name, 0, 0
;----------------------------------------------------
mov esi, offset _name ;<==Note the _name!
mov eax,[esi].VARIANT. bstrVal ;///Key!!VARIANT
Продолжение Приложения Б
invoke WideCharToMultiByte, CP_ACP, WC_COMPOSITECHECK, eax,-1,offset diskDriveNameResult, diskDriveNameSizeResult,0,0
mov edx, result
mov eax, [edx].IWbemClassObject. lpVtbl
invoke [eax].IWbemClassObjectVtbl. Get, edx, offset diskDriveMemSizeQuery, 0, offset diskDriveMemSizeResult, 0, 0
;----------------------------------------------------
mov esi, offset diskDriveMemSizeResult
mov eax,[esi].VARIANT. ulVal ;///Key!!VARIANT, eax=MaxprocessorClockSpeedResult
mov edx,[esi+2].VARIANT. ulVal
mov ebx, 1048576
div ebx
invoke wsprintf, offset diskDriveMemSizeResult, offset fmt, eax
;/// result->lpVtbl->Release(result);
mov edx, DWORD PTR result
mov eax, [edx].IWbemClassObject. lpVtbl
invoke [eax].IWbemClassObjectVtbl. Unknown. Release, edx
;----------------------------------------------------
;jmp C100
.endif
;****************************************************************************************
.endif
mov edx, results
mov eax, [edx].IEnumWbemClassObject. lpVtbl
invoke [eax].IEnumWbemClassObjectVtbl. Unknown. Release, edx
ret
getDiskDriveInfo endp
Продолжение Приложения Б
getNetworkAdapterInfo proc
invoke SysAllocString, offset networkAdapterQuery
mov query, eax ;Into BSTR
mov edx, services
mov eax, [edx].IWbemServices. lpVtbl
invoke [eax].IWbemServicesVtbl. ExecQuery, edx, _language, query, 0, NULL, offset results
;--------------------------------------------------
.if results!=0
mov result,0
mov returnedCount,0
C100:
mov edx, results
mov eax, [edx].IEnumWbemClassObject. lpVtbl ;call eax,[eax]
invoke [eax].IEnumWbemClassObjectVtbl. Next, edx,-1, 1,offset result, offset returnedCount
;--------------------------------------------------
;**************************************************************************************
.if eax==0
mov edx, result
mov eax, [edx].IWbemClassObject. lpVtbl
invoke [eax].IWbemClassObjectVtbl. Get, edx, offset nameQuery, 0,offset _name, 0, 0
;----------------------------------------------------
mov esi, offset _name ;<==Note the _name!
mov eax,[esi].VARIANT. bstrVal ;///Key!!VARIANT
invoke WideCharToMultiByte, CP_ACP, WC_COMPOSITECHECK, eax,-1,offset networkAdapterNameResult, networkAdapterNameSizeResult,0,0
mov edx, DWORD PTR result
mov eax, [edx].IWbemClassObject. lpVtbl
invoke [eax].IWbemClassObjectVtbl. Unknown. Release, edx
Продолжение Приложения Б
;----------------------------------------------------
;jmp C100
.endif
;****************************************************************************************
.endif
mov edx, results
mov eax, [edx].IEnumWbemClassObject. lpVtbl
invoke [eax].IEnumWbemClassObjectVtbl. Unknown. Release, edx
ret
getNetworkAdapterInfo endp
getCDROMInfo proc
invoke SysAllocString, offset cdROMQuery
mov query, eax ;Into BSTR
mov edx, services
mov eax, [edx].IWbemServices. lpVtbl
invoke [eax].IWbemServicesVtbl. ExecQuery, edx, _language, query, 0, NULL, offset results
;--------------------------------------------------
.if results!=0
mov result,0
mov returnedCount,0
C100:
mov edx, results
mov eax, [edx].IEnumWbemClassObject. lpVtbl ;call eax,[eax]
invoke [eax].IEnumWbemClassObjectVtbl. Next, edx,-1, 1,offset result, offset returnedCount
;--------------------------------------------------
;**************************************************************************************
Продолжение Приложения Б
.if eax==0
mov edx, result
mov eax, [edx].IWbemClassObject. lpVtbl
invoke [eax].IWbemClassObjectVtbl. Get, edx, offset nameQuery, 0,offset _name, 0, 0
;----------------------------------------------------
mov esi, offset _name ;<==Note the _name!
mov eax,[esi].VARIANT. bstrVal ;///Key!!VARIANT
invoke WideCharToMultiByte, CP_ACP, WC_COMPOSITECHECK, eax,-1,offset cdROMNameResult, cdROMNameSizeResult,0,0
mov edx, DWORD PTR result
mov eax, [edx].IWbemClassObject. lpVtbl
invoke [eax].IWbemClassObjectVtbl. Unknown. Release, edx
;----------------------------------------------------
;jmp C100
.endif
;****************************************************************************************
.endif
mov edx, results
mov eax, [edx].IEnumWbemClassObject. lpVtbl
invoke [eax].IEnumWbemClassObjectVtbl. Unknown. Release, edx
ret
getCDROMInfo endp
WMIProc proc
invoke SysAllocString, offset stresource
mov resource, eax ;Into BSTR
invoke SysAllocString, offset stlanguage
mov _language, eax ;Into BSTR
Продолжение Приложения Б
;/// initialize COM
invoke CoInitialize,0
invoke CoInitializeSecurity, NULL, -1, NULL, NULL, 0, 3, NULL, 0, NULL
;/// connect to WMI
invoke CoCreateInstance, offset CLSID_WbemLocator, 0, CLSCTX_INPROC_SERVER, offset IID_IWbemLocator, offset locator
;-------------------------------------------------
;/// locator->lpVtbl->ConnectServer(locator, resource, NULL, NULL, NULL, 0, NULL, NULL, &services);
mov edx, locator
mov eax, [edx].IWbemLocator. lpVtbl
invoke [eax].IWbemLocatorVtbl. ConnectServer, edx, resource, NULL, NULL, NULL,0,NULL, NULL, offset services
;-------------------------------------------------
call getProcessorInfo
call getVideoInfo
call getMotherboardInfo
call getPhysicalMemoryInfo
call getDiskDriveInfo
call getNetworkAdapterInfo
call getCDROMInfo
;----------------------------------------------------
;/// services->lpVtbl->Release(services);
mov edx, services
mov eax, [edx].IWbemServices. lpVtbl
invoke [eax].IWbemServicesVtbl. Unknown. Release, edx
;----------------------------------------------------
;/// locator->lpVtbl->Release(locator);
mov edx, DWORD PTR locator
mov eax, [edx].IWbemLocator. lpVtbl
invoke [eax].IWbemLocatorVtbl. Unknown. Release, edx
Окончание Приложения Б
;----------------------------------------------------
;/// CoUninitialize();
invoke CoUninitialize
;/// SysFreeString(query);
;/// SysFreeString(language);
;/// SysFreeString(resource);
invoke SysFreeString, query
invoke SysFreeString, _language
invoke SysFreeString, resource
ret
WMIProc endp
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 |
