标签: vbscript

如果您现在访问此链接,您可能会收到VBScript错误.

另一方面,如果您先访问此链接,然后再访问上述链接(在同一会话中),则会显示该页面.

设置此应用程序的方式,第一页用作第二(主)页面中的框架.如果你点击一下,你会看到它是如何工作的.

我的问题:我如何用Python抓第一页？我已经尝试了我能想到的一切 - urllib,urllib2,mechanize - 而我得到的只是500个错误或超时.

我怀疑答案在于机械化,但我的机械化能力不足以破解这一点.有人可以帮忙吗？

我正在使用VBScript修复一些经典ASP中的缺陷,我遇到以下问题:

variable1 = CInt((CInt(variable2) MOD CInt(3600))\ CInt(60))

有必要打电话CInt(3600),CInt(60)当我们在表达中使用它们时？这是一个等价的表达吗？

variable1 = (CInt(variable2) MOD 3600) \ 60

我有2个非常简单的页面,一个HTML页面和一个经典的ASP页面.html页面有一个表单,它调用(并发送)数据到ASP表单(然后打印出数据)

问题是我没有得到单选按钮的价值,我只是简单地"开启".

这是html:

<form action="form.asp" method="post">
    <strong>Gender:</strong>
    <input type="radio" value"male" name="gender">Man
    <input type="radio" value"female" name="gender">Woman<p></p>
    <strong>Size:</strong>
    <input type="text" width="20" name="size" size="4"><p></p>
    <strong>Color:</strong>
    <select size="1" name="color">
        <option>blue</option>
        <option>green</option>
        <option>black</option>
    </select><p></p>
    <input type="submit" value="Send Order">
</form>

这是ASP

<%
Dim strgen, strsize, strcol
strgen = Request.form("gender")
intsize = Request.form("size")
strcol = Request.form("color")
Response.write "Your gender: " & strgen & "<br />"
Response.write "Your size: " & intsize & "<br />"
Response.write "The color you ordered: " & strcol & "<br />"

%>

就像我说的那样,我为"strgen"获得的所有东西都在"开启"......

我正在显示这样的图像:

<img src='counter.asp'>

counter.asp正在做一个点击计数器确定图像显示的频率(我将用modrewriteURL 替换它).

问题:在counter.asp脚本中我需要将实际.jpg图像发送到浏览器.怎么可以这样做？我想我需要通过FSO加载图像,然后使用Response.BinaryWrite- 任何想法发送它？

如何使用VBscript在Windows XP基础上关闭具有特定标题的窗口？

或者有另一种方法可以解决这个问题吗？

当SQL批处理从例如print语句返回多个消息时,我只能使用ADO连接的Errors集合检索第一个消息.我如何获得其余的消息？

如果我运行此脚本:

Option Explicit
Dim conn
Set conn = CreateObject("ADODB.Connection")
conn.Provider = "SQLOLEDB"
conn.ConnectionString = "Data Source=(local);Integrated Security=SSPI;Initial Catalog=Master"
conn.Open

conn.Execute("print 'Foo'" & vbCrLf & "print 'Bar'" & vbCrLf & "raiserror ('xyz', 10, 127)")

Dim error
For Each error in conn.Errors
    MsgBox error.Description
Next

然后我只回到"Foo",从不"Bar"或"xyz".

有没有办法获取剩余的消息？

我正在尝试获取有关本地计算机上安装的软件的信息(一个是Windows 7和其他XP SP3),我可以使用VBScript,但不能使用C#.

这是VBScript代码:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
    ("Select * from Win32_Product")

For Each objSoftware in colSoftware
    Wscript.Echo "Name: " & objSoftware.Name
    Wscript.Echo "Version: " & objSoftware.Version
Next

这是C#代码:

string queryProd = "SELECT * FROM Win32_Product";                
ObjectQuery oQuery = new ObjectQuery(queryProd);
ManagementObjectSearcher searcherProd = new ManagementObjectSearcher(oQuery);
ManagementObjectCollection resultCollection = searcherProd.Get();

foreach (ManagementObject prodVar in resultCollection)
{
    Console.WriteLine("Product Name: {0}, Version: {1}.",
        (prodVar["Name"] == null) …

我使用以下VBscript在commonapplicationdatafolder中创建了一个文本文件“ list.txt”。我通过写入文本文件来显示变量（strlist）中的某些值。

Const Value = &H23&
Const PATH = "\Cape\ibs"

Dim fso                 ' File System Object
Dim spFile             ' Text File object to write
Dim objApplication      ' Application object
Dim objFolder           ' Folder object
Dim objFolderItem       ' FolderItem object

Set objApplication  = CreateObject("Shell.Application")
Set objFolder = objApplication.Namespace(Value)
Set objFolderItem = objFolder.Self
sname = objFolderItem.Path & PATH & "\list.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set spFile = fso.CreateTextFile(sname, True)
spoFile.WriteLine(strlist)
spoFile.Close

这是我的疑问

1>在这里，在创建该文件之前，我需要删除旧的“ list.txt”，因为在安装过程中，我一直想创建列表文件。所以我想在创建最新文件之前包含删除所有现有文件（任何旧的list.txt）的代码。在这里，我做了以下代码

If fso.FileExists(sname) Then
    fso.DeleteFile sname, True
Else
    Set …

如果我使用

DatePart("m",Now())'输出将为7

但我的要求是显示"07"而不是"7"

有没有直接的方法来实现这一点,或者我应该编写自定义代码前缀为"0"零？

我有一个Vbscript在用户注销时运行,假设关闭服务,但是我不能关闭服务,因为它被UAC阻止.我想知道是否有办法在我的vbscript中绕过UAC而不必在我的域中的每台机器上关闭UAC.谢谢!