اجراي برنامه نوشته شده در vb6 به صورت ran as administrator

[ebrahimv]

چطوري يه برنامه كه با vb6 نوشته شده يه كاري كنيم هميشه به صورت ran as administrator اجرا بشه؟

[محسن واژدی]

سلام
نمونه زیر را بررسی کنید، در این نمونه با مشخص کردن User/Password یک کاربر admin برنامه ای را تحت کاربر فوق اجرا میکنیم (مشابه Run As Administrator)

با دستور زیر نیز میتوانیم بررسی کنیم که آیا برنامه در کاربری با دسترسی Admin اجرا شده است یا خیر، تا در غیر اینصورت مانع از اجرا برنامه شویم

Private Declare Function IsUserAnAdmin Lib "Shell32" Alias "#680" () As Integer

Private Sub Form_Load()
If CBool(IsUserAnAdmin) Then
MsgBox "Required administrator access...", vbCritical
End
End If
End Sub



موفق باشید

[ebrahimv]

اين كه نشد بعضي برنامه ها نميدونم چيكار ميكنن كه هميشه بصورت administrator اجرا ميشه
يه كاري كرد كه بايد مثل اون برنامه ها
كسي نطري نداره؟