منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقات
عزيزي الزائر عزيزتي الزائرة يرجي التكرم بتسجبل الدخول
لي اجل تستطيع اطهار جميع المواضيع والاقسام
اذا كنت عضو معنا

او التسجيل ان لم تكن عضو وترغب في الانضمام الي المنتدي

نتشرف بتسجيل

ادارة المنتدى
منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقات
عزيزي الزائر عزيزتي الزائرة يرجي التكرم بتسجبل الدخول
لي اجل تستطيع اطهار جميع المواضيع والاقسام
اذا كنت عضو معنا

او التسجيل ان لم تكن عضو وترغب في الانضمام الي المنتدي

نتشرف بتسجيل

ادارة المنتدى
منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقات
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقاأكبر منتدى هكر عربي متخصص بجديد الثغرات واختراق المواقع والأجهزة.منتدى إختراق البريد والايميلات- قسم اختراق دورة إحتراف التلغيمدورة اختراق IPs من نوع SIPو VOIP‎دورة كشف التلغيم‎دورة اختراق الأجهزة‎دورة
 
الرئيسيةأحدث الصورالتسجيلدخول


تحياتي لك الباب مفتوح لي في جميع الاقسام الذي تريده عند المشاركه  اي استفسار انا جاهز ان شاء الله
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
سحابة الكلمات الدلالية
المواضيع الأخيرة
» انشاء ./payload
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالأربعاء أغسطس 11, 2021 12:03 pm من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» دروس تعلم فنون الهكرز للمبتدئين
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالجمعة ديسمبر 29, 2017 1:33 pm من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» اقوى كود ازالة حسابات الفيس بوك
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالجمعة ديسمبر 29, 2017 1:27 pm من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» عملاق التحميل من التورنت Vuze 5.6.0.0 الجديد كليا واحدث الادوات والاصدرات
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالسبت مارس 07, 2015 11:36 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» برنامج FastPictureViewer 1.9 Build 342 لتعديل و عرض الصور بكل سهوله
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالأربعاء مارس 04, 2015 3:57 pm من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» احدث فلود اضافات روم 2015
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالأربعاء مارس 04, 2015 10:20 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]VB6[ أفضل الطرق لتجميل برامجك شبكة الجنرال صدام الشرعبي
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالثلاثاء مارس 03, 2015 10:58 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» الدرس الثالث -الجمل الشرطية و الدوارات شبكة الجنرال صدام الشرعبي
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالثلاثاء مارس 03, 2015 10:55 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» الدرس الثاني -المتغيرات شبكة الجنرال صدام الشرعبي
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالثلاثاء مارس 03, 2015 10:53 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]#C[ الدرس الاول تعلم خطوة بخطوة , مع الإجابة عن أي سؤال شبكة الجنرال صدام الشرعبي
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالثلاثاء مارس 03, 2015 10:52 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]C#[ الخطوه الثانية اضافةالبيانات بالـ LINQ شبكة الجنرال صدام الشرعبي
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالثلاثاء مارس 03, 2015 10:47 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]C#[ الخطوه الاولى لأستيعاب الـ LINQ شبكة الجنرال صدام الشرعبي
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالثلاثاء مارس 03, 2015 10:45 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]#C[ عمل برامج للاجهزه النقاله والPDA‏ شبكة الجنرال صدام الشرعبي
افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالثلاثاء مارس 03, 2015 10:41 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

مارس 2024
الإثنينالثلاثاءالأربعاءالخميسالجمعةالسبتالأحد
    123
45678910
11121314151617
18192021222324
25262728293031
اليوميةاليومية
التبادل الاعلاني

انشاء منتدى مجاني



أفضل 10 فاتحي مواضيع
ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
جنـرال الـهكـر
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
رابح..زيرؤ.فؤر.ايفر
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
ابوعلي
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
سنايبر1
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
ملك الهكر
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
العاشق
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
الساحر
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
__alsafa7__
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
صدام الشرعبي
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
أفضل 10 أعضاء في هذا المنتدى
ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے - 1851
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
رابح..زيرؤ.فؤر.ايفر - 300
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
جنـرال الـهكـر - 227
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
سنايبر1 - 146
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
ابوعلي - 55
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
العاشق - 49
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
نسيـم البحـر1 - 27
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
ملك الهكر - 27
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
لووورد اليمن - 24
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
__alsafa7__ - 18
افضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_rcap1افضل اكواد الفيجوال بيسك مع الشرح حصريا Voting_barافضل اكواد الفيجوال بيسك مع الشرح حصريا Vote_lcap1 
تسجيل صفحاتك المفضلة في مواقع خارجية
تسجيل صفحاتك المفضلة في مواقع خارجية reddit      

https://sadam-alsharabi.roo7.biz

قم بحفض و مشاطرة الرابط منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقات على موقع حفض الصفحات
تصويت
احصائيات
هذا المنتدى يتوفر على 2284 عُضو.
آخر عُضو مُسجل هو Mahrr فمرحباً به.

أعضاؤنا قدموا 3052 مساهمة في هذا المنتدى في 2055 موضوع

 

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

اذهب الى الأسفل 
كاتب الموضوعرسالة
ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے


السٌّمعَة : 47
تاريخ التسجيل : 19/11/2012
العمر : 34
الموقع : https://m.facebook.com/profile.php?id=465134066889659

افضل اكواد الفيجوال بيسك مع الشرح حصريا Empty
مُساهمةموضوع: افضل اكواد الفيجوال بيسك مع الشرح حصريا   افضل اكواد الفيجوال بيسك مع الشرح حصريا Icon_minitimeالجمعة مايو 02, 2014 1:54 pm

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

هذي أكواد فيجوال بيسك أرجو من أهنا تفيدكم :[/SIZE][/CENTER][/COLOR]


[SIZE="6"][SIZE="6"][COLOR="Purple"]) أكواد الحافظة....
الحافظة في الفيجوال بيسك تأخذ الأسم Clipboard ، حيث يتم ربط توابع معينة بهذا
الكائن لكي تتم أوامر الحافظة...سأكتب الأكواد على فرض أن لدينا صندوق نص اسمه
txtMyText...

*** كود القص:
Clipboard.clear
Clipboard.SetText txtMyText.SelText
txtMyText.SelText=""

إن المنهج Clear يقوم بتفرغة كل محتويات الحافظة... كما يقوم الأمر SetText بإضافة النص المحدد إلى الحافظة... و إذا أردنا معرفة ما تحملة العبارة التالية txtMyText.SelText فهي تحمل قيمة النص المحدد... أي أن SelText تشير إلى النص المحدد...
ثم في العبارة الأخيرة، نحذف النص المحدد لكي تتم عملية القص...

*** كود النسخ:
Clipboard.clear
Clipboard.SetText txtMyText.SelText

هذا الكود يماثل تماما الكود السابق، لكن الفرق أننا لا نقوم بحذف النص المحدد و الذي نود نسخه...

*** كود اللصق:
txtMyText.SelText=ClopBoard.GetText( )

إن العبارة ClipBoard.GetText() تحمل قيمة النص الموجود في الحافظة.... و نحن نأمر الجهاز في هذا الكود بوضع قيمة الحافظة مكان النص المحدد...

2) كود الأحداث المعلقة:
من المؤكد أنكم تتسائلون " ما هي الأحداث المعلقة؟ "، أنا سأشرح لكم...
إن بعض البرامج تحتوي على Loop أي حلقة ... و لهذه الحلقة أشكال كثيرة، أشهرها و
أكثرها شيوعا:
For I=0 to 100
.......
.....
.......
if I=100 then I=0
next I

إذا قمنا بتحليل عمل هذا البرنامج، نتوصل إلى انه سيقوم بتنفيذ الأوامر الموجودة داخل الحلقة إلى ما لا نهاية... و بذلك، فإن أي حدث تقوم بتنفيذه خلال عمل هذه الحلقة فإنه لن يستجيب.....
أعرف أنكم لم تفهموا، سأوسع الشرح...
لنفرض أنه لدينا برنامج يقوم برسم نقاط عشوائية على نموذج معين، و هذه النقاط غير منتهية.... و لدينا زري أوامر، الأول للبدء الحلقة، و الثاني لإنهاءها...
إذا ضغطنا زر البدء، فإن الحلقة ستبدأ إلى ما لا نهاية.... و سترسم نقاطا على النموذج إلى ما لا نهاية... فعند القيام بحدث الضغط على زر إنهاء الحلقة، فأنه لن يستجيب أبدا، و ذلك بسبب عمل الحلقة.... فما الحل إذن...
يوجد تابع خاص لهذه المشكلة و هو DoEvents... عند وضع هذا التابع ضمن الحلقة، فإنه ينفذ الحدث الذي قمت به، ثم يكمل تنفيذ الحلقة....

3) كود تنفيذ أي برنامج عن طريق الفيجوال بيسك:
إذا أردت أن تشغل إي برنامج في جهازك عن طريق الفيجوال بيسك، اكتب العبارة التالية....
Dim A
A = ****l ("programpath",n)

حيث A متغير... و اكتب مكان الــ programpath مسار البرنامج كاملا، و اكتب مكان n رقم من 0 إلى 6، حيث كل رقم له دلالته...

0 تظهر نافذة البرنامج مخفية.
1 تظهر نافذة البرنامج بحجمها الطبيعي و معها التركيز.
2 تظهر النافذة مصغرة و معها التركيز.
3 تظهر النافذة مكبرة و ومعها التركيز.
4 تظهر نافذة عادية و بدون تركيز.
6 تظهر نافذة مصغرة بدون تركيز.

و إن التابع ****l يرجع قيمة عددية تحفظ في المتغير A تشير إلى مقبض النافذة الذي يعترف عليه Windows

ملاحظة:0057:: الفائدة من وضع القيمة 0 للمتغير n ، هي لظهور النافذة مخفية، و بالتالي يتم تحميل النافذة في الذاكرة دون أن نراها. و نستغيد من هذه الحالة في تشغيل ملف تنفيذي لكي يؤدي وظائف معينة دون أن يشاهد المستخدم نافذة البرنامج (برامج الفيروسات و التجسس)

4) كود للقيام باتصال هاتفي::009:
يجب أولا تضمين أداة جديدة و هي MSComm، و ذلك بالخطوات التالية:
* اضغط بزر اليمين على مكان فارغ شريط الأدوات.
* اختر الخيار Components
* اختر الأداة MSComm من القائمة و اضغط على الزر موافق.
* ستظهر لك أداة جديدة لها شكل الهاتف على شريط الأدوات.

بعد تضمين هذه الأداة في النموذج، نسميها على سبيل المثال Comm1....
و إليك الكود:
Dim PhoneNumber as String
On Error Goto WrongPort
Comm1.CommPort = 1
Comm1.Settings = "300,n,8,1"
PhoneNumber = "164883"
Comm1.PortOpen = True
Comm1.OutPut = "ATDT" + PhoneNumber + Chr$(13)Sub
WrongPort:
MsgBox "Title", 1048576 + 524288 + 16, "Prompt"

الشرح::0021:
في السطر الأول: نعرف متغير حرفي و هو PhoneNumber
في السطر الثاني: نضع هذه العبارة بحيث في حال حدوث أي خطأ ( مثلا المودم غير
متصل، أو المنفذ غير صحيح ) ينتقل التنفيذ إلى السطر الثامن حيث
الإجراء . طبعا يمكن تسمة WrongPort كما نشاء.
في السطر الثالث: نحدد البورت الذي سنجري منه الإتصال. يفضل أن تقوم بتجربة البرنامج
عدة مرات بتغيير البورت (1، 2، 3، 4، 5، 6، 7 ) حتى تصل للبورت
الصحيح.
في السطر الرابع: نحدد إعدادات الإتصال. ضعها كما هي موجودة في هذا الكود، لأن
شرحها معقد نوعا ما.
في السطر الخامس: نكتب رقم الهاتف المراد طلبه.
في السطر السادس: يفتح البورت الذي حددته.
في السطر السابع: تنتقل البيانات عبر خط الهاتف مع بعض الشيفرات.
في السطر الثامن: ينتهي تنفيذ الأوامر.
في السطر التاسع: يوجد الإجراء الذي ينتقل أليه التنفيذ عند حدوث خطأ.
في السطر العاشر: تظهر رسالة الخطأ التي عنوانها Title و نصها هو Prompt.
يمكن تغيير هذه القيم كما تشاء.

و الأن تم الإتصال، و ماعليك سوى التكلم عن طريق الهيدفون أو الهاتف.:070:
لقطع الإتصال: ضع الكود التالي:
Comm1.PortOpen = False
حيث يقوم هذا السطر بإغلاق المنفذ.

5) كود لإيقاف تشغيل ويندوز::010:
ننشئ نافذة جديدة من النوع Module و نكتب فيها السطر التالي:
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags as Long, By Val dwReserved As Long) As Long

و لكن ، اكتبه في سطر واحد، و ليس في سطرين...:0035:
و الأن في النموذج، ضمن أزرارا لإيقاف التشغيل، و أعادت التشغيل، و إنهاء كافة العمليات البرمجية، و أنهاء كافة العمليات البرمجية التي لا تستجيب.
و اكتب الكود التالي لكل زر:
Dim LonStatus
LonStatus = ExitWindowsEx (Flag, n)

اكتب إحدى الأرقام التالية للمتغير n:
0 لإنهاء كافة العمليات البرمجية.
1 لإيقاف التشغيل.
2 لإعادة التشغيل.
4 ينهي كافة العمليات البرمجية التي لا تستجيب.



 تعليق بسيط فيما يخص بكود إيقاف ويندوز

هذا الكود شغال كويس بالنسبة لأنظنة ويندوز 98 و Me:02:
لكن فيما يخص ونيدوز XP فإن كود إعادة التشغيل وإيقاف التشغيل سوف يقوم فقط بإخراجك كمستخدم فقط
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://sadam-alsharabi.roo7.biz
 
افضل اكواد الفيجوال بيسك مع الشرح حصريا
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقات :: الفئة الأولى :: منـتدئ مختـص في بـرمجـة الفيجـوال بيسـك-
انتقل الى: