Afshin66
شنبه 22 مهر 1385, 19:33 عصر
سلام
امیدوارم از این نوشته که ازدانش اندک من در مورد API تراوش میکنه استفاده ببرید
در واقع روالها داخلی ویندوز هستند که هنگام کار با ویندوز شاید خیلی از انها را دیده باشید API
مثل خاموش کردن کامپیوتر یا مقدار زمان فعال بودن کامپیوتر یا .....
خیلی بیشتر از ایناست
کارهایی که بائد انجام دهید
شماره1
به این آدرس بروید
Start=>Program=>Microsof Visual Basic 6=>Microsof Visual Basic 6 Tools=>APItextViewer
برنامه را اجرا کنید
LoadTextFileرا انتخاب کنیداز منوی فایل گزینه
گزینه سوم را انتخاب کنید
ٌWin32Ap1.txt
این کار را هم انجام دید:
APIType=Declares
درقسمت بالای قرار دارد
بعد از Load کردن فایل
در قسمت مرکزی برنامه باز نوشته هایی که میبینید اسمهایی است که این روالها دارند
و هر کام کار خاص خود را انجام میدهند(کسی نموتنه بگه همشونو میشناسه)
رویه کدا 2 بار کلیک کنید در قسمت پایین صفحه دستور اعلانشو میبینید
(میتونید کپی کنید داخل بر نا متون)
بعضی ازروالها مقداری میگیرند و کاری انجام میدهند
اما بعضی مقدای میگیرند مقداری برمیگردونند
نوع مقدار و مقادیر لازم برای کار در قسمت اعلان روالی که صدا میزنیم میتوانید ببینید
یک مثال
میخواهیم مقدار فعالییت ویندوزو ببینیم بر حسب زمان ار این روال استفاده میکنیم:
GetTickCount()
اگه توی برنامه معرفی شده بگردید پیداش میکنید
Dim lngReturn As Long
lngReturn = GetTickCount()
Label8.Caption = (lngReturn / 1000) & " seconds."
باید در مودول یا قسمس اعلان متغییرها اینه بنویسید:
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
نکته :
اگر در مودول استفاده میکنییدباید از
Public
استفاده کنید
اگر درفرم استفاده میکنید از
Private
در قسمت
GENERAL
خیلی خلاسه بود اگه مثالو ببینیدخیلی بیتر میفهمید
یک برنامه کامل که تمام برنامه چیزی نیست به جر
API
(ََّAFSHIN66)
WA.Ip.rar (http://barnamenevis.org/forum/attachment.php?attachmentid=5354&stc=1&d=1160843497) (15.6
امیدوارم از این نوشته که ازدانش اندک من در مورد API تراوش میکنه استفاده ببرید
در واقع روالها داخلی ویندوز هستند که هنگام کار با ویندوز شاید خیلی از انها را دیده باشید API
مثل خاموش کردن کامپیوتر یا مقدار زمان فعال بودن کامپیوتر یا .....
خیلی بیشتر از ایناست
کارهایی که بائد انجام دهید
شماره1
به این آدرس بروید
Start=>Program=>Microsof Visual Basic 6=>Microsof Visual Basic 6 Tools=>APItextViewer
برنامه را اجرا کنید
LoadTextFileرا انتخاب کنیداز منوی فایل گزینه
گزینه سوم را انتخاب کنید
ٌWin32Ap1.txt
این کار را هم انجام دید:
APIType=Declares
درقسمت بالای قرار دارد
بعد از Load کردن فایل
در قسمت مرکزی برنامه باز نوشته هایی که میبینید اسمهایی است که این روالها دارند
و هر کام کار خاص خود را انجام میدهند(کسی نموتنه بگه همشونو میشناسه)
رویه کدا 2 بار کلیک کنید در قسمت پایین صفحه دستور اعلانشو میبینید
(میتونید کپی کنید داخل بر نا متون)
بعضی ازروالها مقداری میگیرند و کاری انجام میدهند
اما بعضی مقدای میگیرند مقداری برمیگردونند
نوع مقدار و مقادیر لازم برای کار در قسمت اعلان روالی که صدا میزنیم میتوانید ببینید
یک مثال
میخواهیم مقدار فعالییت ویندوزو ببینیم بر حسب زمان ار این روال استفاده میکنیم:
GetTickCount()
اگه توی برنامه معرفی شده بگردید پیداش میکنید
Dim lngReturn As Long
lngReturn = GetTickCount()
Label8.Caption = (lngReturn / 1000) & " seconds."
باید در مودول یا قسمس اعلان متغییرها اینه بنویسید:
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
نکته :
اگر در مودول استفاده میکنییدباید از
Public
استفاده کنید
اگر درفرم استفاده میکنید از
Private
در قسمت
GENERAL
خیلی خلاسه بود اگه مثالو ببینیدخیلی بیتر میفهمید
یک برنامه کامل که تمام برنامه چیزی نیست به جر
API
(ََّAFSHIN66)
WA.Ip.rar (http://barnamenevis.org/forum/attachment.php?attachmentid=5354&stc=1&d=1160843497) (15.6