AhrimanSefid2
Registered User
سلام
من تا اونجای که می توسنستم برنامه خودم رو نوشتم اما چند اشکال داشتم و در همین باب کمک می خواستم.
1. می خوام اگه اون آدرس ریجستری پیدا شد پیغام OK بده و برنامه رو ادمه بده و آدرس رو پاک کنه.
2 اگر آدرس پیدا نشد یک پیغام دیگه بده.
3. در انتها هم اگر با موفقیت آدرس رو پاک کرد پیغام تشکر.
4. وارد یک سایت خاص بشه یا مشخصات ویندوز رو نمایش بده.
این هم کدی که نصفه خودم نوشتم.
متشکر می شم کمک کنید این برنامه رو کامل کنم.
من تا اونجای که می توسنستم برنامه خودم رو نوشتم اما چند اشکال داشتم و در همین باب کمک می خواستم.
1. می خوام اگه اون آدرس ریجستری پیدا شد پیغام OK بده و برنامه رو ادمه بده و آدرس رو پاک کنه.
2 اگر آدرس پیدا نشد یک پیغام دیگه بده.
3. در انتها هم اگر با موفقیت آدرس رو پاک کرد پیغام تشکر.
4. وارد یک سایت خاص بشه یا مشخصات ویندوز رو نمایش بده.
این هم کدی که نصفه خودم نوشتم.
کد:
Private Sub Command1_Click()
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved\"
objReg.DeleteKey HKEY_CURRENT_USER, strKeyPath
MsgBox "OK, Run Test", 1, "Test"
Dim dblRetVal As Double
dblRetVal = Shell("C:\Program Files\Test\Test.exe", vbMaximizedFocus)
MsgBox "OK, Run Test", 1, "Test"
End Subمتشکر می شم کمک کنید این برنامه رو کامل کنم.
