APIهای ویندوز و استفاده آنها در VB6

[مهدی مهری]

سلام
در این تاپیک به بعضی از API های ویندوز و کاربرد آنها میپردازیم
(لطفا از بحث های متفرقه پرهیز کنید )

[مهدی مهری]

بدست آوردن آدرس پوشه Temp در VB6

هدف : مسیر پوشه Temp ویندوز را بر میگرداند
مبدا فراخوانی : Kerned32.dll

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Form_Load()
 Dim Buffer As String
 
 Buffer = String(255, 0)
 GetTempPath 255, Buffer
 Buffer = Left$(Buffer, InStr(Buffer, Chr$(0)) - 1)
 Text1.Text = Buffer
End Sub

[مهدی مهری]

بدست آوردن مسیر پوشه system در VB6

هدف : این تابع مسیر پوشه system را بر میگرداند.
مبدا : kernel32.dll

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

Private Sub Form_Load()
 Dim Buffer As String
  
 Buffer = String(255, 0)
 GetSystemDirectory Buffer, 255
 Text1.Text = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Sub

[مهدی مهری]

بدست آوردن مسیر جاری سیستم در VB6

هدف : این تابع ، مسیر جاری و مسیری را که برنامه از آن اجرا شده را بر میگرداند.
مبدا : Kernel32.dll

Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Paint()
  
  Dim sSave As String
  'create a buffer
  sSave = String(255, 0)
  Text2.Text = GetCurrentDirectory(255, sSave)
  Text1.Text = sSave
End Sub

[مهدی مهری]

از کار انداختن موس و کیبورد در VB6

هدف : این تابع موس و کیبورد را از کار می اندازد (در تمامی برنامه های ویندوز!)
مبدا : User32.dll

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Activate()
 DoEvents
 BlockInput True   'True=1
 Sleep 10000
 BlockInput False   'False=0
End Sub

[مهدی مهری]

پخش فایل WAV در VB6

هدف : این تابع یک فایل WAV را پخش میکند . اگر فایل ذکر شده در مسیر داده شده وجود نداشته باشد ، تابع به طور پیشفرض صدای Beep را پخش میکند
مبدا : Winmm.dll

Private Const SND_ALIAS = &H10000
Private Const SND_ALIAS_ID = &H110000
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_SYNC = &H0

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

Private Sub Form_Load()
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

[مهدی مهری]

تولید صدای Beep با فرکانس مختلف در VB6

هدف : این تابع صدای Beep را از کارت صوتی به مدت زمان دلخواه پخش می کند
مبدا : Kernel32.dll

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()
 Dim Cnt As Long
 
 For Cnt = 0 To 5000 Step 10
   Beep Cnt, 2000
   Me.Caption = Cnt
   DoEvents
 Next Cnt
End Sub

[مهدی مهری]

Shutdown,Restart,LogOff و یا PowerOff کردن سیستم در VB6

هدف : این تابع میتواند سیستم را Shutdown,Restart,LogOff و یا PowerOff کند!

Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWEROFF = 8
Private Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
 ExitWindowsEx EWX_REBOOT, ByVal 0&
End Sub

[مهدی مهری]

پاک کردن فایل بدون نمایش پیغام اخطار در VB6

هدف : این تابع یک فایل را بدون گرفتن اجازه از کاربر پاک میکند!
مبدا : Kernel32.dll

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Sub Form_Load()
  DeleteFile "C:\ECA.txt"
End Sub

[مهدی مهری]

بستن برنامه های دلخواه ویندوز و کاربر در VB6

هدف : این تابع به اجرای یک فرآیند خاطمه می دهد و یا یک فایل اجرایی exe را می بندد!
مبدا : Kernel32.dll

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Sub Form_Load()
 ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)
End Sub

[مهدی مهری]

عوض کردن شکل کرسورهای پیش فرض موس در VB6

هدف : این تابع شکل کرسورهای پیش فرض ویندوز را تغییر می دهد!
مبدا : User32.dll

Private Const OCR_NORMAL = 32512

Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function CopyIcon Lib "user32" (ByVal hIcon As Long) As Long

Dim hCurOld As Long
Dim hCurNew As Long

Private Sub Command1_Click()
 hCurOld = GetCursor()
 hCurNew = CopyIcon(Picture1.Picture)
 SetSystemCursor hCurNew, OCR_NORMAL
End Sub

Private Sub Command2_Click()
 SetSystemCursor hCurOld, OCR_NORMAL
End Sub

[fazel459]

پاسخ : APIهای ویندوز و استفاده آنها در VB6

سلام
اگر ممکنه این تاپیک رو یک نگاه بندازید. آیا میشه با توابع api اینکار رو کرد؟
ممنون
http://www.eca.ir/forum2/index.php?topic=40185.0

[armstk]

پاسخ : APIهای ویندوز و استفاده آنها در VB6

سلام
مهدی جان دستت درد نکنه :applause:

چطوری میشه و با کدوم تابع توی VB ساعت و تاریخ ویندوز رو برگردونیم؟(فرضا بریزیم توی چند تا متغییر)

بعضی از برنامه های VB هستن موقعی که برنامه رو میبندین با یک سری افکت برنامه بسته میشه , مثلا یک افکتش به این صورت بودش که با سرعت کم برنامه محو میشه , یا مثلا به صورت شطرنجی برنامه بسته میشه(مشابه افکت های پاور پوینت)
حالا این کار چطوری انجام پذیر هستش؟ تابع خاصی داره؟

بعد تابعی هستش که بتونه یک فایل رو از جایی به جایی دیگه کپی کنه؟

یه تابع دیگه هم نیاز دارم ! ایا تابعی وجود داره که کامپیوتر خاموش رو خود به خود در یک زمان معینی روشن کنه؟

[مهدی مهری]

پاسخ : APIهای ویندوز و استفاده آنها در VB6

سلام
اگر ممکنه این تاپیک رو یک نگاه بندازید. آیا میشه با توابع api اینکار رو کرد؟
ممنون
http://www.eca.ir/forum2/index.php?topic=40185.0

:-??

چطوری میشه و با کدوم تابع توی VB ساعت و تاریخ ویندوز رو برگردونیم؟(فرضا بریزیم توی چند تا متغییر)

بله ، مثالش رو میزارم

بعضی از برنامه های VB هستن موقعی که برنامه رو میبندین با یک سری افکت برنامه بسته میشه , مثلا یک افکتش به این صورت بودش که با سرعت کم برنامه محو میشه , یا مثلا به صورت شطرنجی برنامه بسته میشه(مشابه افکت های پاور پوینت)

راستش میشه صفحه رو آروم آروم محو کرد ولی شطرنجی رو من بلد نیستم...مثالش رو میزارم

بعد تابعی هستش که بتونه یک فایل رو از جایی به جایی دیگه کپی کنه؟

بله ، مثالش رو میزارم

یه تابع دیگه هم نیاز دارم ! ایا تابعی وجود داره که کامپیوتر خاموش رو خود به خود در یک زمان معینی روشن کنه؟

خاموش کردن رو که گزاشتم ، ولی روشن کردن رو نمیدونم فکر نکنم با کامپیوتر بشه! (یه میکرو بزار که سر ساعت دکمه ی پاور سیستم رو بزنه )

ممنون از جوابتون :nerd:

موفق باشید

[مهدی مهری]

بدست آوردن تاریخ و ساعت در VB6

هدف : این دو تابع زمان و تاریخ را بر میگردانند
مبدا : توابع VB6

Private Sub Form_Load()
Label1.Caption = Time
Label2.Caption = Date
End Sub