易截截图软件、单文件、免安装、纯绿色、仅160KB

VC调用VB的dll

有静态和动态两种,静态的需要lib而动态的只需要一个dll就可以了(但是要知道函数的定义一般是头文
件)动态相对复杂一点!但是掌握了也不是很难  
  //第一步     定义函数指针就是你要调用的函数,参数必须一致,不然就内存泄露  
  typedef   HANDLE (PASCAL   *   OPEN)(char   *,int);  
  //第二步     定义本地函数  
  //一般前两步都在头文件里面声明  
  OPEN       open;  
  //第三步   加载dll  
  HMODULE   m_hLib;  
  m_hLib     ::LoadLibrary"E:\\yewufuwu\\TERMINALDLL\\Debug\\TerminalDLL.dll");  
  //输入相应的路径  
  if(m_hLib   ==   NULL   )  
  {  
  MessageBox("动态连接库没有找到!!!","LoadLibrary",MB_OK);  
      return   ;  
  }  
  //第四步  
  else  
  {  
        MessageBox("动态连接库成功打开...","LoadLibrary",MB_OK);  
        open=(OPEN)GetProcAddress(m_hLib,   "OpenDevice");  
  }  
   
  //第五步  
  long     handle   =   open("EF",1);   
    
    
  动态库下的函数如下  
  //*************打开终端*****************************************  
  HANDLE   __declspec(dllexport)     WINAPI  
  OpenDevice(char   *   szType,int   nType)  
  {  
   
  hReader&


相关文档:

Vb中窗体自定义坐标


开始使用vb的时候喜欢用手画出那个控件的位置.然后一个一个的拖动,一点一点的移动.直到感觉满意了为止.如果是控件多了这个就很麻烦了
一不小心可能会将谋个控件拖到一边去
所以,我们在以后的作品中
尽量使用代码来定义控件位置,,要灵活的掌握坐标位置.,可以使用自定义坐标.使用像素来更好的来分区显示控件.
 
& ......

VB 资料导出

在很多 VB 的资料库书籍中,都会很完整的提到:如何由其他种类的文件中将资料导入资料库,但是却很少有书提到:如何将资料库中的资料,导出到各种不同的文件类型的文件中,连 VB 的 Help 中也是这样!
或许是大家都认为资料库主题的重点是在资料库本身吧!
但是,在实际的资料库程序运用中,却常常需要将资料库导出到各种 ......

vb自动关机程序

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
  ......

详解VB调用C#类库的方法步骤(转载)

使用c#语言在.net平台生成的dll是基于MSIL的二进制代码,通常情况下是无法被native的语言和程序调用的(例如vb,vc,delphi)。但是一般来说windows上native的程序都是可以直接使用com对象的。通过.net平台提供的一些工具,可以为其伪造一个com接口并注册到系统中。此时,可以在native的程序里,通过这个伪com接口来实现此. ......

VB局域网自动传播病毒


主窗体代码:
'打开网页
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'复制文件
Private Declare Fu ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号