آقا از همه ممنون
من مشکلاتم بالاخره تموم شده بود و برنامه تموم شده بود ولی ....
من از این نمونه کد برای دسترسی به ریجستری استفاده کردم
If Check5.Value = 1 Then
c = MsgBox("hlh;hk fhc'vnhkd fi phgj h,gdi hdk 'cdki ,[,n knhvn hnhli ld nidn ?", vbOKCancel)
If c = 0 Then End
reg2 = InputBox("ÚäæÇä ãæÑÏ äÙÑ ", "Enter Windows Name", "")
Reg1.HKey = HKEY_LOCAL_MACHINE
Reg1.path = "Software /Windows NT/CurrentVersion"
Reg1.ValueName = "RegistredOwer"
Reg1.Data = Val(reg2)
Reg1.SetValue
End If
این کد ها قبلا کار میکردن چندین بار امتحان کردم ولی نمیدونم چرا از وقتی برنامه رو بستم و الان بازش کردم که exe نهایی رو بگیریم از همین قسمت اشکال میگیره (سیوش هم کرده بودم
در ضمن OCX رو هم باز کردم
اینم عکس : تو رو خدا کمکم کنید نمیتونم این همه کد رو دوباره بنویسم این پروژه رو باید دوشنبه ببرم توضیح بدم به استادمون
جواب بصورت نقل قول
نوشته شده توسط _H2_
