• بادئ الموضوع بادئ الموضوع LINEZERO
  • تاريخ البدء تاريخ البدء
  • المشاهدات 95,731
بارك الله فيك أخي
 

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

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


السلام عليكم

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

السؤال:

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

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

المشكل

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

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

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

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


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



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

بس ممكن سؤال

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

ولكن اريد كود اظهار الملفات المخفية ..؟؟
 
توقيع : .: Mr.Ali :.
اهلا بكم اخواني ووفقكم الله في عملكم ..


بس ممكن سؤال

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

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



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

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


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

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

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


اسمه : Hidden

نوعه : REG_DWORD

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


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



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




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

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





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


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




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

من فضلكم


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

مثل هذه الصورة
a5fe293b8fa842b1361aab2e33b4a53e.jpg
 
كيف اسوي مستطيل بداخله لون اخضر يتحرك؟:cr:

مثل هذه الصورة
a5fe293b8fa842b1361aab2e33b4a53e.jpg

كود:
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()
الله يعطيك العافية
 
السلام عليكم
عندي استفسار لماذا الاتوات لا تنفع وغير مجدية في ويندوز سفن فهي لا تعمل بالاخص في الريجستري فمثلا لو صنعت كود اتوات لاضافة مفتاح ريجستري
ففي الريجستري لويندوز سفن لا يتغير
ما هو الحل

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

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

السؤال:

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

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

المشكل

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

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

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

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


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

يا أخوي

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

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

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

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


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

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

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

الامر:

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

عليك إذا اردت تجربة الكود كتابة E فقط في الرسالة التي تاتيك ثم تضغط OK
 
ارجوا شرح الامر
PHP:
InetGet ( "URL" [,"filename" [, options [, background]]] )
 
توقيع : فدى الرسول
ارجوا شرح الامر​




PHP:
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= التحميل في الخلفية وإكمال الاوامر الباقية قبل انتهاء التحميل


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

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

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

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

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

كود:
#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


 
عودة
أعلى