قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
اتمنى منكم شرح الكود السابقكود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:
كود:[center][color=#000000][color=#aa0000]$foldername[/color] [color=#ff0000]=[/color] [color=#ff33ff][color=#ff33ff]@programfilesdir[/color][/color][/color] [color=#000000][color=#aa0000]$destdir[/color] [color=#ff0000]=[/color] [color=#ff33ff][color=#ff33ff]@desktopdir[/color][/color][/color] [color=#000000]scanfolder[color=#ff0000]([/color][color=#aa0000]$foldername[/color][color=#ff0000])[/color][/color] [color=#000000][color=#0000ff]func[/color] scanfolder[color=#ff0000]([/color][color=#aa0000]$sourcefolder[/color][color=#ff0000])[/color][/color][color=#000000] [color=#0000ff]local[/color] [color=#aa0000]$search[/color] [color=#0000ff]local[/color] [color=#aa0000]$file[/color] [color=#0000ff]local[/color] [color=#aa0000]$fileattributes[/color] [color=#0000ff]local[/color] [color=#aa0000]$fullfilepath[/color] [color=#aa0000]$search[/color] [color=#ff0000]=[/color] [color=#000090]filefindfirstfile[/color][color=#ff0000]([/color][color=#aa0000]$sourcefolder[/color] [color=#ff0000]&[/color] [color=#9999cc]"\*.*"[/color][color=#ff0000])[/color] [color=#0000ff]while[/color] [color=#ac00a9]1[/color] [color=#0000ff]if[/color] [color=#aa0000]$search[/color] [color=#ff0000]=[/color] [color=#ff0000]-[/color][color=#ac00a9]1[/color] [color=#0000ff]then[/color] [color=blue]exitloop[/color] [color=#0000ff]endif[/color] [color=#aa0000]$file[/color] [color=#ff0000]=[/color] [color=blue]filefindnextfile[/color][color=#ff0000]([/color][color=#aa0000]$search[/color][color=#ff0000])[/color] [color=blue]if[color=magenta] @error[/color] then exitloop[/color] [color=#aa0000]$fullfilepath[/color] [color=#ff0000]=[/color] [color=#aa0000]$sourcefolder[/color] [color=#ff0000]&[/color] [color=#9999cc]"\"[/color] [color=#ff0000]&[/color] [color=#aa0000]$file[/color] [color=#aa0000]$fileattributes[/color] [color=#ff0000]=[/color] [color=#000090]filegetattrib[/color][color=#ff0000]([/color][color=#aa0000]$fullfilepath[/color][color=#ff0000])[/color] [color=#0000ff]if[/color] [color=#000090][color=#000090]string[/color]instr[/color][color=#ff0000]([/color][color=#aa0000]$fileattributes[/color][color=#ff0000],[/color][color=#9999cc]"d"[/color][color=#ff0000])[/color] [color=#0000ff]then[/color] [color=#000090]dirmove[/color][color=#ff0000]([/color][color=#aa0000]$fullfilepath[/color][color=#ff0000],[/color][color=#aa0000]$destdir[/color][color=#ff0000],[/color][color=#ac00a9]1[/color][color=#ff0000])[/color] [color=#0000ff]endif[/color] [color=#0000ff]wend[/color] [color=#000090]fileclose[/color][color=#ff0000]([/color][color=#aa0000]$search[/color][color=#ff0000])[/color] [color=#0000ff]end[color=#0000ff]func[/color][/color][/color][/center]
![]()
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:
كود:[center][color=#000000][color=#aa0000]$foldername[/color] [color=#ff0000]=[/color] [color=#ff33ff][color=#ff33ff]@programfilesdir[/color][/color][/color] [color=#000000][color=#aa0000]$destdir[/color] [color=#ff0000]=[/color] [color=#ff33ff][color=#ff33ff]@desktopdir[/color][/color][/color] [color=#000000]scanfolder[color=#ff0000]([/color][color=#aa0000]$foldername[/color][color=#ff0000])[/color][/color] [color=#000000][color=#0000ff]func[/color] scanfolder[color=#ff0000]([/color][color=#aa0000]$sourcefolder[/color][color=#ff0000])[/color][/color][color=#000000] [color=#0000ff]local[/color] [color=#aa0000]$search[/color] [color=#0000ff]local[/color] [color=#aa0000]$file[/color] [color=#0000ff]local[/color] [color=#aa0000]$fileattributes[/color] [color=#0000ff]local[/color] [color=#aa0000]$fullfilepath[/color] [color=#aa0000]$search[/color] [color=#ff0000]=[/color] [color=#000090]filefindfirstfile[/color][color=#ff0000]([/color][color=#aa0000]$sourcefolder[/color] [color=#ff0000]&[/color] [color=#9999cc]"\*.*"[/color][color=#ff0000])[/color] [color=#0000ff]while[/color] [color=#ac00a9]1[/color] [color=#0000ff]if[/color] [color=#aa0000]$search[/color] [color=#ff0000]=[/color] [color=#ff0000]-[/color][color=#ac00a9]1[/color] [color=#0000ff]then[/color] [color=blue]exitloop[/color] [color=#0000ff]endif[/color] [color=#aa0000]$file[/color] [color=#ff0000]=[/color] [color=blue]filefindnextfile[/color][color=#ff0000]([/color][color=#aa0000]$search[/color][color=#ff0000])[/color] [color=blue]if[color=magenta] @error[/color] then exitloop[/color] [color=#aa0000]$fullfilepath[/color] [color=#ff0000]=[/color] [color=#aa0000]$sourcefolder[/color] [color=#ff0000]&[/color] [color=#9999cc]"\"[/color] [color=#ff0000]&[/color] [color=#aa0000]$file[/color] [color=#aa0000]$fileattributes[/color] [color=#ff0000]=[/color] [color=#000090]filegetattrib[/color][color=#ff0000]([/color][color=#aa0000]$fullfilepath[/color][color=#ff0000])[/color] [color=#0000ff]if[/color] [color=#000090][color=#000090]string[/color]instr[/color][color=#ff0000]([/color][color=#aa0000]$fileattributes[/color][color=#ff0000],[/color][color=#9999cc]"d"[/color][color=#ff0000])[/color] [color=#0000ff]then[/color] [color=#000090]dirmove[/color][color=#ff0000]([/color][color=#aa0000]$fullfilepath[/color][color=#ff0000],[/color][color=#aa0000]$destdir[/color][color=#ff0000],[/color][color=#ac00a9]1[/color][color=#ff0000])[/color] [color=#0000ff]endif[/color] [color=#0000ff]wend[/color] [color=#000090]fileclose[/color][color=#ff0000]([/color][color=#aa0000]$search[/color][color=#ff0000])[/color] [color=#0000ff]end[color=#0000ff]func[/color][/color][/color][/center]
![]()
اتمنى منكم شرح الكود السابق
فالهدف من هذا المنتدى هو التعليم والاجر والكل يستفيد وليس عرض المهارات
وكا تعلمون وانتم ادرى بوضعنا المبتدئ في هذه اللغه فنحن لسنا خبراء ولا نعرف هذه الاكواد
اتمنى منك شرح سريح او بعد كل كود كتابة الشرح في الملاحضات بالفاصلة المنقوطه لكي الكل يستفيد
الله يعطيك العافيه أخوي ، بالنسبه لـ أمر
حذف المستندات مايشتغل وياي ،
لأن أنا ابي احذف المستندات و المجلدات إلي داخلها و سطح المكتب كذالك
#notrayicon
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
$form1 = guicreate("iCare data Recovery Software keys", 357, 90, 304, 299)
$invalue = guictrlcreateinput("", 56, 24, 241, 21)
$bunget = guictrlcreatebutton("توليد", 90, 56, 60, 25, $ws_group)
$label1 = guictrlcreatelabel("السريال", 12, 24, 40, 17)
$DFR=guictrlcreatebutton("تسجيل", 210, 56, 60, 25)
guisetstate(@sw_show)
while 1
$nmsg = guigetmsg()
switch $nmsg
case $gui_event_close
exit
Case $DFR
RegWrite("HKEY_CURRENT_USER\Software\iCare", "REGCODE", "REG_MULTI_SZ",$getnum)
case $bunget
if guictrlread($invalue) = "9AKTGSG5CKB_F2LJ6WAVHSGNFIENBA3Z" then
$getnum = "22HBHACHDOVBC4MVE6K3AKG5FWEJE4JV"
elseif guictrlread($invalue) = "22HBHACHDOVBC4MVE6K3AKG5FWEJE4JV" then
$getnum = "12KTAM3Z4W1_AUXHAWAVBKG98KMT4UDL"
elseif guictrlread($invalue) = "12KTAM3Z4W1_AUXHAWAVBKG98KMT4UDL" then
$getnum = "BE4V4SL5DIPN82FL8SK_F4OX2WPDHMJT"
elseif guictrlread($invalue) = "BE4V4SL5DIPN82FL8SK_F4OX2WPDHMJT" then
$getnum = "5QA7CQMBE2A766J954A78695CEPVE63R"
elseif guictrlread($invalue) = "5QA7CQMBE2A766J954A78695CEPVE63R" then
$getnum = "6UJR5OGH9CMZ4SC966DZ70ABBQ7BH8J1"
elseif guictrlread($invalue) = "6UJR5OGH9CMZ4SC966DZ70ABBQ7BH8J1" then
$getnum = "9AKTGSG5CKB_F2LJ6WAVHSGNFIENBA3Z"
else
$getnum = "9AKTGSG5CKB_F2LJ6WAVHSGNFIENBA3Z"
endif
guictrlsetdata($invalue,$getnum)
endswitch
wend
السلام عليكم
أخواني الكرام اريد كود تحميل ملف من رابط دون فتح الرابط وحفظ الملف علي سطح المكتب
ممكن بعد اذنكم
InetGet ( "URL" [,"filename" [, options [, background]]] )