请帮我将excel VBA代码转换成.NET [英] Please help me in converting excel VBA code into .NET

问题描述

  Dim  MyBrowser  As  InternetExplorer 
  Sub  Cigna（）
  Dim  MyHTML_Element  As  IHTMLElement 
  Dim  MyURL  As   String  
 
 开启 错误  GoTo  Err_Clear 
 MyURL =   https://cignaforhcp.cigna.com/web/public/来宾/ 
 设置 MyBrowser = 新 InternetExplorer 
 MyBrowser。 Silent =  True  
 MyBrowser.navigate MyURL 
 MyBrowser.Visible =  True  
 
 执行 
 循环直到MyBrowser.readyState = READYSTATE_COMPLETE 
 
 设置 HTMLDoc = MyBrowser.document 
 HTMLDoc.all.UserName.type =  密码 
 HTMLDoc.all.UserName.Value =   00000 
 HTMLDoc.all.Password.Value =   00000 
 
 对于 每个 MyHTML_Element 在 HTMLDoc.getElementsByTagName（   input）
 如果 MyHTML_Element.Type =  提交 然后 MyHTML_Element.Click：退出 对于 
 下一步 
 
 Err_Clear：
 如果 Err<>  0  然后 
 Err.Clear 
 恢复 下一步 
 结束 如果 
 结束  Sub  

我尝试过：



我尝试在.net中使用上面的代码更改，但它不起作用。

解决方案

如果它是一个WinForms应用程序，那么这就是你需要开始的地方：



* WebBrowser Control（Windows窗体）| Microsoft Docs [ ^ ]

* C＃和Windows窗体中的WebBrowser控件 [ ^ ]

* 使用VB .Net WebBrowser控件构建WinForm用户界面启发应用程序开发人员期刊 [ ^ ]



如果是WPF，这是一个很好的教程：



* WPF教程 - WebBrowser控件 [ ^ ]

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

What I have tried:

I try to use above code in .net with changes but it is not working.

解决方案

If it is a WinForms app, then this is where you need to start:

* WebBrowser Control (Windows Forms) | Microsoft Docs[^]
* WebBrowser Control in C# and Windows Forms[^]
* Using VB .Net WebBrowser Control To Build WinForm User Interface | Enlighten Application Developer Journals[^]

If it is WPF, here is a good tutorial:

* WPF Tutorials - The WebBrowser control[^]

这篇关于请帮我将excel VBA代码转换成.NET的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！