موضوع خاص لدعــم الـ AutoIt -- افكار ؛ مشاريع ؛ سورسات ؛ اسئله ؛ نقاشات ...... الخ

Dr.MoNy قال:
طيب ياخوي ،
الملف يطلع معطوب مايشتغل !
أنقر للتوسيع...

كيف تريد دمج ملف exe مع ملف آخر ثم يعمل الملف !!

لا يوجد في العالم مثل هذا الشئ لأن دمج
ملف exe + ملف exe آخر = ملف exe جديد يحتمل أن لا يعمل الملف بنسبة 30%

وإذا سيعمل, لن يعمل إلا الملف الأول فقط عند التنفيذ

أقصد بعملية الدمج مثلاً :
لدينا ملف1 به المعلومات التالية :
​
Alzri
أنقر للتوسيع...

والملف2 به المعلومات التالية :
AT4RE
أنقر للتوسيع...

في حالتنا هذه الملف بعد الدمج يصبح
AlzriAT4RE
أنقر للتوسيع...

إذا كنت تقصد الدمج مثل عملية Virtualization فعندها الأمر يصبح معقد جداً جداً بل إن شركة تخصصت في مجال الـ Virtualization وهي VMware وإذا كنت تريد عمل برامج مثل هذه فعليك أن تنافس هذه الشركة :p:
للإستزادة حول العملية الأخيرة :
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي


الحل الأفضل هو المحاولة إما بطريقة الدمج المبسطة التي وضعتها أو المحاولة مع الـ resource
أو بالإمكان الإستفادة من ملفات ThinApp من شركة VMware (لاحظت إحدى ملفات هذا البرنامج هو المسؤول عن عملية الدمج في الملفات) ويتم عبر تشغيل البرنامج مع المعاملات (parameter)
​
 

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

للإستزادة راجع ملف التعليمات المرفق مع اللغة
​
 
توقيع : Alzri2
3zoz قال:
ينووسي ( يونس ) :d:

لا أقصد خلفية صورة ،/

ولاتنسى الطلب الثاني xD
أنقر للتوسيع...

ساشرح لك الخلفيتين واخلص :hh:

أولا: الخلفية بصورة:

كود: 
GUICtrlCreatePic(filename,left,top,width,height,style)

filename = مسار الصورة التي ستضعها في الخلفية واسمها وامتدادها (توضع بين " ")
left = بدء مكان الصورة من اليسار (دعه 0 :d:)
top = بدء مكان الصورة من الاعلى (دعه 0 :d:)
width = عرض الصورة
height = ارتفاع الصورة
style = كيفية ظهور الخلفية (اكتب مكانه 0 لتكون الصورة في الخلفية ولا تؤثر في الازرار)

ملاحظة: تضع هذا الامر بعد guicreate مباشرة :d:


ثانيا: الخلفية بلون:

كود: 
GUISetBkColor(background)

background = اللون المختار بأعداد hex ( مثال على اللون الاحمر: 0xff0000 )

حيث الي بين الصفر والعدد hex (اكس الانجليزي ((x)) وليس الضرب :q:)

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

بالنسبة لأمر وجود tab في أعلى الأداة فهذا ينقسم إلى أوامر متعددة الاغراض <<< تعلمته بالتجارب أمس :d:


ليس لدي الوقت الآن لاشرحه لك

لذا إما سأشرحه بعد عودتي من المدرسة أو على الايميل :wink:
 
توقيع : yones7x
أها ، يعطيك العافيه لبى قلبـك ، ماقصرت ..
تم عمل البرنامج و تعبت ع الفاضي ،
لاكن شي حلو أتعلـم .. راح أحاول
أن شاء الله أطلع بنتيجه مرضيه ..
 
شباب عندي سؤال ،
انا سويت أسطوانة للقرأن الكريم ،
و راح أظغط الأسطوانه مع المقاطع
و ابي عند تحميل الاسطوانه و تشغيلها يظغط على اي سورة و تشتغل معاه
فهل هذا الأمر صحيح : SoundPlay(@DesktopDir & "\الفيل.mp3",0)

أم أغير هذا الأمر [ @DesktopDir ] ؟!
فـ ياليت الأفاده
 
Dr.MoNy قال:
شباب عندي سؤال ،
انا سويت أسطوانة للقرأن الكريم ،
و راح أظغط الأسطوانه مع المقاطع
و ابي عند تحميل الاسطوانه و تشغيلها يظغط على اي سورة و تشتغل معاه
فهل هذا الأمر صحيح : SoundPlay(@DesktopDir & "\الفيل.mp3",0)

أم أغير هذا الأمر [ @DesktopDir ] ؟!
فـ ياليت الأفاده
أنقر للتوسيع...

الأمر هذا يعني أنه سيقوم بتشغيل ملف صوتي إسمه "الفيل.mp3" من مجلد سطح المكتب

هذا يعني أنه يجب إذا أردت أن يعمل بصورة صحيحة على جميع الأجهزة أن يكون الملف موجود بنفس المسار المحدد بالأمر على كل جهاز

أي الأفضل أن يكون كما يلي :

يتم عمل مجلد بجانب السكربت إسمه على سبيل المثال "quran" بداخلة جميع الملفات الصوتية (السور)

سيصبح عندها أمر تشغيل السورة هو :
كود: 
SoundPlay(@ScriptDir & "\quran\الفيل.mp3",0)

والسلام عليكم
​
 
توقيع : Alzri2
Alzri2 قال:





حسناً, هل تريد الطريقة الأخرى عن طريق الدوال ؟


​
أنقر للتوسيع...

شوف يا الغالي أن كانت فاضي مافي مشكلة ممكن تضع الطرق الاخرى
أما أن كانت مشغول فليس هناك داعي لأشغالك أكثر من هيك
لأن أسئلة ما بتخلص من مبتدئ:b:
:king:
​
 
توقيع : ramay
ramay قال:
شوف يا الغالي أن كانت فاضي مافي مشكلة ممكن تضع الطرق الاخرى
أما أن كانت مشغول فليس هناك داعي لأشغالك أكثر من هيك
لأن أسئلة ما بتخلص من مبتدئ:b:
:king:
[/CENTER]
أنقر للتوسيع...

طريقة أخرى عن طريق الدوال :
​
كود: 
$Result = CheckHowIsBigger(35, 30)
MsgBox(0, "", $Result)

Func CheckHowIsBigger($var1, $var2)
    If $var1 > $var2 Then Return $var1
    If $var1 < $var2 Then Return $var2
    If $var1 = $var2 Then Return 0
EndFunc

أنا بالخدمة طالما هناك من يريد أن يفيد ويستفيد, لذا إسأل ما شئت

والسلام عليكم
​
 
توقيع : Alzri2
Alzri2 قال:
الأمر هذا يعني أنه سيقوم بتشغيل ملف صوتي إسمه "الفيل.mp3" من مجلد سطح المكتب

هذا يعني أنه يجب إذا أردت أن يعمل بصورة صحيحة على جميع الأجهزة أن يكون الملف موجود بنفس المسار المحدد بالأمر على كل جهاز

أي الأفضل أن يكون كما يلي :

يتم عمل مجلد بجانب السكربت إسمه على سبيل المثال "quran" بداخلة جميع الملفات الصوتية (السور)

سيصبح عندها أمر تشغيل السورة هو :
كود: 
SoundPlay(@ScriptDir & "\quran\الفيل.mp3",0)


والسلام عليكم​
أنقر للتوسيع...

بارك الله فيك ولكن عندي مداخلة بسيطة

لتسهيل الامر على ramay فليقوم بوضع جميع الايات في مجلد واحد ثم يقوم بوضع السكربت بجانبها

ويضع هذا الامر للتشغيل في أي جهاز

كود: 
SoundPlay("الفيل.mp3",0)

طبعا يشترط أن يكون مسار الايات بنفس مسار السكربت


تحياتي :d:
 
توقيع : yones7x
أو:

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

ويصير الامر كذا:

كود: 
SoundPlay(@WorkingDir & "\folder\الفيل.mp3",0)

حيث يكون folder هو مجلد معين في داخله الايات وطبعا هذا المجلد بجانب الاسكربت :d:

:y:
 
توقيع : yones7x
yones7x قال:
أو:

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

ويصير الامر كذا:

كود: 
SoundPlay(@WorkingDir & "\folder\الفيل.mp3",0)
حيث يكون folder هو مجلد معين في داخله الايات وطبعا هذا المجلد بجانب الاسكربت :d:

:y:
أنقر للتوسيع...

نفس الطريقة التي وضعتها :smile:

أضف إلى أن إستعمال @WorkingDir قد يتسبب في مشاكل والأفضل إستعمال @ScriptDir
​
 
توقيع : Alzri2
:d:

سلام عليكم شباب عساكم على القوة ..

عندي UDF أفادتني سابقاُ فحبيت أنزلها هنا عسا تفيدكم ..

تحتوي على دالتين .

الاولى ترجع بمسار المجلد :فرضاً لدينا ملف ونريد الاستفادة من المسار الخاص فيه

طبعاُ فقط مسار المجلد ألي يحوية..

الثانية ترجع بإسم الملف فقط : يوجد دالتين معرفه في اللغة لكن الاولى تجلب المسار الكامل

والثانية تجلب المسار المختصر .. لكن لو أردنا فقط إسم الملف ؟؟ الداله هذي تحل المشكلة :d:

مثال بسيط :

كود: 
#include <UDF.au3>
$Path = FileOpenDialog("Open",@DesktopDir,"All Files (*.*)",7)
$DirPath = GetDir($Path)
$FileName = GetFileName($Path)
MsgBox(0,"","Path Directory : " &$DirPath & @CRLF & @crlf & _
"File Name : " & $FileName)

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


:king::king:
 
توقيع : waget
بارك الله فيك يا غالي :ok:
 
توقيع : yones7x
هل برنامج يتعامل مع الاقراص قابلة للأزلة
مثل فلاشة أو هاردت خارجيه
ولو ممكن أمثاله على ذلك
 
توقيع : ramay
ramay قال:
هل برنامج يتعامل مع الاقراص قابلة للأزلة
مثل فلاشة أو هاردت خارجيه
ولو ممكن أمثاله على ذلك
أنقر للتوسيع...

مثال معدل من كتاب التعليمات المرفق :
كود: 
$removable = DriveGetDrive("REMOVABLE")
If Not @error Then
    MsgBox(4096,"", "Found " & $removable[0] & " drives")
    For $i = 1 To $removable[0]
        MsgBox(4096, "Drive " & $i, $removable[$i])
    Next
EndIf

والسلام عليكم
 
توقيع : Alzri2
Alzri2 قال:
مثال معدل من كتاب التعليمات المرفق :

كود: 
$removable = DriveGetDrive("REMOVABLE")
كود: 
[LEFT]If Not @error Then[/LEFT]
 
[LEFT]MsgBox(4096,"", "Found " & $removable[0] & " drives")[/LEFT]
 
[LEFT]For $i = 1 To $removable[0]

    MsgBox(4096, "Drive " & $i, $removable[$i])
[LEFT]Next[/LEFT]
[/LEFT]

 
 
 
 
[LEFT]EndIf[/LEFT]



والسلام عليكم
أنقر للتوسيع...


مشكور يا الغالي لكن مش فهم كود:u:​

لكن طريقته الاحترافية بارك الله في فيك
أريد تطبيق كود مع الدالة مثال حذف ملف
أو نسخ
أريد تطبيق مره من فلاشة الى هارد
ومره في عكس​
 
توقيع : ramay
السلام عليكم ،
شباب عندي سؤال بسيط ..
لو بغيت أمر تشغيل الرابط المباشر ،
بمعنى لو وضعت رابط مقطع صوت مباشر
يعني بدون تحميل هذا المطقع ،
لمن يظغط على الزر ، يشتغل معاه المقطع من هذا الرابط
فهل فيه طريقه أو أمر ؟!
 
Dr.MoNy قال:
السلام عليكم ،
شباب عندي سؤال بسيط ..
لو بغيت أمر تشغيل الرابط المباشر ،
بمعنى لو وضعت رابط مقطع صوت مباشر
يعني بدون تحميل هذا المطقع ،
لمن يظغط على الزر ، يشتغل معاه المقطع من هذا الرابط
فهل فيه طريقه أو أمر ؟!
أنقر للتوسيع...

باستخدام أمر الدوس لتشغيل مواقع الويب

وسنطبق ذلك على الاوتوات كالامر التالي:

كود: 
#include <Process.au3>
_RunDos("START http://www.zyzoom.org/vb/")

سيشغل هذا الامر منتدى زيزوووم :d:

لا تنسى وضع
كود: 
#include <Process.au3>
في بداية الامر
 
توقيع : yones7x
السلام عليكم ..
أخباركم يا حلوين .. :b::d:
جآي أستفسر عن أمر بسيط إن شاء الله ..
مشروع صغير ..

مذكرهـ أرقام الأصدقاء
​
كود: 
[COLOR=Magenta]#Include[/COLOR][COLOR=Gray]<Array.au3>[/COLOR]
[CENTER][LEFT]   [COLOR=Blue]Dim [/COLOR][COLOR=DarkRed]$Array[/COLOR][COLOR=Red][[/COLOR][COLOR=DarkOrchid]2[/COLOR][COLOR=Red]][[/COLOR][COLOR=DarkOrchid]3[/COLOR][COLOR=Red]][/COLOR]
  [COLOR=DarkRed]$Array[/COLOR][COLOR=Red][[/COLOR][COLOR=DarkOrchid]0[/COLOR][COLOR=Red]][[/COLOR][COLOR=DarkOrchid]0[/COLOR][COLOR=Red]] = [/COLOR][COLOR=Gray]"Name 1"[/COLOR]
  [COLOR=DarkRed]$Array[/COLOR][COLOR=Red][[/COLOR][COLOR=DarkOrchid]0[/COLOR][COLOR=Red]][[/COLOR][COLOR=DarkOrchid]1[/COLOR][COLOR=Red]][/COLOR] [COLOR=Red]= [/COLOR][COLOR=Gray]"Number 1"[/COLOR]
  [COLOR=DarkRed]$Array[/COLOR][COLOR=Red][[/COLOR][COLOR=DarkOrchid]1[/COLOR][COLOR=Red]][[/COLOR][COLOR=DarkOrchid]0[/COLOR][COLOR=Red]] = [/COLOR][COLOR=Gray]"Name 2"[/COLOR]
  [COLOR=DarkRed]$Array[/COLOR][COLOR=Red][[/COLOR][COLOR=DarkOrchid]1[/COLOR][COLOR=Red]][[/COLOR][COLOR=DarkOrchid]1[/COLOR][COLOR=Red]][/COLOR] [COLOR=Red]=[/COLOR][COLOR=Gray]"Number 2"[/COLOR]
  [COLOR=DeepSkyBlue]_ArrayDisplay[/COLOR][COLOR=Red]([/COLOR][COLOR=DarkRed]$Array[/COLOR][COLOR=Red])[/COLOR]
[/LEFT]
[/CENTER]

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي


هم أربع إستفسارات

  • هل يمكن حذف العمود المحدد بـ الأحمر :d:
  • هل يمكن نسخ بس المحدد بـ الأصفر :mad:
هل يمكن تغيير عنوان اللي محدد بـ الأخضر :i:
  • كيف أضيف بيانات جديدهـ عن طريق واجهه رسوميه
(كأن تحفظ البيانات بالريجستري أو .. إلخ , لإسترجاعها عند طلبها)
# إذا كان في طريقه أسهل لتنفيذ الفكره غير المصفوفات ياليت تعرضونها

وفقكم الله :king:
​
 
توقيع : Bo.SaQeR
ramay قال:
مشكور يا الغالي لكن مش فهم كود:u:​

لكن طريقته الاحترافية بارك الله في فيك
أريد تطبيق كود مع الدالة مثال حذف ملف
أو نسخ
أريد تطبيق مره من فلاشة الى هارد
ومره في عكس​
أنقر للتوسيع...

إذا حاولت سأضع شئ, لكن الواضح أنك لم تجرب أي شئ
لأن الموضوع في قمة السهولة والبساطة ولا يحتاج إلا التجارب
# إذا كان في طريقه أسهل لتنفيذ الفكره غير المصفوفات ياليت تعرضونها
أنقر للتوسيع...
هذا هو الذي تريده (يحتاج بعض التطوير ليصبح أداة كاملة) :
كود: 
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=
$Database = @ScriptDir & "\Contacts.txt"

$Form1_1 = GUICreate("Contacts", 390, 275, 192, 124)
$List = GUICtrlCreateListView("", 5, 5, 194, 262)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)

$Group1 = GUICtrlCreateGroup("Add Contact :", 208, 42, 175, 113)
$NameEdit = GUICtrlCreateInput("", 272, 66, 105, 21)
$NumberEdit = GUICtrlCreateInput("", 272, 94, 105, 21)
GUICtrlCreateLabel("Name :", 216, 69, 38, 17)
GUICtrlCreateLabel("Number :", 218, 95, 47, 17)
$Save = GUICtrlCreateButton("Save", 256, 122, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Copy = GUICtrlCreateButton("Copy Selected", 205, 168, 179, 25, $WS_GROUP)

_GUICtrlListView_InsertColumn($List, 0, "Name", 70)
_GUICtrlListView_InsertColumn($List, 1, "Number", 120)
$Data = FileRead($Database)
$Len = StringSplit($Data, @CR)
$DataS = StringSplit($Data, "|")
For $s = 1 To $DataS[0] - 1 Step 2
    _GUICtrlListView_AddItem($List, $DataS[$s])
Next
For $s = 1 To $Len[0]
    _GUICtrlListView_AddSubItem($List, $s - 1, $DataS[$s * 2], 1)
Next

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Save
            FileWrite($Database, @CR & GUICtrlRead($NameEdit) & "|" & GUICtrlRead($NumberEdit) & "|")
            _GUICtrlListView_AddItem($List, GUICtrlRead($NameEdit))
            _GUICtrlListView_AddSubItem($List, $s - 1, GUICtrlRead($NumberEdit), 1)
            $s = $s + 1
        Case $Copy
            $Ind = _GUICtrlListView_GetSelectedIndices($List)
            $Copied = _GUICtrlListView_GetItemText($List, Int($Ind), 1)
            ClipPut($Copied)
    EndSwitch
WEnd

أتعبني هذا المثال :d:

بالتوفيق
​
 
توقيع : Alzri2
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى