跪求大神C語言轉換為VB，謝謝
#include <windows.h>
// 保存模塊句柄，釋放DLL時需要用到
static HMODULE gLibModule = 0;
// 用于保存時鐘視窗原始處理程序,DLL卸載時應該還原
static LONG_PTR gOldWndProc = 0;
// 查找時鐘視窗句柄
static HWND FindClockWindow()
{
HWND h = FindWindow(TEXT("Shell_TrayWnd"), nullptr);
if (IsWindow(h))
{
h = FindWindowEx(h, 0, TEXT("TrayNotifyWnd"), nullptr);
if (IsWindow(h))
{
return FindWindowEx(h, 0, TEXT("TrayClockWClass"), nullptr);
}
}
return 0;
}
static DWORD WINAPI FreeSelf(LPVOID param)
{
FreeLibraryAndExitThread(gLibModule, EXIT_SUCCESS);
}
static void RestoreWndProc()
{
if (gOldWndProc != 0)
SetWindowLongPtr(FindClockWindow(), GWLP_WNDPROC, gOldWndProc);
}
// 新的視窗處理程序,核心作業都在這里
LRESULT CALLBACK ClockWndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
// 為了能收到滑鼠左擊右擊的訊息，必須讓Windows以為我們"命中"了作業區
if (uMsg == WM_NCHITTEST)
return HTCLIENT;
// 處理滑鼠左擊事件
if (uMsg == WM_LBUTTONUP)
{
ShellExecute(0, TEXT("open"), TEXT("http://blog.csdn.net/aqtata"), nullptr, nullptr, SW_SHOW);
return 0;
}
// 處理滑鼠右擊事件，這里我們卸載DLL(自身)
if (uMsg == WM_RBUTTONUP)
{
RestoreWndProc();
CloseHandle(CreateThread(nullptr, 0, (LPTHREAD_START_ROUTINE)FreeSelf, nullptr, 0, nullptr));
return 0;
}
return WNDPROC(gOldWndProc)(hWnd, uMsg, wParam, lParam);
}
BOOL APIENTRY DllMain(HMODULE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
{
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
{
gLibModule = hModule;
HWND hClock = FindClockWindow();
if (IsWindow(hClock))
{
gLibModule = hModule;
gOldWndProc = GetWindowLongPtr(hClock, GWLP_WNDPROC);
if (gOldWndProc != 0)
{
SetWindowLongPtr(hClock, GWLP_WNDPROC, (LONG_PTR)&ClockWndProc);
}
}
break;
}
case DLL_PROCESS_DETACH:
{
RestoreWndProc();
break;
}
}
return TRUE;
}
uj5u.com熱心網友回復：
你轉換語言的目的是什么？如果你想用VB編譯這個DLL代碼，那首先要把你用到的那幾個API函式寫成TLB，
再在DLL工程中參考相應的TLB。
如果你需要的是“功能移植”，那基本上就是移植“查找時鐘視窗”和“回呼函式”
這兩個函式就行了。DLL的“入口”和“釋放”函式是不需要的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/271700.html
標籤：網絡編程
上一篇：VBA一個作業表里在不同單元格雙擊顯示不同表單以錄入資料的代碼如何書寫呢？
下一篇：vba中shape運用問題