المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : لغة بسيطه.... Script


دلع حبوبه
12 - 07 - 2009, 11:31
شخباركم الحلوين


انا اليوم بغيت احط لكم معلومات بسيطه
عن نوع من انواع اللغات


هي لغة مبسطه
ومختلفه شوي عن باقي اللغات اللي نتعلمها

يسموها SCRIPT انا اللي فهمته من بحثي انه في نوعين لها


وحده مستوحاه من VB
وهي VB Script


والثانيه من Java
JScript


المهم انا اللي بديت اسوي فيها كودنج في المكان اللي اتدرب فيه
ولاحظت انهم يستخدموها بكثره

VB script

ولما بحثت في السكريبت عشان اعرف المزيد

عرفت انه ممكن عن طريق السكربت نسوي واجد اشياء

ومن ضمن استخداماتها
انها تختصر علينا الوقت وتسرع العمل

مثلا اذا بغينا نسوي شي معين في اكثر من كمبيوتر
وبدل مانكرر العمليه في اكثر من كمبيوتر

نسويلنا سكريبت يسوي هالشي
وتكون الكمبيوترات موصله بــ نت داخلي
وبس:bs:


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

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

وكذا


هو طبعا جاري البحث في الموضوع اكثر:nosweat:


وانشالله اي شي جديد اعرفه بنزله في هذا الموضوع:cupidarrow:

دلع حبوبه
12 - 07 - 2009, 11:41
بحط لكم مثال الحين



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



'VBScript Example

Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "User Name: " & WshNetwork.UserNameWshNetwork.MapNetworkDrive "S:", "\\server\share"


'JScript Example

var WshNetwork = new ActiveXObject("WScript.Network");
WScript.Echo("User Name: " + WshNetwork.UserName);
WshNetwork.MapNetworkDrive ("S:", "\\server\share");


اذا بغينا نسوي سكربت بسيط

نسوي السكريبت في txt فايل

بس نغير الاكستنشن ماله إلى vbs

يعني vb script

ونحط السكربت داخله


مثله هذا السكربت كبدايه

Wscript.echo "My very first script."

يالله شدو حيلكم وتعلمو شي جديد:ad:

دلع حبوبه
12 - 07 - 2009, 11:53
وهذا السكربت يطلع لنا اليوزرنيم واسم الكمبيوتر والدومين ماله اذا كان الكمبيوتر مرتبط بدومين معين


جربوه


وانشالله يشتغل عندكم :bs:



Dim objNet
On Error Resume Next 'In case we fail to create object then display our custom error
Set objNet = CreateObject("WScript.NetWork")
If Err.Number <> 0 Then 'If error occured then display notice
MsgBox "Don't be Shy." 'Place the Name of the document.
'It will display again
End if

Dim strInfo
strInfo = "User Name is " & objNet.UserName & vbCRLF & _
"Computer Name is " & objNet.ComputerName & vbCRLF & _
"Domain Name is " & objNet.UserDomain
MsgBox strInfo

Set objNet = Nothing 'Destroy the Object to free the Memory

دلع حبوبه
12 - 07 - 2009, 14:20
هذا سكربت عشان تطلعو ساعة السيستيم :smurf:

Dim MyTime

MyTime = Time ' Return current system time
.


Wscript.echo MyTime

:crash:

admin
12 - 07 - 2009, 16:25
حمـــااااس.. معلومات حلوة

و ننتظر معلومات اضافيـــة حتى نتعلم اللغة بشكل أكبر...

<<الفصل الماضي استخدمنا java script في كورس الـ انترنت... بس من خلال بحثي لاحظت ان vb script منتشرة و رائجة أكثر :1eye:

دلع حبوبه
13 - 07 - 2009, 15:44
حمـــااااس.. معلومات حلوة

و ننتظر معلومات اضافيـــة حتى نتعلم اللغة بشكل أكبر...

<<الفصل الماضي استخدمنا java script في كورس الـ انترنت... بس من خلال بحثي لاحظت ان vb script منتشرة و رائجة أكثر :1eye:




جربي اي شي من الكود
وشوفي النتيجه!



يسلمو على المرور:clap:

CS.Student
15 - 07 - 2009, 19:45
:1eye:
انا قــايله الفصــل الجاي .. تعطينا كورس بالفي بي سكـــربت
>>> دبري روحــك :cr:
----



تســـلمي ع المــوضوع .. " جــاري الاستــفادة " :nosweat: