Batcher

以“MessageBJ”为关键字在论坛搜索，未果。

defanive

具体不记得了，好像名字是叫MessageBJ××（后两个英文不记得了）

Batcher

我昨晚搜索的时候没找到，你能帮忙提供一下链接么？

defanive

以前不是有过一个么，还可以支持网页URL的。。。

Batcher

【方案四】VBS动态生成BalloonTip.exe

下面的vbs脚本中实际上包含了一个小工具

使用格式为

BalloonTip Text Title Timeout IconIndex

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

这个工具是托盘图标存在期间不会退出,如果需要删除临时文件需要等待它自己完成自己的工作退出之后

在Windows XP SP2下测试通过,不保证其他平台有效

Data = "4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C00000000004000001000000002000004000000000000000400000000000000004000000002000000000000020000000000100000100000000010000010000000000000100000000000000000000000983200008400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000200000001000000000000000000000000000000000000000000000E00000C0000000000000000000100000003000001903000000020000000000000000000000000000E00000C08725DC324000619455A4B680FF1373F933C9FF13731633C0FF13731FB68041B010FF1312C073FA753AAAEBE0FF530802F683D901750EFF5304EB24ACD1E8742D13C9EB189148C1E008ACFF53043B43F8730A80FC05730683F87F77024141958BC5B600568BF72BF0F3A45EEB9F5EAD97AD50FF5310958B074078F37503FF630C5055FF5314ABEBEE33C941FF1313C9FF1372F8C302D275058A164612D2C34B45524E454C33322E646C6C00004D3815403259096724454CFF027F65C711B3270CF49B4887C17F6874C4703A712FEE691D2E62610E6475C3636F6DF373011C6C79782C2042D79A53AF0B4D2E02C20325730E0842616C2E6F206E54697020E8653A7874B75B14576C955D0E086DE76F75C728637329331D49906EA7266444F9433853853C01C71805E012FCE801C114FF15241001A3E4911FB9700633C0890DE81BC844EC981425A3F0DD1354F405117813227CC448C41406A2F82B30C390038B44241D0856579D7C800C33C983F8030A893D8014252035017727FF248560115834EB6822B4081B02B5E216910C03080A8C44018B2A3518942268E00A51FFD657A3150C0F866A0220335F5EE61432A134091C2428507C9B55845EC3F083FE01FA278ECA40D285F67E23008A0C3A80F9307C17C00A397F120FBE1FC98D04C7423BD6604441D07C68E499BB9410534301C383EC18384224185355B250BB28B80B9352BD9864BE084C500E14AA66003A3BC50F8E52A3B31F4E04CC3D202F51296890AD0880130CFFD7451C1283C40C011202C6057F170C5AA18414560852278484146C0381C3087EE28B7F461F8D4C241050CD5146F554F6600A52E84D14311B8BD861F41F2019047E5552100ACE6A1854EAFE8BB50026FD037E2F3312EDEB2B085620455C0A0558A459D6F12C5D110C8ED6C16818E8DCFD8E7C5553ED258B8A1E086AFA910450275D6A5B3D2CB85701EBE54BF678A9A8113AA691111422DC8F010E2C1510EBCB538ED72D7011DC73746272166E412E054578C3EE50F16F63FD73C73B1D47FD7C43716D5C61E81D4C693E3857074B45524E3F6033322E646CE309994144546BD46F706757406465771D145F7358721A7466D29E1AE25E142CFA686065125F4E6F7412696679843D506F5DB354D8417267337657514842C463D001EABAF6000000F03200000000000000000000F2010000F032000000000000000000000000000000000000000000000010400000304000C814400000000000E032400080000000007D0000C0324000E8014000DC014000DE014000C0114000FA32000008330000000000004C6F61644C69627261727941000047657450726F634164647265737300"

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 ""How are you?"" Hello 3000 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
复制代码

原文地址：http://www.cn-dos.net/forum/viewthread.php?tid=33141

【方案五】VBS

nScrW= createobject("htmlfile").parentWindow.screen.availWidth
nScrHt= createobject("htmlfile").parentWindow.screen.availHeight

set roIe= Wscript.createobject("internetExplorer.application","IE_")
roIe.navigate("about:blank")
do
wscript.sleep 50
loop until roIe.readyState=4

with roIe
        '.fullScreen= true

        .resizable= false
        .width= 320+30
        .height= 195+30
        .left= (nScrW -(320+30))
        .top= nScrHt
        '.RegisterAsDropTarget = False
        .Resizable = False


        'Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop

        .document.open
        
        .document.write "...HTML内容省略..."
        .Document.Title = "消息"
        .document.close

        Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop

        .toolbar = false
        .statusBar = false
        .addressBar = false
        .visible= true
end with
CreateObject("Wscript.Shell").Appactivate roIe.Document.Title & " - "
For i = nScrHt To nScrHt-(195+30) Step -1
        roIe.top= i
        wscript.sleep 10
Next
wscript.sleep 20000
roIe.quit
set roIe = Nothing

Sub IE_OnQuit()
        Wscript.quit
End Sub
复制代码

原文地址：http://bbs.verybat.org/viewthread.php?tid=7825

Batcher

【方案三】VB + API

::TrayBalloon.exe ;参数1;;参数2;;参数3;;参数4;;参数5;
::参数1:
::        图标路径
::参数2:
::        标题
::参数3:
::        内容
::参数4:
::        类型 [0-无图标 1-提示图标 2-警告图标 3-错误图标 4-自定义图标]
::参数5:
::        提示停留时间(单位:秒)

@echo off
::例子1:
TrayBalloon.exe ;%cd%\TB.ico;;我是标题！！;;漂亮的提示！！cool吧:);;2;;5;
::例子2:
@rem 添加到任务计划中……
at 16:05 /interactive %cd%\TrayBalloon.exe ;%cd%\TB.ico;;我是标题！！;;漂亮的提示！！cool吧:);;1;;3;

pause>nul
复制代码

TrayBalloon.exe是用VB写的，通过调用API来实现。

本地下载：
http://bcn.bathome.net/s/tool/index.html?key=BalloonTip

原文地址：http://www.cn-dos.net/forum/viewthread.php?tid=27659