标签: vbscript

我正在对使用经典ASP/VbScript编写的旧应用程序进行一些修改.

它具有向应用程序成员发送电子邮件的功能,但由于成员列表非常大,服务器在发送前一百个左右后拒绝新的电子邮件.

我写了一些代码,让它发送20个爆炸的电子邮件,但这仍然不起作用.我认为也许让它在爆发之间睡一会儿可能会正常工作.

但是,我似乎无法在VbScript中找到Thread.Sleep类型方法.

有吗？

我有VBScript代码,它启动QuickTest Professional,执行一系列QTP测试,并通过电子邮件发送结果.这很好用,但我更喜欢使用具有更好工具支持的语言(例如,一个好的IDE).我目前正在从启动脚本调用.Net库,所以我想知道是否可以使用像C#这样的语言来完成相同的任务.如果是这样,是否有任何好的资源可以解决这个问题？我可以通过谷歌找到关于这个主题的很少的内容,似乎没有关于这个主题的任何其他问题.

为清楚起见,我已经包含了完成大部分工作的例程的代码.这不包括净声明,但failedTestsList并allTestsList是实例System.ArrayList.

编辑:所有QTP文档示例都使用VBScript,但正如您所看到的,代码只是创建QTP对象.我认为这些可以从支持创建这些对象的另一种语言调用.从我的谷歌失败看来,似乎没有人这样做.

Sub ExecuteQTPTest(name)
    Dim App, resultsPath
    Dim testPath, testResults
    testPath = name
    allTestsList.Add(name)
    Set App = CreateObject("QuickTest.Application")

    App.Launch
    App.Visible = False
    App.Open testPath

    SetQTPTestOptions(App)
    SetQTPRunOptions(App)
    SetQTPWebOptions(App)

    App.Folders.RemoveAll

    Dim qtpTest, qtpResultsOpt
    Set qtpTest = App.Test
    Set qtpResultsOpt = CreateObject("QuickTest.RunResultsOptions")

    resultsPath = testPath & "\RES1"

    qtpResultsOpt.ResultsLocation = resultsPath

    qtpTest.Run qtpResultsOpt ''// Run the test

    testResults = "Test Status: " & qtpTest.LastRunResults.Status & vbCrLf & _
          "Last Error: " & qtpTest.LastRunResults.LastError & vbCrLf …

我有一个调用vbscript文件的批处理文件.我试图让vbscript文件更改一个环境变量,该变量稍后在调用vbscript文件的批处理文件中使用.

这是文件中的片段.

Parent.bat

Set Value="Initial Value"
cscript Child.vbs
ECHO Value = %VALUE%

Child.vbs

Set wshShell = CreateObject( "WScript.Shell" )
Set wshSystemEnv = wshShell.Environment( "Process" )
wshSystemEnv("VALUE") = "New Value"

我有一个包含~30个表的Access数据库.

如何将所有30个表导出到Excel工作簿中的单独工作表中？

我希望找到一些我可以在Access中运行的VBA/VBS代码来完成这项任务.

有任何想法吗？

我有一个带有COM API的程序.我有一套使用Python的功能测试,但我想提供一套VBscript代码示例,我想自动测试这套代码.

有没有一个工具可以用来运行一套没有交互的VBscript测试,并收集通过/失败和时序统计？

我有大约50个左右的Excel工作簿,我需要从中提取数据.我需要从特定单元格,特定工作表中获取数据并编译成一个数据集(最好是另一个excel工作簿).

我正在寻找一些VBA,以便我可以将结果编译到我用来运行代码的工作簿中.

因此,我需要从工作表("DataSource")中提取数据的xls或xlsx文件之一,我需要评估单元格(D4),如果它不为null,则从单元格(F4)中提取数据,然后放入进入编译数据集的新行.循环遍历上面提到的该文件夹中的所有Excel文件.

如果可能的话,我希望第一列中的第一个数据字段是在结果数据集中从中提取数据的文件的名称.

有人可以帮我弄这个吗？我正在寻找VBA,因为我对此更熟悉,但也对VBScript感兴趣(因为我试图深入研究并了解其中的差异).

我有一个打开的Excel文件并使用VB脚本,我只需要在Excel工作表中搜索列"A",直到它与文本字符串匹配.当脚本找到匹配项时,我希望看到找到匹配项的单元格的行号.感谢您的帮助!

好吧有时候我正在打字,而且很少发生某些东西偷的重点,我读了一些解决方案(甚至是VB手表),但它们并不适用于我.是否有任何窗口范围的"手柄"可以处理任何焦点变化？

不要紧,在语言,C,C++,VB.NET,C#,任何.NET或窗口有关,批次,PoweShell,VBS脚本......只要我能够监控每一个重点的变化,并登录到文件/ cmd窗口/可视窗口.

就像是:

   void event_OnWindowsFocusChange(int OldProcID, int NewProcID);

会非常有用的.或者也许已经有了这方面的工具(我找不到？)

我是一个VBScript新手,编写一个将解析大型输入文件的脚本,可能需要几分钟的运行时间才能完成处理.在这漫长的处理时间内,我需要一种方法来提醒用户脚本正在运行而没有错误.我的第一个想法是为处理的每1000条记录提供一个msgbox(例如"脚本到目前为止已经成功处理了1000条记录.")还没有完全破解编码增量器的正确方法,该增量器将有条件地每隔N条记录一次msgbox(或者确定是否有更好的方法来实现我的最终目标).有任何想法吗？

考虑下面的VBS:

dim msg, myVar, myVar2

msg = "myVar = " & myVar
msg = msg & vbcrlf & "myVar = empty: " & isempty(myVar)
msg = msg & vbcrlf & "TypeName(myVar) = " & TypeName(myVar)

msgbox msg, , "BEFORE"

if not myVar then myVar2 = true

msg = "myVar = " & myVar
msg = msg & vbcrlf & "myVar = empty: " & isempty(myVar)
msg = msg & vbcrlf & "TypeName(myVar) = " & TypeName(myVar)

msgbox msg, , "AFTER" …