开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 浏览器 > 查看源码
rundllvb.cpp
资源名称：IE_VB.rar　[点击查看]
上传用户：davilee3
上传日期：2015-04-22
资源大小：986k
文件大小：2k
源码类别：

浏览器

开发平台：

Visual Basic

rundllvb.cpp：源码内容
  1. // rundllvb.cpp : Defines the entry point for the DLL application.
  2. //
  4. #include "stdafx.h"
  5. #include <windows.h>
  7. typedef int (CALLBACK *MYPROC)(int,int,int,int); 
  8. typedef int (CALLBACK *dllreg)();
  10. BOOL APIENTRY DllMain( HANDLE hModule, 
  11.                        DWORD  ul_reason_for_call, 
  12.                        LPVOID lpReserved
  13.  )
  14. {
  15.     return TRUE;
  16. }
  20. int FAR PASCAL RegCom(LPCSTR lpDll,int isReg)
  21. {
  22. HINSTANCE hinstLib; 
  23.     dllreg ProcAdd; 
  24. int rtn=-1;
  26. BOOL fFreeResult, fRunTimeLinkSuccess = FALSE; 
  27. // Get a handle to the DLL module.
  30.     hinstLib = LoadLibrary(lpDll); 
  31.  
  32.     // If the handle is valid, try to get the function address.
  33.  
  34.     if (hinstLib != NULL) 
  35.     { 
  36. if (isReg==1)
  37. ProcAdd =(dllreg)GetProcAddress(hinstLib, "DllRegisterServer");
  38. else
  39. ProcAdd =(dllreg)GetProcAddress(hinstLib, "DllUnregisterServer"); 
  40.  
  41.         // If the function address is valid, call the function.
  42.  
  43.         if (fRunTimeLinkSuccess = (ProcAdd != NULL))
  44. { 
  45.             rtn=ProcAdd(); 
  46. }
  47.         // Free the DLL module.
  48.  
  49.         fFreeResult = FreeLibrary(hinstLib); 
  50.     } 
  51. return rtn;
  52. }
  54. int FAR PASCAL RunDll(LPCSTR lpDll,int lpWeb,int msg,int wparam,int lparam)
  55. {
  56. HINSTANCE hinstLib; 
  57.     MYPROC ProcAdd; 
  59. BOOL fFreeResult, fRunTimeLinkSuccess = FALSE; 
  60. int rtn=-1;
  61. // Get a handle to the DLL module.
  64.     hinstLib = LoadLibrary(lpDll); 
  65.  
  66.     // If the handle is valid, try to get the function address.
  67.  
  68.     if (hinstLib != NULL) 
  69.     { 
  70.         ProcAdd =(MYPROC)GetProcAddress(hinstLib, "ShellWeb"); 
  71.  
  72.         // If the function address is valid, call the function.
  73.  
  74.         if (fRunTimeLinkSuccess = (ProcAdd != NULL))
  75. { 
  76.             rtn=ProcAdd(lpWeb,msg,wparam,lparam); 
  77. }
  78.         // Free the DLL module.
  79.  
  80.         fFreeResult = FreeLibrary(hinstLib); 
  81.     } 
  82. return rtn;
  83. }