تبليغاتX
.::VB & VIRUS PROGRAMMING::.
 
برنامه نویسی
 
رجیستری بانک اطلاعاتی قدرتمند است که جهت ذخیره سازی تنظیمات و تغییرات اعمال شده در نسخه های 32بیتی Microsoft Windows  شاملVista,95,98,NT,2000,XP,Me بکار میرود.رجیستری شامل اطلاعات و تنظیمات برای تمام سخت افزار ها,نرم افزار ها,کاربران و ... میباشد.هنگامی که یک کاربر تغییراتی در تنظیمات CONTROLPANEL, انتساب فایلها,سیاستهای امنیتی و یا برنامه های نصب شده ایجاد میکند ,این تغییرات به رجیستری منعکس شده و در ان جا نیز ذخیره میشود

خوب با توضیحی که در بالا دادم تا حدودی از رجیستری آشنا شده اید حالا من چند تا کار با رجیستری رو براتون توضیح میدم تا بیشتر آشنا بشین .
تا الان شده ویندوزتان خیلی دیر بوت بشه خوب اگه از ویندوز xp استفاده میکنید نیاز نیست نگران باشید چون xp میتونه تمام فایلهای بوت را در کنار هم قرار بده. چطوری ...الان میگم
ابتدا وارد run شده و regedit را تایپ کنید حالا مسیر زیر را انجام دهید:
HKEY_LOCAL_MACHIN\Software\Microsoft\dfrag پوشه  BootOptimizeFunction را پیدا کرده یه متغیر از نوع  string  بسازید و نام آن را BootOptimizeFunction بذارید  و روی آن کلیک راست کرده و سپس از منوی آن گزینه modify  را برگزینید و سپس مقدار آن را به Y  تغییر دهید تا فعال شود !!!

 

نکته: دستورات رجیستری به حروف کوچک و بزرگ خیلی حساس هستند یعنی حرف اول هر کلمه ای با حروف بزرگ شروع میشود.

 

- بعضی ها هم به راست کلیک موس خیلی حساس هستند یه نفر اگه رو سیستمش نشسته  باشه و خدا نکرده طرف اگه راست کلیک کنه سریع میگن فایل های من فرمت نشه یا حذف نشه خوب چیکار کنیم که دیگه نگران نباشیم
 وارد رجیستری شوید و کلید زیر را پیدا کنید :
HKEY_Current_user\Software\Microsoft\Windows\Current version\Policies\Explorer
یک متغیر جدید از نوع DWORD  بسازید و اسم آن را NoViewContextMenu  را به آن بدهید حالا  به آن  مقدار  1 بدهید. از رجیستری خارج شوید و ویندوز خود را از نو بوت کنید می بینید که دیگه راست کلیک موس کار نمیکنه برایه برگشتن به حالت اول مسیر را دوباره میری و مقدار 1 را به صفر تغییر می دهید .

 

-افزودن متن به ساعت سیستم :

اگر میخواهی به ساعت ویندوز اسمی اظافه کنید مسیر زیر را انتخاب کنید.
به کلید زیر بروید :
HKEY_CURRENT_USER\Control Panel \ International
حال یک متغیر از نوع String  ایجاد کرده و نام آنرا S1159  ( در صورتی که از قبل ایجاد نشده باشد ) قرار دهید و متن دلخواه خود را در آن وارد نمایید .
حال متغیر دیگری از نوع STRING  بسازید و نام آنرا S2359  قرار دهید و متن دلخواه دیگری در آن قرار دهید . توجه داشته باشید که در ویندوزهای عربی یا فارسی میتوان متن را به فارسی نوشت !! در ضمن دقت کنید اکثر ویندوزها این دو متغیر فعال هستند پس عجله نکن اول خوب بگرد
New Folder  بدون اسم
خوب تا الان خیلی New Folder درست کردید حالا یه بار دیگه هم درست کن منتها قبل از اینکه به آن اسم بدهید Alt+255  را بزنید آنوقت  New Folder که درست کردید بدون اسم هستش .
منظور ازAlt + 255 این است که Alt  را پایین نگه داشته و 255 را بزنید.

 
یه نظر هم بدی بد نیست

 
   
 |    نوشته شده توسط NEMESIS
   
 
رجیستری بانک اطلاعاتی قدرتمند است که جهت ذخیره سازی تنظیمات و تغییرات اعمال شده در نسخه های 32بیتی Microsoft Windows شاملVista,95,98,NT,2000,XP,Me بکار میرود.رجیستری شامل اطلاعات و تنظیمات برای تمام سخت افزار ها,نرم افزار ها,کاربران و ... میباشد.هنگامی که یک کاربر تغییراتی در تنظیمات CONTROLPANEL, انتساب فایلها,سیاستهای امنیتی و یا برنامه های نصب شده ایجاد میکند ,این تغییرات به رجیستری منعکس شده و در ان جا نیز ذخیره میشود خوب با توضیحی که در بالا دادم تا حدودی از رجیستری آشنا شده اید حالا من چند تا کار با رجیستری رو براتون توضیح میدم تا بیشتر آشنا بشین . تا الان شده ویندوزتان خیلی دیر بوت بشه خوب اگه از ویندوز xp استفاده میکنید نیاز نیست نگران باشید چون xp میتونه تمام فایلهای بوت را در کنار هم قرار بده. چطوری ...الان میگم ابتدا وارد run شده و regedit را تایپ کنید حالا مسیر زیر را انجام دهید: HKEY_LOCAL_MACHIN\Software\Microsoft\dfrag پوشه BootOptimizeFunction را پیدا کرده یه متغیر از نوع string بسازید و نام آن را BootOptimizeFunction بذارید و روی آن کلیک راست کرده و سپس از منوی آن گزینه modify را برگزینید و سپس مقدار آن را به Y تغییر دهید تا فعال شود !!! نکته: دستورات رجیستری به حروف کوچک و بزرگ خیلی حساس هستند یعنی حرف اول هر کلمه ای با حروف بزرگ شروع میشود. - بعضی ها هم به راست کلیک موس خیلی حساس هستند یه نفر اگه رو سیستمش نشسته باشه و خدا نکرده طرف اگه راست کلیک کنه سریع میگن فایل های من فرمت نشه یا حذف نشه خوب چیکار کنیم که دیگه نگران نباشیم وارد رجیستری شوید و کلید زیر را پیدا کنید : HKEY_Current_user\Software\Microsoft\Windows\Current version\Policies\Explorer یک متغیر جدید از نوع DWORD بسازید و اسم آن را NoViewContextMenu را به آن بدهید حالا به آن مقدار 1 بدهید. از رجیستری خارج شوید و ویندوز خود را از نو بوت کنید می بینید که دیگه راست کلیک موس کار نمیکنه برایه برگشتن به حالت اول مسیر را دوباره میری و مقدار 1 را به صفر تغییر می دهید . -افزودن متن به ساعت سیستم : اگر میخواهی به ساعت ویندوز اسمی اظافه کنید مسیر زیر را انتخاب کنید. به کلید زیر بروید : HKEY_CURRENT_USER\Control Panel \ International حال یک متغیر از نوع String ایجاد کرده و نام آنرا S1159 ( در صورتی که از قبل ایجاد نشده باشد ) قرار دهید و متن دلخواه خود را در آن وارد نمایید . حال متغیر دیگری از نوع STRING بسازید و نام آنرا S2359 قرار دهید و متن دلخواه دیگری در آن قرار دهید . توجه داشته باشید که در ویندوزهای عربی یا فارسی میتوان متن را به فارسی نوشت !! در ضمن دقت کنید اکثر ویندوزها این دو متغیر فعال هستند پس عجله نکن اول خوب بگرد New Folder بدون اسم خوب تا الان خیلی New Folder درست کردید حالا یه بار دیگه هم درست کن منتها قبل از اینکه به آن اسم بدهید Alt+255 را بزنید آنوقت New Folder که درست کردید بدون اسم هستش . منظور ازAlt + 255 این است که Alt را پایین نگه داشته و 255 را بزنید. یه نظر هم بدی بد نیست
 
   
 |    نوشته شده توسط NEMESIS
   
 
GetVersionExA

اين تابع اطلاعاتي درباره نسخه و نگارش ويندوز را بر مي گرداند
اگر تابع کار خود را با موفقيت به پايان برساند مقدار بازگشتي يک عدد غير صفر و اگر تابع با خطايي مواجه شود مقدار بر گشتي صفر خواهد بود

lpVersionInfo   :  اين متغير توسط تابع مقدار دهي مي شود و حاوي اطلاعاتي راجه به نسخه ويندوز از نوع OSVERSIONINFO خواهد بود.

     dwOSVersionInfoSize   :  طول نوع OSVERSIONINFO  با بايت که توسط تابع بايد برگردانده شود
     dwMajorVersion   :  شماره نسخه اصلي ويندوز
     dwMinorVersion   :  شماره نگارش ويندوز
     dwBuildNumber   :  دفعات بازبيني ويندوز
     dwPlatformId   :  شمارهء سکوي ( Platform ) ويندوز
     szCSDVersion   :  نام رشته اي نسخه ويندوز

نحوه تعريف كردن تابع:

Private Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type

Private Declare Function GetVersionExA Lib "kernel32.dll" (lpVersionInfo As OSVERSIONINFO) As Long

نظر يادتون نره!!!

 
   
 |    نوشته شده توسط NEMESIS
   
 
ويژوال بيسيك يكي از زبان هاي تحت ويندوزه و با ويژوال استديو كاملا فرق ميكنه!
حالا بريم سراغ يه تابع از توابع ( API) 
اميدوارم با توابع آشنايي داشته باشين

 GetSystemDirectory
اين تابع براي گرفتن آدرس پوشه سيستم بكار ميره مثلا در ويندوز 98 اگه ويندوز در درايو C نصب شده باشه محل اغلبا"
C:\Windows\System هست.
اين تابع به اين صورته:

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

مقدار اول يه متغير از نوع String هست كه بايد به تابع بديم تا مسير رو توي اون قرار بده.و دومي رو 255 قرار بدين.اين مقدار
نشون ميده كه تابع حداكثر چند كاراكتر اول مسير رو برگردونه.چون طول اين مسير به ندرت 255 ميشه ما اين عدد رو بش ميديم.يه نكته رو توجه كنين كه اين تابع مقدار 255 كاراكتر(كه خودمون مشخص كرديم) رو داخل متغييري كه بش داديم قرار ميده كه كاراكتر هاي اول رو مسير پوشه سيستم و بقيه رو با كاراكتر 0 پر ميكنه.بنابراين ما بايد طور متغير كه در عادي 0 هست رو به 255 تغيير بديم و گرنه چون تابع ميخواد مقدار رو درون تابع جا بده و تابع جا نداره(طولش 0 هستش) اشكال ايجاد ميشه و برنامه ما بسته ميشه.همن اين ها به اين علت هستش كه تابع طول متغير ما رو تغيير نميده(ولي در خود ويبي اگر يه مقداري رو به يه متغير از نوع String بديم طول متغيير خودكار اضافه ميشه.)
براي اينكه ما طول متغير رو براي اين تابع به مقدار 255 كاراكتر تغيير بديم 2 كار ميتونيم بكنيم.يكي از اين روشه:
Dim sysPath as string * 255
توي اين روش طول متغير با استفاده از 255 كاراكتر تغيير ميكنه.(با استفاده از كاراكتر 0‌)
يا اينكه يه مقدار با طول 255 به متغيير ميديم:

Dim sysPath as String
sysPath = String(255," ")

حالا تابع رو فراخواني ميكنيم:

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim sysPath as String * 255
GetSystemDirectory sysPath,255
Msgbox Replace(sysPath,chr(0),"")
End Sub

در خط يكي مونده به آخر با استفاده از تابع Replace مقدار كاراكتر 0 اضافي كه با تابع داده شده حذف ميشه.

منتظر باشيد!

نظر يادتون نره!!!

 
   
 |    نوشته شده توسط NEMESIS
   
 
 منتظر باشيد...!
 
   
 |    نوشته شده توسط NEMESIS
   
 
تا چند وقت ديگه مطالبي درباره Visual Bisic 6.0 در اين وبلاگ قرار داده مي شود!
 
   
 |    نوشته شده توسط NEMESIS
   
 
 
 

pctfx3.1

Fire Car Fix Template

Multimedia CD Catalogues گروه طراحي چندرسانه اي وبلاگ رسانه گشت و گذار در دنياي رسانه هاي ديجيتال Medium Blog - Digital Media World قالبهاي رايگان سايت و وبلاگ Advanced Persian Blog Templates كارگاه طراحي وب مركز طراحي و توسعه سي دي هاي مولتي مديا

اطلاعات مربوط به كارگاه طراحي قالب: Free Beauty Blog Templates Template Design Workshop, دانلود قالب هاي وبلاگ Template Design Workshop, جزئيات قالب هاي رايگان Template Design Workshop, جستجوي قالب هاي وبلاگ Template Design Workshop, تماس با كارگاه طراحي قالب Template Design Workshop, درباره كارگاه طراحي قالب

pictofxt Farsi Blog Iran Web Hosting

تهیه وب پورتال اختصاصی برنامه نویسی تحت وب