主頁 > 軟體工程 > 跪求大神C語言轉換為VB,謝謝

跪求大神C語言轉換為VB,謝謝

2021-04-03 01:40:00 軟體工程

跪求大神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運用問題

標籤雲
其他(123570) Java(13369) Python(12731) C(7545) 區塊鏈(7372) JavaScript(7059) 基礎類(6313) AI(6244) 腳本語言(PerlPython)(5129) 非技術區(4971) Android(4120) MySQL(4012) Linux(3394) C語言(3288) C++語言(3117) Java相關(2746) 疑難問題(2699) 單片機工控(2479) Web開發(1951) 網絡通信(1793) 數據庫相關(1767) VB基礎類(1755) PHP(1727) 開發(1646) 系統維護與使用區(1617) .NETCore(1586) 基礎和管理(1579) JavaEE(1566) C++(1527) 專題技術討論區(1515) Windows客戶端使用(1484) HtmlCss(1466) ASP.NET(1428) Unity3D(1354) VCL組件開發及應用(1353) HTML(CSS)(1220) 其他技術討論專區(1200) WindowsServer(1192) .NET技术(1165) 交換及路由技術(1149) 語言基礎算法系統設計(1133) WindowsSDKAPI(1124) 界面(1088) JavaSE(1075) Qt(1074) VBA(1048) 新手樂園(1016) 其他開發語言(947) Go(907) HTML5(901) 新技術前沿(898) 硬件設計(872) 區塊鏈技術(860) 網絡編程(857) 非技術版(846) 一般軟件使用(839) 網絡協議與配置(835) Eclipse(790) Spark(750) 下載資源懸賞專區(743)

熱門瀏覽
  • Git本地庫既關聯GitHub又關聯Gitee

    創建代碼倉庫 使用gitee舉例(github和gitee差不多) 1.在gitee右上角點擊+,選擇新建倉庫 ? 2.選擇填寫倉庫資訊,然后進行創建 ? 3.服務端已經準備好了,本地開始作準備 (1)Git 全域設定 git config --global user.name "成鈺" git c ......

    uj5u.com 2020-09-10 05:04:14 more
  • CODING DevOps 代碼質量實戰系列第二課,相約周三

    隨著 ToB(企業服務)的興起和 ToC(消費互聯網)產品進入成熟期,線上故障帶來的損失越來越大,代碼質量越來越重要,而「質量內建」正是 DevOps 核心理念之一。**《DevOps 代碼質量實戰(PHP 版)》**為 CODING DevOps 代碼質量實戰系列的第二課,同時也是本系列的 PHP ......

    uj5u.com 2020-09-10 05:07:43 more
  • 推薦Scrum書籍

    推薦Scrum書籍 直接上干貨,推薦書籍清單如下(推薦有順序的哦) Scrum指南 Scrum精髓 Scrum敏捷軟體開發 Scrum捷徑 硝煙中的Scrum和XP : 我們如何實施Scrum 敏捷軟體開發:Scrum實戰指南 Scrum要素 大規模Scrum:大規模敏捷組織的設計 用戶故事地圖 用 ......

    uj5u.com 2020-09-10 05:07:45 more
  • CODING DevOps 代碼質量實戰系列最后一課,周四發車

    隨著 ToB(企業服務)的興起和 ToC(消費互聯網)產品進入成熟期,線上故障帶來的損失越來越大,代碼質量越來越重要,而「質量內建」正是 DevOps 核心理念之一。 **《DevOps 代碼質量實戰(Java 版)》**為 CODING DevOps 代碼質量實戰系列的最后一課,同時也是本系列的 ......

    uj5u.com 2020-09-10 05:07:52 more
  • 敏捷軟體工程實踐書籍

    Scrum轉型想要做好,第一步先了解并真正落實Scrum,那么我推薦的Scrum書籍是要看懂并實踐的。第二步是團隊的工程實踐要做扎實。 下面推薦工程實踐書單: 重構:改善既有代碼的設計 決議極限編程 : 擁抱變化 代碼整潔代碼 程式員的職業素養 修改代碼的藝術 撰寫可讀代碼的藝術 測驗驅動開發 : ......

    uj5u.com 2020-09-10 05:07:55 more
  • Jenkins+svn+nginx實作windows環境自動部署vue前端專案

    前面文章介紹了Jenkins+svn+tomcat實作自動化部署,現在終于有空抽時間出來寫下Jenkins+svn+nginx實作自動部署vue前端專案。 jenkins的安裝和配置已經在前面文章進行介紹,下面介紹實作vue前端專案需要進行的哪些額外的步驟。 注意:在安裝jenkins和nginx的 ......

    uj5u.com 2020-09-10 05:08:49 more
  • CODING DevOps 微服務專案實戰系列第一課,明天等你

    CODING DevOps 微服務專案實戰系列第一課**《DevOps 微服務專案實戰:DevOps 初體驗》**將由 CODING DevOps 開發工程師 王寬老師 向大家介紹 DevOps 的基本理念,并探討為什么現代開發活動需要 DevOps,同時將以 eShopOnContainers 項 ......

    uj5u.com 2020-09-10 05:09:14 more
  • CODING DevOps 微服務專案實戰系列第二課來啦!

    近年來,工程專案的結構越來越復雜,需要接入合適的持續集成流水線形式,才能滿足更多變的需求,那么如何優雅地使用 CI 能力提升生產效率呢?CODING DevOps 微服務專案實戰系列第二課 《DevOps 微服務專案實戰:CI 進階用法》 將由 CODING DevOps 全堆疊工程師 何晨哲老師 向 ......

    uj5u.com 2020-09-10 05:09:33 more
  • CODING DevOps 微服務專案實戰系列最后一課,周四開講!

    隨著軟體工程越來越復雜化,如何在 Kubernetes 集群進行灰度發布成為了生產部署的”必修課“,而如何實作安全可控、自動化的灰度發布也成為了持續部署重點關注的問題。CODING DevOps 微服務專案實戰系列最后一課:**《DevOps 微服務專案實戰:基于 Nginx-ingress 的自動 ......

    uj5u.com 2020-09-10 05:10:00 more
  • CODING 儀表盤功能正式推出,實作作業資料可視化!

    CODING 儀表盤功能現已正式推出!該功能旨在用一張張統計卡片的形式,統計并展示使用 CODING 中所產生的資料。這意味著無需額外的設定,就可以收集歸納寶貴的作業資料并予之量化分析。這些海量的資料皆會以圖表或串列的方式躍然紙上,方便團隊成員隨時查看各專案的進度、狀態和指標,云端協作迎來真正意義上 ......

    uj5u.com 2020-09-10 05:11:01 more
最新发布
  • 在執行com.android.build.gradle.internal.tasks.Workers$Action

    我創建的安卓應用有兩種產品口味,一種是生產型,一種是暫存型,當我為生產型設定動態鏈接時,我在清單中使用了以下資料代碼
    android:scheme="https"。
    />...

    uj5u.com 2021-10-16 15:31:15 more
  • 向kotlin springboot gradle匯入jar檔案

    請幫助,我有兩個使用Kotlin DSL Gradle的spring boot專案,但是,我需要將其中一個專案匯入另一個專案,但是,這不起作用。
    向 IntelliJ IDEA 專案添加外部 jars(lib/*.jar)的正確...

    uj5u.com 2021-10-16 15:30:34 more
  • 賽普拉斯測驗在iframe處掛起

    當我運行這個測驗時,一切似乎都很正常,直到我嘗試點擊iframe中的按鈕。我從下拉選單中選擇沒有問題,但是當我走到最后一步想點擊按鈕時,測驗在加載iframe后掛起。
    另外,是否有更...

    uj5u.com 2021-10-16 15:29:36 more
  • 如何復制HttpRequest

    PayPal提供了如何接收購買通知的示例代碼(或類似的)。遺憾的是,我沒有看到手動測驗的方法,我很難看到如何復制Microsoft.AspNetCore.Http HttpRequest。
    https://github.com/pay...

    uj5u.com 2021-10-16 15:29:15 more
  • 是否有適合測驗的WindowsActiveDirectory容器?

    我正在尋找一個像 openshift/openldap-2441-centos7 或 https://github.com/osixia/docker-openldap 的容器,它將運行一個 Windows 作業系統并具有一些合理的默認值。
    我想添...

    uj5u.com 2021-10-16 15:29:12 more
  • cypress上的invoke()方法如果呼叫兩次就不作業了

    我是Cypress的新手,我想用一個已經存在的網頁來實作一些簡單的測驗。我對結果有點困惑,因為我呼叫了兩次invoke():第一次是檢查初始值(0%),第二次是設定一個新的值并檢查變化,但是...

    uj5u.com 2021-10-16 15:29:08 more
  • 我如何測驗CriteriaBuidler查詢?

    如果我有一個需要測驗的方法,它依賴于用criticalBuilder和criticalQuery進行的查詢,我如何做到這一點? 我遇到的問題是,在測驗環境中的entityManager將是空的。模擬EntityManage...

    uj5u.com 2021-10-16 15:28:34 more
  • 從基類重寫通用方法

    我有一個類的繼承關系,定義如下: 我有一個類的繼承關系,定義如下: 我有一個類的繼承關系。
    class ClassA{}。

    class ClassB extends ClassA{}。

    class BaseClass{}。
    {
    pu...

    uj5u.com 2021-10-16 15:27:43 more
  • 為什么一個帶有常量通用布林值的方法不能呼叫一個對真和假都實作

    這段代碼完美地作業(playground):
    struct MyStruct<const B: bool> 。

    impl MyStruct<false> {
    pub fn bar() {
    println!("false") 。
    }
    }
    impl MyStruct<tru...

    uj5u.com 2021-10-16 15:26:44 more
  • Swift5-通過泛型分配相同型別的屬性值時出錯

    class SQS_Record {
    var table: SQS_Table? = nil?
    }

    class SQS_Table<RecordType: SQS_Record> {

    func newRecord() -> RecordType {
    let new = RecordType()...

    uj5u.com 2021-10-16 15:26:36 more