标签: vbscript

我试图使用VBA将一些文本插入PowerPoint TextRange,我使用这样的东西:

ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text = "Hi"

但是,我无法弄清楚如何以编程方式应用粗体,斜体和下划线(我没有看到.RichText属性或类似的东西).

我所拥有的是一些简单的HTML文本,其中包含我想要转换的粗体,斜体和带下划线的文本.

这该怎么做？

我见过的每个样本都使用存储过程.我采用了一个用Classic ASP编写的旧应用程序,它使用内联SQL.这是一个明显的问题,所以我需要将其转换为更安全的代码.客户端不希望我在此应用程序中使用存储过程,因此有没有办法在没有存储过程的情况下运行参数化查询？

谢谢

我试过下面的脚本,但是我收到一个错误:

dim cn, rs

set cn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
cn.connectionstring = "Provider=MysqlProv; Data Source=Adonis; User Id=mysqluser; Password = mysqlpass;"
cn.open
rs.open "select * from Countries", cn, 3
rs.MoveFirst
while not rs.eof
    wscript.echo rs(0)
    rs.next
wend
cn.close
wscript.echo "End of program"

它给出了以下错误:

C:\mysql.vbs(6, 1) ADODB.Connection: Provider cannot be found. It may not be pro
perly installed.

当我用Google搜索odbc连接器时,我来到这个页面,在那里我可以下载odbc 5.1连接器.想知道这是否足以连接到mysql服务器5.0数据库......？

如何在Visual Basic脚本中确定路径是相对路径还是绝对路径.

在VBA中,我将调用Win32 Api函数PathIsRelative

Private Declare Function PathIsRelative Lib "shlwapi" _
    Alias "PathIsRelativeA" _
   (ByVal pszPath As String) As Long

但是,无法从VBS调用DLL,因此我无法使用Win32 Api.

勒内

我想知道如何从VBScript客户端发出HTTPS请求.

收到请求后,如何解密HTTPS响应？

我有一个在IIS 6上运行的经典ASP/VBScript站点,以及一个名为SmarterStats的程序(通过之前的问题找到),提供来自服务器日志的各种统计信息和信息.这是一个内部站点,我们使用集成身份验证(AUTH_TYPE = Negotiate).

我正在查看关于响应代码的报告,它说在过去7天内有255个响应,其中包含5xx错误代码...自然不是我能找到的最有用的统计数据.

我有一个500和500.100错误的自定义错误页面,记录了我要跟进的细节 - 该日志几乎为空.我已经使用故意破坏的页面和标准用户帐户进行了测试,并且它按预期工作 - 自定义消息,日志条目.(并打开和关闭"友好错误消息" - 以任何方式工作)

我在日志中唯一的条目是错误-2147024843的单个条目(与身份验证相关,花了太长时间才能获得响应),就是这样......其他错误可能发生了什么以及如何查找/跟踪它们？

我应该通过自定义页面路由所有不同类型的5xx错误吗？或者我还应该做些什么呢？

解决方案:我将通过自定义页面运行所有5xx错误.由于让我感到困惑的原因,错误已经停止......我没有改变任何东西,没有人改变该服务器上的任何东西 - 但错误已经停止.去搞清楚.

当我手动替换图标时(即不从资源管理器中的"文件夹选项"窗口),图标不会更新.例如,如果我执行此批处理代码:

REG ADD HKCR\testfile\DefaultIcon /ve /d "C:\test.ico,0" /f

图标显示在"文件夹选项"的列表中应该显示,但图标不会在桌面或资源管理器中更新.

如果我只是点击任何文件类型的"更改图标"按钮并退出"文件夹选项"窗口,则会更新图标.但据我所知,这不能通过批处理或VBS完成.

重新启动explorer.exe可以正常工作,但如果我这样做,任务栏中的应用程序选项卡由于某种原因变得有问题(例如:当应用程序最大化时,我不能只是左键单击任务栏中的选项卡以最小化它 - 我必须直接点击它并点击最小化...).更不用说,如果我这样做,所有打开的资源管理器窗口都将关闭,这有点麻烦.

我还有一个TuneUp Utilities的副本,它有一个重新加载图标缓存的选项,这确实像预期的那样工作.但是再一次,我无法通过批处理或VBS访问此工具.它不会重新启动explorer.exe或删除任何文件(如某些解决方案).我敢肯定的这一点,因为我没有iconcache.db文件的任何地方我的操作系统驱动器上.

我也尝试通过VBS添加注册表项,但这没有帮助.

欢迎任何批处理或VBScript解决方案!

我想使用ADO Stream从UTF-8编码的本地大文本文件中读取行,所以我试试

Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Type = 2
objStream.Open
objStream.LoadFromFile = strFile
objStream.LineSeparator = 10
Do Until objStream.EOS
    strLine = objStream.ReadText(-2)
Loop

但结果是脚本需要大量的RAM和CPU使用.那么有没有办法告诉脚本不要将所有文件内容加载到内存中,只是打开它并读取,直到它遇到任何行分隔符？

我想每5分钟运行一次PHP脚本,所以我创建了VBScript,这个VBScript将启动PHP应用程序,这个VBScript将在控制面板的Scheduler任务中配置.计划作业从未运行过以下错误代码An instance of this task is already running. 0x8004131F.

更新说明:

终于今天我已经确定了调度问题.我有两个用户,两个用户都有相同的权限(管理员).考虑user1,user2.

当我在user1下安排SCRIPT时.脚本将按计划时间自动启动.

但是当我在user2下安排SCRIPT时.脚本不会运行.我也被提到了错误."此任务的实例已在运行.0x8004131F".

这个问题仍未解决.

_{该脚本不是由我编写的 - 它是用于Foobar2000的.vbs脚本}

https://gist.github.com/rornor/4d06d0994c1b8ae61ef5

该脚本查询soundcloud.api并获取基于用户或组的歌曲列表.弹出一个对话框并询问用户名,搜索词,组或URL,它会将一组歌曲加载到一个临时的.pls文件中,该文件在关闭播放器后删除.我对.vbs的经验不多,所以我不能提供太多信息,但我可以在这里给出脚本:

对话截图:

^点击放大

我的问题是

我想建立一个像网站那样的相关播放列表,所以我选择了一首歌,然后将相关歌曲列表加载到我的Foobar播放列表中.是否有一个我可以加载的特定网址,所以它可以做到这一点,或者我可以从API加载某个地方吗？