.:: بهترين سورس كدهاي Visual Basic را اينجا دانلود كنيد ::.

[RobertDeniro]

دوستان اين تاپيك براي قرار دادن سورس كدها يا حتي خود برنامه ها مي باشد
لطفاً دوستان هم بندرو در ادامه اين تاپيك همراهي نمايند

مخفي كردن درايو ها فقط با زدن يك كليك و نمايش آنها هم به اين صورت :





[External Link Removed for Guests]

[RobertDeniro]

برنامه انجام عمليات Reboot و Shutdown و LogOff




[External Link Removed for Guests]

[RobertDeniro]

يك ساعت عقربه اي يا آنالوگ زيبا



[External Link Removed for Guests]

[RobertDeniro]

[External Link Removed for Guests]

[Mahdi1944]

RobertDeniro عزيز
به رسم قدرداني تاپيک به موضوع مهم تبديل شد

[RobertDeniro]

نمايش درصد كاركرد CPU



[External Link Removed for Guests]

[RobertDeniro]

نمايش آمار فيزيكي و مجازي حافظه



[External Link Removed for Guests]

[RobertDeniro]

برنامه گرفتن عكس از صفحه نمايش

فقط سورس كد رو قرار مي دم


[External Link Removed for Guests]

Option Explicit

Private Declare Function GetDC Lib "user32" ( _
ByVal hwnd As Long) As Long

Private Declare Function BitBlt Lib "gdi32" ( _
ByVal hDestDC 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 dwRop 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 Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub
Private Sub Form_Load()
Me.Left = 400
Me.Top = 400
Me.Width = Screen.Width - 800
Me.Height = Screen.Height - 1000
Call BitBlt(Me.hdc, 0, 0, Screen.Width, Screen.Height, GetDC(0&), 0, 0, vbSrcCopy)
Picture1 = Image
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("ÂíÇ ãíÎæÇåíÏ ÊÕæíÑ ÑÝÊå ÔÏå ÑÇ ÐÎíÑå äãÇííÏ¿", vbYesNo, "Save Picture") = vbYes Then
SavePicture Picture1.Picture, "C:\01.jpg"
MsgBox "Saved Picture in C:\01.jpg", vbOKOnly, "Saved Picture"
End If
End Sub


Private Sub Picture1_Click()

End Sub


[External Link Removed for Guests]

[RobertDeniro]

يك موتور سرچ قوي براي Registry



[External Link Removed for Guests]

[RobertDeniro]

بازي كه همگي باهاش آشنايي داريد

مار ( Snake)




[External Link Removed for Guests]

[RobertDeniro]

اينم يك نوع ساده تري از بازي Snake



[External Link Removed for Guests]

[MAMASAN]

خيلي عاليييييييييي بود، ممنون

Mahdi1944: ضمن عرض خوش‌امد به شما دوشت گرامي، لطفا قوانين رو مطالعه و اجرا کنيد، ارسال پست به فينگليش مجاز نيست
به فارسي بازنويسي شد ....