vb.net中使用API

Windows  API  是作为  Windows  操作系统一部分的动态链接库  (DLL)。当难以自己编写等效的过程时，可以使用它们来执行任务。例如，Windows  提供一个名为  FlashWindowEx  的函数，能够使您让应用程序的标题栏交替显现深色和浅色。 
   
  在代码中使用  Windows  API  的好处在于它们可以节省开发时间，因为它们包含许多已经编写好的、等待使用的有用函数。缺点是在发生故障时，Windows  API  可能难以处理并且不可挽回。 
   
  Windows  动态链接库  (DLL)  表示一个专门的互操作类别。Windows  API  不使用托管代码，不具备内置类型库，它使用的数据类型与  Visual  Studio  .NET  中所用的数据类型不同。由于这些差别，且  Windows  API  不是  COM  对象，所以与  Windows  API  和  .NET  平台的互操作是通过使用平台调用  (PInvoke)  来完成的。平台调用是一种服务，它使托管代码能够调用  DLL  中实现的非托管函数。有关更多信息，请参见使用非托管  DLL  函数。通过使用  Declare  语句或将  DllImport  属性应用到一个空过程，可以在  Visual  Basic  .NET  中使用  PInvoke。 
   
  Windows  API  调用过去曾是  Visual  Basic  编程中很重要的一部分，但在  Visual  Basic  .NET  几乎不必要了。只要有可能，应该使用  .NET  Framework  中的托管代码而不是  Windows  API  调用来执行任务。本演练提供有关那些一定要使用  Windows  API  的场合的信息。 
   
  使用  Declare  的  API  调用 
  调用  Windows  API  最常用的方法是通过使用  Declare  语句。 
   
  声明  DLL  过程   
   
  确定要调用的函数的名称及其参数、参数类型和返回值，以及包含该函数的  DLL  的名称和位置。   
  注意      有关  Windows  API  的完整信息，请参见  Platform  SDK  Windows  API  中的  Win32  SDK  文档。有关  Windows  API  使用的常数的更多信息，请检查包含在  Platform  SDK  中的头文件，如  Windows.h。 
  通过在“文件”菜单上单击“新建”，然后单击“项目”，打开一个新的“Windows  应用程序”项目。将出现“新建项目”对话框。   
  从  Visual  Basic  项目模板的列表中选择“Windows  应用程序”。将显示新项目。   
  将以下  Declare  函数添加到项目启动窗体的声明部分，或是添加到要使用  DLL  的类或模块的声明部分中：   
  Declare  Auto  Function  MBox  Lib  "user32.dll"  _ 
  Alias  "MessageBox"  (ByVal  hWnd  As  Integer,  _ 
        ByVal  txt  As  String,  ByVal  caption  As  String,  _ 
        ByVal  Typ  As  Integer)  As  Integer 
  Declare  语句的各个部分 
  Declare  语句包括以下元素。 
   
  Auto  修饰符 
  Auto  修饰符指导运行库根据公共语言运行库规则（或已指定的别名）转换基于方法名的字符串。 
   
  Lib  与  Alias  关键字 
  紧跟  Function  关键字之后的名称就是您的程序用来访问导入函数的名称。它可以与正在调用的函数的实名相同，或者可以使用任何有效的过程名，然后使用  Alias  关键字来指定正在调用的函数的实名。 
   
  指定  Lib  关键字，这个关键字后面紧跟包含正在调用的函数的  DLL  的名称和位置。不必为位于  Windows  系统目录下的文件指定路径。 
   
  如果正在调用的函数的名称不是一个有效的  Visual  Basic  过程名，或与应用程序中其他项的名称冲突，请使用  Alias  关键字。Alias  指示正在调用的函数的实名。 
   
  参数和数据类型声明 
  声明参数及其数据类型。这一部分可能具有挑战性，因为  Windows  使用的数据类型与  Visual  Studio  数据类型不对应。通过将参数转换为可兼容的数据类型（称为“封送处理”的过程），Visual  Basic  帮您做了大量工作。通过使用在  System.Runtime.InteropServices  命名空间中定义的  MarshalAs  属性，可以显式地控制参数封送的方式。 
   
  注意      Visual  Basic  的早期版本允许声明参数  As  Any，这意味着可以使用任意数据类型的数据。Visual  Basic  .NET  要求所有声明语句使用特定的数据类型。 
  Windows  API  常数 
  有些参数是多个常数的组合。例如，本演练中所示的  MessageBox  API  接受一个称为  Typ  的整型参数，它控制消息框的显示方式。通过检查  WinUser.h  文件中的  #define  语句，可以确定这些常数的数值。这些数值通常以十六进制表示，因此可能需要使用计算器来将这些数值相加，然后转换为十进制。例如，若要组合感叹号样式  MB_ICONEXCLAMATION  0x00000030  和“是/否”样式  MB_YESNO  0x00000004  的常数，可以将这些数字相加并得到结果  0x00000034（十进制数  52）。尽管可以直接使用十进制结果，最好还是在应用程序中将这些值声明为常数，并使用  Or  运算符将其组合。
为  Windows  API  调用声明常数   
   
  可在文档中查找正在调用的  Windows  函数，并确定该函数使用的常数的名称以及包含有这些常数数值的  .h  文件的名称。   
  使用一个文本编辑器（如“记事本”）查看  .h  文件的内容，并查找与正在使用的常数相关的值。例如，MessageBox  API  使用常数  MB_ICONQUESTION  在消息框中显示问号。MB_ICONQUESTION  的定义在  WinUser.h  中，形式如下所示：   
  #define  MB_ICONQUESTION                          0x00000020L 
  将等效的  Const  语句添加到类或模块的声明部分，以使这些常数可用于您的应用程序。例如：   
  Const  MB_ICONQUESTION  =  &H20L 
  Const  MB_YESNO  =  &H4 
  Const  IDYES  =  6 
  Const  IDNO  =  7 
  调用  DLL  过程   
   
  将一个名为  Button1  的按钮添加到项目的启动窗体，然后双击它查看其代码。将显示该按钮的事件处理程序。   
  将代码添加到已添加按钮的  Click  事件处理程序中来调用该过程，并提供适当的参数：   
  Private  Sub  Button1_Click(ByVal  sender  As  System.Object,  _ 
                                                      ByVal  e  As  System.EventArgs)  _ 
                                                      Handles  Button1.Click 
        Dim  RetVal  As  Integer  "  Stores  the  return  value. 
        RetVal  =  MBox(0,  "Declare  DLL  Test",  "Windows  API  MessageBox",  _ 
                                    MB_ICONQUESTION  Or  MB_YESNO) 
  "  Check  the  return  value. 
        If  RetVal  =  IDYES  Then 
              MsgBox("You  chose  Yes") 
        Else 
              MsgBox("You  chose  No") 
        End  If 
  End  Sub 
  通过按  F5  键运行项目。将显示带有“是”和“否”响应按钮的消息框。单击任何意一个按钮。   
  数据封送处理 
  Visual  Basic  .NET  自动转换参数的数据类型，并为  Windows  API  调用返回值，但是可以使用  MarshalAs  属性显式指定  API  要求的非托管数据类型。有关互操作封送处理程序的更多信息，请参见  Interop  封送处理 
   
  在  API  调用中使用  Declare  和  MarshalAs   
   
  确定要调用的函数的名称、函数的参数、数据类型以及返回值。   
  若要简化对  MarshalAs  属性的访问，请向类或模块的代码顶部添加一条  Imports  语句，如下例所示：   
  Imports  System.Runtime.InteropServices 
  将导入函数的函数原型添加到您正在使用的类或模块的声明部分，并将  MarshalAs  属性应用到参数或返回值。在以下示例中，要求类型为  Void*  的  API  调用可作为  UnmanagedType.AsAny  封送：   
  Declare  Sub  SetData  Lib  "../LIB/UnmgdLib.dll"  (ByVal  x  As  Short,  _ 
              <MarshalAsAttribute(UnmanagedType.AsAny)>  ByVal  o  As  Object) 
  使用  DllImport  的  API  调用 
  DllImport  属性提供了在没有类型库的  DLL  中调用函数第二种方法。DllImport  大致等效于使用  Declare  语句，但它在如何调用函数方面提供了更多的控制。 
   
  可以将大多数  Windows  API  调用与  DllImport  一起使用，只要该调用引用的是共享（有时称为“静态”）方法就可以。不能使用需要类实例的方法。与  Declare  语句不同，DllImport  调用不能使用  MarshalAs  属性。 
   
  使用  DllImport  属性调用  Windows  API   
   
  通过在“文件”菜单上单击“新建”，然后单击“项目”，打开一个新的“Windows  应用程序”项目。将出现“新建项目”对话框。   
  从  Visual  Basic  项目模板的列表中选择“Windows  应用程序”。将显示新项目。   
  将一个名为  Button2  的按钮添加到启动窗体上。   
  双击  Button2  打开窗体的代码视图。   
  要简化对  DllImport  的访问，请向启动窗口类的代码顶部添加一条  Imports  语句：   
  Imports  System.Runtime.InteropServices 
  在  End  Class  语句之前为窗体声明一个空函数，并将函数命名为  MoveFile。   
  将  Public  和  Shared  修饰符应用到函数声明中，并基于  Windows  API  函数使用的参数来设置  MoveFile  的参数：   
  Public  Shared  Function  _   
  MoveFile(ByVal  src  As  String,  ByVal  dst  As  String)  As  Boolean 
        "  Leave  the  body  of  the  function  empty. 
  End  Sub 
  函数可以有任意一个有效的过程名；DllImport  属性指定  DLL  中的名称。它还为参数和返回值处理互操作封送处理，因此可以选择与  API  使用的数据类型相似的  Visual  Studio  .NET  数据类型。   
   
  将  DllImport  属性应用到空函数中。第一个参数是包含要调用的函数的  DLL  的名称和位置。不必为位于  Windows  系统目录下的文件指定路径。第二个参数是一个命名参数，指定  Windows  API  中的函数名称：   
  <DllImport("KERNEL32.DLL",  EntryPoint:="MoveFileW",  SetLastError:=True,  _ 
  CharSet:=CharSet.Unicode,  ExactSpelling:=True,  _ 
  CallingConvention:=CallingConvention.StdCall)>  _ 
  Public  Shared  Function  _ 
  MoveFile(ByVal  src  As  String,  ByVal  dst  As  String)  As  Boolean 
        "  This  function  copies  a  file  from  the  path  src  to  the  path  dst. 
        "  Leave  function  empty  -  DllImport  attribute  forces  calls   
        "  to  MoveFile  to  be  forwarded  to  MoveFileW  in  KERNEL32.DLL. 
  End  Function 
  将代码添加到  Button2_Click  事件处理程序以调用函数：   
  Private  Sub  Button2_Click(ByVal  sender  As  System.Object,  _ 
                                                      ByVal  e  As  System.EventArgs)  _ 
                                                      Handles  Button2.Click 
        Dim  RetVal  As  Boolean 
        RetVal  =  MoveFile("c:/tmp/Test.txt",  "c:/Test.txt") 
        If  RetVal  =  True  Then 
              MsgBox("The  file  was  moved  successfully.") 
        Else 
              MsgBox("The  file  could  not  be  moved.") 
        End  If 
  End  Sub 
  创建名为  Test.Txt  的文件并将其放在您硬盘的  C:/Tmp  目录下。如果有必要，可创建  Tmp  目录。   
  按  F5  键启动该应用程序。将显示主窗体。   
  单击  Button2。若文件可以移动，则显示“The  file  was  moved  successfully”。