ايران ويج

API شماره 1 : API اول درمورد تغییر برچسب درایو هاست . یعنی شما می تونید با این تابع برچسب درایوهارو عوض کنید.

تعریف تابع توی یک ماژول.

کد: 
Public Declare Function SetVolumeLabelA Lib "kernel32.dll" (ByVal lpRootName As String, ByVal lpVolumeName As String) As Long

lpRootName : مسیر درایو ریشه مثل "C:" میشه.

lpVolumeName : برچسب جدید درایو مثل "VisualBasic"

نحوه استفاده تو برنامه :شما اول یک متغییر از نوع Long البته با توجه به نوع خروجی تابع تعریف می کنید بعد به صورت زیر استفاده می کنید :

کد: 
Dim A As Long

()Private Sub Commad1_Click

("A = SetVolumeLabelA("C:", "VisualBasic

End Sub

>> اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.

َAPI شماره 2 : API دوم در مورد محاسبه زمان سپری شده از روشن شدن سیستم شماست . البته بر حسب میلی ثانیه.

--> تعریف تابع توی یک ماژول :

کد: 
Public Declare Function timeGetTime Lib "winmm.dll" () As Long

این تابع فقط یک خروجی دارد که زمان سپری شده سیستم است:

نحوه استفاده در برنامه : مانند تابع قبل یه منغییر از نوع Long تعریف میکنید و به صورت زیر استفاده می کنید :

کد: 
Dim A as Long

()Private Sub Command1_Click

A = timeGetTime

Text1.Text = A

End Sub

>>اگر تابع درست کار کند A برابر با زمان سپری شده و در غیر این صورت A=0 خواهد بود.

َAPI شماره 3 : سومی درمورد کپی گرفتن از یک فایله .

تعریف تابع توی یک ماژول :

کد: 
Public Declare Function CopyFileA Lib "kernel32.dll" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

lpExistingFileName : آدرس فایل مبدا مثل "C:VB6.txt"

lpNewFileName : آدرس فایل مقصد مثل "D:VB6.txt"

bFailIfExist : این متغیر مشخص می کند در صورت وجود فایل مقصد عملیات کپی ادامه یابد یا نه. اگر صفر باشد انجام میشود و اگر یک باشد انجام نمیشود .

نحوه استفاده در برنامه : مانند تابع قبل یه منغییر از نوع Long تعریف میکنید و به صورت زیر استفاده می کنید :

کد: 
Dim A as Long

()Private Sub Command1_Click

(A=CopyFileA( "C:VB6.txt","D:VB6.txt",0

End Sub

>> اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.البته میتونید نام فایل رو هم توی مقصد عوض کنید.

َAPI شماره 4 : چهارمی درمورد انتقال یک فایله . این تابع برای انتقال یک فایل یا پوشه از محلی به محل دیگر مورد استفاده قرار می گیرد ( توانایی تغییر نام فایل ها و پوشه ها را نیز دارد ).

تعریف تابع توی یک ماژول :

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

lpExistingName : مسیر فایل مبدا

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

نحوه استفاده در برنامه : مانند تابع قبل یه منغییر از نوع Long تعریف میکنید و به صورت زیر استفاده می کنید :

کد: 
Dim A as Long

()Private Sub Command1_Click

("A=MoveFile( "C:VB6.txt","D:VB6.txt

End Sub

>> اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.

لطف کنین برای خوانایی بیشتر کدهاتونو تو تگ کد قرار بدین

persia8

lord_viper