-> Hier kostenlos registrieren
Hi,
ich wollte in ein WinCC projekt eine Webseite einbinden, das habe ich soweit auch hinbekommen.
jetzt würde ich gerne das sich WinCC automatisch mit Benutzername + Passwort anmeldet und dann einen Bestimmt Link auswählt.
Habe mir mal vor ewigkeiten in Visual Basic ein Programm geschrieben das sowas macht indem indem ist den "Quellcode" der Seite ausgelesen/ausgefüllt habe, aber wie kann ich das in WinCC übertragen/machen.
Habe absolut keinen ansatz.
so sah der code damals aus
Gruß
Eddy
ich wollte in ein WinCC projekt eine Webseite einbinden, das habe ich soweit auch hinbekommen.
jetzt würde ich gerne das sich WinCC automatisch mit Benutzername + Passwort anmeldet und dann einen Bestimmt Link auswählt.
Habe mir mal vor ewigkeiten in Visual Basic ein Programm geschrieben das sowas macht indem indem ist den "Quellcode" der Seite ausgelesen/ausgefüllt habe, aber wie kann ich das in WinCC übertragen/machen.
Habe absolut keinen ansatz.
Code:
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")
Gruß
Eddy