【TC8.0】去广告生成代码

波哥TC教程系列

先说一下使用TC8.0的几个明显优势
1.用的人相对不多,从一定程度上可以过检测和杀毒
2.较TC7.0多了一些功能函数,具体看帮助文档
3.不开会员的情况下有高大尚的广告(扯淡)

一键去除广告纯TC代码,我就不藏着掖着了
1.自动判断是否为调试模式决定是否执行
2.自动判断是否为TC8.0决定是否执行
代码无副作用,调试模式不受影响,在非TC8.0执行不受影响

代码放在窗口初始化里面即可,如下:

function noad() //去广告初始化，无须添加dll
    if(fileexist("TApi.dll"))
        return
    end
    var rc_path = getrcpath("rc:")
    if(filemd5(rc_path & "TApi.dll") == "e29e670c14131c3f98f83b78409b9c91")
        var my_hwnd, my_hwnd_enum, my_hwnd_i, my_hwnd_len, my_hwnd_enum_array
        var hwnd_x, hwnd_y, relative_x, relative_y, hwnd_w, hwnd_h
        my_hwnd = windowgetmyhwnd()
        my_hwnd_enum = enum(my_hwnd, 3)
        my_hwnd_len = strsplit(my_hwnd_enum, "|", my_hwnd_enum_array)
        for(my_hwnd_i = 0; my_hwnd_i < my_hwnd_len; my_hwnd_i++)
            if(my_hwnd_i < 3)
                windowclose(my_hwnd_enum_array[my_hwnd_i])
                continue
            end
            windowgetpos(my_hwnd_enum_array[my_hwnd_i], hwnd_x, hwnd_y)
            windowscreentoclient(my_hwnd, hwnd_x, hwnd_y, relative_x, relative_y)
            windowsetpos(my_hwnd_enum_array[my_hwnd_i], relative_x, relative_y - 50)
        end
        windowgetsize(my_hwnd, hwnd_w, hwnd_h)
        windowsetsize(my_hwnd, hwnd_w, hwnd_h - 78)
    end
end