1 
  2 /**
  3  * @name	CeL function for Windows registry
  4  * @fileoverview
  5  * 本檔案包含了 Windows registry 操作用的 functions。
  6  * @since	
  7  */
  8 
  9 if (typeof CeL === 'function')
 10 CeL.setup_module('application.OS.Windows.registry',
 11 {
 12 require : 'data.code.compatibility.is_DOM',
 13 code : function(library_namespace, load_arguments) {
 14 
 15 //	requiring
 16 var is_DOM;
 17 eval(library_namespace.use_function(this));
 18 
 19 
 20 
 21 /**
 22  * null module constructor
 23  * @class	Windows registry 的 functions
 24  */
 25 CeL.application.OS.Windows.registry
 26 = function() {
 27 	//	null module constructor
 28 };
 29 
 30 /**
 31  * for JSDT: 有 prototype 才會將之當作 Class
 32  */
 33 CeL.application.OS.Windows.registry
 34 .prototype = {
 35 };
 36 
 37 
 38 
 39 
 40 
 41 
 42 
 43 
 44 /*	http://msdn2.microsoft.com/en-us/library/x05fawxd.aspx
 45 	作Registry的操作
 46 	WSH_registry.Base	設定工作的基準,這應該是個目錄,將會附加在每個key前面
 47 
 48 	WSH_registry(key)	WshShell.RegRead()
 49 *undo*				key假如輸入object,會將之一一分開處理,此時WSH_registry.Err會包含所有發生的錯誤,WSH_registry.Err[0]=發生錯誤的數量
 50 *undo*	WSH_registry(key,0,'info')	完整資訊(包括type)
 51 *undo*	WSH_registry(keyDir,keyPattern,'dir')	傳回整個dir的資料。dir的預設值/標準の値:['']
 52 	WSH_registry(key,value[,type])	WshShell.RegWrite()
 53 	WSH_registry(key,value),WSH_registry(key,value,'auto')	auto detect type
 54 	WSH_registry(key,value,1)	WshShell.RegWrite(key,value)
 55 	WSH_registry(key,0,'del')	WshShell.RegDelete()
 56 
 57 TODO:
 58 backup all
 59 search
 60 
 61 test:
 62 if(0){
 63  var k="HKCU\\Software\\Colorless echo\\Comparer\\test\\test",r=WSH_registry(k,1),p=function(){if(WSH_registry.Err)alert(WSH_registry.Err.message);else alert('('+typeof r+')'+k+'\n'+r);};
 64  p();
 65  WSH_registry(k,0,'del');
 66  r=WSH_registry(k);
 67  p();
 68  r=WSH_registry(k="HKCU\\Software\\Colorless echo\\Comparer\\");
 69  p();
 70 }
 71 
 72 */
 73 WSH_registry.Err=WSH_registry.Base=0;
 74 function WSH_registry(key,value,type){
 75  WSH_registry.Err=null;
 76  if(WSH_registry.Base){if(WSH_registry.Base.slice(-1)!='\\')WSH_registry.Base+='\\';key=WSH_registry.Base+key;}
 77  if(!key)return;
 78  //if(typeof WshShell!='object')WshShell=new ActiveXObject("WScript.Shell");
 79  if(typeof key=='object'){var i,c=0;for(i in key)c+=WSH_registry(i,key[i],type) instanceof Error?0:1;return c;}
 80  try{
 81   var _f=WSH_registry.F;
 82   //if(typeof type=='string')type=_f[type];
 83   if(type=='del')WshShell.RegDelete(key);
 84   else if(typeof value!='undefined'){
 85    if(typeof type=='undefined'||type=='auto')	//	自動判別
 86     type=typeof value=='number'&&!value%1?'REG_DWORD'	//	DWORD:4bytes,REG_BINARY
 87     :typeof value=='string'&&value.indexOf('\n')==-1?value.indexOf('%')==-1?'REG_SZ':'REG_EXPAND_SZ'	//	REG_EXPAND_SZ:"%windir%\\calc.exe"等
 88     :0;	//	unknown:multi_sz/none/dword_big_endian/link/resource_list	http://www.cotse.com/dlf/man/TclCmd/registry.htm,http://cmpp.linuxforum.net/cman/mann/registry.htm
 89    //if(isNaN(type))WshShell.RegWrite(key,value);else WshShell.RegWrite(key,value,WSH_registry.T[type]);
 90    if(typeof type=='string')WshShell.RegWrite(key,value,type);else WshShell.RegWrite(key,value);
 91   }
 92   value=WshShell.RegRead(key);	//	寫入後再讀取,傳回真正寫入的值
 93   //alert('('+typeof value+')'+key+'\n'+value);
 94  }catch(e){
 95   //	http://klcintw4.blogspot.com/2007/09/javascriptie.html
 96   if(e.description.indexOf("伺服程式無法產生物件")!=-1)
 97    alert("請調整IE瀏覽器的安全性\n網際網路選項→安全性→自訂層級\n「起始不標示為安全的ActiveX控制項」設定為啟用或提示。"); 
 98   WSH_registry.Err=e;return;
 99  }
100  return value;
101 }
102 
103 
104 /*
105 	registry 登錄值/登錄項目操作
106 
107 bug:
108 registry_function.checkAccess('HKLM') always return false. this is OK: registry_function.checkAccess('HKLM\\SOFTWARE\\')
109 
110 TODO:
111 Win32_SecurityDescriptor
112 .moveKey(from,to)
113 .moveValue(from,to)
114 用.apply()實作prototype之function,不另外寫。
115 */
116 //registry_function[generateCode.dLK]='VBA,JSArrayToSafeArray';
117 function registry_function(path,sComputer,flag){	//	key path, ComputerName, create?
118 /*
119  if(!registry_function.prototype.oReg){	//	不能用 this.prototype.~
120   var oReg=getWMIData('default:SWbemLocator');//try{oReg=new Enumerator(GetObject("winmgmts:{impersonationLevel=impersonate}//"+(sComputer||'.')+"/root/default:StdRegProv"));}catch(e){}
121   if(!oReg)try{
122    //	http://msdn2.microsoft.com/en-us/library/aa393774.aspx
123    var oLoc=new ActiveXObject("WbemScripting.SWbemLocator")
124 	,oSvc=oLoc.ConnectServer(sComputer||null,"root/default");
125    oReg=oSvc.Get("StdRegProv");
126   }catch(e){return;}
127   registry_function.prototype.oReg=oReg;
128  }
129 */
130 /*
131  try{
132   this.oReg=new ActiveXObject("WbemScripting.SWbemLocator").ConnectServer(sComputer||null,"root/default").Get("StdRegProv");
133  }catch(e){return;}	//	User-defined function to format error codes.
134 */
135  // with(this)base:'',subkey:{},value:{},type:{},flag:0
136  this.setPath(path,sComputer);
137  return this;
138 }
139 
140 
141 //	下面是公私共用 function
142 /*
143 http://www.supinfo-projects.com/en/2004/api_basederegistre__vb_en/2/
144 http://www.microsoft.com/taiwan/msclub/4P/topic_0402-3.aspx
145 REG_BINARY 二進位制資料。登錄檔編輯器會以十六進位的記數法來顯示二進位制的資料,而你必須用十六進位制的記數法 來輸入二進位的資料。舉個例子來說,如REG_BINARY值為0x02 0xFE 0xA9 0x38 0x92 0x38 0xAB 0xD9。
146 REG_DWORD 雙字組值(32-bits)。很多REG_DWORD內容值都使用像是布林值(0 或1、true或false、yes或者是no)。你也可以看到時間值以百萬秒(millisecond)的方式被放在REG_DWORD當中(1000 即1秒)。32-bit未指定的範圍可以從0到4,294,967,295,並且32-bit指定數值範圍可以從-2,147,483,648到 2,147,483,647。你可以使用十進位制或者是十六進位制的方法來編輯這些數值。如REG_DWORD值可表示為0xFE020001及 0x10010001。
147 REG_DWORD_BIG_ENDIAN 雙字組(Double-word)值以最顯著的方式被存放在記憶體當中。這些位元的順多與REG_DWORD的順序相反。舉個例子來說,數值 0x01020304被以0x01 0x02 0x03 0x04的型態放置在記憶體當中,你並不會在Intel-based 的架構中看到諸如此類的架構。
148 REG_DWORD_LITTLE_ENDIAN 雙字組值至少有顯者的位元組被儲存在記憶體當中,這個型態跟REG_DWORD是相同的,並且因為Intel-based的架構是以這種格式來儲存數值 的,在Windows XP當中,它是最普遍的數值。舉例來說,0x01020304以0x04 0x03 0x02 0x01的內容被存放在記憶體當中,登錄檔編輯器並不提供用來建立REG_DWORD_LITTLE_ENDIAN 值的能力,因為這個數值資料型態對於REG_DWORD在登錄檔當中的角色而言是相同的。
149 REG_EXPAND_SZ 變數長度的文字資料。以這種資料型態放置的資料可以是變數、及在使用它們之前,用來延伸這些變數的數值的程式。舉個例子來說,REG_EXPAND_SZ 值包含了%USERPROFILE%\Favorites在程式使用它之前,可能被延伸為C:\Documents and Settings\Jerry\Favorites 。這些登錄器API (Application Programming Interface)會依照所呼叫的程式來延伸環境變數REG_EXPAND_SZ字串,所以它在程式沒有擴充他們的時候,是沒有作用的。您可以看看第十章「引用使用者資訊檔」,以學習更多此類內容值的型態,以修正一些有趣的問題。
150 REG_FULL_RESOURCE_DESCRIPTOR 資源列表會將裝置及裝置的驅動程式列示出來。這也就資料型態對於PNP裝置來講很重要的原因。登錄檔編輯器並不提供任何方去來製作這種型態的內容值,但是 它允許你顯示它們。你可以查看HKLM\HARDWARE\DESCRIPTION\Description做為這類資料型態的範例。
151 REG_LINK 它是一個連接,而您無法建立REG_LINK值。
152 REG_MULTI_SZ 包含一個字串列表的二進位值。登錄檔編輯器會在每一行中顯示一個字串,並且允許你編輯這些列表。在 這些登錄檔當中,一個空的字元(0x00)被每個字串分隔開來,並且兩個空的字串被放置在此列表的結尾。
153 REG_NONE 擁有並未定義的數值。 Consists of hex data.
154 REG_QWORD Quadruple-word值(64-bits)。此一型態的資料與REG_DWORD型態相似,但是它包含了 64 bits而不是32 bit。而支援此一型態的作業系統只有Windows XP 64-Bit Edition。你可以使用十進位或者是十六進位的記數方法來查看及編輯此類的登錄值。 0xFE02000110010001為REG_QWORD的一個例子。
155 REG_QWORD_BIG_ENDIAN Quadruple-word值會將最顯著的位元組第一個儲存在記憶體當中。而此位元組的順序則與REG_QWORD儲存這些值的順序相反。你可以查看 REG_DWORD_BIG_ENDIAN得到更多資訊。
156 REG_QWORD_LITTLE_ENDIAN 至少有Quadruple-word值儲存在記憶體當中。這種型態與REG_QWORD相同。您可以查看REG_DWORD_LITTLE_ENDIAN 取得更多的資訊。登錄檔編輯器並不提供製作REG_QWORD_LITTLE_ENDIAN 內容的能力,因為這個值的型態對於登錄檔中的REG_QWORD而言是唯一的。
157 REG_RESOURCE_LIST 是REG_FULL_RESOURCE_DESCRIPTION 內容值的列表。登錄檔編輯器允許你查看,但不允許你編輯這種型態的資料。
158 REG_RESOURCE_REQUIREMENTS_LIST 列示了裝置所需資源的列表。登錄檔編輯器允許你查看,但並不允許你編輯此種型態的值。
159 REG_SZ 固定長度的文字 REG_DWORD、REG_SZ值為在登錄檔當中最普遍的資料型態。而REG_SZ值的範例為 Microsoft Windows XP或Jerry Honeycutt。每個字串都是以一個鑋值字元為結尾。程式並在REG_SZ值當中並沒有擴充環境變數。
160 */
161 /* private */registry_function.typeName='REG_NONE,REG_SZ,REG_EXPAND_SZ,REG_BINARY,REG_DWORD,REG_DWORD_BIG_ENDIAN,REG_LINK,REG_MULTI_SZ,REG_RESOURCE_LIST,REG_FULL_RESOURCE_DESCRIPTOR,REG_RESOURCE_REQUIREMENTS_LIST,REG_QWORD,REG_QWORD_LITTLE_ENDIAN=11'.split(',');
162 //	將 TypeValue 轉成 TypeName
163 registry_function.getTypeName = registry_function.prototype.getTypeName = function(
164 		/* int */type) {
165 	return registry_function.typeName[type];
166 };
167 //	將 TypeName 轉成 TypeValue
168 registry_function.getTypeValue = registry_function.prototype.getTypeValue = function(
169 		/* string */type) {
170 	if (!registry_function.typeValue) {
171 		var i, t = registry_function.typeValue = {}, n = registry_function.typeName;
172 		for (i in n)
173 			t[n[i]] = i;
174 	}
175 	return registry_function.typeValue[type];
176 };
177 
178 
179 
180 /*	將 HKEY_CURRENT_USER 等表示法與數字代號互轉
181 	http://msdn2.microsoft.com/en-us/library/aa393664.aspx
182 	http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/tags/v1_8_5_19/ext/Win32API/lib/win32/registry.rb?view=markup&pathrev=11732
183 	http://www.51log.net/dev/304/4539587.htm
184 */
185 registry_function.getRegCode=registry_function.prototype.getRegCode=function(/*string */name){
186  if(!registry_function.RegCode){
187   var i,r=registry_function.RegCode={
188 	HKCR:0,HKEY_CLASSES_ROOT:0
189 	,HKCU:1,HKEY_CURRENT_USER:1
190 	,HKLM:2,HKEY_LOCAL_MACHINE:2
191 	,HKUS:3,HKU:3,HKEY_USERS:3
192 	//,HKEY_PERFORMANCE_DATA:4
193 	,HKCC:5,HKEY_CURRENT_CONFIG:5
194 	,HKEY_DYN_DATA:6
195 	//,HKEY_PERFORMANCE_TEXT:0x50
196 	//,HKEY_PERFORMANCE_NLSTEXT:0x60
197   };
198   for(var i in r)if(!isNaN(r[i])){
199    r[i]+=0x80000000;//&
200    if(i.indexOf('_')!=-1)r[r[i]]=i;	//	reverse
201   }
202  }
203  //alert(name+'\n'+registry_function.RegCode[name]);
204  return registry_function.RegCode[name];
205 };
206 
207 
208 //	分開base與path,並作檢查。
209 registry_function.separatePath=function(path,sComputer,isValue){
210  if(typeof path=='object')return path;	//	處理過的
211 /*
212  if(isNaN(base)&&isNaN(base=this.getRegCode(base))&&typeof path=='string'&&(path=path.match(/^([A-Z_]+)\\(.+)$/)))
213   base=this.getRegCode(path[1]),path=path[2];
214 */
215  var base,v;	//	base, ValueName (or tmp)
216  if(typeof path=='string' && (v=path.match(/^([A-Z_]+)(\\(.*))?$/)))
217   base=this.getRegCode(v[1]),path=v[3]/*||'\\'*/;
218 
219  if(!base/*||isNaN(base)*/)return;
220  //alert('registry_function.separatePath:\n'+base+'	'+path);
221  if(typeof path!='string' || !path&&path!=='')return;
222 
223  v=0;
224  //	判別輸入
225  if(!/[\\]$/.test(path))
226   if(!isValue&&this.checkAccess([base,path],1/* KEY_QUERY_VALUE */,sComputer))
227    //	輸入 SubkeyName
228    path+='\\',v='';
229   //	輸入 ValueName
230   else if(v=path.match(/^(.+\\)([^\\]+)$/))path=v[1],v=v[2];
231   //	輸入 root 之 ValueName,如 HKEY_CURRENT_USER\value
232   else v=path,path='';
233 
234  if(path[1]=='\\')path[1]='';
235  //alert('registry_function.separatePath:\n'+base+'\n'+path+'\n'+v);
236  return typeof v=='string'?[base,path,v]:[base,path];	//	考慮用{base:,key:,value:}
237 };
238 // private
239 registry_function.prototype.separatePath=function(name,base){
240  //return this instanceof registry_function?[this.base,this.path+path]:registry_function.separatePath(path);
241  return typeof name=='string'?name.indexOf('\\')==-1?[this.base,this.path,name]:registry_function.separatePath(this.getPath()+name,this.computer):[this.base,this.path];
242 };
243 
244 
245 /*	主要的 WMI 執行 interface
246 	http://msdn2.microsoft.com/En-US/library/aa394616.aspx
247 In scripting or Visual Basic, the method returns an integer value that is 0 (zero) if successful. If the function fails, the return value is a nonzero error code that you can look up in WbemErrorEnum.
248 */
249 registry_function.oRegA = {};
250 registry_function.runMethod=registry_function.prototype.runMethod=function(name,inPO,sComputer/*,flag*/){	//	inPO: input parameters object
251  var oReg=this.oReg||registry_function.oRegA[sComputer||'.'];
252  if(!oReg)try{
253   oReg=this.oReg=registry_function.oRegA[sComputer||'.']
254 	=new ActiveXObject('WbemScripting.SWbemLocator')
255 	.ConnectServer(sComputer||null,'root/default')
256 	.Get('StdRegProv');
257  }catch(e){
258   //popErr(e);
259   return;
260  }
261 
262  try{
263   var i,oMethod=oReg.Methods_.Item(name)	//	若無此方法會 throw error!
264 	,oInParam=oMethod.InParameters.SpawnInstance_();
265   //if(name=='SetMultiStringValue')for(i in inPO){try{oInParam[i]=inPO[i];}catch(e){popErr(e,0,'registry_function.runMethod: '+name+' error:\nset ['+i+'] to ['+inPO[i]+']');}if(name=='CheckAccess')alert(name+': oInParam['+i+']='+inPO[i]);}
266   for(i in inPO)oInParam[i]=inPO[i];	//	若無此property會 throw error!
267   return oReg.ExecMethod_(oMethod.Name,oInParam);//oOutParam
268  }catch(e){
269   popErr(e);
270   return e;
271  }
272 };
273 
274 
275 /*	The CheckAccess method verifies that the user has the specified permissions.
276 	http://msdn2.microsoft.com/en-us/library/aa384911.aspx
277 	http://msdn2.microsoft.com/en-us/library/ms724878.aspx
278 
279 制定一個訪問標記以描述訪問新鍵的安全性
280     此參數可以是下列值的一個聯合
281     KEY_ALL_ACCESS
282     KEY_QUERY_VALUE, KEY_ENUMERATE_SUB_KEYS, KEY_NOTIFY, KEY_CREATE_SUB_KEY, KEY_CREATE_LINK, 和 KEY_SET_VALUE 訪問的聯合.
283     KEY_CREATE_LINK
284     允許創建嚴格符號的鏈接.
285     KEY_CREATE_SUB_KEY
286     允許創建子鍵.
287     KEY_ENUMERATE_SUB_KEYS
288     允許枚舉子鍵.
289     KEY_EXECUTE
290     允許讀訪問.
291     KEY_NOTIFY
292     允許改變通知.
293     KEY_QUERY_VALUE
294     允許查詢子鍵的數據.
295     KEY_READ
296     KEY_QUERY_VALUE, KEY_ENUMERATE_SUB_KEYS, 和 KEY_NOTIFY 訪問的聯合.
297     KEY_SET_VALUE
298     允許設置子鍵的數據.
299     KEY_WRITE
300     KEY_SET_VALUE 和 KEY_CREATE_SUB_KEY 訪問的聯合
301 
302 KEY_ALL_ACCESS (0xF003F)	Combines the STANDARD_RIGHTS_REQUIRED, KEY_QUERY_VALUE, KEY_SET_VALUE, KEY_CREATE_SUB_KEY, KEY_ENUMERATE_SUB_KEYS, KEY_NOTIFY, and KEY_CREATE_LINK access rights. (&& READ_CONTROL?)
303 KEY_CREATE_LINK (0x0020)	Reserved for system use.
304 KEY_CREATE_SUB_KEY (0x0004)	Required to create a subkey of a registry key.
305 KEY_ENUMERATE_SUB_KEYS (0x0008)	Required to enumerate the subkeys of a registry key.
306 KEY_EXECUTE (0x20019)	Equivalent to KEY_READ.
307 KEY_NOTIFY (0x0010)	Required to request change notifications for a registry key or for subkeys of a registry key.
308 KEY_QUERY_VALUE (0x0001)	Required to query the values of a registry key.
309 KEY_READ (0x20019)	Combines the STANDARD_RIGHTS_READ, KEY_QUERY_VALUE, KEY_ENUMERATE_SUB_KEYS, and KEY_NOTIFY values.
310 KEY_SET_VALUE (0x0002)	Required to create, delete, or set a registry value.
311 KEY_WOW64_32KEY (0x0200)	Indicates that an application on 64-bit Windows should operate on the 32-bit registry view. For more information, see Accessing an Alternate Registry View.
312 	This flag must be combined using the OR operator with the other flags in this table that either query or access registry values.
313 	Windows 2000:  This flag is not supported.
314 KEY_WOW64_64KEY (0x0100)	Indicates that an application on 64-bit Windows should operate on the 64-bit registry view. For more information, see Accessing an Alternate Registry View.
315 	This flag must be combined using the OR operator with the other flags in this table that either query or access registry values.
316 	Windows 2000:  This flag is not supported.
317 KEY_WRITE (0x20006)	Combines the STANDARD_RIGHTS_WRITE, KEY_SET_VALUE, and KEY_CREATE_SUB_KEY access rights.
318 
319 http://www.supinfo-projects.com/en/2004/api_basederegistre__vb_en/2/
320 */
321 registry_function.accessFlag = {
322 		KEY_QUERY_VALUE : 1,
323 		KEY_SET_VALUE : 2,
324 		KEY_CREATE_SUB_KEY : 4,
325 		KEY_ENUMERATE_SUB_KEYS : 8,
326 		KEY_NOTIFY : 0x10,
327 		KEY_CREATE_LINK : 0x20,
328 		// KEY_WOW64_32KEY:0x0200,
329 		// KEY_WOW64_64KEY:0x0100,
330 		DELETE : 0x10000,
331 		READ_CONTROL : 0x20000,
332 		STANDARD_RIGHTS_EXECUTE : 0x20000,
333 		STANDARD_RIGHTS_READ : 0x20000,
334 		STANDARD_RIGHTS_WRITE : 0x20000,
335 		KEY_WRITE : 0x20006,
336 		KEY_READ : 0x20019,
337 		KEY_EXECUTE : 0x20019,
338 		// WRITE_DAC:0x40000,
339 		// WRITE_OWNER:0x80000,
340 		// STANDARD_RIGHTS_REQUIRED:0xF0000,
341 		KEY_ALL_ACCESS : 0xF003F
342 		// ,SYNCHRONIZE:0x100000,
343 		// STANDARD_RIGHTS_ALL:0x1F0000
344 };
345 //	check access of key base+path
346 registry_function.checkAccess=registry_function.prototype.checkAccess=function(path,uRequired,sComputer){
347  if(path=this.separatePath(path,sComputer)){
348   if(typeof uRequired=='string')uRequired=registry_function.accessFlag[uRequired];
349   //alert('registry_function check:\n'+this.getRegCode(path[0])+'\\'+path[1]+'\n'+this.runMethod('CheckAccess',{hDefKey:path[0],sSubKeyName:path[1],uRequired:uRequired||3/*KEY_QUERY_VALUE+KEY_SET_VALUE*/},sComputer).bGranted);
350   try{return this.runMethod('CheckAccess',{hDefKey:path[0],sSubKeyName:path[1],uRequired:uRequired||3/*KEY_QUERY_VALUE+KEY_SET_VALUE*/},sComputer).bGranted;}	//	有可能不存在 .bGranted !
351   catch(e){return;}
352  }
353 };
354 
355 
356 //	一次性功能,不通過創建object
357 /*	ӥ۞某 path: Subkey(機碼) 之 {ValueName:(int)ValueType} 資訊。無 Value 會 return undefined
358 registry_function.getValue('HKEY_CLASSES_ROOT\\.odp')	傳ީ設值
359 registry_function.getValue('HKEY_CLASSES_ROOT\\.odp\\')	傳回整個目錄值
360 */
361 registry_function.getValueType=function(path,sComputer,flag){
362  if(!(path=this.separatePath(path,sComputer)))return;
363 
364  //	http://msdn2.microsoft.com/en-us/library/aa390388.aspx
365  var oOutParam=this.runMethod('EnumValues',{hDefKey:path[0],sSubKeyName:path[1]},sComputer),aNames,aTypes,i=0,r={'':1/* 取得預設值: REG_SZ */};
366  if(!oOutParam || oOutParam.sNames==null)return;	//	error 大概都是 ==null,可能因為輸入value而非key值
367  aNames=oOutParam.sNames.toArray(),aTypes=oOutParam.Types.toArray();
368  //aNames.push(''),aTypes.push(1);	//	預設值
369  if(flag==1)return [aNames,aTypes];
370  for(;i<aNames.length;i++)
371   //WScript.Echo('('+sRegTypes[aTypes[i]]+') '+aNames[i]);
372   r[aNames[i]]=aTypes[i];//,this.value[aNames[i]]=getValue(aNames[i],aTypes[i]);
373 
374  return flag==2?[aNames,r]:typeof path[2]=='string'?r[path[2]]:r;
375 };
376 //	傳回某 Value(數值) 之 (int)type 或 {ValueName:(int)ValueType}
377 registry_function.prototype.getValueType=function(name,force){
378  if(force||!this.type||!this.type[name]){	//	可能有更新
379   var t=registry_function.getValueType(this.separatePath(),this.computer,2)||[];
380   this.type=(this.valueA=t[0]||[]).length?t[1]:{};
381  }
382  //alert('registry_function.prototype.getValueType:\n'+name+'	'+this.type[name]);
383  if(this.type)return typeof name=='string'?this.type[name]:this.type;	//	應先copy
384 };
385 registry_function.prototype.getValueA = function(force) {
386 	if (force || !this.valueA)
387 		this.getValueType(0, 1);
388 	return this.valueA;
389 };
390 
391 
392 /*	一次性功能,不通過創建object
393 	讀取 Subkey(機碼) 之名稱資訊。無 Subkey 會 return undefined
394 
395 TODO:
396 return registry_function object
397 */
398 registry_function.getSubkeyName=function(path,sComputer,flag){
399  if(!(path=this.separatePath(path,sComputer)))return;
400  //alert('registry_function.getSubkeyName:\npath: '+path);
401 
402  //	http://msdn2.microsoft.com/en-us/library/aa390387.aspx
403  var i=0,r={},aNames=this.runMethod('EnumKey',{hDefKey:path[0],sSubKeyName:path[1]=='\\'?'':path[1]},sComputer).sNames;
404  if(aNames!=null){	//	error 大概都是 ==null,可能因為: 1.無Subkey 2.輸入value而非key值
405   if(flag==1)return aNames;
406   for(aNames=aNames.toArray();i<aNames.length;i++)
407    r[aNames[i]]={};//registry_function(r.base+aNames[i]+'\\')
408   //alert('registry_function.getSubkeyName: '+aNames.length);
409   return flag==2?[aNames,r]:path[2]?path[2] in r:r;
410  }
411 };
412 registry_function.prototype.getSubkeyName = function(force, flag) {
413 	if (force || !this.subkey) {
414 		var t = registry_function.getSubkeyName(this.separatePath(),
415 				this.computer, 2)
416 				|| [];
417 		this.subkey = (this.subkeyA = t[0] || []).length ? t[1] : {};
418 	}
419 	return flag ? this.subkeyA : this.subkey;
420 };
421 
422 
423 /*	設定 object 之初始 path。
424 oRegistryF.subkey
425 oRegistryF.type
426 oRegistryF.value
427 */
428 registry_function.prototype.setPath=function(path,sComputer){	//	base key path
429  if(!(path=registry_function.separatePath(path,sComputer)))return;	//	因為是初次設定,所以這裡不能用 this.separatePath()
430 
431  this.base=path[0],this.path=path[1],this.computer=sComputer;
432  if(!/[\\]$/.test(this.path))this.path+='\\';	//	確保this.path是key值
433 
434  //this.subkey={},this.type={},this.value={};	//	預防 no access permission 之後卻還被呼叫
435  if(this.checkAccess(0,0,sComputer))
436 	this.value={}
437 	,this.type=this.getValueType()
438 	,this.subkey=this.getSubkeyName(1)
439 	;
440  //	else: no access permission or doesn't exist.
441  return path;
442 };
443 
444 //	傳回 object 之初始 path。
445 registry_function.prototype.getPath = function() {
446 	return this.getRegCode(this.base) + '\\' + this.path;
447 };
448 
449 
450 registry_function.prototype.reset = function() {
451 	//	預防 no access permission 之後卻還被呼叫
452 	this.subkey = {}, this.type = {}, this.value = {};
453 	this.setPath(this.separatePath(), this.computer);
454 };
455 
456 //	尚未完善!
457 registry_function.isExist=function(path,sComputer,flag){
458  path=this.separatePath(path,sComputer);
459  if(!path)return;
460 
461  var _t=this.getSubkeyName([path[0],path[1].replace(/[^\\]+\\?$/,'')],0,2);
462  _t= _t && (!path[1]||path[1]=='\\'||_t.length&&_t[1][path[1].replace(/^(.*?)([^\\]+)\\?$/,'$2')]);
463  return !_t||!path[2]?_t:typeof this.getValueType(path)!='undefined';
464 
465  //if(this.checkAccess(path,1/* KEY_QUERY_VALUE */,sComputer))return true;
466  //if(flag)return;	//	不以create的方法test。
467 
468  //	若可create(並access),表示不存在(需刪掉建出來的),return false。否則unknown,return undefined。
469 
470 };
471 registry_function.prototype.isExist = function(name, flag) {
472 	return registry_function.isExist(this.separatePath(name),
473 			this.computer, flag);
474 };
475 
476 //	RegMethod	http://www.cqpub.co.jp/hanbai/pdf/18451/18451_wmi.pdf
477 registry_function.useMethod = ',String,ExpandedString,Binary,DWORD,DWORD,String,MultiString,String,MultiString,String,QWORD'
478 	.split(',');
479 registry_function.useValueName = ',s,s,u,u,u,s,s,s,s,s,u'.split(',');
480 registry_function.useArray = ',,,1,,,,1,,1,,'.split(',');
481 //	以 type 取得 path 之 Value。預設自動判別 type
482 registry_function.getValue=function(path,sComputer,/*int || undefined */type){
483  if(!(path=this.separatePath(path,sComputer)))return;
484  if(typeof path[2]!='string'){
485   //	get all
486   var r={},i;
487   type=this.getValueType(path,sComputer);
488   for(i in type)r[path[2]=i]=this.getValue(path,sComputer,type[i]);
489   return r;
490  }
491 
492  var m;	//	method
493  if(!type&&!(type=this.getValueType(path,sComputer))||!(m=this.useMethod[type]))return;
494 
495  var oOutParam=this.runMethod('Get'+m+'Value',{hDefKey:path[0],sSubKeyName:path[1],sValueName:path[2]},sComputer);
496  if(!oOutParam)return;
497  //if(oOutParam.returnValue)return oOutParam.returnValue;
498 
499  //	different method return different value name
500  oOutParam=oOutParam[this.useValueName[type]+'Value'];
501  //	some methods return VB Array
502  if(this.useArray[type])oOutParam=VBA(oOutParam);
503 
504  //if(!oOutParam)return;
505  if(type==7/*REG_MULTI_SZ*/)oOutParam=oOutParam.toArray();
506  else if(type==3/*REG_BINARY*/)oOutParam=fromCharCode(oOutParam.toArray());
507  //alert(oMethod.Name+'\n'+'('+type+')'+name+'\n'+oOutParam);
508  //if(type==3)alert(typeof oOutParam);
509  return oOutParam;
510 };
511 registry_function.prototype.getValue=function(name,/*int || undefined */type){
512  var i,v;
513  if(typeof name=='string'){
514   if(this.getSubkeyName()[name])
515    v=registry_function.getValue([this.base,this.path+'\\'+name,''],this.computer,1/* 取得預設值: REG_SZ */);
516   else{
517    if(name in this.value)return this.value[name];//if(m=this.value[name])return m;
518    if(!type)type=this.getValueType(name);	//	bug: 假如在之前已經更新過,可能得到錯誤的 type !
519    v=registry_function.getValue(this.separatePath(name),this.computer,type);
520   }
521   if(typeof v!='undefined')this.value[name]=v;
522   return v;
523  }
524 
525  if(!this.gotAllValue){
526   //	get all
527   for(i in this.type)
528    //{v=registry_function.getValue(this.separatePath(i),this.computer,this.type[i]);if(typeof v!='undefined')this.value[i]=v;}
529    this.value[i]=registry_function.getValue(this.separatePath(i),this.computer,this.getValueType(i));
530   this.gotAllValue=true;
531  }
532  return this.value;	//	應先copy
533 };
534 
535 
536 /*	僅設定 Value	硬將小數設成REG_DWORD會四捨五入
537 TODO:
538 set default value:
539 setValue('@',object)
540 */
541 registry_function.setValue=function(path, value, /*int || undefined */type, sComputer, isValue){
542  if(!(path=this.separatePath(path,sComputer,isValue)))return 5;
543 
544  if(typeof value=='undefined')return;	//	want to delete?
545  if(!type||isNaN(type)&&isNaN(type=this.getTypeValue(type)))	//	自動判別
546   type=!isNaN(value)?value%1?1/*REG_SZ*/:4/*REG_DWORD*/	//	DWORD:4bytes, or QWORD
547    :typeof value=='string'?
548     /^[\x0-\xff]$/.test(value)&&/[\x0\x80-\xff]/.test(value)?3/*REG_BINARY*/
549 	:value.indexOf('\n')!=-1?7/*REG_MULTI_SZ*/
550 	:value.indexOf('%')==-1?1/*REG_SZ*/:2/*REG_EXPAND_SZ:"%windir%\\calc.exe"等*/
551    :typeof value=='object'?3/*REG_BINARY*/:0/*REG_NONE*/;	//	may buggy
552  var m=this.useMethod[type],o;
553  //alert('registry_function.setValue:\npath:'+path+'\nvalue:'+(''+value).replace(/\0/g,'\\0')+'\ntype:'+type+'\nm:'+m+'\n\ncreate id:'+this.setValue.cid+'\nexist:'+this.isExist([path[0],path[1]]));
554  if(!m)return 6;
555  if( this.setValue.cid && !this.isExist([path[0],path[1]]) )
556   //alert('registry_function.setValue: add Key:\n'+path[0]+'\n'+path[1]),
557   this.addKey(path);
558 
559  o={hDefKey:path[0],sSubKeyName:path[1],sValueName:path[2]};
560 
561  //	http://msdn.microsoft.com/en-us/library/aa393286(VS.85).aspx
562  if(type==3/*REG_BINARY*/&&typeof value=='string'){
563   var i=0,v=value;
564   for(value=[];i<v.length;i++)value.push(v.charCodeAt(i));//value.push(''+v.charCodeAt(i));
565  }
566  //	some methods need VB Array
567  if(this.useArray[type])value=JSArrayToSafeArray(value);
568  //	different method has different value name
569  o[this.useValueName[type]+'Value']=value;
570 
571  m=this.runMethod('Set'+m+'Value',o,sComputer);
572  return m instanceof Error?m:m.returnValue;
573 };
574 //	Create intermediate directories as required.
575 //	設為true記得setValue後馬上改回來,否則可能出現自動加subkey的情形。
576 //registry_function.setValue.cid=0;
577 registry_function.prototype.setValue = function(name, value, /*int || undefined */type) {
578 	return registry_function.setValue(this.separatePath(name), value,
579 			type, this.computer);
580 };
581 
582 
583 /*
584 只能刪除葉結點項,連同該子項下的所有值均被刪除(如果不存在子項,或該項下還有子項則不能刪除則無效果)
585 */
586 registry_function.deleteKey=function(path,sComputer,flag){
587  if(!(path=this.separatePath(path,sComputer))
588 	||path[2]	//	不接受值
589 	)return;
590 
591  flag=flag||0;
592  if(flag&1){
593   //	recursive
594   var i,k=this.getSubkeyName(path,sComputer);
595   for(i in k)this.deleteKey([path[0],path[1]+k[i]],sComputer,flag-(flag&2)/* 不連上層empty者一起刪除 */);
596   flag-=1;
597  }
598 
599  //	do deleteKey
600  var r=this.runMethod('DeleteKey',{hDefKey:path[0],sSubKeyName:path[1]},sComputer);
601  if(!(flag&2))return r instanceof Error?r:r.returnValue;
602 
603  //	連上層empty者一起刪除
604  flag-=(flag&1)+(flag&2);
605  while(!(r instanceof Error) && (r=path[1].match(/^(.+)[^\\]+\\$/,''))){
606   path[1]=r[1];
607   if(this.getSubkeyName(path,sComputer)||this.getValueType(path,sComputer))break;
608   r=this.deleteKey(path,sComputer,flag);
609  }
610  return path;
611 };
612 registry_function.prototype.deleteKey = function(name, flag) {
613 	var p = registry_function.deleteKey(this.separatePath(name),
614 			this.sComputer, flag);
615 	if (typeof p === 'object' && this.path !== p[1]
616 			&& this.path.indexOf(p[1]) === 0)
617 		// 若 p[1] 比較短,表示連本 object 都被刪了。reset
618 		this.reset();
619 	return p;
620 };
621 
622 
623 //	return 0: success, others: failed
624 registry_function.deleteValue = function(path, sComputer) {
625 	if (!(path = this.separatePath(path, sComputer)) || !path[2] // 不接受key
626 	)
627 		return;
628 
629 	var r = this.runMethod('DeleteValue', {
630 		hDefKey : path[0],
631 		sSubKeyName : path[1],
632 		sValueName : path[2]
633 	}, sComputer);
634 
635 	return r instanceof Error ? r : r.returnValue;
636 };
637 registry_function.prototype.deleteValue = function(name) {
638 	return registry_function.deleteValue(this.separatePath(name),
639 			this.computer);
640 };
641 
642 //	input key or value, 自動判別
643 registry_function.deletePath = function(path, sComputer) {
644 	if (path = this.separatePath(path, sComputer))
645 		return path[2] ? this.deleteValue(path, sComputer) : this
646 				.deleteKey(path, sComputer);
647 };
648 
649 
650 //	僅設定 Key	add Subkey 創建註冊表項,可以一次創建完整的項子樹(各級不存在也會被創建)
651 registry_function.addKey = function(path, oValue, flag, sComputer) { // flag:add/overwrite/reset(TODO)
652 	if (!(path = this.separatePath(path, sComputer)))
653 		return;
654 
655 	var i, r = this.runMethod('CreateKey', {
656 			hDefKey : path[0],
657 			sSubKeyName : path[1] = path[1]/* +(path[2]||'') */
658 		}, sComputer).returnValue;
659 
660 	if (typeof oValue == 'object') {
661 		r = 0;
662 		for (i in oValue)
663 			path[2] = i, r += this.setValue(path, oValue[i], 0,
664 					sComputer);
665 	}
666 	return r;
667 };
668 registry_function.prototype.addKey = function(name, oValue, flag) { // flag:add/overwrite/reset(TODO)
669 	return registry_function.addKey(this.separatePath(name), oValue,
670 			flag, this.computer);
671 };
672 
673 
674 if(0){
675 	CeL.no_initialization = 1;
676 
677 	var r = new registry_function('HKCU\\Software\\Colorless echo\\regTest\\test3\\');
678 	//	alert((r.getValue())['test1']);
679 	r.setValue('test3', 34452);
680 	r.setValue('test4', 34452.53);
681 	r.setValue('test5', {
682 		ghjk : 'hghj'
683 	});
684 	alert(r.getPath() + '\nAccess: ' + r.checkAccess() + '\n\n' + r.getValue('test4'));
685 	r.deleteValue('test3');
686 	r.deleteValue('test4');
687 	r.addKey('test\\test1');
688 	alert(r.addKey('test1\\test1'));
689 	r.deleteKey('test\\test1');
690 	r.deleteKey('test1\\test1');
691 
692 	/*
693 	oRegistryF.setValue(name,value,type);
694 	oRegistryF.getValue();
695 	oRegistryF.getValue(name);
696 	oRegistryF.getValueType(name);
697 	oRegistryF.deleteValue(name);
698 	oRegistryF.deleteKey(name);
699 	oRegistryF.addKey(name);
700 	oRegistryF.addKey(name,oValue,flag:add/overwrite/reset);
701 	*/
702 }
703 
704 //	include library
705 function _iL() {
706 	// if(typeof WshShell!='object')WshShell=new ActiveXObject("WScript.Shell");
707 }
708 //or: isHTA
709 _iL.p = library_namespace.env.registry_path_key_name;
710 _iL.for_include = 'try{var o;try{o=new ActiveXObject("Microsoft.XMLHTTP")}catch(e){o=new XMLHttpRequest()}o.open("GET",(new ActiveXObject("WScript.Shell")).RegRead("'
711 	//	TODO: 以更精確的方法處理。
712 	+ _iL.p.replace(/\\/, '\\\\')
713 	+ '"),false);o.send(null);eval(o.responseText)}catch(e){}';// WScript.Echo(e.message);
714 
715 //CeL.extend({registry_function:registry_function,_iL:_iL});
716 CeL.extend({reg:registry_function});
717 
718 
719 
720 return (
721 	CeL.application.OS.Windows.registry
722 );
723 }
724 
725 
726 });
727 
728