    VBƽWindowsĻ           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VBƽWindowsĻ     VBƽWindowsĻ ڣ200767 ߣ 鿴:[     С ]       
 
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 

Declare Function RegQueryValueEx Lib"advapi32.dll" Alias"Reg QueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long 

Function GetBinaryValue(Entry As String) 

MainKeyHandle = HKEY_CURRENT_USER 

SubKey = "Control Panel\desktop\" 

rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_READ, hKey) 

 If rtn = ERROR_SUCCESS Then 'HKEY_CURRENT_USER\Control Panel\desktopɹ 

 lBufferSize = 1 

 rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, 0, lBufferSize) 'ȡScreenSave_Dataֵ 

 sBuffer = Space(lBufferSize) 

 rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, sBuffer, lBufferSize) 

 If rtn = ERROR_SUCCESS Then 'ȡScreenSave_Dataֵɹ 

 rtn = RegCloseKey(hKey) 

 GetBinaryValue = sBuffer 'ScreenSave_Dataֵ 

 Else 'ȡScreenSave_Dataֵɹ 

 Call ErrorMsg 

 End 

 End If 

Else 'HKEY_CURRENT_USER\Control Panel\desktopܴ 

 Call ErrorMsg 'ErrorMsg() 

 End 

 End If 

End Function 

Private Sub ErrorMsg() 'ʾϢ 

 Select Case rtn 

 Case ERROR_BADDB 

 MsgBox ("ļעд!") 

Case ERROR_BADKEY, REG_EXPAND_SZ 

 MsgBox ("ļδ룡") 

Case Else 

 MsgBox ("ƽδ֪󣬴ţ" &amp; Str(rtn)) 

 End Select 

End Sub 
    һҳ   [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       