الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامجى يعمل مع بداية الويندوز

مغلق
بدأه moslem_12002 في 5 يونيو 2007 · 12 رد · 1,128 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

عملت برنامج وبعد ما عملته ملف setupوثبته على الجهاز بيشتغل مع بداية الويندوز بس كل اللى عملته انى عملت أضفت فورم جديد وأخترت About MyApp وخليتها تشتغل الأول هى دى السبب ولا ايه بالضبط وشكرا

سبحان الله وبحمده سبحان الله العظيم

s.gif

#2

عليا الطلبات ما انا فاهم حاجة

ايه المشكلة بالضبط لحد الان انت مذكرتش حاجة مفيدة

ما الذى حدث بعد اضافة الفورم

موقع البرنامج

مبارك لشعب تونس photo-thumb-42837.png

#3

الملخص المفيد ان البرنامج بيشتغل مع بداية الويندوز لوحده ليه انا مش فاهم يعنى ايه السبب ؟

سبحان الله وبحمده سبحان الله العظيم

s.gif

#4

السلام عليكم

شوف الاكيد 90% انك حاط كود في برنامجك يكون عند الساعه

10 % يمكن من ملف السيت اب فيه خيار وضعته علشان يكون عند الساعه او يضع اختصار له في

مجلد بدء التشغيل في قائمة ابداء

وهذا والله اعلم

سلام

get-7-2007-4nw_net_hbj46tna.jpg
#5

بسم الله

يعني سبحان الله انا بقالي بتاع كتير قوي بدور على الحل علشان اخلي البرنامج يشتغل لوحده وانت عملتها لوحدها ؟ ؟ ؟ :s

يارب حد يعرف الطريقة

#6

هذا الكود يجعل البرنامج يبدء مع بدء التشغيل

 '===================================================
'Function: RunNextBoot
'Description: Sets a key in the registry to have your app run the next time Windows is rebooted,
'			 or everytime Windows is rebooted.
'Where to place code: Module
'Notes: Set AppName to the name of your application
'	   Set CmdLine to the path of you application with any other arguments following
'	   Set ThisUserOnly to true if the application should only be run when the current user reboots
'	   Set RunEveryBoot to true if the application should run every reboot, instead of just the next time
'
'Author: Karl E. Peterson of VBPJ
'Author's Website: http://www.vbpj.com
'Magazine: Visual Basic Programmer's Journal, March 1999, Vol. 9, No. 3, pg. 93
'http://www.littleguru.com
'==================================================

Public Declare Function RegCreateKeyEx& Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long)
Public Declare Function RegSetValueEx& Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long)
Public Declare Function RegCloseKey& Lib "advapi32.dll" (ByVal hKey As Long)

Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const REG_OPTION_NON_VOLATILE = 0
Public Const SYNCHRONIZE = &H100000
Public Const STANDARD_RIGHTS_ALL = &H1F0000
Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_NOTIFY = &H10
Public Const KEY_CREATE_LINK = &H20
Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Public Const ERROR_SUCCESS = 0&
Public Const REG_SZ = 1

Public Function RunNextBoot(ByVal AppName As String, ByVal CmdLine As String, Optional ThisUserOnly As Boolean = False, Optional RunEveryBoot As Boolean = False)
  Dim TopKey As Long
  Dim SubKey As String
  Dim nRet As Long
  Dim hKey As Long
  Dim nResult As Long

  If RunEveryBoot Then
	SubKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
  Else
	SubKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce"
  End If

  If ThisUserOnly Then
	TopKey = HKEY_CURRENT_USER
  Else
	TopKey = HKEY_LOCAL_MACHINE
  End If

  nRet = RegCreateKeyEx(TopKey, SubKey, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, ByVal 0&, hKey, nResult)

  If nRet = ERROR_SUCCESS Then
	nRet = RegSetValueEx(hKey, AppName, 0&, REG_SZ, ByVal CmdLine, Len(CmdLine))
	Call RegCloseKey(hKey)
  End If

  RunNextBoot = (nRet = ERROR_SUCCESS)
End Function
get-7-2007-4nw_net_hbj46tna.jpg
#7

راجع الأعدادات اللى أنت أخترتها بالبرنامج اللى عملك الـ Package

أما عن سؤال الأخ أمير فممكن سواء بأستخدام الـ Registry أو مجلد الـ Startup أو بعض الطرق الأخرى , و للأخ قديم الشوق الكود طويل جدا , فى طرق أبسط شوية موجودة بالمنتدى.

#8

بسم الله

شكرا يا اخ قديم الشوق بس زي ما قال الاخ msayed2004الكود طويل

ولو سمحت يا اخ msayed2004 ممكن تقولي على طريقة لعمل البرنامج مع بدء التشغيل بس ياريت بلاش الريجستري او تحط رابط في المنتدى يكون بيتكلم عن الموضوع ده

وجزاك الله خيرا

#9

الطريقة الأفضل بعد الريجيسترى هى عمل أختصار بمجلد الـ Start Up , للحصول على مساره راجع Special Folders , لعمل الـ Shortcut أبحث بالمنتدى عن دالة OSfCreateShellLink

#11

أولا أخوانى شكرا على المساعده

فعلا طلعت المشكله ببرنامج setup factory انا بدل معمل أختصار لسطح المكتب عملت اختصار فى Start Up وكان بيشتغل مع بداية الويندوز بسبب كده وفى الحقيقه راى خطأ حلو عرفت أزاى أخلى البرنامج يشتغل مع بداية الويندوز بطريه سهله خالص

جزاكم الله خير

يعني سبحان الله انا بقالي بتاع كتير قوي بدور على الحل علشان اخلي البرنامج يشتغل لوحده وانت عملتها لوحدها ؟ ؟ ؟ confused_smile.gif

جات معايه صدفه

سبحان الله وبحمده سبحان الله العظيم

s.gif

#12

الاكواد لتشغيل البرنامج مع الوندوز كلها خاطئة لماذا ابحث في كل موضوع ولا اجد ارد تفصيل

كما اني رايت نتائج نور الظلام وكلها اكواد خاطئة

ارجو ارفاق سورس

startingprogremmer.jpg
#13
مبرمج مبتدا كتب:
الاكواد لتشغيل البرنامج مع الوندوز كلها خاطئة لماذا ابحث في كل موضوع ولا اجد ارد تفصيل

كما اني رايت نتائج نور الظلام وكلها اكواد خاطئة

ارجو ارفاق سورس

اكواد خاطئة :wacko:

post-114987-1180814117.jpg

هذا الموضوع مغلق.

مواضيع مشابهة