أسئلة الإحماء لبداية مسابقات القسم؟

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

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

اتمنى ان تستمر في هذه الاسئلة حتى لو انتهت المسابقة

حتى لو لم نعرف الحل فإننا نستفيد منها

ارفق الحل وهو طريقة واحدة وعذرا

كلمة السر هي نفسها

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

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

اتمنى ان تستمر في هذه الاسئلة حتى لو ا

openfile.rar

هذه مشاركتي. نفس كلمة المرور

تحياتي...

answer.rar

أين البقية ,, لا تخذلونى :wub:

لم أكن أتوقع هذا الهدوء ,, النتيجة اليوم ,, ألا يوجد من يريد المشاركة :angry:

Open_File.rar

هذا الجواب وتعبت من البحث ووجدت علاج لانفلونزا الخنازير تبحث عن شئ تجد شئ آخر :blush:

solution1.rar

هذا هو الجواب بطريقتين

answer.rar

تم ارسال الباسورد

و الله ولى التوفيق

مشاركتي الأولى

الجواب بطريقتين، و الباسورد على الخاص

Kldoon.zip

يا رب تكون الجائزة لاب توب :lol: :P

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

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

الإجابات :

1- assaf_abdullah

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		System.IO.File.WriteAllText("c:\b.bat", "start c:\a.txt")
		Dim startInfo As System.Diagnostics.ProcessStartInfo
		Dim pStart As New System.Diagnostics.Process
		startInfo = New System.Diagnostics.ProcessStartInfo("C:\b.bat")
		pStart.StartInfo = startInfo
		pStart.Start()
		pStart.WaitForExit()
	End Sub

'حيث ان start c:\a.txt
'(Start هو الكلمة المحجوزة ) + File Path , Any Path

الإجابة صحيحة :thumb_up: :clapping:

2- abetry

Dim Proc As New System.Diagnostics.Process
		Proc.StartInfo.WorkingDirectory = "C:\"
		Proc.StartInfo.FileName = "test.exe"
		Proc.Start()

الطريقة خاطئة لأنك استخدم الطريقة الأولى التى ذكرتها (مع التلاعب بالخصائص :D ) وأنا قلت طرق غير المذكورة ,, واضح أنك ستدخل السجن :angry: :angry:

3- محمد رضى

// الطريقة الأولى
Shell("cmd.exe /cfile_name.ext")
// الطريقة الثانية
Dim shl As New Shell32.Shell()
shl.Open("file.ext") ' لا تفتح البرامج التنفيذية

الطريقتين صحيحتين وبالمناسبة الطريقة الثانية تفتح الملفات التنفيذية بلا أى مشاكل :thumb_up: :clapping:

4- Muhammad alaa

Imports System.Runtime.InteropServices
Imports System.IO

Module Module1

	Sub Main()

		'Dim fn As String = "F:\English\Breath Me.mp3"

		'Dim siFile As New ProcessStartInfo(fn)
		'With siFile
		'.UseShellExecute = True
		'.Verb = "open"
		'End With
		'Process.Start(siFile)

		'**********************************************************'

		'Shell("explorer " + fn, AppWinStyle.NormalFocus)

		'**********************************************************'

	End Sub

End Module

الطريقة الأولى مرفوضة لأنى نهيت عن استخدامها

بالنسبة للطريقة الثانية فقد كنت أنتظرها وقد وقعت أنت فى الفخ :D ,, لقد وضعت السؤال من الأساس من أجل هذه الطريقة ,, جرب استخدام هذه الطريقة مع الملفات النصية وستعرف ما أقصد :wink:

5- * خلدون خالد *

الطريقة الأولى

Imports System.Diagnostics.Process

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		Start("C:\File.jpg")

	End Sub
End Class
========================
الطريقة الثانية


Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		Shell("cmd /c ""C:\File.jpg""")

	End Sub
End Class

تحايل فى الطريقة الأولى ,, مرفوضة :angry:

الطريقة الثانية صحيحة :clapping:

6- profesor-xp

Shell("p:\morris.exe", AppWinStyle.NormalFocus)

الدالة Shell لا تعمل إلا مع الملفات التنفيذية فقط

أما بالنسبة لى فالطريقة الأولى هى

Shell("Cmd / C Start C:\test.txt")

بالنسبة للطريقة الثانية فسأجعلها هى السؤال القادم ,, وسأعطيكم الفكرة

الفكرة هى صنع دالة تعمل كالدالة ShellExecute وكذلك Process.Start

إذاً يكون السؤال هو :

أكتب دالة تستقبل إسم الملف وتقوم بفتحه بالبرنامج المخصص له كما تفعل الدالة ShellExecute .

معلومة: يجب عليك التعامل مع الريجيسترى (بهذه المعلومة أصبح الأمر تافها :P )

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

موعد إعلان الإجابة غدا الساعة الثامنة مساءً بإذن الله ,, وأتمنى ألا تنتظروا اللاب توب :P :P

فى انتظاركم ,,

ماذا عن اجابتي يا GHOST2010 ؟ :rolleyes:

يبدو انك نسيتني .. :) ..

مشكور على المجهود يا الغالي ،،

السؤال كان

اقتباس

كيف يمكن فتح أى ملف مهما كان نوعه بطريقتين مختلفتين (طبعا غير الطرق السابقة biggrin.gif )

طريقة يمكن الوصول إليها بالبحث والأخرى بالذكاء biggrin.gif

بالنسبه للطريقه الأولى فقد نسيت انك لا تريد ShellExecute بالنسبه للطريقه الأخرى فهى تفتح الملفات بمعنى عند تطبيقها على ملف mp3 فهى تقوم بتشغيل برنامج الـ mp3 لهذا الملف و لكن لا تتيح لك التعديل عليه اما بالنسبه للملفات النصيه فتقوم بفتح IE6 لإنه البرنامج الإفتراضى لتصفح الملفات النصيه بالنسبه لبرنامج الـ Explorer.

عموما السؤال انتهى و تمت الإجابه عليه B) دعنا نحاول اجابة السؤال الجديد :resentful:

و الله ولى التوفيق

profesor-xp كتب:

ماذا عن اجابتي يا GHOST2010 ؟ :rolleyes:

يبدو انك نسيتني .. :) ..

مشكور على المجهود يا الغالي ،،

أعتذر عن هذا الخطأ الغير مقصود ,, تم تعديل المشاركة

Muhammad alaa كتب:

بالنسبه للملفات النصيه فتقوم بفتح IE6 لإنه البرنامج الإفتراضى لتصفح الملفات النصيه بالنسبه لبرنامج الـ Explorer.

البديهى أن أى مستخدم يستخدم النوتباد لفتح الملفات النصية وليس الـIE :wink:

اقتباس

البديهى أن أى مستخدم يستخدم النوتباد لفتح الملفات النصية وليس الـIE

كلامك صحيح :)

السؤال القديم دوخني

انا ادعم تغيير السؤال .... و لكن ربما بقية الاعضاء لا

assaf_abdullah كتب:

السؤال القديم دوخني

انا ادعم تغيير السؤال .... و لكن ربما بقية الاعضاء لا

ستنتهى مدة السؤال مساء اليوم ,, انتظر قليلا :D :D

أين الهمة ياشباب :D

سأعلن النتيجة بعد ساعة و20 دقيقة ,, فى انتظار باقى المتنافسين :blush:

على فكرة يا assaf (هل تنطق عساف؟؟) إيه الصورة المرعبة دى :P :P

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

أعتذر عن تأخرى فى الرد لأن النت كان مقطوعا وزارنى أعز أصدقائى فجلست معه ونسيت الموضوع :P

كما قلنا أنك لكى تصمم دالة مثل ShellExecute يجب عليك التعامل مع الريجيسترى

كل نوع من أنواع الملفات له مفتاح فى الريجيسترى يحدد البرنامج الذى يقوم بتشغيل هذا النوع ,, لذلك يجب علينا أولا أن نعرف نوع الملف الذى سنقوم بفتحه عن طريق امتداد هذا الملف ثم نتصل بالريجيسترى ونبحث عن مدخلات هذا النوع لنصل إلى البرنامج الذى يفتحه

للعلم : الصيغة العامة لقيمة المفتاح فى الريجيسترى تكون بالشكل التالى:

ExecutablePath %1

حيث أن %1 تمثل الملف الذى سيتم فتحه

الآن لدينا هذا الكود

Imports Microsoft.Win32
Imports System.IO

Public Class Form1

	Private Function GetTypeCommand(ByVal ext As String) As String
		Try
			Dim key As RegistryKey = Registry.ClassesRoot.OpenSubKey(ext)
			If key IsNot Nothing Then
				Dim defaultValue As String = key.GetValue("")
				If Not String.IsNullOrEmpty(defaultValue) Then
					Dim tmpKey As RegistryKey = Registry.ClassesRoot.OpenSubKey(defaultValue)
					If tmpKey IsNot Nothing Then
						key = tmpKey
					End If
				End If
				key = key.OpenSubKey("Shell\Open\Command")
				Return key.GetValue("")
			End If
		Catch
			Return ""
		End Try
	End Function

	Private Sub ShellExecute(ByVal filename As String)
		Dim cmd As String = GetTypeCommand(Path.GetExtension(filename))
		Try
			cmd = cmd.Replace("%1", filename)
			Shell(cmd, AppWinStyle.NormalFocus)
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub

	Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
		Dim dlg As New OpenFileDialog
		dlg.FileName = ""
		dlg.RestoreDirectory = True
		If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
			ShellExecute(dlg.FileName)
		End If
		dlg.Dispose()
	End Sub

End Class

معذرة ,, لن أستطيع شرح الكود الآن لظروف طرأت حاليا ,, إن شاء الله فى انتظار استفساراتكم عن الكود وسأقوم بشرحه غدا وأضع السؤال الجديد بإذن الله وأرجو أن تسامحونى

صراحة بدأت بالحل قبل فتره قصيره و قد كنت قريب جدا جدا من الحل :)

بكل الأحوال تعلمت كيفية القرائة و الكتابة من ال Registry  :rolleyes:

اخي Ghost2000

تنطق كما قلت "عساف"

و الصورة المرعبة هذه كانت لكي تخاف مني و تغير السؤال :blush: لانه من وجهة نظري " اعادة اختراع العجلة "

هل خفت فعلا , انا اول ما شفتها حطيتها خلفية لسطح المكتب حتى يخافو الموظفين و ما يلعبولي بجهازي ,

انا بانتظار الاسألة التالية.

الحمد لله ,, لم أجد أى استفسارات عن الإجابة وبالتالى لن أقوم بشرحها :lol: :lol:

السؤال الجديد سؤال سهل جدا ولن يحتاج أى وقت للإجابة ولذلك سأعلن إجابته اليوم الساعة التاسعة مساءً إن شاء الله

كيف تقوم بتعريف متغيرات من النوع Integer , Long , Double , String بدون استخدام كلمة As ??

منتظركم ياشباب :wink:

Variables.rar

profesor-xp كتب:

سؤال خفيف وظريف .. :lol: ..

هذا حلي ، نفس الباسوورد .. :) ..

يعطيك العافية ،،

لاحظت قلة المشاركة فوضعت هذا السؤال كفاتح للشهية حتى أعود إلى البيت :D :D

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

إجآبتي ..

و نفس آلرقم آلسابق ..

Variables.rar

سؤال جميل

الحل فى المرفقات و الباسورد كما السابق

VarDeclare.rar

و الله ولى التوفيق