ahmed ksnv
02-17-2007, 06:46 PM
http://img77.imageshack.us/img77/6472/t199ko9.gif
مع Ahmed Ksnv فقط تستطيع عمل اسطوانة تجميعية "كود فيجوال بيسك " AIO
مع هذا السورس كود تستطيع عمل اسطوانة تجميعية "كود فيجوال بيسك "
'ahmed ksnv'
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ALIAS = &H10000
Const SND_ASYNC = &H1
Const SND_SYNC = &H0
Const SND_NOWAIT = &H2000
Const SND_LOOP = &H8
Sub SoundCheck()
Dim lRetVal As Long
lRetVal = sndPlaySound("MOVE.WAV", SND_SYNC)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label1_Click()
SoundCheck
Shell "i386\winnt32.exe", vbNormalFocus
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = (&HFF&)
Label1.ForeColor = (&HFFFFFF)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label2_Click()
SoundCheck
Shell "prog\nav2003\setup.exe", vbNormalFocus
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.BackColor = (&HFF&)
Label2.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label3_Click()
SoundCheck
Shell "prog\WRAR351.exe", vbNormalFocus
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.BackColor = (&HFF&)
Label3.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label4_Click()
SoundCheck
Shell "prog\tu2006\tu2006.exe", vbNormalFocus
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = (&HFF&)
Label4.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label5_Click()
SoundCheck
Shell "prog\royale.exe", vbNormalFocus
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.BackColor = (&HFF&)
Label5.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label6_Click()
SoundCheck
Shell "help.exe", vbMaximizedFocus
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.BackColor = (&HFF&)
Label6.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label7_Click()
SoundCheck
End
End Sub
Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BackColor = (&HFF&)
Label7.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
End Sub
Private Sub Timer1_Timer()
Label8.Caption = Format(Date, "long date")
Label9.Caption = Format(Time, "long time")
End Sub
http://img352.imageshack.us/img352/39/f092ub5.gif
النموذج في المرفقات
أو من هنا صوصي
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.9o9i.com/download.php?filename=778ff3d72a.rar)
أو 4shared
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.4shared.com/file/10789042/474f1230/win_cp_cd.html)
أو badongo
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.badongo.com/file/2257848)
http://img352.imageshack.us/img352/39/f092ub5.gif
برنامج مساعدة
winrar برنامج لفك الضغط "بدون تصطيب"
من هنا
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.9o9i.com/download.php?filename=dbb14c9451.rar)
أو
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.4shared.com/file/10386187/59a091c4/WinRAR.html)
أو
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.badongo.com/file/2205252)
http://img352.imageshack.us/img352/39/f092ub5.gif
مع طريقة التحميل
اولا صوصي
http://img250.imageshack.us/img250/1760/32817503aw9.png
http://img250.imageshack.us/img250/769/84941385hk7.png
http://img352.imageshack.us/img352/39/f092ub5.gif
ثانيًا 4shared
http://img251.imageshack.us/img251/5826/logmeinexahy7.png
http://img352.imageshack.us/img352/39/f092ub5.gif
ثالثًا badongo
http://img175.imageshack.us/img175/714/logmeinex1ci0.png
http://img169.imageshack.us/img169/1488/logmeinex2jr4.png
http://img352.imageshack.us/img352/39/f092ub5.gif
http://img352.imageshack.us/img352/39/f092ub5.gif
مع Ahmed Ksnv فقط تستطيع عمل اسطوانة تجميعية "كود فيجوال بيسك " AIO
مع هذا السورس كود تستطيع عمل اسطوانة تجميعية "كود فيجوال بيسك "
'ahmed ksnv'
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ALIAS = &H10000
Const SND_ASYNC = &H1
Const SND_SYNC = &H0
Const SND_NOWAIT = &H2000
Const SND_LOOP = &H8
Sub SoundCheck()
Dim lRetVal As Long
lRetVal = sndPlaySound("MOVE.WAV", SND_SYNC)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label1_Click()
SoundCheck
Shell "i386\winnt32.exe", vbNormalFocus
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = (&HFF&)
Label1.ForeColor = (&HFFFFFF)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label2_Click()
SoundCheck
Shell "prog\nav2003\setup.exe", vbNormalFocus
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.BackColor = (&HFF&)
Label2.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label3_Click()
SoundCheck
Shell "prog\WRAR351.exe", vbNormalFocus
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.BackColor = (&HFF&)
Label3.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label4_Click()
SoundCheck
Shell "prog\tu2006\tu2006.exe", vbNormalFocus
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = (&HFF&)
Label4.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label5_Click()
SoundCheck
Shell "prog\royale.exe", vbNormalFocus
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.BackColor = (&HFF&)
Label5.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label6_Click()
SoundCheck
Shell "help.exe", vbMaximizedFocus
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.BackColor = (&HFF&)
Label6.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)
End Sub
Private Sub Label7_Click()
SoundCheck
End
End Sub
Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BackColor = (&HFF&)
Label7.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
End Sub
Private Sub Timer1_Timer()
Label8.Caption = Format(Date, "long date")
Label9.Caption = Format(Time, "long time")
End Sub
http://img352.imageshack.us/img352/39/f092ub5.gif
النموذج في المرفقات
أو من هنا صوصي
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.9o9i.com/download.php?filename=778ff3d72a.rar)
أو 4shared
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.4shared.com/file/10789042/474f1230/win_cp_cd.html)
أو badongo
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.badongo.com/file/2257848)
http://img352.imageshack.us/img352/39/f092ub5.gif
برنامج مساعدة
winrar برنامج لفك الضغط "بدون تصطيب"
من هنا
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.9o9i.com/download.php?filename=dbb14c9451.rar)
أو
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.4shared.com/file/10386187/59a091c4/WinRAR.html)
أو
http://img246.imageshack.us/img246/3858/pro2nn2.gif (http://www.badongo.com/file/2205252)
http://img352.imageshack.us/img352/39/f092ub5.gif
مع طريقة التحميل
اولا صوصي
http://img250.imageshack.us/img250/1760/32817503aw9.png
http://img250.imageshack.us/img250/769/84941385hk7.png
http://img352.imageshack.us/img352/39/f092ub5.gif
ثانيًا 4shared
http://img251.imageshack.us/img251/5826/logmeinexahy7.png
http://img352.imageshack.us/img352/39/f092ub5.gif
ثالثًا badongo
http://img175.imageshack.us/img175/714/logmeinex1ci0.png
http://img169.imageshack.us/img169/1488/logmeinex2jr4.png
http://img352.imageshack.us/img352/39/f092ub5.gif
http://img352.imageshack.us/img352/39/f092ub5.gif