~ اكواد [ للفيجوال بيسـك 6 ] ~

الموضوع في 'قسم فيجوال بيسك - Visual Basic 6' بواسطة MR:HACK, بتاريخ ‏12 ابريل 2013.

  1. MR:HACK

    MR:HACK New Member

    x

    [​IMG]







    ~ حبيت انزل لكم بـعض الاكواد [ للفيجوال بيسـك 6 ] ~


    ان شاء الله تعجبكم




    [​IMG]



    كـود .. الانتقال الى الموقع


    كود PHP:
    Dim x As Object
    Set x 
    CreateObject("internetexplorer.application")
    x.navigate "www.google.com"
    x.Visible True 
    [​IMG]



    كود افراغ حقول التكسـت



    كود PHP:
    Dim i As Integer
    For 0 To Me.Controls.Count 1
    If TypeOf Me.Controls(iIs TextBox Then
    Me
    .Controls(i).Text ""
    End If
    Next
      
    [​IMG]



    كود لنسخ من التكسـت



    كود PHP:
    With Text1
    .SelStart 0
    .SelLength Len(.Text)
    Clipboard.Clear
    .SetFocus
    Clipboard
    .SetText .Text
    End With

    MsgBox 
    "تم النـســـــخ", , "عملية النســـخ"
      
    ( لاكن لا تنسى ان تغير الحقل المراد النسخ منه Text1 )




    [​IMG]




    كـود فتح الـ ( CD-ROM )




    في الجينرال



    كود PHP:
    Private Declare Function mcisendstring Lib "winmm.dll" Alias "mcisendstringa" _
    ByVal lpstrcommand 
    As StringByVal lpstrreturnstring As String_
    ByVal ureturnlength 
    As LongByVal hwndcallback As Long) As Long

    Public Sub opencddrivedoor(ByVal state As Boolean)
    If 
    state True Then
    Call mcisendstring
    ("set cdaudio door open"0&, 0&, 0&)
    Else
    Call mcisendstring("set cdaudio door closed"0&, 0&, 0&)
    End If
    End Sub  
    في الزر



    كود PHP:
    Private Sub command1_click()
    Private 
    Sub emptyrecyclebin()
    End Sub  
    [​IMG]




    كود يقوم بحماية برنامجك حيث يعمل عدد من المرات (تحددها بنفسك)



    كود PHP:
    Private Sub Form_Load()
    retvalue GetSetting("A""0""Runcount")
    GD$ = Val(retvalue) + 1
    SaveSetting 
    "A""0""RunCount"GD$
    If 
    GD$ > 3 Then  ' الرقم (3) يحدد عدد مرات التشغيل
    MsgBox "عليك بشراء النسخة الاصلية .. انتهت مدة نشغيل البرنامج"
    Unload FRM '
    End If
    End Sub  

    If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل

    هنا رقم 3 نقوم بتغييره الى عدد المرات التي يقوم برنامجك بتشغيل فقط [ اي بعد ثلاث مرات من تشغيل برنامج بعدها تضهر رسال للمستخدم [ نتهت مدة تشغيل البرنامج .. عليك بشراء النسخة الاصلية ]





    [​IMG]





    كود
    إخفاء شريط المهام



    كود PHP:
    Private Const SWP_HIDEWINDOW = &H80
    Private Const SWP_SHOWWINDOW = &H40
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As String) As Long
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As LongByVal hWndInsertAfter As LongByVal X As LongByVal y As LongByVal cx As LongByVal cy As LongByVal wFlags As Long) As Long
      





    [​IMG]




    كود
    تحريك Label بشكل طولي





    كود PHP:
    Private Sub Form_Load()
    Timer1.Interval 100
    End Sub
    Private Sub Timer1_Timer()
    Label1.Move 2000Label1.Top 100
    If Label1.Top 0 Then
    Label1
    .Top Form1.Height
    End 
    If
    End Sub  





    [​IMG]





    كود لفتح الفورم بكريقة جميلة جدا



    كود PHP:
    Sub Explode(form1 As Form)
    form1.Width 0
    form1
    .Height 0
    form1
    .Show
    For 0 To 5000 Step 1
    form1
    .Width X
    form1
    .Height X
    With form1
    .Left = (Screen.Width - .Width) / 2
    .Top = (Screen.Height - .Height) / 2
    End With
    Next

    End Sub
    Private Sub Form_Load()
    Explode Me
    End Sub  





    [​IMG]




    كود لاغلاق الفورم بطريقة جميلة جدا




    كود PHP:
    Sub SlideWindow(frmSlide As FormiSpeed As Integer)
    While 
    frmSlide.Left frmSlide.Width Screen.Width
    DoEvents
    frmSlide
    .Left frmSlide.Left iSpeed
    Wend
    While frmSlide.Top frmSlide.Height Screen.Height
    DoEvents
    frmSlide
    .Top frmSlide.Top iSpeed
    Wend
    Unload frmSlide
    End Sub
    Private Sub Command1_Click()
    Call SlideWindow(form1100)
    End Sub  
    [​IMG]





    هذا ما لدي اليوم

    ( اتمنى ان تكون الاكواد مفيدة لكم )




    [IMG]http://img04.arabsh.com/uploads/image/2012/08/09/0e3f424964fa0c.gif[/IMG]



    [SIZE=4][COLOR=DarkRed][SIZE=3][COLOR=Olive]هذا [/COLOR][/SIZE][SIZE=4][SIZE=3][COLOR=Olive]الموضوع البسيط اهداء الى كل[/COLOR][/SIZE]

    [SIZE=4][SIZE=3][COLOR=Red]اداري[/COLOR][/SIZE] [SIZE=5],[/SIZE]

    [SIZE=4][SIZE=3][COLOR=Green]مشرف[/COLOR][/SIZE] [SIZE=4][SIZE=5], [/SIZE]

    [SIZE=4][COLOR=Black][SIZE=3]عضو[/SIZE] [/COLOR][SIZE=5],[/SIZE][/SIZE]
    [/SIZE][/SIZE][/SIZE][/SIZE][/COLOR][/SIZE]

    زائر ,


    و اهداء خاص لصديقي ( Mahmodemos )






    و في النهاية ,,


    [B][FONT=Tahoma][B][B]إن آصبت فآ هو من فضل ربي علي ، وآن آخطآت فآ هو من شيطآنيَ


    آخوكم : مسترَ هـاك ~ Mr[SIZE=3]:[/SIZE]Hack


    [/B][/B][/FONT][/B]
    في امان الله ,, :SnipeR (29):

     
    آخر تعديل بواسطة المشرف: ‏12 ابريل 2013
    2 شخص معجب بهذا.
  2. admin

    admin Administrator

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    يعطيك العافية
    موضوع مفيد بارك الله فيك
    يتبت حتى يفيد اكبر عدد ممكن
    شكرا لك + تم التقيم
     
    1 person likes this.
  3. MR:HACK

    MR:HACK New Member

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    بالنسبة للكود لفتح الـ ( CD-ROM )



    في الجينرال



    كود PHP:
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As StringByVal lpstrReturnString As StringByVal uReturnLength As LongByVal hwndCallback As Long) As Long

    Public Sub OpenCDDriveDoor(ByVal State As Boolean)
    If 
    State True Then
    Call mciSendString
    ("Set CDAudio Door Open"0&, 0&, 0&)
    Else
    Call mciSendString("Set CDAudio Door Closed"0&, 0&, 0&)
    End If
    End Sub  

    في الزر المخصص للفتح





    كود PHP:
    Private Sub Command1_Click()
    OpenCDDriveDoor (True)
    End Sub  

    في الزر المخصص للاغلاق



    كود PHP:
    Private Sub Command2_Click()
    OpenCDDriveDoor (False)
    End Sub  






    اما بالنسبة للكود لاخفاء شريط المهام




    في الجينرال





    كود PHP:
    Private Const SWP_HIDEWINDOW = &H80
    Private Const SWP_SHOWWINDOW = &H40

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As String) As Long

    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As LongByVal hWndInsertAfter As LongByVal X As LongByVal y As LongByVal cx As LongByVal cy As LongByVal wFlags As Long) As Long
      



    في الزر المخصص للاخفاء





    كود PHP:
    Private Sub Command1_Click()
    Dim Task As Long
    Task 
    FindWindow("Shell_traywnd""")
    Call SetWindowPos(Task00000SWP_HIDEWINDOW)
    End Sub  



    في الزر المخصص للاظهار





    كود PHP:
    Private Sub Command2_Click()
    Dim Task As Long
    Task 
    FindWindow("Shell_traywnd""")
    Call SetWindowPos(Task00000SWP_SHOWWINDOW)
    End Sub
      










    ارجو من الـ ( Admin )


    التعديل



     
  4. admin

    admin Administrator

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    تم الاضاف
    بارك الله فيك
    :)
     
  5. MisterMDE999

    MisterMDE999 [سبحآن آلله وبحمَده]

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    بارك الله فيك ي بطل..×
    وجاري تقيمك, وتحميل الاكواد...*
    , ومبروك علي تثبيت.
     
  6. رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    شكلرا لك على لأكواد ستفيد محبين لفجوال بيسك 6
    شكرا لك
     
  7. mahmodemos

    mahmodemos <font color="#FF0000"><b>V.I.B</b></font>

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    شكرا على الاهداء :rolleyes:

    مبارك التثبيت

    <www.sqorebda3.com>

    شكرا لك لإضافة تقييم لمستوى هذا العضو، سيكون حظك موفقا كي تتلقى نفس التقييم من هذا العضو أو غيره.

    موضوعك قمـــة
     
  8. MR:HACK

    MR:HACK New Member

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    نورتوا الموضوع


    شكرا لكم


    :rolleyes:
     
  9. CHESTER 619 TOP

    CHESTER 619 TOP .:: V.I.P ::.

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    الله يعطيك العافية يابطل مجهود رائع تشكر عليه
     
  10. رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    كلك ذووق يابطل استمر :SnipeR (37):وشكراااا على الموضوع....
     
  11. اشرف ف

    اشرف ف New Member

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    جزاكم الله كل خير
    موضوع قيم
    وشرح طيب
     
  12. Estudiante de hack

    Estudiante de hack تْلـمَێـےڎ الـہَگر

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    يعطيك العافية
    موضوع قيم و مفيد

    بارك الله فيك

     
  13. [ صـقـور الإبـدآع ]

    [ صـقـور الإبـدآع ] .:: Administration ::.

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    بارك الله فيك
    أكواد مفيدة لكل مبرمجين الفيجول بيسك
    شكرا لك
    أستمر يا بطل
     
  14. رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    قمة في الروعة شكرا جزيلاآ
     
  15. Dr..ViRuS

    Dr..ViRuS Very Excellent

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    ماشاءلله عليكـ ابداع يفيد الاخوان ان شاءلله تحياتي

    :)
     
  16. ANBR

    ANBR New Member

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    نسلم والله ع هالاكواد لاخلا ولا عدم

    واتمنى لك التوفيق :rolleyes:
     
  17. جوني العراقي

    جوني العراقي Very Excellent

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    استمر على هذة الابداع يا وحش
     
  18. ṂṜ ḠḤṒṨṪ

    ṂṜ ḠḤṒṨṪ أبو ريان

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    بارك الله فيك مبدع
     
  19. MR.HG

    MR.HG New Member

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    تسلم اكواد جميلة مثل اللى منزلها :)
     
  20. ddt

    ddt V.I.P

    رد: ~ اكواد [ للفيجوال بيسـك 6 ] ~

    اكواد رائعة
    مشكور على الاكواد

    جاري التقييم
     

مشاركة هذه الصفحة