سلام
راه درستش اینه که برای اجرای برنامتون پارامتر تعیین کنید (نیازی به رجیستری و این تیپ راه حل ها نیست) ، خب به چه صورت؟ خواهم گفت
اول اینکه در برنامتون یک ماژول جدید به نام Program ایجاد کنید و داخلش این کدها رو بنویسید
Module Program
Public Sub Main(args() As String)
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(Fals e)
If (args.Length > 0) Then
If (args(0) <> "Allow") Then
MsgBox("This application cant run in this mode" + vbCrLf + vbCrLf + "Please contact technical support", MsgBoxStyle.OkOnly, "Incorrect execution mode")
Return
End If
Else
MsgBox("This application cant run in this mode" + vbCrLf + vbCrLf + "Please contact technical support", MsgBoxStyle.OkOnly, "Incorrect execution mode")
Return
End If
Application.Run(New Form1)
End Sub
End Module
توجه کنید خطی که نوشته شده Application.Run ، اون Form1 ، فرم ابتدایی برنامتون هست که اول اجرا میشه
مرحله بعد اینه که روی پروژتون از Solution Explorer راست کلیک کنید و گزینه Properties رو انتخاب کنید ، از فرم تنظیمات پروژه که باز میشه در سربرگ Application ، تیک گزینه Enable Application Framework رو بردارید.
تا اینجا ، کار تمام است.
حالا برای اجرای این برنامه شما نیاز دارید یک پارامتر با مقدار Allow بهش بدید (این مقدار در ماژولی که بالاتر گفتم تعیین شده و میتونه هر چیزی که شما میخواهید باشه)
اگر بخواهید از برنامه دیگری این برنامه رو لود کنید ، به این ترتیب باید کد بنویسید
Dim pHelp As New ProcessStartInfo With {
.FileName = "آدرس فایل اجرایی برنامه اولتون",
.Arguments = "Allow",
.UseShellExecute = True,
.WindowStyle = ProcessWindowStyle.Normal
}
Process.Start(pHelp)
همچنین می تونید این پارامتر رو برای اجرا در cmd به برنامتون پاس بدید تا اجرا بشه ، در غیر اینصورت با نمایش پیغام مناسب از اجرای برنامه جلوگیری میکنه.
موفق باشید
نوشته شده توسط siavash-123
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول