چند سورس کد مفید

[sayberiya]

استخراج کردن مشخصات سیستم
لینک دانلود

[sayberiya]

عکس گرفتن از تصویر زمینه دسکتاپ
اینم لینک دانلودش

[sayberiya]

فرستادن ایمیل به همراه فایل ضمیمه
این چیز باحالیه
دانلود

[sayberiya]

برنامه ای برای مدیریت رجیستری
باحاله
دانلود

[sayberiya]

طراحی و ساخت منو های شناور
دانلود

[sayberiya]

عوض کردن عکس دکمه استارت

تا حالا زده بسرتون خودتون يه دكمه برا منوي استارت درست كنيد.مثلآ هر موقع برنامه ي شما

اجرا مي شه دكمه استارت تغيير شكل بده !!نميشه؟بشين اينجا جايي نرو تابگم چجوري ميشه

يه كادر عكس به فرم اضافه كنيد ويه عكس توش بندازيد.بعد يه تايمر به فرم اضافه كنيد

خاصيتIntervalتايمر رو روي1 بزاريد بعد توابع زير رو در خط اول كد فرم بنويسيد

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd 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 GetDesktopWindow Lib "user32" () As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Dim dsktp As Long, St As Long

در ويداد فرم لواد كد زير روبنويسيد

Dim Wind As Long 'Temporary hwnd holder'--Finding the SystemTray Window (hwnd)
Wind = FindWindow("Shell_TrayWnd", "") '--Finding the Start Button Window (hwnd)
Wind = FindWindowEx(Wind, 0, "Button", vbNullString)
St = GetDC(Wind) 'Getting Start Button DC
dsktp = GetDC(Picture1.hwnd)
Timer1.Enabled = True

بقيه اش رو وللش !!شوخي كردم بابا كجا مي ري!! در رويداد تايمر كنترل تايمر كد زير رو بنويسيد

StretchBlt St, 0, 0, 100, 60, dsktp, 40, 1, 1, 40, SRCCOPY

[lord_viper]

جناب Sayberia بهتره سورس کدها رو در یک تاپیک و زیر هم قرار بدین تا دسترسی بهشون راحتر باشه

[Darg]

جناب Sayberia بهتره سورس کدها رو در یک تاپیک و زیر هم قرار بدین تا دسترسی بهشون راحتر باشه

همین کار رو کردم:

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

کاش این ها رو به شکل برنامه توی خود سایت میزاشتید
اینجا بعد از یک مدتی چون کد هست مطلبتون توی فروم بهش توجهی نمی شه و محو میشه...

[lord_viper]

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

[shagerde-shoma]

فرستادن ایمیل به همراه فایل ضمیمه
این چیز باحالیه
دانلود

من اينو قبلا" از سورس پلانت گرفتم ولي نمي دونم چرا ارسال نمي كنه خواهشن يكبار تستش كنيد
و هنگام كليك روي برنامه اجرا نميشه