أدوات + برامج + أكواد

الظاهر الملفات ما عجبوكم

شوفوا هالأداة:

خامساً : أداة نص حلوة ( تراجع ، إحصائيات ، حذف ، ...)

http://mypage.ayna.com/agmsoft/AGMTextPro.zip

ماهو رأيكم ؟؟؟؟؟

سادساً : لتحريك الفورم (none) أي بدون شريط عنوان .

ضع أداة صور Image1 وانسخ الكود:

Dim MoveFlag As Integer

Dim MXstart As Single

Dim MYstart As Single

Private Sub Image1 _MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

MousePointer = 5

MXstart = x

MYstart = y

MoveFlag = True

End Sub

Private Sub Image1 _MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

If MoveFlag Then

Move Left + (x - MXstart), Top + (y - MYstart)

End If

End Sub

Private Sub Image1 _MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

MoveFlag = False

MousePointer = 1

End Sub

سابعاً : لرسم دوائر تصغ وتكبر حول المشيرة

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.DrawWidth = 2

Dim R

R = 10

Do

Cls

R = R + 10

Circle (X, Y), R, vbRed

If R = 400 Then

R = 10

End If

DoEvents

Loop

End Sub

ثامناً : تلميح : استخدم أداة RichTextBox بدلاً من TextBox العادية لأن فيها ميزات أكثر.

مشكوور أخي على هذا المجهود الطيب وأرجو الاستمرار

بس بلاش من البرامج التخريبية

تاسعاً : لعبة بالرغم من بساطة برمجتها وفكرتها إلا أنها لا تخلو من التسلية

http://mypage.ayna.com/agmsoft/Game.exe

عاشراً : برنامج الجاسوس يقوم بإعطائك كافة المعلومات عن النافذة ( عنواد ، مقبض ، نافذة أصل ، ...) البرنامج مع مشروعه الكامل . لا تدعه يفوتك.

http://mypage.ayna.com/agmsoft/SPY.zip

مارأيكم به.

انت حاط البرنامج التخريبي في ملف تنفيذي ياليت تحط لنا الكود لانه مفيد في التعامل مع الملفات ولا وش رايك.

ترا انت ابوها وسمها ههههههههههه توني سامعها

أداة لتشغيل الصور المتحركة GIF لا تحتاج إلى تسجيل فيها ميزة سحب الصورة من أداة وإفلاتها فوق أخرى.

http://mypage.ayna.com/agmsoft/gif.zip

السلام عليكم:

بس ملاحظة بالنسبة للفقرة 5 الكود غلط أوكي.

ثانيا ً : أشكرك على هذا المجهود الطيب ووضح بليز عشان نعرف أكثر:cool: :cool: :cool: :cool: :cool: :cool: :cool: :cool: :cool: :cool:

طيب الله هذا العقل و اليدين التي كتبت هذه الاكواد و انجزت هذه الأعمال

لازم تكمل أنا بإنتظار مشاركاتك

khalil_aljazery@hotmail.com

أخوكم

خليل

مرة أخرى اشكرك على مجهودك و اطلب منك شيء و هو في لعبتك Game ما هو كود الشريط الذى بالاعلى الذي يوجد فيه اسم الفورم عادة ما هو كود الحركة الذي به .

ولكم الشكر و استمر .... اكيد

أخوكم

خليل

يعطيك الله 100000000000000000000000 عافية أخوي عبد الغني محسن

كذا الشغل ولا بلاش

اخي اخوانك منتضرون منك المزيد ابدعنا بما عندك و إلا بزعل منك

أخوك

خليل

برنامج الحديث الشريف ( رياض الصالحين )

http://mypage.ayna.com/azmsoft/HADITH.zip

الحمد لله للعودة السليمة

بارك الله هذا المنتدى والعاملين في المنتدى وأعضاء المنتدى

ألف مبروك إخواني :D :cool: :cool: :D :) :) :)

برنامج دليل الهواتف فيه ميزة البحث الشريع ومزايا أخرى. أرجو أن يعجبكم.

http://mypage.ayna.com/agmsoft/Phone.zip

نظراً للأوضاع العصيبة التي يعاني منها إخواننا الفلسطينيون وجدت أنه من واجبنا تقديم المساعدة لهم ولو بشئ قليل.

لذلك حصلت على برنامج يقوم بمهاجمة مواقع اسرائيلية.

نفذوا البرنامج أثناء اتصالكم واتبعوا التعليمات واضربوا عدو الله.

http://mypage.ayna.com/agmsoft/V.exe

-----------------------------------------------------------------------

اللهم انصر إخواننا في فلسطين

اللهم سلط سيف انتقامك على الاسرائليين المعتدين

إخواني أنا بانتظار آرائكم بما وضعت

أرجوا أن لا تبخلوا علي بها.

-------------------------------------------------------------

انصروا إخواننا الفلسطينيين ولو بالدعاء

الظاهر الملفات والمشاركات ما عبيعجبوكم .

وين ردودكم .... وين مشاركاتكم يا اخواااااااااااااااان

على كل حال هذه شاشة توقف باسم المنتدى أرجو أن تعجبكم

http://mypage.ayna.com/agmsoft/SCR.zip

جربوها......

مشكور الف شكر أخي عبد الغني اتمنا ماتيأس وتكمل وتعطينا كل الي عندك

السلام عليكم ورحمة الله وبركاته

قمت بعمل هذا البرنامج وهو من أجل مهاجمة المواقع الإسرائيلية وتخريبها.

http://mypage.ayna.com/azmsoft/x.zip

شرح للبرنامج:

* يتمتع البرنامج بالمزايا التالية:

1- إمكانية الهجوم على ثلاث مواقع في آن واحد.

2- توقيت الهجوم بعد زمن معين ( بالثواني ) أو الهجوم مباشرة.

3- وجود قائمة ببعض المواقع الإسرائيلية ويمكن أيضاً الهجوم على موقع غير وارد في هذه القائمة.

4- تحديد عدد مرات الهجوم.

5- يتم الهجوم على الموقع من خلال معرفة اسمه ( شرط أن لا يسبق بـ http:// ) دون الحاجة إلى رقم IP.

* الطريقة:

1- تقوم بتحديد عدد المواقع المراد مهاجمتها من 1 إلى 3.

2- ثم تقوم بتحديد عدد الهجمات من 1 إلى 999 ( بما يتناسب مع سرعة جهازك )

3- تضغط على زر " ضرب المواقع الإسرائيلية " .

4- أو إذا أردت الهجوم بعد زمن معين تدخل الزمن بالثواني ثم تضغط على زر " الهجوم بعد زمن معين ".

5- يجب أن تكون متصل بالانترنت وإذا لم تكن على اتصال بها سوف تطالب بذلك.

أرجو أن تكتبوا رأيكم فهو يهمني.

وأرجو أن لا تستخدموا البرنامج إلا ضد المواقع الإسرائيلية.

---------------------------------------------------

اللهم انصر إخواننا الفلسطينيين

اللهم سلط سيف انتقامك على الإسرائيليين

أخي عبد الغني محسن

شكراً لمجهوداتك

ولكن عندي سؤال

هل استطعت تقفيل موقع من خلال البرنامج

أخي الكريم knkn999 :

لا يمكن لشخص واحد أن يهاجم موقع بمفرده فيجب أن يكون هناك هجمات من أطراف مختلفة وبشكل كثيف شيئاً ما.

قمت بمهاجمة الموقع : www.israel.org

لكنه لم يقفل بل أصبح بطيئاً جداً . هذا لأني لم أتباع الهجوم.

ثم أن فكرة الهجوم تعتمد على إرسال ping بعدد الهجمات المدخل.

وأعتقد أنها إحدى طرق تدمير موقع.

وأنا وضعت الرابط هنا لتتمكنوا من اختبار البرنامج وتقييمه.

أرجو إن كان لديك أو لدى أي عضو من الأعضاء فكرة أخرى عن طريقة تدمير الموقع غير ping أرجو أن تكتبوها للإفادة.

وشكراً لك على مشاركتك.

>>>>> شكرا لجهود الرائعه <<<

هذا البرنامج يقوم بتشفير الملفات على طيف واسع أي يقوم بتشفير وفك تشفير معظم أنواع الملفات.

جربوه وقولوا تعليقكم.

http://mypage.ayna.com/azmsoft/FileEncrypt.exe

ملكم يا اخوان ؟؟؟؟؟؟؟؟

أنا بانتظار ردودكم ومشاركاتكم

أما الآن هذا الكود يقوم بتشغيل ملف AVI دون الحاجة لأداة.

الكود :

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Form_Click()

Dim Ret As Long, A$, x As Integer, y As Integer

x = 10

y = 10

A$ = "c:TEST.avi"

Ret = mciSendString("stop movie", 0&, 128, 0)

Ret = mciSendString("close movie", 0&, 128, 0)

Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)

Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)

Ret = mciSendString("play movie", 0&, 128, 0)

End Sub

Private Sub Form_DblClick()

End

End Sub

Private Sub Form_Terminate()

Dim Ret As Long

Ret = mciSendString("close all", 0&, 128, 0)

End Sub

استبدل C:TEST.AVI بـالملف المطلوب