我想获取当前用户的用户名,然后在我的应用程序名称中创建一个链接
该链接看起来像
http://localhost/?id=username
I tried
Dim objNetworkSet
objNetwork = CreateObject("WScript.Network")
但 HTA 应用程序不支持它
正如它的前缀所示,“objNetwork”是一个对象。所以使用“Set”来给变量赋值。
Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")
MsgBox objNetwork.UserName
假设您想在运行时/动态设置链接:
<html>
<head>
<title>SetLink HTA</title>
<HTA:APPLICATION
APPLICATIONNAME="SetLink HTA"
>
<SCRIPT Language="VBScript">
Sub SetLink()
Dim oWNet : Set oWNet = CreateObject("WScript.Network")
MsgBox oWNet.UserName
LinkToBeDone.href = "http://gent/~" & oWNet.UserName
End Sub
</SCRIPT>
</head>
<body onLoad="SetLink">
<a id="LinkToBeDone" href="!somewhere!">To your home at a real computer</a>
</body>
</html>
附:看here https://stackoverflow.com/questions/10727047/error-reported-on-a-blank-line因为同样的错误。对于 VBScript 的这个功能来说,这似乎是糟糕的一天。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)