01-05-13, 05:28 AM
اخواني الكرام اكواد كانت محفوظة عندي ولم إستفيد منها لأنني إعمل "VB.net" فحببت ان اضعها بين يديكم للأستفادة منها
نبدأ بأذن الله
-----------
معرفة اليوم الحالي
معرفة الشهر الحالي
عرض الوقت والتاريخ
كود لاخفاء موشر الفارة
منع النسخ أو اللصق
نسخ ملف
فتح لوحة التحكم
لتشغيل شاشة التوقف
تأجيل تنفيذ الكود لفترة معينة
تحرك صورة مع الماوس
كود لالتقاط صورة للشاشة في الحافظة
جرب كرر الضغط على Command
سيقوم بتكرار اليوم الحالي على طول الفورم
او
او
"في ليبل "
اذا إعجبكم ادعو لي بصلاح الحال
بالتوفيق للجميع
نبدأ بأذن الله
-----------
معرفة اليوم الحالي
كود :
Private Sub Command1_Click()
Dim Dday As Integer
Dday = Weekday(Date)
If Dday = 1 Then Print "الأحد"
If Dday = 2 Then Print "الاثنين"
If Dday = 3 Then Print "الثلاثاء"
If Dday = 4 Then Print "الأربعاء"
If Dday = 5 Then Print "الخميس"
If Dday = 6 Then Print "الجمعة"
If Dday = 7 Then Print "السبت"
End Sub
معرفة الشهر الحالي
كود :
Private Sub Command1_Click()
Mmonth = Mid(Date, 4, 2)
Print MonthName(Mmonth)
End Sub
عرض الوقت والتاريخ
كود :
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1 = Time & Date
End Sub
كود لاخفاء موشر الفارة
كود :
Private Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long
اخفاء المؤشر
x = ShowCursor(False)
إظهار المؤشر
x = ShowCursor(True)
منع النسخ أو اللصق
كود :
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
R = Clipboard.GetText
If Len(R) = 0 Then
Clipboard.Clear
End If
End Sub
نسخ ملف
كود :
Private Sub Command1_Click()
FileCopy "c:\Autoexec.bat", "d:\Autoexec.bat"
End Sub
فتح لوحة التحكم
كود :
Private Sub Command1_Click()
Shell "rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus
End Sub
لتشغيل شاشة التوقف
كود :
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&
Private Sub Command1_Click()
Dim Res As Long
Res = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub
تأجيل تنفيذ الكود لفترة معينة
كود :
Public Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub
Private Sub Command1_Click()
Delay 5
MsgBox "Test"
End Sub
تحرك صورة مع الماوس
كود :
في الفورم حدث form mousemove
picture1.move x - 200, y - 200
كود لالتقاط صورة للشاشة في الحافظة
كود :
Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0, 0, 0
DoEvents
End Sub[/
كود إظهار اليوم الحالي
[CODE]Private Sub Command1_Click()
Dim Dday As Integer
Dday = Weekday(Date)
If Dday = 1 Then Print "الأحد"
If Dday = 2 Then Print "الاثنين"
If Dday = 3 Then Print "الثلاثاء"
If Dday = 4 Then Print "الأربعاء"
If Dday = 5 Then Print "الخميس"
If Dday = 6 Then Print "الجمعة"
If Dday = 7 Then Print "السبت"
End Sub
جرب كرر الضغط على Command
سيقوم بتكرار اليوم الحالي على طول الفورم
او
كود :
Text1 = Format(Date, "dddd")
كود :
label1= Format(Date, "dddd")
اذا إعجبكم ادعو لي بصلاح الحال
بالتوفيق للجميع
إشهـــــــــــــــــــد إن لا إله إلا اللــــــــــــه إشهـــــــــــــــــد إن محمد رسول اللــــــــــــــه
الرجال أربعة
رجل يدري ويدري أنه يدري فذلك عالم فاتبعوه.
ورجل يدري ولا يدري أنه يدري فذلك نائم فأيقظوه.
ورجل لا يدري ويدري أنه لا يدري فذلك مسترشد فأرشدوه.
ورجل لا يدري ولا يدري أنه لا يدري فذلك جاهل فارفضوه.
الرجال أربعة
رجل يدري ويدري أنه يدري فذلك عالم فاتبعوه.
ورجل يدري ولا يدري أنه يدري فذلك نائم فأيقظوه.
ورجل لا يدري ويدري أنه لا يدري فذلك مسترشد فأرشدوه.
ورجل لا يدري ولا يدري أنه لا يدري فذلك جاهل فارفضوه.