صفحه ها
دسته
وبلاگ من در بلاگفا
عکس من
وبلاگهاي دوستان
ورودي هاي پنجره اميد
معرفي وب سايت هاي پرطرفدار
سايتهاي دوستان
لينك هاي دسترسي سريع
مطالب من در ثبت مطالب روزانه
آرشیو
آمار وبلاگ
تعداد بازدید : 573475
تعداد نوشته ها : 1492
تعداد نظرات : 394
Rss
طراح قالب
مهدي يوسفي
برنامه خاموش کردن Windows با یک کلیک
در این برنامه یک پروژه ساده رو به شما معرفی میکنم که در اون با یک کلیک ساده دکمه میتوانید ویندوز رو
خاموش کنید . برای ساخت این پروژه مراحل زیر را طی کنید :
۱ - ویژوال بیسیک را باز کنید
۲ - یک فرم جدید ایجاد کنید
۳ - از جعبه ابزار ویژوال یک دکمه روی فرم قرار دهید
۴ - روی دکمه دو بار کلیک کرده و دستور زیر را در رویداد کلیک دکمه تایپ کنید

Shell ("Shutdown ") ' Shuts computer down

همانطور که دیده میشود در صورت اجرای و فشار دکمه ویندوز خاموش میشود.
این دستور دارای سویچ های خاص میباشد که میتوانید در برنامه خود استفاده کنید . در زیر این
سویچ ها ارائه شده اند :

' Switches:
l Log off profile
s Shut down computer
r Restart computer
f Force applications to close
t Set a timeout for shutdown
m \\computer name Shut down remote computer
i Show the Shutdown GUI

مثال :

Shell ("Shutdown -s -t 5") ' Shuts computer down after timeout of 5

بعنوان مثال در صورت استفاده از فرمان فوق سیستم بعد از 5 ثانیه خاموش میشود. دقیقا مطابق کدی
که در ویروس ام اس بلستر استفاده شده با این تفاوت که مدت انتظار برای خاموش شدن سیستم در
این ویروس 30 ثانیه است

**************************************
چگونه وقفه ایجاد کنیم : مثلا برای بارگذاری فرم

Sub Pause(interval)
Dim Current
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

*******************************
بیل گیتس : جهانی فکر کنید؟ محلی عمل کنید!
*******************************
یک بسته اموزشی کامل که نمیگم چیه و اگه دانلود نکنی از دستت رفته
هر سه بخش رو دانلود کنید و سپس unzip کنید و حجمش کم است

http://www.sharemation.com/MahdiVB678/new2/New.part1.rar?uniq=yvuarx
http://www.sharemation.com/MahdiVB678/new2/New.part2.rar?uniq=yvuarr
http://www.sharemation.com/MahdiVB678/new2/New.part3.rar?uniq=yvuarl

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

اگه زمانی خواستید این موضوع رو بفهمید کافیه که از تابع 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

پنج شنبه بیست و ششم 10 1387
X