منتدى احباب العراق

العاب برامج ثيمات برامج الهكر
 
الرئيسيةتوبيكاتاليوميةس .و .جبحـثقائمة الاعضاءالمجموعاتالتسجيلدخول


شاطر | 
 

 صنع برنامج افلود كسر حماية الشات

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
غيث دليمي
Admin


عدد المساهمات : 290
تاريخ التسجيل : 16/03/2012

مُساهمةموضوع: صنع برنامج افلود كسر حماية الشات    الثلاثاء ديسمبر 04, 2012 4:27 pm

صبـآحكم / مسـآئكم خيرٍ ،،
شخبآركم يآ آحلى آعضآءُ وآحلى زوآرٍ

آليـوم حبيت آقـدم لـكم { شـرح } صنـع برنآمج فلـود بخصآئص جمـيله بأسهل الطرقً بالصـوٍرِ { طبعـآ بالفيجوٍآلُ }
نبـدأ على بـركة الله


آوٍل شـي نفتـحُ standard ExE

وبعـدها نضـعُ علـيهآ متطلبـآت الفـلودُ !!

آوٍلآإ تضـع TXTBoX

صـوٍره توٍضيـحيهٌ






ثـم تضـع تـحتـهُ Command1
وٍ آيضـآ Command2

صـوٍره توَضـيحيهٌ




وبعـدهـآ نضـع آدآت التــآيمرٍ ’‘





وآلأن جـآءُ وقـت الأكوآددُ

نضـع هذا الكـوٍد فـي الفـوٍرمَ

كود:

Private Sub Form_Load()
Timer1.Enabled = False
End Sub




صـوٍره لتوَضيحَ








وبعـدهآ نضـع هذا الكـوٍد فـي التـآيمرٍ



كود:
Private Sub Timer1_Timer()
كود:
SendKeys Text1.Text & "{enter}"
End Sub




وبعـدها نضغـط على Command2 ونضـع فيه هذا الكوٍدَ






كود:
Private Sub Command2_Click()
كود:
Timer1.Enabled = True
On Error Resume Next
Timer1.Interval = text2.Text
End Sub



مــلآحظـهُ : هذاَ الزٍر رآح يكوٍن زرٍ إبـدأ لبـدأ الفلـوٍد


وٍنضع هذا الكوٍد في Command1 هذا الكـوٍدَ



كود:
Private Sub Command1_Click()
كود:
Timer1.Enabled = False
End Sub



ملآحـظهُ : هذآ الزرِ يستخـدمُ فـي إيقآف الفلـوٍد


إلى هنــآ كـــل شـيءُ تمــآآمُ







فـرضآ لـوٍ حبيت آنك تضيف سـرعه للـفلوٍد يمـكن اضافـة LABEL وجنـبه text وإنتهى الموضوعُ



فـرضــآ لـوٍ حبـيت اتضيـفً زرٍ للحـقوقَ ..



تضـع COMMAND3 جـديد وتضعُ فـيه هذا الكـوٍد معُ تغييرٍ مآ يلزٍمً فـأنآ فـرضآ وآضع الديفُ بـوينت





كود:
Private Sub Command3_Click()
كود:
MsgBox " All Copy Right ® For DeV-PoinT ", vbOKOnly, "By HaJuS"
End Sub


وٍضيفَ Command4 لـيكون زرٍ لذهـآب إلى موٍقـعً تضـعً هذا آلكـوٍدُ


كود:
Private Sub Command4_Click()
كود:
Dim x As Object
Set x = CreateObject("internetexplorer.application")
x.navigate "http://www.dev-point.com/vb "
x.Visible = True
End Sub


طبعـآ بعد كـل هالخطـوٍآت خلآص آنت سـويت برنآمج الفلوٍد الخآصً فـيكً


لــكنً بـقى كـود مهـم بدونه مآبيشتغل الفلـوٍدَ


كود:
Private Sub VScroll2_Change()
End Sub

نضعًه آخـرٍ شيءُ كمـآ فـي الصـوٍرهُ








إلى هنـآ كـل وآحد قـد صممُ بـرنآمج الفـلوٍد الخـآصُ فـيهُ ..

وٍالأن كـل وآحد وذوقـه لتصمـيم وآجهه للبرنـآمجُ { صـوٍرهُ + آيقـوٍنهُ } ..









وآنـآ آسوي الشـرحُ صصممـتً برنآمج فلـوٍد علىٍ السـريعٌ



صـوٍرهُ






لتـحميل آلبــرنآمــجُ



http://www.mediafire.com/?9ikchwxf3eai69z










فـي النهـآيه آتمنى آنـي قـد وفقـت فـي آلطـرحً

وإن قصـرت فـأعذروني وإن آعجـبتكم لآ تنـسونُ التقـييمُ
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://demone-iq.almountadaalarabi.com
 
صنع برنامج افلود كسر حماية الشات
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى احباب العراق :: تطوير الشات-
انتقل الى: