用VBS编写的托盘冒泡提示_

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

推荐文章 More...


	华硕易电脑(ASUS Eee PC 10.. 先来段开场白：为了外出携带方便，..

	Acronis True Image 使用.. 　　一款可以在Windows下使用全..

	Norton Ghost 使用详解一、分区备份　　使用Ghost进..

文章阅读排行


	Microsoft SQL Server 2000.. 　　对于第一次安装 Microsoft SQ..

	ASP：Dimac W3 JMail 发送.. 【发送邮件测试代码下载】压..

	ASP：Persits ASPMail 发送.. 【发送邮件测试代码下载】压..

	VMware Workstation：安装.. 编写这份虚拟机安装的图文教程，..

	华硕易电脑(ASUS Eee PC 10.. 先来段开场白：为了外出携带方便，..

	ASP：Microsoft CDO 发送邮.. 【发送邮件测试代码下载】压..

文章信息

用VBS编写的托盘冒泡提示

〖评论()〗〖留言〗〖收藏〗

〖文章分类：电脑·手机·网络 / 软件编程·编译〗〖阅读选项〗

　　参数均是可选的，第一个是气泡的内容，第二个是气泡的标题，第三个是气泡持续的时间，默认是10000毫秒(10秒钟)，第四个是可选的图标样式，可选值为0(无图标)，1(信息图标)，2(警告图标)，3(错误图标)，默认是0

　　这个工具是托盘图标存在期间不会退出，如果需要删除临时文件需要等待它自己完成自己的工作退出之后
程序是VC环境下用纯API写的，使用WinMainCRTStartup函数代替了传统的WinMain函数作为入口，因此程序体积大减(非原创)为了让大家用上就放出来。

代码如下，保存为.VBS 文件，注：把 Data = "" 之间的代码写成一行
-----------------------------------------------------------------------------

Data = "4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F
010B01000000000000000600000000000054010000001000000C00000000004000001000000002
000004000000000000000400000000000000004000000002000000000000020000000000100000
100000000010000010000000000000100000000000000000000000983200008400000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
200000001000000000000000000000000000000000000000000000E00000C00000000000000000
00100000003000001903000000020000000000000000000000000000E00000C08725DC32400061
9455A4B680FF1373F933C9FF13731633C0FF13731FB68041B010FF1312C073FA753AAAEBE0FF53
0802F683D901750EFF5304EB24ACD1E8742D13C9EB189148C1E008ACFF53043B43F8730A80FC05
730683F87F77024141958BC5B600568BF72BF0F3A45EEB9F5EAD97AD50FF5310958B074078F375
03FF630C5055FF5314ABEBEE33C941FF1313C9FF1372F8C302D275058A164612D2C34B45524E45
4C33322E646C6C00004D3815403259096724454CFF027F65C711B3270CF49B4887C17F6874C470
3A712FEE691D2E62610E6475C3636F6DF373011C6C79782C2042D79A53AF0B4D2E02C20325730E
0842616C2E6F206E54697020E8653A7874B75B14576C955D0E086DE76F75C728637329331D4990
6EA7266444F9433853853C01C71805E012FCE801C114FF15241001A3E4911FB9700633C0890DE8
1BC844EC981425A3F0DD1354F405117813227CC448C41406A2F82B30C390038B44241D0856579D
7C800C33C983F8030A893D8014252035017727FF248560115834EB6822B4081B02B5E216910C03
80A8C44018B2A3518942268E00A51FFD657A3150C0F866A0220335F5EE61432A134091C2428507
C9B55845EC3F083FE01FA278ECA40D285F67E23008A0C3A80F9307C17C00A397F120FBE1FC98D0
4C7423BD6604441D07C68E499BB9410534301C383EC18384224185355B250BB28B80B9352BD986
4BE084C500E14AA66003A3BC50F8E52A3B31F4E04CC3D202F51296890AD0880130CFFD7451C128
3C40C011202C6057F170C5AA18414560852278484146C0381C3087EE28B7F461F8D4C241050CD5
146F554F6600A52E84D14311B8BD861F41F2019047E5552100ACE6A1854EAFE8BB50026FD037E2
F3312EDEB2B085620455C0A0558A459D6F12C5D110C8ED6C16818E8DCFD8E7C5553ED258B8A1E0
86AFA910450275D6A5B3D2CB85701EBE54BF678A9A8113AA691111422DC8F010E2C1510EBCB538
ED72D7011DC73746272166E412E054578C3EE50F16F63FD73C73B1D47FD7C43716D5C61E81D4C6
93E3857074B45524E3F6033322E646CE309994144546BD46F706757406465771D145F7358721A7
466D29E1AE25E142CFA686065125F4E6F7412696679843D506F5DB354D8417267337657514842C
463D001EABAF6000000F03200000000000000000000F2010000F03200000000000000000000000
0000000000000000000000010400000304000C814400000000000E032400080000000007D0000C
0324000E8014000DC014000DE014000C0114000FA32000008330000000000004C6F61644C69627
261727941000047657450726F634164647265737300"

Function ExtractFile(FileName)
With CreateObject("ADODB.Stream"):.Type = 1:.Open:.Write StrToByte(data):.SaveToFile FileName, 2:.Close:End With
End Function

ExtractFile "C:\BalloonTip.exe"
WScript.CreateObject("WScript.Shell").Run "cmd.exe /c C:\BalloonTip.exe "" 请勿在电脑桌上放置贵重物品，以防被盗，请自行保管自己的各种虚拟帐号，如有丢失网吧概不负责!"" 温馨提示 10000 1", 0

Function StrToByte(str)
Set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.loadXML "<?xml version=""1.0""?>"
Set pic = xmldoc.createElement("pic")
pic.dataType = "bin.hex"
pic.nodeTypedValue = str
StrToByte = pic.nodeTypedValue
End Function

文章作者：未知更新日期：2008-02-18

〖文章浏览：〗〖打印文章〗〖发送文章〗