آژانس هواپیماییexchanging

کمک برای نوشتن یک برنامه ساده

شروع موضوع توسط AhrimanSefid2 ‏18 آگوست 2010 در انجمن Visual Basic 6

  1. AhrimanSefid2

    AhrimanSefid2 Registered User

    تاریخ عضویت:
    ‏7 فوریه 2007
    نوشته ها:
    765
    تشکر شده:
    92
    محل سکونت:
    IRAN
    سلام
    من تا اونجای که می توسنستم برنامه خودم رو نوشتم اما چند اشکال داشتم و در همین باب کمک می خواستم.

    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
     
    
    متشکر می شم کمک کنید این برنامه رو کامل کنم.