Menu
Forums
All threads
Latest threads
New posts
Trending threads
New posts
Search forums
Trending
What's new
New posts
New profile posts
Latest activity
Members
Current visitors
New profile posts
Search profile posts
Upgrades
Log in
Register
What's new
Search
Search
Search titles only
By:
All threads
Latest threads
New posts
Trending threads
New posts
Search forums
Menu
Log in
Register
Navigation
Install the app
Install
More options
Contact us
Close Menu
Forums
Software Development
Programming
Programming Q&A
[VB] How to modify an element's child attribute (Correct Terminology?)
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
<blockquote data-quote="Keydose" data-source="post: 294658" data-attributes="member: 37418"><p>[code]</p><p>Private Sub GO()</p><p> i += 2</p><p> ToolStripLabel2.Text = "Active - " & i & "/" & ToolStripTextBox1.Text</p><p> ToolStripProgressBar1.Minimum = 0</p><p> ToolStripProgressBar1.Maximum = ToolStripTextBox1.Text</p><p> ToolStripProgressBar1.Value = i</p><p></p><p> If WebBrowser1.DocumentText.ToString().Contains("Just fill in the form and we'll pop your free SIM in the post") Then</p><p> GO()</p><p> ElseIf WebBrowser1.DocumentText.ToString().Contains("Would you be willing to answer a few brief questions about your Order?") Then</p><p> restart()</p><p> WaitForPageLoad()</p><p> End If</p><p></p><p> If i >= ToolStripTextBox1.Text Then</p><p> WebBrowser1.Navigate("www.ee.co.uk/freesim")</p><p> i = 0</p><p> ToolStripProgressBar1.Value = 0</p><p> MsgBox("Orders Complete.")</p><p> End If</p><p></p><p> WebBrowser1.Document.GetElementById("ddlSims").SetAttribute("value", 1)</p><p> WebBrowser1.Document.GetElementById("txtFirstName").SetAttribute("value", My.Settings.firstname)</p><p> WebBrowser1.Document.GetElementById("txtLastName").SetAttribute("value", My.Settings.lastname)</p><p> WebBrowser1.Document.GetElementById("txtTelephone").SetAttribute("value", My.Settings.telephone)</p><p> WebBrowser1.Document.GetElementById("txtEmail").SetAttribute("value", Environment.TickCount & "@mailinator.com")</p><p> WebBrowser1.Document.GetElementById("txtBuilding").SetAttribute("value", My.Settings.buildingno)</p><p> WebBrowser1.Document.GetElementById("txtEnterPostcode").SetAttribute("value", My.Settings.postcode)</p><p> WebBrowser1.Document.All("btnFind").InvokeMember("click")</p><p> WaitForPageLoad()</p><p> WebBrowser1.Document.GetElementById("lboxSelectAddress").SetAttribute("value", "CENSORED (MY ADDRESS)")</p><p> WebBrowser1.Document.All("btnNext").InvokeMember("click")</p><p> WaitForPageLoad()</p><p> WebBrowser1.Document.All("btnSend").InvokeMember("click")</p><p> End Sub</p><p>[/code]</p></blockquote><p></p>
[QUOTE="Keydose, post: 294658, member: 37418"] [code] Private Sub GO() i += 2 ToolStripLabel2.Text = "Active - " & i & "/" & ToolStripTextBox1.Text ToolStripProgressBar1.Minimum = 0 ToolStripProgressBar1.Maximum = ToolStripTextBox1.Text ToolStripProgressBar1.Value = i If WebBrowser1.DocumentText.ToString().Contains("Just fill in the form and we'll pop your free SIM in the post") Then GO() ElseIf WebBrowser1.DocumentText.ToString().Contains("Would you be willing to answer a few brief questions about your Order?") Then restart() WaitForPageLoad() End If If i >= ToolStripTextBox1.Text Then WebBrowser1.Navigate("www.ee.co.uk/freesim") i = 0 ToolStripProgressBar1.Value = 0 MsgBox("Orders Complete.") End If WebBrowser1.Document.GetElementById("ddlSims").SetAttribute("value", 1) WebBrowser1.Document.GetElementById("txtFirstName").SetAttribute("value", My.Settings.firstname) WebBrowser1.Document.GetElementById("txtLastName").SetAttribute("value", My.Settings.lastname) WebBrowser1.Document.GetElementById("txtTelephone").SetAttribute("value", My.Settings.telephone) WebBrowser1.Document.GetElementById("txtEmail").SetAttribute("value", Environment.TickCount & "@mailinator.com") WebBrowser1.Document.GetElementById("txtBuilding").SetAttribute("value", My.Settings.buildingno) WebBrowser1.Document.GetElementById("txtEnterPostcode").SetAttribute("value", My.Settings.postcode) WebBrowser1.Document.All("btnFind").InvokeMember("click") WaitForPageLoad() WebBrowser1.Document.GetElementById("lboxSelectAddress").SetAttribute("value", "CENSORED (MY ADDRESS)") WebBrowser1.Document.All("btnNext").InvokeMember("click") WaitForPageLoad() WebBrowser1.Document.All("btnSend").InvokeMember("click") End Sub [/code] [/QUOTE]
Insert quotes…
Verification
Post reply
Forums
Software Development
Programming
Programming Q&A
[VB] How to modify an element's child attribute (Correct Terminology?)
Top