دو و یک

 چگونه از اجرای مجدد یک برنامه در ویژوال بیسیک جلوگیری کنیم ؟  

خوب با استفاده از کد زیر در فرم اصلی برنامه تان می توانید از اجرای مجدد برنامه

جلوگیری کنید .

Private Sub Form_Load()
If App.PrevInstance = True Then
Dim Result As Integer
Result = MsgBox("برنامه در حال اجراست", vbInformation, "Warnnig")
Unload Me
End If
End Sub 

تشخیص Admin بودن کاربر جاری در ویندوز 

اگه زمانی خواستید این موضوع رو بفهمید کافیه که از تابع API ی که در shell32 تعریف شده

استفاده کنید. صورت کلی این تابع چنین است:

Private Declare Function IsUserAnAdmin Lib "shell32" () As Long

تحت ویندوز 2000 ممکنه که شما خطای با عنوان Can't find DLL entry point دریافت کنید که بهتر

است که معرفی تابع را بدین گونه انجام دهید:

Private Declare Function IsUserAnAdmin Lib "shell32" Alias "#680" () As Long 

ویک کتاب در آخر امر یک کتاب برای ویژوال بیسکی ها دارم شاید مفید باشه : 

http://www.4shared.com/file/86969997/74ff527d/vb6-ebook.html