如何使用 VBScript 从下拉列表中设置选项

Question

我的目标是超级简单，我只想用.vbs填充一个网页，我几乎做了所有，只留下下拉列表

我用了：

Document.All.Item("CamposTrat[0]").Value = "FINALIZADO"但两者都不起作用。Document.All.Item("CamposTrat[0]").SelectedIndex = 1

几乎工作了，它用蓝色选择“选项”最后定稿“（示例&html代码），但没有将”最后定稿“设置为屏幕上的”值“。感觉就像是缺少按“输入”进行确认。.SelectedIndex = 1

我只想把“最后”，而无需点击或使用。我想要一个漂亮的代码:D"SendKeys{"FINALIZADO"}"

PS：我不太了解爪哇/虚拟脚本。我还不知道如何配置这些类型的代码。如果有人可以发送“完整”代码，那将很有帮助。

Answer 1

3个月后，我到达了美丽的代码kkk：Dim shDim WSDim IEDim ProdutoDim IndexDim MotivoDim ObsSet sh = CreateObject("Shell.Application")Set WS = CreateObject("WScript.Shell")For Each wnd In sh.Windows   If InStr(1, wnd.FullName, "iexplore.exe", vbTextCompare) > 0 Then      Set IE = wnd      Exit For   End IfNextWith IE.Document.All   If .Item("CamposProtocolo[8].Descricao").Value = "Plano de voz" or .Item("CamposProtocolo[8].Descricao").Value = "Após Horário Atendimento" Then      Produto = "MÓVEL"   Else      Produto = .Item("CamposProtocolo[8].Descricao").Value   End if   If .Item("CamposProtocolo[7].Descricao").Value = "Cancelamento Total" or .Item("CamposProtocolo[7].Descricao").Value = "Cancelamento Parcial" Then      Index  = 20      Motivo = "OI CONTA TOTAL / OI TOTAL"      Obs    = "Móvel e Oi Total cancelados - aguardando conclusão da OS." & Chr(13) & "- Sem acesso a cancelamento/migração R2 -"   Else      Index  = 26      Motivo = "STATUS SUSPENSO"      Obs    = "Sem acesso a " & Chr(13) & "- Nenhuma alteração realizada -"   End ifEnd WithIf MsgBox(" Finalizado? ", vbYesNo + vbQuestion, "Powered by Alexan") = vbYes Then   With IE.Document.All      .Item("CamposTrat[0]").SelectedIndex          = 1      .Item("select2-28796-container").InnerText    = "FINALIZADO"      .Item("CamposTrat[1]").SelectedIndex          = 23      .Item("select2-28797-container").InnerText    = "SOLICITAÇÃO ATENDIDA"      .Item("CamposTrat[2]").Value                  = Produto      .Item("CamposTrat[3]").Value                  = "BO RETENÇÃO EMPRESARIAL"      .Item("CamposTrat[4]").Value                  = "CANCELADO"      .Item("CamposTrat[5]").Value                  = .Item("CamposProtocolo[1].Descricao").Value      .Item("CamposTrat[6]").Value                  = "0"      .Item("CamposTrat[7]").Value                  = "0"      .Item("CamposTrat[8]").Value                  = "-"      .Item("CamposTrat[9]").Value                  = .Item("CamposProtocolo[14].Descricao").Value      .Item("CamposTrat[10]").Value                 = "00.000.000/0000-00"      .Item("CamposTrat[11]").Value                 = .Item("CamposProtocolo[1].Descricao").Value      .Item("CamposTrat[12]").Value                 = "1"      .Item("CamposTrat[13]").SelectedIndex         = 1      .Item("select2-28809-container").InnerText    = "NÃO"      .Item("Status").SelectedIndex                 = 2      .Item("select2-Status-container").InnerText   = "Finalizado"      .Item("Observacao").Value                     = "Protocolo perfilado com sucesso!"   End With   IE.Visible = True   WS.AppActivate "Tratar Protocolos - Internet Explorer"   IE.Document.All.Item("Observacao").Focus   WS.SendKeys "^{a}"ElseIf MsgBox("  Pendente?   ", vbYesNo + vbQuestion, "Powered by Alexan") = vbYes Then   With IE.Document.All      .Item("CamposTrat[0]").SelectedIndex          = 4      .Item("select2-28796-container").InnerText    = "PENDENTE"      .Item("CamposTrat[1]").SelectedIndex          = Index      .Item("select2-28797-container").InnerText    = Motivo      .Item("CamposTrat[2]").Value                  = "FIXO + BL"      .Item("CamposTrat[3]").Value                  = "BO RETENÇÃO EMPRESARIAL"      .Item("CamposTrat[4]").Value                  = "DESMEMBRADO"      .Item("CamposTrat[5]").Value                  = .Item("CamposProtocolo[1].Descricao").Value      .Item("CamposTrat[6]").Value                  = "0"      .Item("CamposTrat[7]").Value                  = "0"      .Item("CamposTrat[8]").Value                  = "-"      .Item("CamposTrat[9]").Value                  = .Item("CamposProtocolo[14].Descricao").Value      .Item("CamposTrat[10]").Value                 = "00.000.000/0000-00"      .Item("CamposTrat[11]").Value                 = .Item("CamposProtocolo[1].Descricao").Value      .Item("CamposTrat[12]").Value                 = "0"      .Item("CamposTrat[13]").SelectedIndex         = 1      .Item("select2-28809-container").InnerText    = "NÃO"      .Item("Status").SelectedIndex                 = 4      .Item("select2-Status-container").InnerText   = "Pendente"      .Item("Observacao").Value                     = Obs   End With   WS.AppActivate "Tratar Protocolos - Internet Explorer"   IE.Document.All.Item("Observacao").Focus   WS.SendKeys "{UP}"   WS.SendKeys "{END}"End if

Answer 2

答案是：IE.Document.All.Item("select2-37536-container").InnerText = "FINALIZADO"   IE.Document.All.Item("CamposTrat[0]").SelectedIndex = 1