red flower0
زيزوومي جديد
- إنضم
- 11 أكتوبر 2011
- المشاركات
- 128
- مستوى التفاعل
- 0
- النقاط
- 0
غير متصل
قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
هذا مثال عليها بأبسط صورة ممكنه
كود:[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]
winwaitactive("title","text")
send(????)
السلام عليكم
عندي استفسار ويا ليت اجد أذان صاغية
مثلا عندي نافذة مفتوحة لحذف برنامج وتوجد أزرار ثلاثة وأريد اضغط على زر إنهاء
فما هو السكربت الذي سأستخدمه مع الامر
send
بحيث توجد ثلاثة ازرار وهي بالترتيب كالتاليكود:winwaitactive("title","text") send(????)
BACK FINISH CANCEL
وانا أريد الضغط على زر FINISH
فما هو السكربت المسؤول عن ذلك
Send("#r")
Sleep(2000)
Send("notepad.exe{Enter}")
صراحه مافهمت اعذرني
بس هل تقصد هذا ؟؟
كود: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
السلام عليكم ورحمةالله وبركاته
يا شباب أريد تأكد من مجلد داخل فلاشة جربة هذا كود لكن لم أنجح فما هو كود صحيح
كود:$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
$removable
$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
هلا رامي :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:
أستاذ عبدالله
إذا ما عليك تعب
ايش رايك نبدأ بشرح أوامر Control وأوامر Win للأعضاء الكرام :d:
وأنا باساعدك بنصف الشرح، يعني كل يوم يتم وضع درسين بإذن الله أو على الاقل درس واحد كل يومين
إذا موافق جاوبني على الخاص علما إن موعد بدء الدروس يكون بعد تاريخ 19/03/2012م (الاثنين القادم)
ولا تنسوا تدعوا لي بالتوفيق في امتحانات الفصل الثاني (اليوم علينا لغة عربية) :d:
السلام عليكم
إن شاء الله معاك يا ذا النون
![]()
اسمح لي أعارضك على هذا الرد
ذا النون يونس عليه السلام نبي من أنبياء الله ولا يمكن تشبيهه بأحد من العامة
بارك الله فيك أستاذ عبد الله
كيفك أن شاء الله بصحة وعافيه يا الغالي
أنا أريد يعمل مع فلاشة و هاردات خارجيه
فما هو الافضل كود لذلك
وأن يعمل في أي جهاز
[/CENTER]
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)
كل الود