helem = IEexterne.Document.getElementById("domSrvButtonId") helem.click() Dim oObj As Object Dim oDoc As HtmlDocument Do Application.DoEvents() Loop While Nothing Is IEexterne.Document.GetElementById("chkSrvDomId3'") oObj = IEexterne.Document.GetElementById("chkSrvDomId3'") oObj.Checked = "checked" Application.DoEvents() oObj.FireEvent("onclick")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load WebBrowser1.Navigate("https://wwwapps.ups.com/pickup/schedule?loc=fr_FR&WT.svl=PNRO_L1") End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim oObj As HtmlElement Dim oDoc As HtmlDocument If WebBrowser1.ReadyState = 4 Then oDoc = WebBrowser1.Document oObj = oDoc.GetElementById("addrMDCompanyId") oObj.DomElement.Value = "company" oObj = oDoc.GetElementById("addrMDPhoneId") oObj.DomElement.Value = "0102030405" oObj = oDoc.GetElementById("addressId") oObj.DomElement.Value = "12 rue Leblanc" oObj = oDoc.GetElementById("pd2Id") oObj.DomElement.Value = "Paris" oObj = oDoc.GetElementById("postalcode") oObj.DomElement.Value = "75015" Application.DoEvents() oObj.DomElement.FireEvent("onblur") Do Application.DoEvents() Loop While Nothing Is oDoc.GetElementById("chkSrvDomId3'") oObj = oDoc.GetElementById("chkSrvDomId3'") oObj.DomElement.Checked = "checked" Application.DoEvents() oObj.DomElement.FireEvent("onclick") End If End Sub End Class
oDoc = WebBrowser1.Document
" class="webdeveloper-display-form-details"><select id="adk" name="adk"><select class="modSelMedium" name="adk" id="adk" onkeyup="this.blur();this.focus();">
fireevent("onkeyup")
helem.DomElement.FireEvent("onfocus") helem.DomElement.FireEvent("onblur") helem.DomElement.FireEvent("onkeyup")