+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مطلوب تشغيل البرنامج مع تشغيل الجهاز 2008 (/showthread.php?tid=8214)
مطلوب تشغيل البرنامج مع تشغيل الجهاز 2008 - MaX - 29-03-13
اسف على عنوان الموضوع بسس ممكن كود للفيجوال . نت 2008 يخلى البرنامج يشتغل مع تشغيل الجهاز
مطلوب تشغيل البرنامج مع تشغيل الجهاز 2008 - Sajad - 29-03-13
السلام عليكم
انظر هذا الموضوع http://vb4arb.com/vb/showthread.php?3561-%C7%D3%CA%DD%D3%C7%D1-%CD%E6%E1-%E6%D6%DA-%C7%E1%C8%D1%E4%C7%E3%CC-%DD%ED-%C8%CF%C1-%C7%E1%CA%D4%DB%ED%E1&highlight=startup
مطلوب تشغيل البرنامج مع تشغيل الجهاز 2008 - just.coder - 29-03-13
كود بسيط لجعل برنامجك ينشى شورت كت له ف فولدر الاسترت اب ليبدا العمل مع تشغيل الجهاز
كود :
Dim nameee As String = System.Reflection.Assembly.GetEntryAssembly().ManifestModule.Name
Dim jkk() As String = nameee.Split(".")
Dim obj As Object
obj = CreateObject("WScript.Shell")
Dim srt As Object
srt = obj.CreateShortcut(System.Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\" & My.Application.Info.AssemblyName & ".lnk")
srt.TargetPath = My.Application.Info.DirectoryPath & "\" & jkk(0) & ".exe"
srt.WindowStyle = 5
srt.IconLocation = My.Application.Info.DirectoryPath & "\" & jkk(0) & ".exe" & "," & 0
srt.Save()