Internet explorer 从IE复制随机生成的文本

目前我正在使用vbs，它可以打开网页，输入登录信息，登录，输入一些信息，并接收随机生成的CD密钥

有没有办法复制这张CD的密钥？使用

ie.document.getelementbyid

我找不到任何与CD键相关的ID，只找到包含CD键的整个文本框

有没有办法精确地说明我想要的东西在网页上的什么位置？比如选择我想从网站上的行复制的文本

CD键总是随机的。唯一的常量是它将位于单元格中，并且它有连字符（与任何CD键一样）

我只需要提取CD密钥，以便将其存储在文本文件等中，如下面的示例所示

编辑：

迄今为止的代码：

Set IE = CreateObject("InternetExplorer.Application") 
 IE.Visible = 1    
 IE.navigate "xxxx" 
 Do While (IE.Busy)    
     WScript.Sleep 100    
 Loop    
 Set Helem = IE.document.getElementByID("UserNameTextBox") 
 Helem.Value = "xxxxx"    
 Set Helem = IE.document.getElementByID("PasswordTextBox")
 Helem.Value = "xxxxx"   
 Set Helem = IE.document.getElementByID("Button1")
 Helem.Click
 Do While (IE.Busy)    
     WScript.Sleep 100    
 Loop  
Set Helem = IE.document.getElementByID("generateECodes_PackageDropdown")
Helem.Value = "430"
IE.Document.getElementByID("generateECodes_PackageDropdown").FireEvent ("onChange")
WScript.Sleep 500
 Do While (IE.Busy)    
     WScript.Sleep 500    
 Loop  
Set Helem = IE.document.getElementByID("generateECodes_TermDropdown")
Helem.Value = "5"
IE.Document.getElementByID("generateECodes_TermDropdown").FireEvent ("onChange")
 Do While (IE.Busy)    
     WScript.Sleep 500    
 Loop  
Set Helem = IE.document.getElementByID("generateECodes_Languages")
Helem.Value = "29"
IE.Document.getElementByID("generateECodes_Languages").FireEvent ("onChange")
 Do While (IE.Busy)    
     WScript.Sleep 500    
 Loop  
Set Helem = IE.document.getElementByID("generateECodes_StoreNumber")
Helem.Value = "230"
IE.Document.getElementByID("generateECodes_StoreNumber").FireEvent ("onChange")
 Do While (IE.Busy)    
     WScript.Sleep 500    
 Loop  
 Set Helem = IE.document.getElementByID("generateECodes_Required")
 Helem.Value = "1" 
 Do While (IE.Busy)    
     WScript.Sleep 500    
 Loop  
 Set Helem = IE.document.getElementByID("generateECodes_Button")
 Helem.Click
 Do While (IE.Busy)    
     WScript.Sleep 500    
 Loop  
   Set Helem = IE.document.getElementByID("generateECodes_Table")


 Do While (IE.Busy)    
     WScript.Sleep 100    
 Loop  

dim filesys, filetxt, getname, path 
Set filesys = CreateObject("Scripting.FileSystemObject") 
Set filetxt = filesys.CreateTextFile("c:\Something.txt", True) 
path = filesys.GetAbsolutePathName("c:\Something.txt") 
getname = filesys.GetFileName(path) 
filetxt.WriteLine("Password: "+Helem) 
filetxt.WriteLine("Brugernavn: "+Helem) 
filetxt.Close 

从已获取的表中枚举

元素，并检查

内部文本是否与CD键的模式匹配：

...
Set Helem = IE.document.getElementByID("generateECodes_Table")

Set re = New RegExp
re.Pattern = "\w{5}(-\w{5}){4}"
re.IgnoreCase = True

For Each td In Helem.getElementsByTagName("td")
  If re.Test(td.innerText) Then cdKey = td.innerText
Next
...

下面是代码的图片，其中X代表我需要提取的关键代码。向我们展示到目前为止你所拥有的，社区可以合作的东西。现在看起来您需要的是一个代码编写服务，而这不是SO的目的。对不起。发布时遇到问题，我正在工作，但这并没有最高优先级：我在上面的代码中编辑过。最后一位Set Helem=IE.document.getElementByID（“generateECodes_Table”）是我遇到的问题。将该表的内容提取到一个txt文件中，最好只提取所需的信息。这..真..漂亮！非常感谢。我应该开始读一些关于。。我真讨厌。有推荐的指南吗？工作完美。