• بادئ الموضوع بادئ الموضوع LINEZERO
  • تاريخ البدء تاريخ البدء
  • المشاهدات 95,715
بالنسبة للبندر والله لا بقاتل ولا حاجة بس حب الفضول وحب التعلم وحب الاستفادة لأن مجال عملي يجبرني على هالشيء

وأنا ما أسعى لعمل أدوات وأقوم بتنزيلها في النت؟؟؟!!!! مو هدفي هالشي بس هدفي اتعلم واعرف واستفيد
 

صبااحكم عسل ..

يالحلاا انت باقي تهاوش الناس على اكوادهم ... :smile:
صباحك عسل يا الغالي كيفك
أن شاء الله تكون بأفضل االحال وصحة وعافية
من زمن وين هل غيبات
نورت منتدى
أشتقنلك:king:
 
توقيع : ramay
هذا مثال عليها بأبسط صورة ممكنه

كود:
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm##include][color=#F000FF][i]#include[/i][/color][/url] [color=#9999CC]<ButtonConstants.au3>[/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm##include][color=#F000FF][i]#include[/i][/color][/url] [color=#9999CC]<GUIConstantsEx.au3>[/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm##include][color=#F000FF][i]#include[/i][/color][/url] [color=#9999CC]<WindowsConstants.au3>[/color]

[color=#AA0000]$window[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/GUICreate.htm][color=#000090][i]GUICreate[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]""[/color][color=#FF0000],[/color] [color=#AC00A9][i]169[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]80[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]192[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]124[/i][/color][color=#FF0000])[/color]
[color=#AA0000]$Button[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/GUICtrlCreateButton.htm][color=#000090][i]GUICtrlCreateButton[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"Download"[/color][color=#FF0000],[/color] [color=#AC00A9][i]24[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]16[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]123[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]41[/i][/color][color=#FF0000])[/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/GUICtrlSetFont.htm][color=#000090][i]GUICtrlSetFont[/i][/color][/url][color=#FF0000](-[/color][color=#AC00A9][i]1[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]12[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]800[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]0[/i][/color][color=#FF0000],[/color] [color=#9999CC]"MS Sans Serif"[/color][color=#FF0000])[/color]

[url=http://www.autoitscript.com/autoit3/docs/functions/GUISetState.htm][color=#000090][i]GUISetState[/i][/color][/url][color=#FF0000]([/color][url=http://www.autoitscript.com/autoit3/docs/macros.htm#@sw_show][color=#FF33FF]@SW_SHOW[/color][/url][color=#FF0000])[/color]

[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#While][color=#0000FF]While[/color][/url] [color=#AC00A9][i]1[/i][/color]
    [color=#AA0000]$nMsg[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/GUIGetMsg.htm][color=#000090][i]GUIGetMsg[/i][/color][/url][color=#FF0000]()[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Switch][color=#0000FF]Switch[/color][/url] [color=#AA0000]$nMsg[/color]
        [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Case][color=#0000FF]Case[/color][/url] [color=#AA0000]$GUI_EVENT_CLOSE[/color]
            [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Exit][color=#0000FF]Exit[/color][/url]
        [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Case][color=#0000FF]Case[/color][/url] [color=#AA0000]$Button[/color]
        [color=#669900][i]#cs
        عند النقر على زر التحميل يتنفذ الكود التالي
        FileSaveDialog  :
                    دالة تظهر نافذة الحفظ  وترجع مسار الملف المراد حفظة
        $path :
            لحفظ ماترجعه الدالة فيه
        #ce
[/i][/color]        [color=#AA0000]$path[/color] [color=#FF0000]=[/color]  [url=http://www.autoitscript.com/autoit3/docs/functions/FileSaveDialog.htm][color=#000090][i]FileSaveDialog[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"Save"[/color][color=#FF0000],[/color][url=http://www.autoitscript.com/autoit3/docs/macros.htm#@scriptdir][color=#FF33FF]@ScriptDir[/color][/url][color=#FF0000],[/color][color=#9999CC]"All File (*.*)"[/color][color=#FF0000],[/color][color=#AC00A9][i]2[/i][/color][color=#FF0000],[/color][color=#9999CC]""[/color][color=#FF0000],[/color][color=#AA0000]$window[/color][color=#FF0000])[/color]

        [color=#669900][i]#cs
            InetGet :
            دالة لطلب تنزيل ملف
            المدخل الاول رابط التنزيل
            المدخل الثاني مسار الحفظ
        #ce
[/i][/color]
        [url=http://www.autoitscript.com/autoit3/docs/functions/InetGet.htm][color=#000090][i]InetGet[/i][/color][/url] [color=#FF0000]([/color][color=#9999CC]"https://dc1.safesync.com/LMHmFbrB/TEST/test.txt?a=1iPsSqePzww"[/color][color=#FF0000],[/color][color=#AA0000]$path[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#EndSwitch][color=#0000FF]EndSwitch[/color][/url]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd][color=#0000FF]WEnd[/color][/url]


شكراً اخي
 
توقيع : M.$py.M
أسْع‘ـدَ الله قَلِبِكْ .. وَشَرَحَ صَدِرِكْ ..
وأنَــــآرَ دَرِبــكْ .. وَفَرَجَ هَمِكْ ..

يَع‘ـطِيِكْ رِبي ألَفْ عَ‘ــآآإفِيَه عَلىآ الطَرِحْ
المُفِيدْ ..~
جَعَ‘ـلَهْ الله فِي مُيزَآإنْ حَسَنَـآتِك يوًم القِيَــآمَه ..
وشَفِيعْ لَكِ يَومَ الحِسَــآإبْ ..~

شَرَفَنِي المَرٌوُر فِي مُتَصَفِحِكْ العَ ـطِرْ ..~
تَقَبِلْ تَوآإجِدِي ..
دُمتَ بَحِفْظْ الرَحَمَــــن ..}
 
السلام عليكم

عندي استفسار ويا ليت اجد أذان صاغية

مثلا عندي نافذة مفتوحة لحذف برنامج وتوجد أزرار ثلاثة وأريد اضغط على زر إنهاء

فما هو السكربت الذي سأستخدمه مع الامر
send
كود:
winwaitactive("title","text")
send(????)
بحيث توجد ثلاثة ازرار وهي بالترتيب كالتالي
BACK FINISH CANCEL

وانا أريد الضغط على زر FINISH
فما هو السكربت المسؤول عن ذلك
 
السلام عليكم

عندي استفسار ويا ليت اجد أذان صاغية

مثلا عندي نافذة مفتوحة لحذف برنامج وتوجد أزرار ثلاثة وأريد اضغط على زر إنهاء

فما هو السكربت الذي سأستخدمه مع الامر
send
كود:
winwaitactive("title","text")
send(????)
بحيث توجد ثلاثة ازرار وهي بالترتيب كالتالي
BACK FINISH CANCEL

وانا أريد الضغط على زر FINISH
فما هو السكربت المسؤول عن ذلك

صراحه مافهمت اعذرني

بس هل تقصد هذا ؟؟

كود:
Send("#r")
Sleep(2000)
Send("notepad.exe{Enter}")
 
توقيع : System32
صراحه مافهمت اعذرني

بس هل تقصد هذا ؟؟

كود:
Send("#r")
Sleep(2000)
Send("notepad.exe{Enter}")


لا ذاك الامر الذي قصدته يستخدم في امر الازرار

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

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

كود:
$removable = DriveGetDrive("REMOVABLE")
If Not @error Then
    MsgBox(4096,"", "Found " & $removable[0] & " drives")
 $1 = $removable&"\RECYCLER\"
 $11 = FileExists($1)
 If $11 = 1 Then
  MsgBox(0,"","مجلد موجود ")
 Else
  MsgBox(0,""," مجلد غير موجود")
 EndIf
 EndIf
 
توقيع : ramay
السلام عليكم ورحمةالله وبركاته
يا شباب أريد تأكد من مجلد داخل فلاشة جربة هذا كود لكن لم أنجح فما هو كود صحيح

كود:
$removable = DriveGetDrive("REMOVABLE")
If Not @error Then
    MsgBox(4096,"", "Found " & $removable[0] & " drives")
 $1 = $removable&"\RECYCLER\"
 $11 = FileExists($1)
 If $11 = 1 Then
  MsgBox(0,"","مجلد موجود ")
 Else
  MsgBox(0,""," مجلد غير موجود")
 EndIf
 EndIf

هلا رامي :king:

DriveGetDrive

دالة ترجع مصفوفه ال Drive المتصله بالجهاز .

في الكود حطيت القيمة الي تعود بها الدالة في المتغير
كود:
$removable

لو فية أجهزه راح يكون العنصر الاول في المصفوفه 0 يكون فية عدد الاجهزة

فمثلا لو في 3 أجهزة نوصل للأجهزه هكذا

كود:
$removable[0] ; عدد الاجهزة
$removable[1] ; الجهاز الاول
$removable[2] ; الجهاز الثاني
$removable[3] ;الجهاز الثالث

تصحيح كودك :
كود:
$removable = DriveGetDrive("REMOVABLE")
If Not @error Then
    MsgBox(4096,"", "Found " & $removable[0] & " drives")
	 $1 = $removable[1]&"\RECYCLER\"
	 $11 = FileExists($1)
	 If $11 = 1 Then
		MsgBox(0,"","مجلد موجود ")
	 Else
		MsgBox(0,""," مجلد غير موجود")
	 EndIf
 EndIf

مثال على الدالة :

كود:
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <GuiComboBox.au3>

$Form1 = GUICreate("Form1", 267, 154, 192, 124)
$Combo1 = GUICtrlCreateCombo("", 56, 40, 201, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Input1 = GUICtrlCreateInput("", 56, 80, 201, 21)
$Button1 = GUICtrlCreateButton("Check", 88, 112, 75, 25)
$Label1 = GUICtrlCreateLabel("Drive :", 8, 40, 42, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Folder :", 8, 80, 47, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)


$Drives = DriveGetDrive("REMOVABLE")

if IsArray($Drives) Then ; التحقق هل المتغير يشير إلى مصفوفه

	For $i = 1 to $Drives[0]

	_GUICtrlComboBox_AddString($Combo1,StringUpper($Drives[$i]))

	next
endif
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$Folder = GUICtrlRead($Input1)
			$Drive = GUICtrlRead($Combo1)
			if FileExists($Drive & "\" & $Folder ) Then
				MsgBox(0,"","المجلد موجود")
			endif
	EndSwitch
WEnd

:d:​
 
توقيع : waget
هلا رامي :king:​

DriveGetDrive​

دالة ترجع مصفوفه ال Drive المتصله بالجهاز .​

في الكود حطيت القيمة الي تعود بها الدالة في المتغير
كود:
$removable

لو فية أجهزه راح يكون العنصر الاول في المصفوفه 0 يكون فية عدد الاجهزة​

فمثلا لو في 3 أجهزة نوصل للأجهزه هكذا​

كود:
[CENTER]$removable[0] ; عدد الاجهزة
$removable[1] ; الجهاز الاول
$removable[2] ; الجهاز الثاني
$removable[3] ;الجهاز الثالث[/CENTER]

تصحيح كودك :​

كود:
$removable = DriveGetDrive("REMOVABLE")
كود:
[CENTER]If Not @error Then
[CENTER]   MsgBox(4096,"", "Found " & $removable[0] & " drives")
     $1 = $removable[1]&"\RECYCLER\"
     $11 = FileExists($1)
     If $11 = 1 Then
        MsgBox(0,"","مجلد موجود ")
     Else
        MsgBox(0,""," مجلد غير موجود")
     EndIf
EndIf[/CENTER]

مثال على الدالة :​

كود:
[CENTER]#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <GuiComboBox.au3>[/CENTER]
 
[CENTER]$Form1 = GUICreate("Form1", 267, 154, 192, 124)
$Combo1 = GUICtrlCreateCombo("", 56, 40, 201, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Input1 = GUICtrlCreateInput("", 56, 80, 201, 21)
$Button1 = GUICtrlCreateButton("Check", 88, 112, 75, 25)
$Label1 = GUICtrlCreateLabel("Drive :", 8, 40, 42, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Folder :", 8, 80, 47, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)[/CENTER]
 
 
[CENTER]$Drives = DriveGetDrive("REMOVABLE")[/CENTER]
 
[CENTER]if IsArray($Drives) Then ; التحقق هل المتغير يشير إلى مصفوفه[/CENTER]
 
[CENTER]    For $i = 1 to $Drives[0][/CENTER]
 
[CENTER]    _GUICtrlComboBox_AddString($Combo1,StringUpper($Drives[$i]))[/CENTER]
 
[CENTER]    next
endif
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $Folder = GUICtrlRead($Input1)
            $Drive = GUICtrlRead($Combo1)
            if FileExists($Drive & "\" & $Folder ) Then
                MsgBox(0,"","المجلد موجود")
            endif
    EndSwitch
WEnd[/CENTER]


:d:​

بارك الله فيك أستاذ عبد الله
كيفك أن شاء الله بصحة وعافيه يا الغالي

أنا أريد يعمل مع فلاشة و هاردات خارجيه
فما هو الافضل كود لذلك
وأن يعمل في أي جهاز

[/CENTER]
 
توقيع : ramay
أستاذ عبدالله

إذا ما عليك تعب

ايش رايك نبدأ بشرح أوامر Control وأوامر Win للأعضاء الكرام :d:

وأنا باساعدك بنصف الشرح، يعني كل يوم يتم وضع درسين بإذن الله أو على الاقل درس واحد كل يومين

إذا موافق جاوبني على الخاص علما إن موعد بدء الدروس يكون بعد تاريخ 19/03/2012م (الاثنين القادم)

ولا تنسوا تدعوا لي بالتوفيق في امتحانات الفصل الثاني (اليوم علينا لغة عربية) :d:
 
السلام عليكم
لقد كنت تائها في الوضوع القديم ولم أعلم بهذا الجديد
المهم الحمد لله
سنبدأ

2dca18acee60bfe224e53a7dcf331f5c.gif

 
توقيع : 4n000r
أستاذ عبدالله

إذا ما عليك تعب

ايش رايك نبدأ بشرح أوامر Control وأوامر Win للأعضاء الكرام :d:

وأنا باساعدك بنصف الشرح، يعني كل يوم يتم وضع درسين بإذن الله أو على الاقل درس واحد كل يومين

إذا موافق جاوبني على الخاص علما إن موعد بدء الدروس يكون بعد تاريخ 19/03/2012م (الاثنين القادم)

ولا تنسوا تدعوا لي بالتوفيق في امتحانات الفصل الثاني (اليوم علينا لغة عربية) :d:





السلام عليكم
إن شاء الله معاك يا أخ يونس


2dca18acee60bfe224e53a7dcf331f5c.gif

 
توقيع : 4n000r
السلام عليكم
إن شاء الله معاك يا ذا النون


2dca18acee60bfe224e53a7dcf331f5c.gif


اسمح لي أعارضك على هذا الرد
ذا النون يونس عليه السلام نبي من أنبياء الله ولا يمكن تشبيهه بأحد من العامة
 
اسمح لي أعارضك على هذا الرد
ذا النون يونس عليه السلام نبي من أنبياء الله ولا يمكن تشبيهه بأحد من العامة


السلام عليكم
ماشاء الله عليك
لكن مثلا إسم يحي كان أول إسم لنبي الله عليه السلام سماه الله تعالى ونحن نسمي بإسمه
إذن كان قصدي عادي وليس تشبيه

- على العموم تم التحرير -

تحياتي



2dca18acee60bfe224e53a7dcf331f5c.gif


 
توقيع : 4n000r
-

السلام عليكم

ممكن التحكم في حجم وشكل الخط في Msgbox




2dca18acee60bfe224e53a7dcf331f5c.gif

 
توقيع : 4n000r
هل من جديد
 
توقيع : 4n000r
بارك الله فيك أستاذ عبد الله
كيفك أن شاء الله بصحة وعافيه يا الغالي

أنا أريد يعمل مع فلاشة و هاردات خارجيه
فما هو الافضل كود لذلك
وأن يعمل في أي جهاز

[/CENTER]

الكود السابق سيعمل على كل الاجهزه إن شاء الله وأيضاُ يظهر الفلاش الموصول بالجهاز

عدا الهاردات الخارجية << حسب اللي عندي لم يعمل معه :?:
 
توقيع : waget
السلام عليكم اخوانى الكرام

اشكركم على مجهودكم ومساعدتكم للاعضاء ..

جزاكم الله كل خير ..

--------------------------

عندى سؤال بسيط

قمت بعمل برنامج WinISO تنصيب صامت

وهذا الكود

كود:
Opt("MouseCoordMode",0)
Run("C:\Documents and Settings\Administrator\Desktop\winiso\winiso.exe")
WinWait("WinISO v6.1.0 Setup","Welcome to the WinIS")
If Not WinActive("WinISO v6.1.0 Setup","Welcome to the WinIS") Then WinActivate("WinISO v6.1.0 Setup","Welcome to the WinIS")
WinWaitActive("WinISO v6.1.0 Setup","Welcome to the WinIS")
Send("{ALTDOWN}n{ALTUP}")
WinWait("WinISO v6.1.0 Setup ","Nullsoft Install Sys")
If Not WinActive("WinISO v6.1.0 Setup ","Nullsoft Install Sys") Then WinActivate("WinISO v6.1.0 Setup ","Nullsoft Install Sys")
WinWaitActive("WinISO v6.1.0 Setup ","Nullsoft Install Sys")
Send("{ALTDOWN}a{ALTUP}{ALTDOWN}i{ALTUP}")
WinWait("WinISO v6.1.0 Setup ","Completing the WinIS")
If Not WinActive("WinISO v6.1.0 Setup ","Completing the WinIS") Then WinActivate("WinISO v6.1.0 Setup ","Completing the WinIS")
WinWaitActive("WinISO v6.1.0 Setup ","Completing the WinIS")
Send("{SPACE}{ALTDOWN}f{ALTUP}")
FileCopy("user.ini",@AppDataDir&"\WinISO Computing\WinISO\",1)

لكن مشكلتى مع اخر امر وهو امر التفعيل للبرنامج لا يعمل اعتقد انه ناقص شىء

مع انى قمت بعمل اسكربت منفرد بهذا الامر نجح فى التفعيل ولكنى كنت اريد دمجه مع نفس اسكربت البرنامج
كود:
FileCopy("user.ini",@AppDataDir&"\WinISO Computing\WinISO\",1)


كل الود
 
السلام عليكم اخوانى الكرام

اشكركم على مجهودكم ومساعدتكم للاعضاء ..

جزاكم الله كل خير ..

--------------------------

عندى سؤال بسيط

قمت بعمل برنامج WinISO تنصيب صامت

وهذا الكود

كود:
Opt("MouseCoordMode",0)
Run("C:\Documents and Settings\Administrator\Desktop\winiso\winiso.exe")
WinWait("WinISO v6.1.0 Setup","Welcome to the WinIS")
If Not WinActive("WinISO v6.1.0 Setup","Welcome to the WinIS") Then WinActivate("WinISO v6.1.0 Setup","Welcome to the WinIS")
WinWaitActive("WinISO v6.1.0 Setup","Welcome to the WinIS")
Send("{ALTDOWN}n{ALTUP}")
WinWait("WinISO v6.1.0 Setup ","Nullsoft Install Sys")
If Not WinActive("WinISO v6.1.0 Setup ","Nullsoft Install Sys") Then WinActivate("WinISO v6.1.0 Setup ","Nullsoft Install Sys")
WinWaitActive("WinISO v6.1.0 Setup ","Nullsoft Install Sys")
Send("{ALTDOWN}a{ALTUP}{ALTDOWN}i{ALTUP}")
WinWait("WinISO v6.1.0 Setup ","Completing the WinIS")
If Not WinActive("WinISO v6.1.0 Setup ","Completing the WinIS") Then WinActivate("WinISO v6.1.0 Setup ","Completing the WinIS")
WinWaitActive("WinISO v6.1.0 Setup ","Completing the WinIS")
Send("{SPACE}{ALTDOWN}f{ALTUP}")
FileCopy("user.ini",@AppDataDir&"\WinISO Computing\WinISO\",1)

لكن مشكلتى مع اخر امر وهو امر التفعيل للبرنامج لا يعمل اعتقد انه ناقص شىء

مع انى قمت بعمل اسكربت منفرد بهذا الامر نجح فى التفعيل ولكنى كنت اريد دمجه مع نفس اسكربت البرنامج
كود:
FileCopy("user.ini",@AppDataDir&"\WinISO Computing\WinISO\",1)


كل الود

هل من مجيب
 
عودة
أعلى