اصنع اسطوانة تجميعية بدون برامج

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: كانون الأول 28, 2008, 08:48:14 مسائاً


 تستطيع عمل اسطوانة تجميعية "كود فيجوال بيسك "  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





badongo









DALOU79

  • Jr. Member
  • **
    • مشاركة: 94
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: كانون الأول 28, 2008, 11:25:47 مسائاً
مشكور أخي بوركت


khelef

  • Hero Member
  • *****
    • مشاركة: 1023
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: كانون الأول 29, 2008, 05:04:15 صباحاً
meeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeerci


Ssoft

  • Hero Member
  • *****
    • مشاركة: 1410
    • مشاهدة الملف الشخصي
    • http://sabeur-academy.com
    • البريد الالكتروني
رد #3 في: كانون الأول 29, 2008, 08:17:20 صباحاً
مشكـــــــــــــــــــــــوووووووور


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #4 في: كانون الأول 29, 2008, 08:58:06 صباحاً
لا شكرا على واجب ..شكرا لمرورك