sz1121

读注册表试一试

Dim WshShell
Dim LangId
set WshShell = CreateObject("wscript.Shell")
LangId=WshShell.RegRead("HKEY_CURRENT_USER\Control Panel\International\Locale")
Select Case LangId
	Case "00000804"
	MsgBox "Chinese (PRC)"	
	Case "00000409"
	MsgBox "English"
	Case "00000411"
	MsgBox "Japanese"	
End Select 

'00000404 Chinese (Taiwan)     
'00000804 Chinese (PRC) 
'00000c04 Chinese (Hong Kong SAR, PRC) 
'00001004 Chinese (Singapore) 

'00000411 Japanese 

'00000409 English (United States) 
'00000809 English (United Kingdom) 
'00000c09 English (Australian) 
'00001009 English (Canadian) 
'00001409 English (New Zealand) 
'00001809 English (Ireland) 
'00001c09 English (South Africa) 
'00002009 English (Jamaica) 
'00002409 English (Caribbean) 
'00002809 English (Belize) 
'00002c09 English (Trinidad)
复制代码