隐藏指定进程的托盘图标附源码| 网吧实用程序&脚本分享&讨论New! - 网 ...
级别: 论坛版主
发帖:
956
(精: )
经验:
9067 点
金币:
2163 个
魅力值:
1382 点
同城网管圈:
在线时间: 1222(小时)
注册时间:
2006-03-15
{zh1}登录:
2010-02-16
隐藏指定进程的托盘图标 附源码
新年第1天,送上个没技术性的东西 给以前的,现在的,以后的需要找此代码的人
当然,也包括了编译好的程序。有需要的拿去就能用。
在此祝 “网吧实用程序&脚本分享&讨论New!” 全体人员新年行好运,身体健康发大财!
也祝“网吧实用程序&脚本分享&讨论New!” 版块越来越火暴!!!
#COMPILE EXE
#DIM ALL
#INCLUDE "Win32API.inc"
%IDC_BUTON1 = 1001
%IDC_BUTON2 = 1002
%IDC_BUTON3 = 1003
%IDC_TEXT1 = 1004
%WM_USER = &H400
%TB_BUTTONCOUNT = %WM_USER + 24
%TB_HIDEBUTTON = %WM_USER + 4
%TB_GETBUTTON = %WM_USER + 23
%MEM_COMMIT = &H1000
%TBSTATE_HIDDEN = &H8
'------------------------自定义结构------------------------------------------------------------------------------
TYPE TRAYDATA
hWnd AS LONG
uid AS LONG
uCallBackMessage AS LONG
Reserved1(0 TO 1) AS LONG
hIcon AS LONG
Reserved2(0 TO 5) AS INTEGER
END TYPE
'------------------------------------------------------------------------------------------------------
TYPE PROCESSENTRY32
dwSize AS LONG
cntUsage AS LONG
th32ProcessID AS LONG
th32DefaultHeapID AS LONG
th32ModuleID AS LONG
cntThreads AS LONG
th32ParentProcessID AS LONG
pcPriClassBase AS LONG
dwFlags AS LONG
szExeFile AS STRING * 260
END TYPE
GLOBAL HideTrue AS LONG
GLOBAL ProPIDA AS LONG
GLOBAL hDlg AS DWORD,ThreadX AS LONG
GLOBAL udtTray() AS TRAYDATA
DECLARE FUNCTION CreateToolhelpSnapshot LIB "kernel32" ALIAS "CreateToolhelp32Snapshot" (BYVAL dwFlags AS LONG, BYVAL th32ProcessID AS LONG) AS LONG
DECLARE FUNCTION Process32First LIB "kernel32" ALIAS "Process32First" (BYVAL hSnapshot AS LONG, lppe AS PROCESSENTRY32) AS LONG
DECLARE FUNCTION Process32Next LIB "kernel32" ALIAS "Process32Next" (BYVAL hSnapshot AS LONG, lppe AS PROCESSENTRY32) AS LONG
'------------------------------------------------------------------------------------------------------
FUNCTION FindSysTray() AS LONG
DIM hTrayWnd AS LONG
hTrayWnd = FindWindow("Shell_TrayWnd", "")
IF hTrayWnd <> 0 THEN
hTrayWnd = FindWindowEx(hTrayWnd, 0, "TrayNotifyWnd", "")
hTrayWnd = FindWindowEx(hTrayWnd, 0, "SysPager", "")
IF hTrayWnd <> 0 THEN
hTrayWnd = FindWindowEx(hTrayWnd, 0, "ToolbarWindow32","")
END IF
END IF
FUNCTION = hTrayWnd
END FUNCTION
'------------------------------------------------------------------------------------------------------
FUNCTION ScanProcess(BYVAL ProcessName AS STRING) AS LONG
DIM Proc AS PROCESSENTRY32
DIM Snap AS LONG
DIM ExeName AS STRING
DIM Theloop AS LONG
DIM str AS STRING
Snap = CreateToolhelpSnapshot(&H1+&H2+&H4+&H8, 0)
Proc.dwSize = LEN(Proc)
Theloop = Process32First(Snap,Proc)
WHILE Theloop <> 0
ExeName = Proc.szExeFile
IF LCASE$(LEFT$(ExeName,LEN(ProcessName))) = LCASE$(ProcessName) THEN
FUNCTION = Proc.th32ProcessID
CloseHandle(Snap)
EXIT FUNCTION
END IF
Theloop = Process32Next(BYVAL Snap, Proc)
WEND
CloseHandle(Snap)
FUNCTION =0
END FUNCTION
..............................................................
级别: MVP
发帖:
1821
(精: )
经验:
18594 点
金币:
1810 个
魅力值:
10 点
在线时间: 836(小时)
注册时间:
2008-06-12
{zh1}登录:
2010-02-16
级别: MVP
发帖:
1821
(精: )
经验:
18594 点
金币:
1810 个
魅力值:
10 点
在线时间: 836(小时)
注册时间:
2008-06-12
{zh1}登录:
2010-02-16
。晕。我理解错了。 。。。。。。。哭啊
郑重声明:资讯 【隐藏指定进程的托盘图标附源码| 网吧实用程序&脚本分享&讨论New! - 网 ...】由 发布,版权归原作者及其所在单位,其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实,请读者仅作参考,并请自行核实相关内容。若本文有侵犯到您的版权, 请你提供相关证明及申请并与我们联系(qiyeku # qq.com)或【
在线投诉
】,我们审核后将会尽快处理。
——
相关资讯
——
泉州快接管件价格-快特斯快接管件
2018/2/14
漯河薯塔旋切机哪款好
2018/2/14
建瓯幼儿园饮水机
2018/8/18
甘露醇原料药厂家
2015/7/13
百度快速排名用什么软件好
2017/1/15
UCenter Home — 又一款SNS社区软件 - 柒柒肆壹的自留地
2010/1/8
彩瓦模具瓦模彩瓦模盒纳米瓦机—保定新兴模具厂- 网络营销- wantuo888 ...
2010/1/19
兔肉不能与什么一起吃_FOWEVER℃_百度空间
2010/2/27
水性防水剂_北京中科纳洁环保科学研究院欢迎您_百度空间
2010/4/3
10种坚果食用有禁忌_山西醋业的空间_百度空间
2010/4/7
雷雨天气导致集线器损坏| 维修博客
2010/4/9
如何解决平压平模切机输纸部分故障| 如何搜索
2010/7/3
【听后感】此去经年,浮生未歇(记音频怪物-浮生未歇)_浮生未歇_百度空间
2010/7/20
激光祛斑后症状
2015/3/12
去除狐臭xx_清香神悦网
2015/3/17
xx精油瘦肚子_极瘦美体网
2015/3/21
去眼袋黑眼圈的方法
2015/3/24
女人吃什么补卵巢
2015/3/25