ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.





کاربران برچسب زده شده

صفحه 1 از 2 12 آخرین
نمایش نتایج: از 1 به 10 از 19
  1. #1
    2008/02/19
    2,296
    41

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

    سلام
    در این تاپیک به بعضی از API های ویندوز و کاربرد آنها میپردازیم
    (لطفا از بحث های متفرقه پرهیز کنید )
  2. #2
    2008/02/19
    2,296
    41

    بدست آوردن آدرس پوشه 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
    فايل هاي پيوست شده فايل هاي پيوست شده
  3. #3
    2008/02/19
    2,296
    41

    بدست آوردن مسیر پوشه 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
    فايل هاي پيوست شده فايل هاي پيوست شده
  4. #4
    2008/02/19
    2,296
    41

    بدست آوردن مسیر جاری سیستم در 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
    فايل هاي پيوست شده فايل هاي پيوست شده
  5. #5
    2008/02/19
    2,296
    41

    از کار انداختن موس و کیبورد در 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
    فايل هاي پيوست شده فايل هاي پيوست شده
  6. #6
    2008/02/19
    2,296
    41

    پخش فایل 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
    فايل هاي پيوست شده فايل هاي پيوست شده
  7. #7
    2008/02/19
    2,296
    41

    تولید صدای 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
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar Beep.rar (1.2 کیلو بایت, 1 نمايش)
    • نوع فایل: rar Beep.rar (1.2 کیلو بایت, 1 نمايش)
    • نوع فایل: rar Beep.rar (1.2 کیلو بایت, 1 نمايش)
    • نوع فایل: rar Beep.rar (1.2 کیلو بایت, 1 نمايش)
    • نوع فایل: rar Beep.rar (1.2 کیلو بایت, 1 نمايش)
  8. #8
    2008/02/19
    2,296
    41

    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
    فايل هاي پيوست شده فايل هاي پيوست شده
  9. #9
    2008/02/19
    2,296
    41

    پاک کردن فایل بدون نمایش پیغام اخطار در 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
    فايل هاي پيوست شده فايل هاي پيوست شده
  10. #10
    2008/02/19
    2,296
    41

    بستن برنامه های دلخواه ویندوز و کاربر در 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
    فايل هاي پيوست شده فايل هاي پيوست شده
صفحه 1 از 2 12 آخرین
نمایش نتایج: از 1 به 10 از 19

موضوعات مشابه

  1. چوک های صوتی موجود و استفاده از آنها
    توسط sinam90 در انجمن مدارات صوتي
    پاسخ: 0
    آخرين نوشته: 2015/10/11, 11:33
  2. پاسخ: 4
    آخرين نوشته: 2013/06/13, 00:39
  3. استفاده از دو ویندوز در یک سیستم linux &xp
    توسط milad_arm در انجمن كامپيوتر ، اينترنت و علوم مرتبط
    پاسخ: 16
    آخرين نوشته: 2010/10/31, 09:30
  4. تایمر کانتر و طرز استفاده از آنها در bascome
    توسط ardavanzzz در انجمن میکروکنترلرهای AVR
    پاسخ: 2
    آخرين نوشته: 2008/09/11, 20:21
  5. طريقه استفاده از سنسورهاي مادون قرمز و ارتباط آنها با ميکرو
    توسط arem در انجمن سایر مطالب مرتبط با ميکرو ها و پروسسورها
    پاسخ: 4
    آخرين نوشته: 2006/10/26, 07:17

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •