2
我想要得到的用户名当前用户,然后在我的应用程序的名称创建一个链接HTA如何获取当前用户的用户名?
链接看起来像
http://localhost/?id=username
我试图
Dim objNetworkSet
objNetwork = CreateObject("WScript.Network")
但它不支持在HTA应用程序中
我想要得到的用户名当前用户,然后在我的应用程序的名称创建一个链接HTA如何获取当前用户的用户名?
链接看起来像
http://localhost/?id=username
我试图
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。对于VBScript的这个功能似乎是糟糕的一天。
如何将其插入链接? –
@Cocoa Dev查看更新后的答案 –