我正在尝试将此vbscript转换为可在visual studio中使用的代码

我想做一个自动填表器。我有一个vbscript，我正在使用它工作，但我在转换它时遇到困难，因此我可以在Visual Studio中使用它，使用Visual Studio web浏览器而不是IE。我遇到的主要问题是我无法访问页面上的项目（即值、值1等）。有什么建议吗

VBscript（works）代码：

VB（失败）代码：

---

尝试在Navigate命令之后添加DoEvents循环，以允许在运行设置值的代码之前加载文档

WebBrowser1.Navigate("ANURL")
WebBrowser1.Visible = True
While WebBrowser1.Busy Or WebBrowser1.ReadyState <> 4
    DoEvents
Wend
WebBrowser1.Document.All.Item("VALUE1").Value = "6"
...

WebBrowser1.导航（“ANURL”）
WebBrowser1.Visible=True
当WebBrowser1.Busy或WebBrowser1.ReadyState 4时
多芬特
温德
WebBrowser1.Document.All.Item（“VALUE1”）.Value=“6”
...

请花点时间正确格式化您的代码。另外，VisualStudio是一种IDE，而不是一种语言。您不会“将代码从VBScript转换为Visual Studio”。你的意思是“从VBScript转换到VB.Net”，还是“从VB6转换到VB.Net”？（VB6脚本，因此它是一个或另一个；不能同时是两个。）

Dim intHighNumber = 193949 
Dim intLowNumber = 1 
Dim intNumber As Integer

For i = 1 To 5
  Randomize()
  intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd() + intLowNumber)
Next

WebBrowser1.Navigate("ANURL")
WebBrowser1.Visible = True
WebBrowser1.Document.All.Item("VALUE1").Value = "6"
WebBrowser1.Document.All.Item("VALUE2").Value = "2"
WebBrowser1.Document.All.Item("VALUE3").Value = "2000"
WebBrowser1.Document.All.Item("VALUE4").Value = intNumber.ToString
WebBrowser1.Document.All.Item("pass").Value = "nono2355"
WebBrowser1.Document.All.Item("MaleBtn").Click()
WebBrowser1.Document.All.Item("passConfirm").Value = "nono2355"
WebBrowser1.Navigate("ANURL2")
End Sub

WebBrowser1.Navigate("ANURL")
WebBrowser1.Visible = True
While WebBrowser1.Busy Or WebBrowser1.ReadyState <> 4
    DoEvents
Wend
WebBrowser1.Document.All.Item("VALUE1").Value = "6"
...