Shahid_Javed Ответов: 1

Пожалуйста, помогите мне в преобразовании кода excel VBA в .NET


Dim MyBrowser As InternetExplorer
Sub Cigna()
    Dim MyHTML_Element As IHTMLElement
    Dim MyURL As String

    On Error GoTo Err_Clear
    MyURL = "https://cignaforhcp.cigna.com/web/public/guest/"
    Set MyBrowser = New InternetExplorer
    MyBrowser.Silent = True
    MyBrowser.navigate MyURL
    MyBrowser.Visible = True

    Do
    Loop Until MyBrowser.readyState = READYSTATE_COMPLETE

    Set HTMLDoc = MyBrowser.document
    HTMLDoc.all.UserName.type = "Password"
    HTMLDoc.all.UserName.Value = "00000"
    HTMLDoc.all.Password.Value = "00000"

    For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
        If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
    Next

    Err_Clear:
    If Err <> 0 Then
        Err.Clear
        Resume Next
    End If
End Sub


Что я уже пробовал:

Я пытаюсь использовать приведенный выше код в .net с изменениями, но он не работает.

Graeme_Grant

Какой тип приложения также поможет: Console, WinForm, Wpf, Xamarin, WebForms, MVC, ASP.NET ядро и т. д...

Когда "это не работает", как это не работает? Я бы предположил, что вы получаете много сообщений об ошибках компилятора, и он не запускается.

Пожалуйста, нажмите на виджет "улучшить вопрос" выше и включите дополнительную информацию.

j snooze

также Язык, который вы предпочитаете, потому что VB.NET код vs C# сильно отличается синтаксически.