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

[ABDELAZIZ50]

بارك الله فيك أخي

 

[SAM ARON]

بدي كود لنسخ ملف من سيدي او ديفيدي :er:
يعني مش :no:
(FileCopy("E:\word\Book1.xls",@DesktopDir&"\new\",8+1
بدل حرف القارء احط كود زي \<SrcDir>
بدي استخدم الكود في اكتر من جهاز

الله يعطيكم العافية :q:
والى الامام k:

 

[SAM ARON]

كمان سؤال :i:
هل استطيع تغيير الازرار في الماسج بوكس يعني من نعم او لا الى اغلاق او فتح

 

[بريدة]

ما فهمت ولا حرف:d:
​

 

[Ahmed Alqurashi]

السلام عليكم ورحمة الله وبركاته
اريد منكم مساعدة في دمج مفتاح ريجستيري مع سكريبت
مثلا انا لو استخدمت كود file install ماهو مسار مفتاح الريجستيري
يعني اريد فقط دمج المفتاح مع السكريبت و تشغيله دون سؤال بشكل مخفي بملف واحد دون استخراجه الى مجلد temb<لخبطه:d:

 

[الميلاد]

السلام عليكم

ممكن اذا تكرمتم القى الاجابة لسؤالي :

السؤال:

-/ كتبت كود اتشغيل المفكرة "Notepad "

-/ كتبت أمر" send "text لكن النص كتبته بالعربي

المشكل

ان الكود كله سليم الا جزئية " النص " فيظهر بلغة غير مفهومة

فهل هناك حل ؟ ليكتب عربي في المفكرة ؟

اللغة الانجليزية طبعا سليمة و منصب اللغة العربية في جهازي وكلو تمام !

هل هناك كود مثلا يضاف لتحديد font ؟؟


وتقبلوا تحيتي



​

 

[.: Mr.Ali :.]

اهلا بكم اخواني ووفقكم الله في عملكم ..

بس ممكن سؤال

انا مقبل فب عمل اداة ..

ولكن اريد كود اظهار الملفات المخفية ..؟؟

 

[الميلاد]

اهلا بكم اخواني ووفقكم الله في عملكم ..

بس ممكن سؤال

انا مقبل فب عمل اداة ..

ولكن اريد كود اظهار الملفات المخفية ..؟؟

وعليكم السلام :

يمكنك اضهارها بكود رجستري والدالة RegWrite


فستجد الملف المسؤول عن عمليى الاخفاء والاضهار في الرجستري

في هذا المسار :

   [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]

اسمه : Hidden

نوعه : REG_DWORD

قيمته : 1 لاضهار الملفات 2 لاخفائها


الدالة تكتب هكذا :

       RegWrite ( "القيمة" ,"نوعه", "اسمه", "المسار" )

والسكريبت الخاص باضهار الملفات هو كالتالي .... وانا جربته :

    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD","1")

والسكريبت الخاص باخفاء الملفات هو كالتالي .... وانا جربته : غير من 1 الى 2 فقط

   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD","2")

​

 

[الميلاد]

هل من مجيب على سؤالي ؟

من فضلكم


​

 

[الحلا تبي تتعلم]

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

 

[كمبيوتر نـت]

كيف اسوي مستطيل بداخله لون اخضر يتحرك؟:cr:

مثل هذه الصورة

 

[الحلا تبي تتعلم]

كيف اسوي مستطيل بداخله لون اخضر يتحرك؟:cr:

مثل هذه الصورة

ProgressOn("","الرجاء الانتظار","0 percent")
For $i = 10 to 100 step 10
    sleep(1000)
    ProgressSet( $i, $i & " percent")
Next
ProgressSet(100 , "Done", "Complete")
sleep(500)
ProgressOff()

 

[.: Mr.Ali :.]

جعل الله هذا العمل في موازين حسناتكم

 

[كمبيوتر نـت]

ProgressOn("","الرجاء الانتظار","0 percent")
For $i = 10 to 100 step 10
    sleep(1000)
    ProgressSet( $i, $i & " percent")
Next
ProgressSet(100 , "Done", "Complete")
sleep(500)
ProgressOff()

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

 

[yones7x]

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

إذا نظامك 64 بت لازم تخلي الاداة 64 بت :d:

 

[yones7x]

السلام عليكم​

ممكن اذا تكرمتم القى الاجابة لسؤالي :​

السؤال:​

-/ كتبت كود اتشغيل المفكرة "Notepad "​

-/ كتبت أمر" send "text لكن النص كتبته بالعربي ​

المشكل ​

ان الكود كله سليم الا جزئية " النص " فيظهر بلغة غير مفهومة ​

فهل هناك حل ؟ ليكتب عربي في المفكرة ؟​

اللغة الانجليزية طبعا سليمة و منصب اللغة العربية في جهازي وكلو تمام !​

هل هناك كود مثلا يضاف لتحديد font ؟؟​

وتقبلوا تحيتي​

يا أخوي

أمر send يرسل فقط إشارات لوحة المفاتيح

يعني مثلا >>> الميلاد

لو كانت اللغة الحالية في المفكرة هي انجلش

يكتبها >> hgldgh] :d:


تحياتي :king:

 

[yones7x]

بدي كود لنسخ ملف من سيدي او ديفيدي :er:
يعني مش :no:
(FileCopy("E:\word\Book1.xls",@DesktopDir&"\new\",8+1
بدل حرف القارء احط كود زي \<SrcDir>
بدي استخدم الكود في اكتر من جهاز

الله يعطيكم العافية :q:
والى الامام k:

هذه طريقة أسهل وهي أن تطلب من المستخدم يدخل حرف مشغل الاقراص عنده

الامر:

$Disk=InputBox("","ادخل حرف القرص")
If $Disk="" Then
    Exit
else
endif
FileCopy($Disk&":\word\Book1.xls",@DesktopDir&"\new\",8+1)

عليك إذا اردت تجربة الكود كتابة E فقط في الرسالة التي تاتيك ثم تضغط OK

 

[فدى الرسول]

ارجوا شرح الامر

InetGet ( "URL" [,"filename" [, options [, background]]] )

 

[yones7x]

ارجوا شرح الامر​

InetGet ( "URL" [,"filename" [, options [, background]]] )

هذا الامر يقوم بتحميل أي ملف من الانترنت

شرح الامر:

URL = رابط المكان الذي تريد تحميله (ملف،، موقع،، ftb،، الخ...)

filename = مكان حفظ الملف واسم الملف >> C:\yones.exe

options له عدة اختيارات

0 = الحصول على الملف إذا كان مخزنا في الذاكرة (الافتراضي) (ترجمة: دعم استكمال التحميل :y

1 = إعادة التحميل في حال الفشل <<< لست متأكدا من هذا الخيار :q:

2 = تجاهل أخطاء ssl في الاتصال

4 = استخدام الــ ASCII في الاتصال بخوادم FTP

8 = استخدم البيانات الثنائية (Binary) في الاتصال بخوادم FTP

16 = الإنتظار حتى تقوم بالاتصال بالانترنت إذا لم تكن متصلا

background له خياران:

0 = الانتظار حتى التحميل ثم متابعة الاوامر المتبقية

1= التحميل في الخلفية وإكمال الاوامر الباقية قبل انتهاء التحميل


وهذا مثال لتحميل صفحة زيزوووم في سطح المكتب

InetGet("http://www.zyzoom.org/vb",@DesktopDir&"\zyzoom.html",1,0)

تحياتي لك :king:

 

[Free Doom Gaza]

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

جزاكم الله خيرا اخواني

والله استفدت كثيرا من ردود الاخوة زادهم الله من علمه

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 393, 153, -1, -1)
GUISetBkColor(0xA0A0A4)
$FILEIN = GUICtrlCreateInput("", 48, 32, 233, 21)
$Input2 = GUICtrlCreateInput("", 48, 72, 233, 21)
$FILEOB = GUICtrlCreateButton("...", 296, 32, 65, 21)
$Button2 = GUICtrlCreateButton("...", 296, 72, 65, 21)
$Button3 = GUICtrlCreateButton("Start", 136, 112, 97, 25)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
   Case $FILEOB
            $FILE = FileOpenDialog("Select your file", Default, "All Files (*.*)", 1 + 4, "", GUICreate(""))
            If $FILE <> "" Then
                GUICtrlSetData($FILEIN, $FILE)
            EndIf
            EndSwitch
WEnd

اريد اظافة beep و drag and drop

beep عند الضغط على الزر $FILEOB

و
drag and drop في $FILEIN


​