وعليكم السلام والرحمه

ما شاء الله طالبه في الجامعه وتبغي منا حنا الآكواد المفروض انتي تساعدينا في الآكواد

والمفروض بعد تتعبي فيها شوي وتحاولي فيها
ع العموم هذي بعض الآكواد حصلتها لك في العم قوقل :
هذي أكواد فيجوال بيسك أرجو من أهنا تفيدكم :

1) أكواد الحافظة....
الحافظة في الفيجوال بيسك تأخذ الأسم 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

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

4) كود للقيام باتصال هاتفي:
يجب أولا تضمين أداة جديدة و هي 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"

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

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

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

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

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

بسم الله الرحمن الرحيم

شكرا أخي على هذه المعلومات

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

هذا الكود شغال كويس بالنسبة لأنظنة ويندوز 98 و Me
لكن فيما يخص ونيدوز XP فإن كود إعادة التشغيل وإيقاف التشغيل سوف يقوم فقط بإخراجك كمستخدم فقط
يعني الجهاز مش عيعمل رستارت ولا يطفئ

وإن شاء الله الآن أضع لكم الكود تبع الإكس بي بحيث يقوم بمهمة الإطفاء وإعادة التشغيل

_________________

يسلموووووووووووووووووووو كلك ذووووووووووووق ماقصرت ياخوي
كفيت ووفيت
بس الله لا يهينك ابي معلومات اكثر عن هاذا الموضوع
ياريت
لا تحرمونا من ردودكم يالغاليين

بسم الله الرحمن الرحيم

اللهم صل على محمد وعلى آله وصحبه أجمعين

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

مساء الخير

كيف الحـآل

/

طالبه جامعيه وكلية حاسب وتبي تتخرج وما تعرف شي بأكوآد الفيجول بيسك..!!

اتوقعه مصيبه

تفضلي بعض الكتب فيه الاكوآد

http://www.mediafire.com/?2hz3jbcrnng

/

كتب بالفيجول بيسك


أولا : كتب فجوال بيسك 6 - VB6

المؤلف: مهاب مكارم

شيفرات الفجوال بيسك

شيفرات الفجوال بيسك الكتاب الثاني والثالث

صناديق الرسائل في الفجوال بيسك ومعناها


المؤلف: جوزيف شاكر يوسف

التعامل مع وسائط التخزين

فجوال بيسك 6 للمبتدئين


المؤلف: Synttax Error 0x0

التعامل مع مسجل النظام


المؤلف: Femto

كتيب تعليم الفجوال بيسك


المؤلف: يوفي VIP

سلسلة دروس قواعد البيانات في الفجوال بيسك 6


المؤلف: كمبيوتيتش

ربط قواعد البيانات أكسس بالفجوال بيسك


المؤلف: تركي العسيري

فجوال بيسك للجميع


المؤلف: أحمد الأنصاري

الأداة DATACONTROL


المؤلف: علاء

درسين متقدمين في الفجوال بيسك 6


المؤلف: الصقر الجارح

تعلم الفجوال بيسك مع الصقر الجارح


المؤلف: رغيد الطيب

تعلم كيفية التعامل مع ال WinSock


المؤلف: عزوز أحمد

تعلم الفجوال بيسك في أسبوعين


المؤلف: هشام محمد كمال

تحليل النظم و برمجة النظام


المؤلف: المعتصم بالله

دروس في الفجوال بيسك 6


المؤلف: مشرف ناصر الرويلي


طريق الإحتراف في الفجوال بيسك 6 - الجزء الأول


المؤلف: غسان الجزار

التعامل مع الحروف في الفجوال بيسك 6


المؤلف: فريد ناصر

تعلم الكريستال ريبورت


المؤلف: محمود سعد الصباغ

مذكرة في الفجوال بيسك للمبتدئين


المؤلف: وليد سعيد محمد الأسمري

برمجة قواعد البيانات


المؤلف: إيهاب أحمد شريف

فجوال بيسك 6


المؤلف: محمد فاروق السيد

برمجة دوال الـ API


المؤلف: غير معروف

دروس في الفجوال بيسك

بنك الشيفرات البرمجية

كتابة أول برنامج لك في الفجوال بيسك

شرح الأداة MsFlexGrid

تعلم الفجوال بيسك

برمجة الـ DirectX


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

ثانياً : كتب فجوال بيسك دوت نت VB.Net

المؤلف: محمد عبد الناصر خطيب

الوجيز في الجديد Visual basic 2005


المؤلف: محمدى عبد العال محمد

كتاب في لغة الفجوال بيسك دوت نت


المؤلف: هاني العزاوي

مدخل المبتدأ لبرمجة الألعاب باستخدام ال DirectX 9


المؤلف: حسن قجوم

تعليم لغة الفجوال بيسك للمبتدئين والمتوسطين


المؤلف: إحسان مزهر رشيد

ملخصات في الفجوال بيسك المرئي دوت نت


المؤلف: شاكر

المدخل إلى فجوال بيسك دوت نت


المؤلف: خالد الجديع

ال VB.Net


المؤلف: محمد حمدي غانم

إحتراف ال VB.Net


بعض أكواد الفيجوال بيسك

أولا : كود لجعل الفورم شفاف

في قسم التصريحات general :
الكود :


Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long , ByValcrKey As Long , ByVal bAlpha As Byte , ByVal dwFlags As Long) As Boolean
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
(ByVal hwnd As Long , ByVal nIndex As Long , ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"
(ByVal hwnd As Long , ByVal nIndex As Long) As Long
Const LWA_ALPHA = 2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000وفي مكان form load
الكود:-


Private Sub Form_Load()
SetWindowLong hwnd , GWL_EXSTYLE , GetWindowLong(hwnd , GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd , 0 , 128 , LWA_ALPHA
End Sub

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

ثانيا : جعل البرنامج مخفي في قائمة task manager
الكود :


Private Sub Form_Load()
App.TaskVisible = False

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

ثالثا : فتح ملف تكست داخل تكست بوكس
الكود:


Open "c:\simple.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #

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

رابعا : إيقاف زر Close
الكود :


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub


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

خامسا : التحكم بالمجلدات عن طريق الأكواد كما يلي :-

1- دالة معرفة مجلد الويندوز :
الكود :-


Dim winPath As String
winPath = Environ$("windir")
2- حذف جميع الملفات داخل مجلد :
الكود:-


Kill "C:\WINDOWS\*.*"
3- لإزالة خيارات المجلد Folder Options
الكود :-


Set A = CreateObject("WSCRIPT.SHELL")
A.REGWRITE "HKEY_CURRENT_USER\Software\Microsoft\Windows\ Curr entVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
4- للإستعادة :
الكود:-


Set A = CreateObject("WSCRIPT.SHELL")
A.REGWRITE "HKEY_CURRENT_USER\Software\Microsoft\Windows\ Curr entVersion\Policies\Explorer\NoFolderOptions", "0", "REG_DWORD"
لمشاهدة التغير يجب إنهاء المتصفح

5- لأنهاء :
الكود:-


SHELL "TASKKILL /F /IM EXPLORER.EXE",VBHIDE6-للتشغيل :
الكود:-


SHELL "EXPLORER.EXE",1


---------------------------------------------------
سادسا : لتعطيل وتفعيل مدير المهام :
1- تعطيل :
الكود :-


Private Sub Command2_Click()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell") WSH.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Syst
em\DisableTaskMgr", 1, "REG_DWORD"
End Sub2- تفعيل :
الكود :-


Private Sub Command1_Click()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
WSH.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Syst
em\DisableTaskMgr", 0, "REG_DWORD"
End Sub


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

سابعا : تغير اسم المستخدم :
في قسم التصريحات :
الكود:-


Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As String) As _
Longفي الكود :


الكود :-


SetComputerName(NewComputerName)


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

ثامنا :إخفاء مؤشر الماوس :
1-في الموديل :
الكود:-


Public Declare Function ShowCursor& Lib "user32" (ByVal lShow As Long)
2- لأخفاء :
الكود:-


Private Sub Command1_Click()
ShowCursor (False)
End Sub3- لأظهار:
الكود:-


Private Sub Command2_Click()
ShowCursor (True)
End Sub

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


تاسعا: لمنع تغيير حجم الفورم :
الكود :-


Private Sub Form_Resize()
Width = 4000
Height = 5000
End Sub

----------------------------------------------------
عشرا : رسالة الخروج من البرنامج :
الكود :-


H = MsgBox("Do you want to Exit", vbYesNo + vbQuestion, "")
If H = vbYes Then End

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


+

آكوآد فيجول بيسك txt

http://www.zshare.net/download/856191812cf49c0b/

http://www.zshare.net/download/85619804236aa55d/

http://www.zshare.net/download/85620144546c65cd/

+

موقع اكوآد فيجول بيسك

http://www.vbcode.com/


وبالختام اسف على القصور

< جاي من كتاب الاقتصاد الاسلامي ورآجع يكمل

_________________

من جد يسلمووووووووووووووو
اســـير وابو نواف ماقصرتوا كفيتوا ووفيتوا وانتو ساعدوتني كثيررررررررررررر
وإذاا عندكم شي يفيد لا تقصروا
والباقين لا تحرمونا من ردودكم يالغاليين