Nt_Environment_* - Routine

666VIP1

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .局部变量 Environment
   
5. .局部变量 name
   
6. .局部变量 namelen
   
7. .局部变量 Unicodelen
   
8. .局部变量 Unicode
   
9. .局部变量 punicode_string, 长整数型
   
10. .局部变量 pUnicodelen
    
11. .局部变量 outpunicode_string, 长整数型
    
12. .局部变量 outUnicode
    
13. 
    
14. ' Environment  计算机 << 系统属性 << 高级 << 环境变量
    
15. 
    
16. ' 写注册项 (4, “SYSTEM\ControlSet001\Control\Session Manager\Environment\” ＋ “adminw”, “zzzz”)
    
17. ' 写注册项 (3, “Environment\” ＋ “adminw”, “www66w”)
    
18. 
    
19. Nt_Environment_RtlCreateEnvironment (真, Asm_GetH (Environment))
    
20. 
    
21. name ＝ Asm_GetDataH (“Path”)  ' ComSpec cmd路径
    
22. namelen ＝ Asm_len (name)  ' 取A编码长度
    
23. 
    
24. Unicodelen ＝ Asm_mul (Asm_len (name), 2)  ' 取A编码长度*2=Unicodelen
    
25. Unicode ＝ Nt_Heap_RtlAllocateHeap (g_heap, Asm_add (#HEAP_ZERO_MEMORY, #HEAP_GENERATE_EXCEPTIONS), Unicodelen)  ' 申请相应长度内存
    
26. Nt_Trans_RtlMultiByteToUnicodeN (Unicode, Unicodelen, Asm_GetH (pUnicodelen), name, namelen)  ' 传入地址转换编码
    
27. 
    
28. 
    
29. Asm_writeWord_1 (punicode_string, pUnicodelen)
    
30. Asm_writeWord__1 (punicode_string, 2, pUnicodelen)
    
31. Asm_writeDword__1 (punicode_string, 4, Unicode)
    
32. 
    
33. 
    
34. ' 输出调试文本 (Nt_Environment_RtlSetEnvironmentVariable (Asm_GetH (Environment), Asm_GetH (punicode_string), Asm_GetH (outpunicode_string)))
    
35. 
    
36. 
    
37. outUnicode ＝ Nt_Heap_RtlAllocateHeap (g_heap, Asm_add (#HEAP_ZERO_MEMORY, #HEAP_GENERATE_EXCEPTIONS), 10240)  ' 申请相应长度内存
    
38. Asm_writeWord_1 (outpunicode_string, 10240)
    
39. Asm_writeWord__1 (outpunicode_string, 2, 10240)
    
40. Asm_writeDword__1 (outpunicode_string, 4, outUnicode)
    
41. 
    
42. 
    
43. Nt_Environment_RtlQueryEnvironmentVariable_U (Environment, Asm_GetH (punicode_string), Asm_GetH (outpunicode_string))
    
44. 
    
45. 调试输出 (指针到字节集 (outUnicode, Asm_readWord (Asm_GetH (outpunicode_string))))
    
46. 
    
47. 
    
48. ' 其他类似 不一一列举
    
49. ' Nt_Environment_RtlExpandEnvironmentStrings_U 扩展环境路径名
    
50. ' Nt_Environment_RtlSetCurrentEnvironment  置当前环境对象
    
51. ' Nt_Environment_RtlSetEnvironmentVariable 置环境变量值
    
52. 
    
53. Nt_Environment_RtlDestroyEnvironment (Environment)  ' 关闭对象
    

复制代码