在masm32中获取并显示IE版本的方法1

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;Filename:getIEver2.asm
;Function:get&displayversionofIE
;Author:purpleendurer
;Develop:win2Kpro+masm32
;log
;------------------------------------------------------------------
;2005.10.23Created!
;gettheversionofIEfromvalueofkey"Vesion"at
;/HKEY_LOCAL_MACHINE/Software/Microsoft/InternetExplorer
;InmyPC,theversionofIEis6.0.2800.1106
;andthisprogramdisplayedversionis6.0.2800.1106
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;下载：您可以到http://purpleendurer.ys168.com的/myworks/demo_only中
;下载源代码和可执行文件

.386
.modelflat,stdcall
optioncasemap:none
include/masm32/include/windows.inc

include/masm32/include/Advapi32.inc
include/masm32/include/kernel32.inc
include/masm32/include/user32.inc

includelib/masm32/lib/Advapi32.lib
includelib/masm32/lib/kernel32.lib
includelib/masm32/lib/user32.lib


GetIEVerStrPROTO:LPSTR

m_m2mMACROd1,d2
pushd2
popd1
ENDM


.data
g_szTitledb"IE版本",0
g_szRegPathdb"Software/Microsoft/InternetExplorer",0
g_szFailRegOpenKeyExdb"RegOpenKeyEx失败!",0
g_szFailRegQueryValueExdb"RegQueryValueEx失败!",0
g_szValueNamedb"Version",0

.data?
g_szIEVerdb256dup(?)
g_hRegKey4IEHKEY?
.code
start:
invokeGetIEVerStr,ADDRg_szIEVer
.ifeax==1
moveax,OFFSETg_szFailRegOpenKeyEx
.elseifeax==2
moveax,OFFSETg_szFailRegQueryValueEx
.else
moveax,OFFSETg_szIEVer
.endif
invokeMessageBox,NULL,eax,OFFSETg_szTitle,MB_OK

invokeExitProcess,NULL

GetIEVerStrPROClpszIEVer:LPSTR
LOCALdwcbData:dword
;LONGRegOpenKey(
;HKEYhKey,//handleofopenkey
;LPCTSTRlpSubKey,//addressofnameofsubkeytoopen
;PHKEYphkResult//addressofhandleofopenkey
;);

invokeRegOpenKey,HKEY_LOCAL_MACHINE,ADDRg_szRegPath,ADDRg_hRegKey4IE
.ifeax!=ERROR_SUCCESS
m_m2meax,1
ret
.endif

;LONGRegQueryValueEx(
;HKEYhKey,//1.handleofkeytoquery
;LPTSTRlpValueName,//2.addressofnameofvaluetoquery
;LPDWORDlpReserved,//3.reserved
;LPDWORDlpType,//4.addressofbufferforvaluetype
;LPBYTElpData,//5.addressofdatabuffer
;LPDWORDlpcbData//6.addressofdatabuffersize
;);

m_m2mdwcbData,SIZEOFg_szIEVer
invokeRegQueryValueEx,g_hRegKey4IE,ADDRg_szValueName,NULL,NULL,ADDRg_szIEVer,ADDRdwcbData

.ifeax!=ERROR_SUCCESS
m_m2meax,2
.else
xoreax,eax
.endif

; LONG RegCloseKey(
; HKEY hKey // handle of key to close
; );
invokeRegCloseKey,g_hRegKey4IE


ret
GetIEVerStrENDP

endstart