你用google搜索一下了,vb+显卡(声卡,键盘),就行了,很好用的,这样你可以找到你需要的,我们给你的 不一定正好用到的

解决方案 »

  1.   

    GetKeyboardType VB声明 
    Declare Function GetKeyboardType Lib "user32" Alias "GetKeyboardType" (ByVal nTypeFlag As Long) As Long 
    说明 
    了解与正在使用的键盘有关的信息 
    返回值 
    Long,零表示出错。否则返回下述值之一 
    nTypeFlag=0 1——PC或兼容的83键键盘;2——Olivetti102键键盘;3——AT或兼容84键键盘;4——增强型(IBM)101或102键键盘;5——Nokia1050键盘;6——Nokia9140键盘;7——日文键盘 
    nTypeFlag=1 任何值,由厂商决定 
    nTypeFlag=2 1——10个功能键(即 F? 键);2——12或18个功能键;3——10个功能键;4——12个功能键;5——10个功能键;6——24个功能键;7——由厂商决定 
    参数表 
    参数 类型及说明 
    nTypeFlag Long,可设为下述值之一 
    0——返回键盘类型 
    1——返回键盘子类型 
    2——返回键盘上的功能键数量 
    GetKeyboardState VB声明 
    Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long 
    说明 
    取得键盘上每个虚拟键当前的状态 
    返回值 
    Long,非零表示成功,零表示失败。会设置GetLastError 
    参数表 
    参数 类型及说明 
    pbKeyState Long,总共含256个条目的字节数组中的第一个项目。每个字节都会附带载入与虚拟键对应的状态。如开关键打开,则位0设为1(开关键包括CapsLock, NumLock, ScrollLock);如某个键当时按下,则位7为1;如已经抬起,则为0 
    注解 
    虚拟键码常数 VK_? 作为数组的索引使用。这个函数相应于取得按键状态于一瞬间的“快照”——键按下或松开以后,数组不会自动更新。在win32中注意用一个字节数组避免由于vb向Unicode的内部转换而导致错误
     
      

  2.   

    感谢pchobby,但是怎样获得显卡的信息呢?比如芯片生产厂家,显存大小等,谢谢!