Question

我正在尝试编写一个将在网页上选择值的脚本。当元素有一个值时，使用getElementByID（＆＃34;＆＃34;）。value。但是页面上还有另一部分要我选择多个部分。

HTML

<select id = "locationID" multiple="multiple" value="3660">

当我手动选择多个值时，值标记中的信息不会更改。如何在vbs中为多个值编写选择？这是我尝试制作的自动化流程的重点，此列表中有很多值我希望通过选择进行筛选。

Answer 1

试试这个 Multi_Select_ListBox.hta

<HTML>
  <HEAD>
  <TITLE>Multi-Select</TITLE>
      <HTA:APPLICATION
      Application ID = "Multi-Select"
      APPLICATIONNAME = "Multi-Select"
      SYSMENU = "yes"
      WINDOWSTATE = "Normal"
      />
  </HEAD>
  <SCRIPT LANGUAGE="VBScript">
  '<!--#######################[ Multi-Select Listbox Menu ]#######################-->
      Sub RunMultiList
      Dim i,strChoices
          For i = 0 to (MultiListBox.Options.Length - 1)
              If (MultiListBox.Options(i).Selected) Then
                  strChoices = strChoices  & "Option " & MultiListBox.Options(i).Value & vbcrlf
              End If
          Next
          Msgbox "You Selected:" & vbcrlf & strChoices, 64,"Multi-Select ListBox Menu"
      End Sub 
  </script>
 <body>
  <!--==--==--==--==--==--==--==-- Multi-Select ListBox --==--==--==--==--==--==-->
  <CENTER>
  <FONT SIZE=3><B><I>Use Ctrl to Select Multiple Options:</I></B></FONT><BR><BR>
  <select size="8" name="MultiListBox" multiple>
  <option value="1">MultiListBox Option 1</option>
  <option value="2">MultiListBox Option 2</option>
  <option value="3">MultiListBox Option 3</option>
  <option value="4">MultiListBox Option 4</option>
  <option value="5">MultiListBox Option 5</option>
  <option value="6">MultiListBox Option 6</option>
  <option value="7">MultiListBox Option 7</option>
  <option value="8">MultiListBox Option 8</option>
  <option value="9">MultiListBox Option 9</option>
  <option value="10">MultiListBox Option 10</option>
  </select>
  <BR>
  <BR>
  <input type="button" onClick="RunMultiList" value="Submit">
  </CENTER>
  </BODY>
  </HTML>

自动选择多个值

1 个答案: