Imports Excel = Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Core
Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Text = "Working..."
Button1.Enabled = False
Me.Cursor = Cursors.WaitCursor
WebBrowser1.Navigate("C:\Users\xxxx\Desktop\xxxxxx.htm")
'WebBrowser1.Navigate("http://xxxxxxx/xxxxx/")
If TextBox3.Text = "" Then
TextBox3.Text = Format(Today, "dd.MM.yyyy*")
Else
End If
Application.DoEvents()
Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
Loop
WebBrowser1.Refresh()
Me.Text = "Seite wurde geladen"
Button1.Enabled = True
Me.Cursor = Cursors.Arrow
'System.Threading.Thread.Sleep(1000)
WebBrowser1.Document.GetElementById("txtName").InnerText = "abcd"
WebBrowser1.Document.GetElementById("pwdPasswort").InnerText = "efgh"
Dim elem As HtmlElement
For Each elem In WebBrowser1.Document.All
If (elem.GetAttribute("value") = "Anmelden") Then
elem.InvokeMember("click")
End If
Next
Me.Text = "Working..."
' Button4.Enabled = False
Me.Cursor = Cursors.WaitCursor
System.Threading.Thread.Sleep(2000)
'WebBrowser1.Navigate("http://xxxxxx/xxxxx/xxxxxx")