IBM Personal Communications中的VBScript，注册当前日期和时间

这有点复杂，但我肯定会尽我所能！IBM Personal Communications中的VBScript，注册当前日期和时间

我想在我的程序IBM个人通信（会话A）中注册当前时间和日期“年，周，日+时间”。我必须使用.MAC扩展名才能使程序读取最终文件。

这是我此刻的代码：

[PCOMM SCRIPT HEADER] 
LANGUAGE=VBSCRIPT 
DESCRIPTION= 
[PCOMM SCRIPT SOURCE] 
OPTION EXPLICIT 
autECLSession.SetConnectionByName(ThisSessionName) 

REM This line calls the macro subroutine 
subSub1_ 

sub subSub1_() 
    autECLSession.autECLOIA.WaitForAppAvailable 
    autECLSession.autECLOIA.WaitForInputReady 
    autECLSession.autECLPS.SendKeys "151441652 " **<--This is where the date has to appear** 

    autECLSession.autECLOIA.WaitForInputReady 
    autECLSession.autECLPS.SendKeys "[enter]" 

    autECLSession.autECLPS.WaitForAttrib 12,1,"00","3c",3,10000 

    autECLSession.autECLPS.Wait 3401 

    autECLSession.autECLOIA.WaitForAppAvailable 

    autECLSession.autECLOIA.WaitForInputReady 
    autECLSession.autECLPS.SendKeys "[pf12]" 
end sub

autECLSession.autECLPS.SendKeys“151441652” < ---最后的值必须出现在这里以相同的顺序。这些数字是由我手动输入的。所以我最终需要做的是识别日期并手动输入。

这是数字代表什么：

15 = 2015年

14 =当前星期，日期，现在是2015年2月4日是第14周

4 =一周中的第4天。星期四

1652 =当前时间，我需要时间成为一个24小时的时钟。

来源

2015-04-02 EliasWick

查看文档：[DatePart Function]（https://msdn.microsoft.com/en-us/library/4kt42529（v = vs.84）.aspx）确实*所有内容* 。 – Tomalak 2015-04-02 15:52:23

非常感谢你！ – EliasWick 2015-04-02 16:39:35

DatePart()可以做到这一切。

autECLSession.autECLPS.SendKeys _ 
    Right(DatePart("yyyy", Now()), 2) & _ 
    Right("0" & DatePart("ww", Now()), 2) & _ 
    DatePart("w", Now()) & _ 
    Right("0" & DatePart("h", Now()), 2) & _ 
    Right("0" & DatePart("n", Now()), 2)

拿笔记可选FirstDayOfWeek和FirstWeekOfYear参数，测试你的边缘情况，并相应地设置这些参数的相关电话。

来源

2015-04-02 16:07:05 Tomalak

非常感谢！我爱你！ – EliasWick 2015-04-02 16:39:46

哦，是的，顺便说一下，它没有奏效......但它仍然有效。现在的问题是，我收到了以下错误消息：PCSW041 - 系统资源不足，或脚本引擎安装不正确。 – EliasWick 2015-04-02 16:44:29

我对IBM个人通信的知识绝对为零，因此恐怕我无法帮助您解决这个错误。 – Tomalak 2015-04-02 16:50:07

IBM Personal Communications中的VBScript，注册当前日期和时间

回答

相关问题