    VBƽWindowsĻ           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VBƽWindowsĻ     VBƽWindowsĻ ڣ200767 ߣ 鿴:[     С ]       
6: PWstr = PWstr &amp; Chr(("&amp;H" &amp; Chr(CryptographStr(11)) &amp; Chr(CryptographStr(12))) Xor &amp;H69) 

5: PWstr = PWstr &amp; Chr(("&amp;H" &amp; Chr(CryptographStr(9)) &amp; Chr(CryptographStr(10))) Xor &amp;H67) 

4: PWstr = PWstr &amp; Chr(("&amp;H" &amp; Chr(CryptographStr(7)) &amp; Chr(CryptographStr(8))) Xor &amp;H1D) 

3: PWstr = PWstr &amp; Chr(("&amp;H" &amp; Chr(CryptographStr(5)) &amp; Chr(CryptographStr(6))) Xor &amp;H76) 

2: PWstr = PWstr &amp; Chr(("&amp;H" &amp; Chr(CryptographStr(3)) &amp; Chr(CryptographStr(4))) Xor &amp;HEE) 

1: PWstr = PWstr &amp; Chr(("&amp;H" &amp; Chr(CryptographStr(1)) &amp; Chr(CryptographStr(2))) Xor &amp;H48) 

For i = i To 1 Step 1 'PWstrֵΪĵУ䵹ñó롣 

 PassWord = PassWord &amp; Mid(PWstr, i, 1) 

Next i 

Text1.Text = PassWord 'ıʾ롣 

End Sub 

2ģ룺 

Option Explicit 

Const ERROR_SUCCESS = 0&amp; 

Const ERROR_BADDB = 1009&amp; 

Const ERROR_BADKEY = 1010&amp; 

Const REG_EXPAND_SZ = 2&amp; 

Const REG_BINARY = 3&amp; 

Const KEY_QUERY_VALUE = &amp;H1&amp; 

Const KEY_ENUMERATE_SUB_KEYS = &amp;H8&amp; 

Const KEY_NOTIFY = &amp;H10&amp; 

Const READ_CONTROL = &amp;H20000 

Const STANDARD_RIGHTS_READ = READ_CONTROL 

Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY 

Const HKEY_CURRENT_USER = &amp;H80000001 

Dim hKey As Long, MainKeyHandle As Long 

Dim rtn As Long, lBuffer As Long, sBuffer As String, SubKey As String 

Dim lBufferSize As Long 

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long 
 һҳ   [1]   [2]   [3]   [4]   һҳ      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   VBƽWindowsĻ £   VBƽWindowsĻ  VBƽWindowsĻ   
һƪ: VBMS OfficeCOM  
һƪ: ȡļVB̼  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ؼС洰С仯仯    VBѧ±ܼӴ    VBʹDirectXļ̳    VBݿԴ60ʵ    VBʹEXCEL    180VBͼνԴʵ    API޸עģ    VB쳬Ի˵    ͨſؼMSCommʹ    WINDOWSϢ˵    16תʮ, 16תɶƵ    vsprintӡʵ    webbrowser 2ղأ    VB6DataGridʵͨõӱ    FindWindow    VB6.0ͼ    VB̳ ڶ£ؼѧϰ    VB֮·ý     رƼ    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯    VBʱͱܵ         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       