Shoutbox

quote:

---

var txtFilepath;
var refreshtime;

function OnEvent_Initialize(MessengerStart)           //开始登陆后执行
{
    txtFilepath = MsgPlus.ScriptFilesPath + "\\" + "song.txt";
    refreshtime = 2000;
    loadtext();
    OnEvent_Timer(ChangeTime);
}


function OnEvent_Timer(TimerId){                      //时间触发器
if(TimerId == "ChangeTimer") {
         Messenger.MyPersonalMessage = txtline[i];
        MsgPlus.AddTimer("ChangeTimer", refreshtime);
        A++;
        if (A==i)
        {
            loadtext()
        }
}
}

function OnEvent_Uninitialize(MessengerExit)
{
   // 清理内存
   Shell = null;
   FileSystem = null;
   Settings = [];
}

function loadtext()  //读取文本内容
{
    var shell
    var filesystem
    var txtfile
    var txtline
    var i = 0;
    var error = false;
    Shell = new ActiveXObject("WScript.Shell");
    FSO = new ActiveXObject("Scripting.FileSystemObject");
    txtFile = FSO.OpenTextFile(Settings['txtFilepath']);
    if(!error) {
        do {
            txtline[i] = txtfile.ReadLine();
            i++;
        }while(!error);
        NameFile.Close();
    }

}

---