مرجع تخصصی توابع api همراه با توضیح انها

[majjjj]

 

MakeSureDirectoryPathExists

 

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

این تابع یک مسیر داده شده را ایجاد می کند. همچنین این تابع توانایی ساخت مسیر های تو در تو را نیز دارد. همانطور که از نام این تابع پیداست بعد از فراخوانی این تابع از وجود مسیر مورد نظر اطمینان حاصل خواهید کرد.
lpPath : این متغیر به مسیر مورد نظر اشاره می کند

[majjjj]

 

MessageBeep

 

Public Const MB_OK = &H0

Public Const MB_HANDICON = &H10

Public Const MB_QUETSIONICON = &H20

Public Const MB_EXCLAMATION = &H30

Public Const MB_ASTERIKICON = &H40

 

Private Declare Function MessageBeep Lib "user32.dll" ( ByVal wType As Long) As Long

این تابع برای پخش اصوات از پیش تعیین شده (Beep ) ویندوز مورد استفاده قرار می گیرد.
wType : نوع صوتی را که قرار است پخش شود مشخص می کند ( به ثابت ها توجه کنید )

[majjjj]

 

ModifyMenu

 

Declare Function ModifyMenuA Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long

از این تابع برای ویرایش مشخصات یک منو استفاده می شود
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hMenu : یک اشاره گر از منوی مورد نظر
nPosition : محل قرار گیری آیتم مورد نظر
wFlags : مقدار این متغیر نحوه بیان nPosition را مشخص می کند
MF_BYPOSITION : نسبت به مکان منوی پنجره سنجیده می شود
MF_BYCOMMAND : نسبت به مکان منوی مادر سنجیده می شود
wIDNewItem : یک اشاره گر از منوی مورد نظر
lpString : این متغیر یک اشاره گر از یک تصویر بیت مپ است که باید در کنار منوی مورد نظر قرار گیرد

[majjjj]

 

MoveFile

 

Private Declare Function MoveFile Lib "kernel32.dll" (ByVal lpExistingName As String, ByVal lpNewFileName As String) As Long

این تابع برای انتقال یک فایل یا پوشه از محلی به محل دیگر مورد استفاده قرار می گیرد ( توانایی تغییر نام فایل ها و پوشه ها را نیز دارد )
lpExistingName : مسیر فایل مبدا
lpNewFileName : مسیر فایل مقصد ( اگر نام فایل متفاوت باشد در حین انتقال نام فایل نیز تغییر خواهد کرد )

[majjjj]

 

MoveWindow

 

Private Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

این تابع توانایی تغییر محل و تغییر اندازه پنجره ها را دارد.
اگر تابع مقدار صفر را بر گرداند به منزلهء عدم موفقیت آن است و مقدار غیر صفر نشانگر موفقیت تابع است.
x : فاصلهء جدید پنجره از سمت چپ صفحه نمایش
y : فاصلهء جدید پنجره از بالای صفحه نمایش
nWidth : عرض جدید پنجره
nHeight : ارتفاع جدید پنجره
bRepaint : اگر این مقدار 1 باشد پنجره در محل جدید Refresh می شود و اگر 0 باشد عمل Refresh صورت نمی گیرد

[majjjj]

 

OpenClipboard

 

Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long

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

[majjjj]

 

PlaySoundA

 

Private Declare Function PlaySoundA Lib "winmm.dll" (ByVal lpszeName As String, ByVal Reserved As Long, ByVal dwFlags As Long) As Long

این تابع یک فایل Wav را پخش می کند اگر فایل صوتی مزبور در مسیر داده شده موجود نباشد آنگاه تابع صدای Beep را پخش خواهد کرد
lpszeName : نام و مسیر فایل صوتی
Reserved : مقدار این متغیر را برابر &0 قرار دهید
dwFlags : نوع و روش پخش فایل صوتی

[majjjj]

 

SetTimer

 

Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

این تابع یک تایمر ایجاد می کند تا در یک فاصله زمانی مشخص یک عمل تکرار شود ( برای از بین بردن یک تایمر باید از تابع KillTimer استفاده کرد )
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره ای که تابع باید تحت آن اجرا شودو در صورتی که می خواهید تایمر ایجاد شده تحت پنجره خاصی نباشد مقدار این متغیر را برابر صفر قرار دهید
nIDEvent : این متغیر شماره شناسایی تایمر است که از آن برای از بین بردن تایمر ایجاد شده استفاده می شود. اگر متغیر hwnd را برابر صفر قرار دهید باید این متغیر را نیز با مقدار صفر مقدار دهی کنید
uElapse : این متغیر فاصله زمانی را که تایمر باید اجرا شود بیان می کند و در واقع به منزلهء Interval تایمر مورد نظر است
lpTimerFunc : در این متغیر باید آدرس تابعی را قرار دهید که قرار است تایمر مورد نظر در آن اجرا شود ( باید از تابع AddressOf استفاده کنید )

[majjjj]

 

TransParentBlt

 

Private Declare Function TransParentBlt Lib "msimg32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal srcX As Long, ByVal srcY As Long, ByVal srcnWidth As Long, ByVal srcnHeight As Long, ByVal CrTransparent As Long) As Long

این تابع از یک کنترل گرافیکی عکس می گیرد ، آنرا تغییر اندازه می دهد ، یک رنگ دلخواه از آن را حذف می کند و آنرا ار یک کنترل گرافیکی دیگر قرار می دهد
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hdc : هندل بافت گرافیکی کنترلی که باید عکس ساخته شده در آن قرار گیرد
nWidth : نقطه شروع ترسیم عکس در راستای افق
nHeight : نقطه شروع ترسیم عکس در راستای عمود
nWidth : عرض تصویر
nHeight : طول تصویر
hSrcDC : هندل بافت گرافیکی کنترلی که باید از آن عکس گرفته شود
srcX : نقطه شروع ترسیم عکس در راستای افق
srcY : نقطه شروع ترسیم عکس در راستای عمود
srcnWidth : عرض عکس
srcnHeight : طول عکس
CrTransparent : رنگی به باید حذف شود

[majjjj]

 

URLDowlLoadToFile

 

Private Declare Function URLDowlLoadToFile LibA "url.dll" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

از این تابع برای یک صفحه اینترنتی روی کامپیوتر محلی استفاده می شود
گر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
pCaller : مقدار این متغیر را برابر صفر قرار دهید
szURL : آدرس اینترنتی مورد نظر
szFileName : محل و نامی کا فایل باید در آن ذخیره شود
dwReserved : مقدار این متغیر را برابر صفر قرار دهید
lpfnCB : مقدار این متغیر را برابر صفر قرار دهید

[majjjj]

 

VerifyScreenSavePwd

 

Private Declare Function VerifyScreenSavePwd Lib "password.cpl" (ByVal hwnd As Long) As Long

این تابع پنجره دریافت کلمه عبور محافظ صفحه نمایش را نشان می دهد
اگر تابع کار خود را با موفقیت به پایان برساند مقدار بازگشتی یک عدد غیر صفر و اگر تابع با خطایی مواجه شود مقدار بر گشتی صفر خواهد بود
hwnd : هندل پنجره ای که تابع تحت آن اجرا می شود

[majjjj]

 

WindowFromPoint

 

Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

این تابع هندل پنجره موجود در یک نقطه مشخص از دسکتاپ را به دست می آورد
اگر تابع با خطایی مواجه شود مقدار بازگشتی صفر و در غیر اینصورت مقدار بازگشتی هندل پنجره موجود در نقطه مورد نظر خواهد بود
xPoint : عرض نقطه مورد نظر
yPoint : طول نقطه مورد نظر

[majjjj]

خدا رو شکر دوست داشتم تعداد بیشتری بگذارم اما تصمیمم عوض شد دوستان اگه نواقصی داره به بزرگواری خودشون ببخشن

[majjjj]

دیروز داشتم کتابهای api خودم رو دنبال یک مطلب میگشتم یادم به این تایپیک افتاد گفتم بد نیست هر از گاهی هم یک رونقی به اینجا بدم دوستان هم اگه چیزی داشتن که بدرد بقیه بخوره اینجا بذارن بقیه هم استفاده کنن

[majjjj]

Private Declare Function PaintDesktop Lib "user32.dll" (ByVal hdc As Long) As Long
این تابع یک تصویر از دسکتاپ ویندوز رو روی یک بافت گرافیکی نشون میده
این هم یک نمونه

'This project needs:

'- two picture boxes

'- a button

Private Type POINTAPI

X As Long

Y As Long

End Type

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Declare Function GetBkColor Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Const ScrCopy = &HCC0020

Const Yellow = &HFFFF&

Private Sub Form_Load()

'KPD-Team 1998

'URL: http://www.allapi.net/

'E-Mail: KPDTeam@Allapi.net

Dim Cnt1 As Byte, Cnt2 As Byte, Point As POINTAPI

'Set the graphic mode to persistent

Me.AutoRedraw = True

'API uses pixels

Me.ScaleMode = vbPixels

Picture1.ScaleMode = vbPixels

Picture2.ScaleMode = vbPixels

'No borders

Picture1.BorderStyle = 0: Picture2.BorderStyle = 0

'Set the button's caption

Command1.Caption = "Paint && Stretch"

'Set the graphic mode to 'non persistent'

Picture1.AutoRedraw = False: Picture2.AutoRedraw = False

For Cnt1 = 0 To 100 Step 3

For Cnt2 = 0 To 100 Step 3

'Set the start-point's coِrdinates

Point.X = Cnt1: Point.Y = Cnt2

'Move the active point

MoveToEx Me.hdc, Cnt1, Cnt2, Point

'Draw a line from the active point to the given point

LineTo Me.hdc, 200, 200

Next Cnt2

Next Cnt1

For Cnt1 = 0 To 100 Step 5

For Cnt2 = 0 To 100 Step 5

'Draw a pixel

SetPixel Me.hdc, Cnt1, Cnt2, Yellow

Next Cnt2

Next Cnt1

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim XX As Long, YY As Long, A As Long

XX = X: YY = Y

'Set the picturebox' backcolor

Picture2.BackColor = GetPixel(Picture1.hdc, XX, YY)

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Dim XX As Long, YY As Long, A As Long

XX = X: YY = Y

'Set the picturebox' backcolor

Picture2.BackColor = GetPixel(Picture1.hdc, XX, YY)

End If

End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim XX As Long, YY As Long, A As Long

XX = X: YY = Y

'Set the picturebox' backcolor

Picture2.BackColor = GetPixel(Picture1.hdc, XX, YY)

End Sub

Private Sub Command1_Click()

'Set the width and height

Picture2.Width = 100: Picture2.Height = 100

Picture1.Width = 50: Picture1.Height = 50

'No pictures

Picture1.Picture = LoadPicture("")

DoEvents

Copy the desktop to our picturebox

PaintDesktop Picture1.hdc

'Stretch the picture

StretchBlt Picture2.hdc, 0, 0, 100, 100, Picture1.hdc, 0, 0, 50, 50, ScrCopy

End Sub

[majjjj]

این هم نمونه ساده از همون کدبالا

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long

Private Sub Command1_Click()

PaintDesktop Me.hdc

End Sub