این هم یک برنامه جهت کپی کردن همراه با انیمیشن کپی البته میتونید کسترشش هم بدید
این برنامه پسورد ویندوز رو پیدا می کنه ولی تا 4 یا 6 حرف بیشتر رو پیدا نمی کنه
دوستان می تونن از این فایل استفاده کنن چیز جالبیه
Manage TreeView
نمی دونم تا حالا برنامه نوشتین که همه ی کارتون با TreeView باشه یا نه .
توی برنامه هایی که ابزار اصلی کارشون TreeView هست ،
از کارهای معمول بالا و پایین کردن نودها و عقب و جلو کردن نود هاست.
و یا حذف نود بدون حذف فرزندهاش و یا برعکس.
با این نمونه می تونین همه ی این کارارو بدون دردسر انجام بدین.
دانلود
بدست آوردن ورژن یک فایل ... مثلا ورژن یک فایل exe
Private Type VS_FIXEDFILEINFO
dwSignature As Long
dwStrucVersion As Long 'e.g. 0x00000042 = "0.42"
dwFileVersionMS As Long 'e.g. 0x00030075 = "3.75"
dwFileVersionLS As Long 'e.g. 0x00000031 = "0.31"
dwProductVersionMS As Long 'e.g. 0x00030010 = "3.10"
dwProductVersionLS As Long 'e.g. 0x00000031 = "0.31"
dwFileFlagsMask As Long 'e.g. 0x3F for version "0.42"
dwFileFlags As Long 'e.g. VFF_DEBUG Or VFF_PRERELEASE
dwFileOS As Long 'e.g. VOS_DOS_WINDOWS16
dwFileType As Long 'e.g. VFT_DRIVER
dwFileSubtype As Long 'e.g. VFT2_DRV_KEYBOARD
dwFileDateMS As Long 'e.g. 0
dwFileDateLS As Long 'e.g. 0
End Type
Private Declare Function GetFileVersionInfoSize Lib "version.dll" _
Alias "GetFileVersionInfoSizeA" _
(ByVal lptstrFilename As String, _
lpdwHandle As Long) As Long
Private Declare Function GetFileVersionInfo Lib "version.dll" _
Alias "GetFileVersionInfoA" _
(ByVal lptstrFilename As String, _
ByVal dwHandle As Long, _
ByVal dwLen As Long, _
lpData As Any) As Long
Private Declare Function VerQueryValue Lib "version.dll" _
Alias "VerQueryValueA" _
(pBlock As Any, _
ByVal lpSubBlock As String, _
lplpBuffer As Any, nVerSize As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(Destination As Any, _
Source As Any, _
ByVal Length As Long)
Public Function HiWord(dw As Long) As Long
If dw And &H80000000 Then
HiWord = (dw \ 65535) - 1
Else
HiWord = dw \ 65535
End If
End Function
Public Function LoWord(dw As Long) As Long
If dw And &H8000& Then
LoWord = &H8000& Or (dw And &H7FFF&)
Else
LoWord = dw And &HFFFF&
End If
End Function
Public Function GetFileVersion(sDriverFile As String) As String
Dim FI As VS_FIXEDFILEINFO
Dim sBuffer() As Byte
Dim nBufferSize As Long
Dim lpBuffer As Long
Dim nVerSize As Long
Dim nUnused As Long
Dim tmpVer As String
'GetFileVersionInfoSize determines whether the operating
'system can obtain version information about a specified
'file. If version information is available, it returns
'the size in bytes of that information. As with other
'file installation functions, GetFileVersionInfoSize
'works only with Win32 file images.
'
'A empty variable must be passed as the second
'parameter, which the call returns 0 in.
nBufferSize = GetFileVersionInfoSize(sDriverFile, nUnused)
If nBufferSize > 0 Then
'create a buffer to receive file-version
'(FI) information.
ReDim sBuffer(nBufferSize)
Call GetFileVersionInfo(sDriverFile, 0&, nBufferSize, sBuffer(0))
'VerQueryValue function returns selected version info
'from the specified version-information resource. Grab
'the file info and copy it into the VS_FIXEDFILEINFO structure.
Call VerQueryValue(sBuffer(0), "\", lpBuffer, nVerSize)
Call CopyMemory(FI, ByVal lpBuffer, Len(FI))
'extract the file version from the FI structure
tmpVer = Format$(HiWord(FI.dwFileVersionMS)) & "." & _
Format$(LoWord(FI.dwFileVersionMS), "00") & "."
If FI.dwFileVersionLS > 0 Then
tmpVer = tmpVer & Format$(HiWord(FI.dwFileVersionLS), "00") & "." & _
Format$(LoWord(FI.dwFileVersionLS), "00")
Else
tmpVer = tmpVer & Format$(FI.dwFileVersionLS, "0000")
End If
End If
GetFileVersion = tmpVer
End Function
اینم یه اکتیویکس واسه تغییر رزولوشن
نوشته شده توسط surpriser
]
دو نمونه دانلودر که از Thread استفاده کردن.
Multi Thread Downloader
Asynchronous Download
Option Explicit
'################################################# ###################################
'# Program name: Three Way Call Hook-Flash demo #
'# #
'# Version: v1.0 #
'# #
'# Date: July 20th 2004 #
'# #
'# Requirements: #
'# VOICE modem or TAPI compliant telephony device #
'# Phone line with 3-way calling #
'# #
'# Operating System: Windows 98, Windows ME, Windows NT 4, Windows 2000, Windows XP #
'# #
'# Note: Under Windows NT 4 voice modems may not supported because of the lack of a #
'# voice capable TAPI universal modem driver. #
'# #
'# Program Purpose: To demonstrate how to add telephony functions to your application#
'# using the TAPIEx ActiveX control. #
'# #
'################################################# ###################################
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim currCall As ITAPICall
Private Sub BnDial1_Click()
Dim deviceID As Long
Dim currLine As ITAPILine
deviceID = CbLines.ItemData(CbLines.ListIndex)
Set currLine = mTAPIEx.GetLineFromDeviceID(deviceID)
If currLine.Open() Then ' Open the device
Set currCall = currLine.MakeCall(Txt1StPhN.Text) 'make the first call
BnDial1.Enabled = False
End If
End Sub
Private Sub BnDial2_Click()
' make the second call here
currCall.GenerateDTMF "!" ' send the hook-flash command
Sleep (1500) 'wait 1.5 second for the dialtone
currCall.GenerateDTMF Txt2ndPhN.Text ' now Dial the second phone number
BnDial2.Enabled = False
BnThreeWay.Enabled = True
End Sub
Private Sub BnDropCall_Click()
currCall.Drop
BnDial1.Enabled = True
BnThreeWay.Enabled = False
End Sub
Private Sub BnThreeWay_Click()
currCall.GenerateDTMF "!" 'flash again
End Sub
Private Sub CbLines_Click()
'
BnDial1.Enabled = CbLines.ListIndex >= 0
End Sub
Private Sub Form_Load()
Dim line As ITAPILine
mTAPIEx.Initialize
For Each line In mTAPIEx.Lines 'enumerate the line devices
If (line.Caps.Line_Features And LINE_FEATURE_MAKECALL) > 0 Then
CbLines.AddItem line.DeviceName
CbLines.ItemData(CbLines.ListCount - 1) = line.deviceID
End If
Next
End Sub
Private Sub mTAPIEx_OnConnected(ByVal m_Call As TAPIEXLibCtl.ITAPICall, ByVal ConnectedMode As TAPIEXLibCtl.LINECONNECTEDMODE)
BnDial2.Enabled = True
BnDropCall.Enabled = True
End Sub
Private Sub mTAPIEx_OnDebug(ByVal msg As String)
TxtLog.Text = TxtLog.Text & msg & vbCrLf
End Sub
Private Sub mTAPIEx_OnDisConnected(ByVal m_Call As TAPIEXLibCtl.ITAPICall, ByVal DisconnectedMode As TAPIEXLibCtl.LINEDISCONNECTMODE)
BnDial2.Enabled = False
BnDropCall.Enabled = False
BnThreeWay.Enabled = False
End Sub
Private Sub Txt1StPhN_Click()
If Txt1StPhN.Tag <> 1 Then
Txt1StPhN.Text = ""
Txt1StPhN.Tag = 1
End If
End Sub
Private Sub Txt1StPhN_KeyDown(KeyCode As Integer, Shift As Integer)
Txt1StPhN_Click
End Sub
Private Sub Txt2ndPhN_Click()
If Txt2ndPhN.Tag <> 1 Then
Txt2ndPhN.Text = ""
Txt2ndPhN.Tag = 1
End If
End Sub
Private Sub Txt2ndPhN_KeyDown(KeyCode As Integer, Shift As Integer)
Txt2ndPhN_Click
End Sub
من این رو پیدا کردم
این هم یک برنامه جهت تغییر کپشن منوی start
Analog Transparent Clock
یه ساعت آنالوگ خیلی زیبا و بدون پس زمینه
Digital Clock
ساعت دیجیتالی
Email_Spider - Finder
این نمونه برای پیدا کردن آدرس های ایمیل از سایت هاست.
Popup Blocker
این نمونه هم از اسمش مشخصه چیکار می کنه.
Richtext Tools
این نمونه شما رو با یه سری از قابلیت های کنترل RichTexyBox آشنا می کنه.
دو نمونه فایروال برای دوستانی که به این مبحث علاقه دارن. FirewallAPP
FireWall-Monitor
Binary Transfer Control
Better Menu
یه نمونه ی خیلی ساده برای ساختن منوهای دلخواهتون
Magnification- Zoom
خیلی از دوستان دنبال نمونه برای زوم کردن تصویر بودن.
آخرین ویرایش به وسیله Mbt925 : چهارشنبه 22 اسفند 1386 در 12:54 عصر
4 تا از کاملترین نمونه ها برای ساختن هر مدل ToolTip ای که بخواین.
ExTooltip
Easy_Balloon
Tooltip 2 line
Best_ToolTip
MouseIn-Out
تشخیص ایونت ها MouseIn و MouseOut
پاسخ با نقل قول
