임의로 생성 된 텍스트를 IE에서 복사

Question

현재 웹 페이지를 열고 로그인을 입력하고 로그인 한 다음 정보를 입력하고 무작위로 생성 된 CD 키를받는 vbs에서 작업하고 있습니다.

이 CD 키를 복사 할 수있는 방법이 있습니까? using ie.document.getelementbyid CD 키가 포함 된 전체 텍스트 상자에서만 CD 키와 관련된 모든 ID를 찾을 수 없습니다.

웹 페이지에서 원하는 부분을 정확히 지정할 수있는 방법이 있습니까? 내가 그 라인에서 복사하고 싶은 텍스트를 웹 사이트에서 선택하는 것?

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 

Answer 1

당신에게 테이블에서 철을 <td> 요소를 이미 열거

다음

... 
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 
...