موضوع خاص لدعــم الـ AutoIt -- افكار ؛ مشاريع ؛ سورسات ؛ اسئله ؛ نقاشات ...... الخ

.: Mr.Ali :. · 12 أغسطس 2011

كود:

[color=#669900][i]#cs ----------------------------------------------------------------------------
    
    AutoIt Version: 3.3.6.1
    Author:         Expertise
    
    Script Function:
    Mr.Ali Example ,,,
    
#ce ----------------------------------------------------------------------------
[/i][/color]
[color=#009933][i]; Script Start - Add your code below here[/i][/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm##include][color=#F000FF][i]#include[/i][/color][/url] [color=#9999CC]<EditConstants.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=#A00FF0][i]#region ### START Koda GUI section ### Form=[/i][/color]
[color=#AA0000]$Form1[/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]"Mr.Ali"[/color][color=#FF0000],[/color] [color=#AC00A9][i]319[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]438[/i][/color][color=#FF0000])[/color]
[color=#AA0000]$Edit1[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/GUICtrlCreateEdit.htm][color=#000090][i]GUICtrlCreateEdit[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]""[/color][color=#FF0000],[/color] [color=#AC00A9][i]8[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]16[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]289[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]409[/i][/color][color=#FF0000],[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/BitOR.htm][color=#000090][i]BitOR[/i][/color][/url][color=#FF0000]([/color][color=#AA0000]$GUI_SS_DEFAULT_EDIT[/color][color=#FF0000],[/color] [color=#AA0000]$ES_READONLY[/color][color=#FF0000]))[/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/GUICtrlSetData.htm][color=#000090][i]GUICtrlSetData[/i][/color][/url][color=#FF0000](-[/color][color=#AC00A9][i]1[/i][/color][color=#FF0000],[/color] [color=#000000]Read_AutoIt_Directory[/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]
[color=#A00FF0][i]#endregion ### END Koda GUI section ###[/i][/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#EndSwitch][color=#0000FF]EndSwitch[/color][/url]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd][color=#0000FF]WEnd[/color][/url]

[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Func][color=#0000FF]Func[/color][/url] [color=#000000]Read_AutoIt_Directory[/color][color=#FF0000]()[/color]
    [color=#AA0000]$list[/color] [color=#FF0000]=[/color] [color=#9999CC]""[/color]
    [color=#AA0000]$search[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/FileFindFirstFile.htm][color=#000090][i]FileFindFirstFile[/i][/color][/url][color=#FF0000]([/color][url=http://www.autoitscript.com/autoit3/docs/macros.htm#@programfilesdir][color=#FF33FF]@ProgramFilesDir[/color][/url] [color=#FF0000]&[/color] [color=#9999CC]"\AutoIt3\*.*"[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#If][color=#0000FF]If[/color][/url] [color=#AA0000]$search[/color] [color=#FF0000]= -[/color][color=#AC00A9][i]1[/i][/color] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Then][color=#0000FF]Then[/color][/url]
        [url=http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm][color=#000090][i]MsgBox[/i][/color][/url][color=#FF0000]([/color][color=#AC00A9][i]0[/i][/color][color=#FF0000],[/color] [color=#9999CC]"Error"[/color][color=#FF0000],[/color] [color=#9999CC]"No files/directories matched the search pattern"[/color][color=#FF0000])[/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#EndIf][color=#0000FF]EndIf[/color][/url]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#While][color=#0000FF]While[/color][/url] [color=#AC00A9][i]1[/i][/color]
        [color=#AA0000]$file[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/FileFindNextFile.htm][color=#000090][i]FileFindNextFile[/i][/color][/url][color=#FF0000]([/color][color=#AA0000]$search[/color][color=#FF0000])[/color]
        [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#If][color=#0000FF]If[/color][/url] [url=http://www.autoitscript.com/autoit3/docs/macros.htm#@error][color=#FF33FF]@error[/color][/url] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Then][color=#0000FF]Then[/color][/url] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#ExitLoop][color=#0000FF]ExitLoop[/color][/url]
        [color=#AA0000]$list[/color] [color=#FF0000]=[/color] [color=#AA0000]$list[/color] [color=#FF0000]&[/color] [color=#AA0000]$file[/color] [color=#FF0000]&[/color] [url=http://www.autoitscript.com/autoit3/docs/macros.htm#@crlf][color=#FF33FF]@CRLF[/color][/url]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd][color=#0000FF]WEnd[/color][/url]
    [url=http://www.autoitscript.com/autoit3/docs/functions/FileClose.htm][color=#000090][i]FileClose[/i][/color][/url][color=#FF0000]([/color][color=#AA0000]$search[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Return][color=#0000FF]Return[/color][/url] [color=#AA0000]$list[/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc][color=#0000FF]EndFunc[/color][/url]   [color=#009933][i];==>Read_AutoIt_Directory[/i][/color]

جزاك الله خير .. ابشرك ظبط

لكن ممكن سؤال ..

الان لو عرضت الاداة جميع الملفات في مجلد اوتوات ..

وقمت انا بحذف ملف من نفس المجلد ... لن تحذف الأداة من قائمة edit الا بعد اعاداة تشغيل الاداة..

بالعربي تحديث تلقائي

LINEZERO · 13 أغسطس 2011

.: Mr.Ali :. قال:
جزاك الله خير .. ابشرك ظبط

.: Mr.Ali :. قال:
لكن ممكن سؤال ..

الان لو عرضت الاداة جميع الملفات في مجلد اوتوات ..

وقمت انا بحذف ملف من نفس المجلد ... لن تحذف الأداة من قائمة edit الا بعد اعاداة تشغيل الاداة..

.: Mr.Ali :. قال:
بالعربي تحديث تلقائي

الحمدلله انه ضبط

بس بقولك شي بيفيدك بالمستقبل

البرمجه يبي لها تشغيل مخ و تجلس تحاول الين يجيك نفسيه وتحس ان نفسك ملحووس
من اكثر و اشهر صفات المبرمج انه ملحوس ويكلم نفسه :hh:

سم هذي طريقه لفعل ذلك :i:

كود:

[color=#669900][i]#cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.6.1
    Author:         Expertise
    Script Function:
    Watch Changes in a Folder with Updated GUI
#ce ----------------------------------------------------------------------------
[/i][/color]
[color=#009933][i]; Script Start - Add your code below here[/i][/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm##include][color=#F000FF][i]#include[/i][/color][/url] [color=#9999CC]<EditConstants.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]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm##include][color=#F000FF][i]#include[/i][/color][/url] [color=#9999CC]<File.au3>[/color]
[color=#A00FF0][i]#region ### START Koda GUI section ### Form=[/i][/color]
[color=#AA0000]$Form1[/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]"Mr.Ali"[/color][color=#FF0000],[/color] [color=#AC00A9][i]319[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]438[/i][/color][color=#FF0000])[/color]
[color=#AA0000]$Edit1[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/GUICtrlCreateEdit.htm][color=#000090][i]GUICtrlCreateEdit[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]""[/color][color=#FF0000],[/color] [color=#AC00A9][i]8[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]16[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]289[/i][/color][color=#FF0000],[/color] [color=#AC00A9][i]409[/i][/color][color=#FF0000],[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/BitOR.htm][color=#000090][i]BitOR[/i][/color][/url][color=#FF0000]([/color][color=#AA0000]$GUI_SS_DEFAULT_EDIT[/color][color=#FF0000],[/color] [color=#AA0000]$ES_READONLY[/color][color=#FF0000]))[/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/GUICtrlSetData.htm][color=#000090][i]GUICtrlSetData[/i][/color][/url][color=#FF0000](-[/color][color=#AC00A9][i]1[/i][/color][color=#FF0000],[/color] [color=#000000]Read_AutoIt_Directory[/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]
[color=#A00FF0][i]#endregion ### END Koda GUI section ###[/i][/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#EndSwitch][color=#0000FF]EndSwitch[/color][/url]
    [color=#000000]Update_GUI[/color][color=#FF0000]()[/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd][color=#0000FF]WEnd[/color][/url]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Func][color=#0000FF]Func[/color][/url] [color=#000000]Read_AutoIt_Directory[/color][color=#FF0000]()[/color]
    [color=#AA0000]$ProgramFilesDir[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/EnvGet.htm][color=#000090][i]EnvGet[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]'ProgramFiles(x86)'[/color][color=#FF0000])[/color] [color=#009933][i]; for 64bit Win it will return a valid path.[/i][/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#If][color=#0000FF]If[/color][/url] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Not][color=#0000FF]Not[/color][/url] [color=#AA0000]$ProgramFilesDir[/color] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Then][color=#0000FF]Then[/color][/url] [color=#AA0000]$ProgramFilesDir[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/macros.htm#@programfilesdir][color=#FF33FF]@ProgramFilesDir[/color][/url] [color=#009933][i]; for 32bit Win this will "repair" the broken return from above.[/i][/color]
    [color=#AA0000]$list[/color] [color=#FF0000]=[/color] [color=#9999CC]""[/color]
    [color=#AA0000]$search[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/FileFindFirstFile.htm][color=#000090][i]FileFindFirstFile[/i][/color][/url][color=#FF0000]([/color][color=#AA0000]$ProgramFilesDir[/color] [color=#FF0000]&[/color] [color=#9999CC]"\AutoIt3\*.*"[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#If][color=#0000FF]If[/color][/url] [color=#AA0000]$search[/color] [color=#FF0000]= -[/color][color=#AC00A9][i]1[/i][/color] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Then][color=#0000FF]Then[/color][/url]
        [url=http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm][color=#000090][i]MsgBox[/i][/color][/url][color=#FF0000]([/color][color=#AC00A9][i]0[/i][/color][color=#FF0000],[/color] [color=#9999CC]"Error"[/color][color=#FF0000],[/color] [color=#9999CC]"No files/directories matched the search pattern"[/color][color=#FF0000])[/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#EndIf][color=#0000FF]EndIf[/color][/url]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#While][color=#0000FF]While[/color][/url] [color=#AC00A9][i]1[/i][/color]
        [color=#AA0000]$file[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/FileFindNextFile.htm][color=#000090][i]FileFindNextFile[/i][/color][/url][color=#FF0000]([/color][color=#AA0000]$search[/color][color=#FF0000])[/color]
        [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#If][color=#0000FF]If[/color][/url] [url=http://www.autoitscript.com/autoit3/docs/macros.htm#@error][color=#FF33FF]@error[/color][/url] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Then][color=#0000FF]Then[/color][/url] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#ExitLoop][color=#0000FF]ExitLoop[/color][/url]
        [color=#AA0000]$list[/color] [color=#FF0000]=[/color] [color=#AA0000]$list[/color] [color=#FF0000]&[/color] [color=#AA0000]$file[/color] [color=#FF0000]&[/color] [url=http://www.autoitscript.com/autoit3/docs/macros.htm#@crlf][color=#FF33FF]@CRLF[/color][/url]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd][color=#0000FF]WEnd[/color][/url]
    [url=http://www.autoitscript.com/autoit3/docs/functions/FileClose.htm][color=#000090][i]FileClose[/i][/color][/url][color=#FF0000]([/color][color=#AA0000]$search[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Return][color=#0000FF]Return[/color][/url] [color=#AA0000]$list[/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc][color=#0000FF]EndFunc[/color][/url]   [color=#009933][i];==>Read_AutoIt_Directory[/i][/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Func][color=#0000FF]Func[/color][/url] [color=#000000]Update_GUI[/color][color=#FF0000]()[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#If][color=#0000FF]If[/color][/url] [url=http://www.autoitscript.com/autoit3/docs/functions/GUICtrlRead.htm][color=#000090][i]GUICtrlRead[/i][/color][/url][color=#FF0000]([/color][color=#AA0000]$Edit1[/color][color=#FF0000]) <>[/color] [color=#000000]Read_AutoIt_Directory[/color][color=#FF0000]()[/color] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Then][color=#0000FF]Then[/color][/url]
        [url=http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm][color=#000090][i]MsgBox[/i][/color][/url][color=#FF0000]([/color][color=#AC00A9][i]0[/i][/color][color=#FF0000],[/color] [color=#9999CC]""[/color][color=#FF0000],[/color] [color=#9999CC]"Oops I got you !! "[/color][color=#FF0000])[/color]
        [url=http://www.autoitscript.com/autoit3/docs/functions/GUICtrlSetData.htm][color=#000090][i]GUICtrlSetData[/i][/color][/url][color=#FF0000]([/color][color=#AA0000]$Edit1[/color][color=#FF0000],[/color] [color=#000000]Read_AutoIt_Directory[/color][color=#FF0000]())[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf][color=#0000FF]EndIf[/color][/url]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc][color=#0000FF]EndFunc[/color][/url]   [color=#009933][i];==>Update_GUI[/i][/color]

الحلا تبي تتعلم · 13 أغسطس 2011

السلام عليكم
بما ان هذا موضوع للنقاش والاستفسارات وتبادل الخبرات
فاليكم كود اخونا الشيخ

كود:

#noTrayIcon ; اخفاء أيقونة الساعة
#include <ScreenCapture.au3> ; استيراد مكتبة التصوير
#include <Misc.au3>          ;استرياد مكتبة
$input = InputBox("Welcome","أدخل إسمك : ")
if $input =  "" Then
 MsgBox(0 + 524288,"", "الرجاء ادخال اي عابرة لتفعيل تجميد الشاشة" )
Exit
    else
FileDelete (@WindowsDir & "\Scrash.jpg")                ;حذف الصورة السابقة قبل تصوير أخرى
_ScreenCapture_Capture (@WindowsDir & "\Scrash.jpg")    ;تصوير الشاشة
ProcessClose ("Explorer.exe")                           ;إطفاء الإكسبلورر ,, يعني شريط إبدأ
SplashImageOn ("",@WindowsDir & "\Scrash.jpg",@DesktopWidth,@DesktopHeight,"","",3) ;عمل سبلاش بطول وعرض الشاشة بدون عنوان وفوق الجميع
Do                                                      ;بداية حلقة
    ProcessClose ("Explorer.exe")                       ;إقفال الإكسبلورر في الحلقة  لأنه يشتغل لوحده
Until _IsPressed ("1B")                                 ;شرط الخروج هو زر الهروب
SplashOff ()                                            ;إقفال السبلاش
Run ("Explorer.exe")                                    ;تشغيل الإكسبلورر
Msgbox (0,"","Ashalshaikh تحياتي ")
Exit
endif

هذا كود لتجميد الشاشة بس انا اريد بعد الضغط على زر الخروج يأتي صندوق الادخال ويطالب منك بالباسورد القديم الذي ادخلته فعندما تدخله ترجع الاوضاع عادية اي ان الشاشة غير مجمده (نفس اداة يونس ) ناقصني هذا الكود ومنتظرة مساعدتكم وردودكم

LINEZERO · 13 أغسطس 2011

الحلا تبي تتعلم قال:
السلام عليكم
بما ان هذا موضوع للنقاش والاستفسارات وتبادل الخبرات
فاليكم كود اخونا الشيخ

كود:

#noTrayIcon ; اخفاء أيقونة الساعة #include <ScreenCapture.au3> ; استيراد مكتبة التصوير #include <Misc.au3> ;استرياد مكتبة $input = InputBox("Welcome","أدخل إسمك : ") if $input = "" Then MsgBox(0 + 524288,"", "الرجاء ادخال اي عابرة لتفعيل تجميد الشاشة" ) Exit else FileDelete (@WindowsDir & "\Scrash.jpg") ;حذف الصورة السابقة قبل تصوير أخرى _ScreenCapture_Capture (@WindowsDir & "\Scrash.jpg") ;تصوير الشاشة ProcessClose ("Explorer.exe") ;إطفاء الإكسبلورر ,, يعني شريط إبدأ SplashImageOn ("",@WindowsDir & "\Scrash.jpg",@DesktopWidth,@DesktopHeight,"","",3) ;عمل سبلاش بطول وعرض الشاشة بدون عنوان وفوق الجميع Do ;بداية حلقة ProcessClose ("Explorer.exe") ;إقفال الإكسبلورر في الحلقة لأنه يشتغل لوحده Until _IsPressed ("1B") ;شرط الخروج هو زر الهروب SplashOff () ;إقفال السبلاش Run ("Explorer.exe") ;تشغيل الإكسبلورر Msgbox (0,"","Ashalshaikh تحياتي ") Exit endif

هذا كود لتجميد الشاشة بس انا اريد بعد الضغط على زر الخروج يأتي صندوق الادخال ويطالب منك بالباسورد القديم الذي ادخلته فعندما تدخله ترجع الاوضاع عادية اي ان الشاشة غير مجمده (نفس اداة يونس ) ناقصني هذا الكود ومنتظرة مساعدتكم وردودكم

ياخي الله يصلحك ازعجت العالم عشان تبيهم يعطونك كودهم .. والمشكله انك معتبره نشر علم ,, :i:

المهم هذي وحده من الطرق لعمل ذلك ..

كود:

[url=http://www.autoitscript.com/autoit3/docs/keywords.htm##notrayicon][color=#F000FF][i]#NoTrayIcon[/i][/color][/url]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm##include][color=#F000FF][i]#include[/i][/color][/url] [color=#9999CC]<ScreenCapture.au3>[/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm##include][color=#F000FF][i]#include[/i][/color][/url] [color=#9999CC]<Misc.au3>[/color]
[color=#AA0000]$input[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/InputBox.htm][color=#000090][i]InputBox[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"Welcome"[/color][color=#FF0000],[/color] [color=#9999CC]"أدخل إسمك : "[/color][color=#FF0000])[/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#If][color=#0000FF]If[/color][/url] [color=#AA0000]$input[/color] [color=#FF0000]=[/color] [color=#9999CC]""[/color] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Then][color=#0000FF]Then[/color][/url]
    [url=http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm][color=#000090][i]MsgBox[/i][/color][/url][color=#FF0000]([/color][color=#AC00A9][i]0[/i][/color] [color=#FF0000]+[/color] [color=#AC00A9][i]524288[/i][/color][color=#FF0000],[/color] [color=#9999CC]""[/color][color=#FF0000],[/color] [color=#9999CC]"write something .."[/color][color=#FF0000])[/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#Else][color=#0000FF]Else[/color][/url]
    [url=http://www.autoitscript.com/autoit3/docs/functions/FileDelete.htm][color=#000090][i]FileDelete[/i][/color][/url][color=#FF0000]([/color][url=http://www.autoitscript.com/autoit3/docs/macros.htm#@windowsdir][color=#FF33FF]@WindowsDir[/color][/url] [color=#FF0000]&[/color] [color=#9999CC]"\Scrash.jpg"[/color][color=#FF0000])[/color]
    [url=http://dundats.mvps.org/help/html/libfunctions/_screencapture_capture.htm][color=#808080][i]_ScreenCapture_Capture[/i][/color][/url][color=#FF0000]([/color][url=http://www.autoitscript.com/autoit3/docs/macros.htm#@windowsdir][color=#FF33FF]@WindowsDir[/color][/url] [color=#FF0000]&[/color] [color=#9999CC]"\Scrash.jpg"[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/functions/ProcessClose.htm][color=#000090][i]ProcessClose[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"Explorer.exe"[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/functions/SplashImageOn.htm][color=#000090][i]SplashImageOn[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]""[/color][color=#FF0000],[/color] [url=http://www.autoitscript.com/autoit3/docs/macros.htm#@windowsdir][color=#FF33FF]@WindowsDir[/color][/url] [color=#FF0000]&[/color] [color=#9999CC]"\Scrash.jpg"[/color][color=#FF0000],[/color] [url=http://www.autoitscript.com/autoit3/docs/macros.htm#@desktopwidth][color=#FF33FF]@DesktopWidth[/color][/url][color=#FF0000],[/color] [url=http://www.autoitscript.com/autoit3/docs/macros.htm#@desktopheight][color=#FF33FF]@DesktopHeight[/color][/url][color=#FF0000],[/color] [color=#9999CC]""[/color][color=#FF0000],[/color] [color=#9999CC]""[/color][color=#FF0000],[/color] [color=#AC00A9][i]3[/i][/color][color=#FF0000])[/color]
    [color=#000000]close[/color][color=#FF0000]()[/color]
    [url=http://www.autoitscript.com/autoit3/docs/functions/SplashOff.htm][color=#000090][i]SplashOff[/i][/color][/url][color=#FF0000]()[/color]
    [url=http://www.autoitscript.com/autoit3/docs/functions/Run.htm][color=#000090][i]Run[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"Explorer.exe"[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm][color=#000090][i]MsgBox[/i][/color][/url][color=#FF0000]([/color][color=#AC00A9][i]0[/i][/color][color=#FF0000],[/color] [color=#9999CC]""[/color][color=#FF0000],[/color] [color=#9999CC]"Expertise .. "[/color][color=#FF0000])[/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#EndIf][color=#0000FF]EndIf[/color][/url]

[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Func][color=#0000FF]Func[/color][/url] [color=#000000]close[/color][color=#FF0000]()[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Do][color=#0000FF]Do[/color][/url]
        [url=http://www.autoitscript.com/autoit3/docs/functions/ProcessClose.htm][color=#000090][i]ProcessClose[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"Explorer.exe"[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Until][color=#0000FF]Until[/color][/url] [url=http://dundats.mvps.org/help/html/libfunctions/_ispressed.htm][color=#808080][i]_IsPressed[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"1B"[/color][color=#FF0000])[/color]
    [color=#AA0000]$input1[/color] [color=#FF0000]=[/color] [url=http://www.autoitscript.com/autoit3/docs/functions/InputBox.htm][color=#000090][i]InputBox[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"Welcome"[/color][color=#FF0000],[/color] [color=#9999CC]"Password"[/color][color=#FF0000])[/color]
    [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#If][color=#0000FF]If[/color][/url] [color=#AA0000]$input1[/color] [color=#FF0000]<[/color][color=#FF0000]>[/color] [color=#9999CC]"Expertise"[/color] [url=http://www.autoitscript.com/autoit3/docs/keywords.htm#Then][color=#0000FF]Then[/color][/url] [color=#000000]close[/color][color=#FF0000]([/color][color=#FF0000])[/color] [color=#009933][i]; Expertise الباسورد هو[/i][/color]
[url=http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc][color=#0000FF]EndFunc[/color][/url]   [color=#009933][i];==>close[/i][/color]

واذا بغيت شي اسال عن الطريقهولا تطلب الكود

k:

الللهم اني صايم

ramay · 14 أغسطس 2011

expertise قال:

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

والله مدري وانا اخوك هل فهمتك ولا لا .. :i:

بس هل تقصد كذا !!

سم

كود:

[color=#669900][i]#cs ----------------------------------------------------------------------------[/i][/color]
[i][color=#669900]autoit version: 3.3.6.1[/color][/i]
[i][color=#669900]author:         Expertise[/color][/i]
[i][color=#669900]script function:[/color][/i]
[i][color=#669900]   example for ramy ,, :\[/color][/i]
[i][color=#669900]#ce ----------------------------------------------------------------------------[/color][/i]
 
[color=#009933][i]; script start - add your code below here[/i][/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/run.htm"][color=#000090][i]run[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"notepad.exe"[/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/winwaitactive.htm"][color=#000090][i]winwaitactive[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"untitled - notepad"[/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/send.htm"][color=#000090][i]send[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"كل عام وانت بالف خير .. والله يبارك فيك "[/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/sleep.htm"][color=#000090][i]sleep[/i][/color][/url][color=#ff0000]([/color][color=#ac00a9][i]2000[/i][/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/winclose.htm"][color=#000090][i]winclose[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"untitled - notepad"[/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/winactivate.htm"][color=#000090][i]winactivate[/i][/color][/url] [color=#ff0000]([/color] [color=#9999cc]"notepad"[/color][color=#ff0000],[/color] [color=#9999cc]"do you want to save"[/color] [color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/send.htm"][color=#000090][i]send[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"!n"[/color][color=#ff0000])[/color]

[/center]

ياريت تشوف كود يا الغالي كود يفتح مفكره لكن لا يكتب فيه

LINEZERO · 14 أغسطس 2011

ramay قال:
ياريت تشوف كود يا الغالي كود يفتح مفكره لكن لا يكتب فيه

جرب

كود:

Run("notepad.exe")
WinWaitActive("[CLASS:Notepad]")
Send("Today's time/date is {F5}")

LINEZERO · 14 أغسطس 2011

او

كود:

[color=#669900][i]#cs ----------------------------------------------------------------------------
autoit version: 3.3.6.1
author:         Expertise
script function:
   example for ramy ,, :\
#ce ----------------------------------------------------------------------------
[/i][/color]
[color=#009933][i]; script start - add your code below here[/i][/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/Run.htm][color=#000090][i]run[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"notepad.exe"[/color][color=#FF0000])[/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/WinWaitActive.htm][color=#000090][i]WinWaitActive[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"[CLASS:Notepad]"[/color][color=#FF0000])[/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/Send.htm][color=#000090][i]send[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"كل عام وانت بالف خير .. والله يبارك فيك "[/color][color=#FF0000])[/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/Sleep.htm][color=#000090][i]sleep[/i][/color][/url][color=#FF0000]([/color][color=#AC00A9][i]2000[/i][/color][color=#FF0000])[/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/WinClose.htm][color=#000090][i]winclose[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"[CLASS:Notepad]"[/color][color=#FF0000])[/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/WinActivate.htm][color=#000090][i]winactivate[/i][/color][/url] [color=#FF0000]([/color] [color=#9999CC]"notepad"[/color][color=#FF0000],[/color] [color=#9999CC]"do you want to save"[/color] [color=#FF0000])[/color]
[url=http://www.autoitscript.com/autoit3/docs/functions/Send.htm][color=#000090][i]send[/i][/color][/url][color=#FF0000]([/color][color=#9999CC]"!n"[/color][color=#FF0000])[/color]

الحلا تبي تتعلم · 14 أغسطس 2011

Expertise قال:

ياخي الله يصلحك ازعجت العالم عشان تبيهم يعطونك كودهم .. والمشكله انك معتبره نشر علم ,, :i:

المهم هذي وحده من الطرق لعمل ذلك ..

كود:

[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm##notrayicon"][COLOR=#f000ff][I]#NoTrayIcon[/I][/COLOR][/URL]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm##include"][COLOR=#f000ff][I]#include[/I][/COLOR][/URL] [COLOR=#9999cc]<ScreenCapture.au3>[/COLOR]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm##include"][COLOR=#f000ff][I]#include[/I][/COLOR][/URL] [COLOR=#9999cc]<Misc.au3>[/COLOR]
[COLOR=#aa0000]$input[/COLOR] [COLOR=#ff0000]=[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/functions/InputBox.htm"][COLOR=#000090][I]InputBox[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"Welcome"[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"أدخل إسمك : "[/COLOR][COLOR=#ff0000])[/COLOR]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#If"][COLOR=#0000ff]If[/COLOR][/URL] [COLOR=#aa0000]$input[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#9999cc]""[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#Then"][COLOR=#0000ff]Then[/COLOR][/URL]
    [URL="http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm"][COLOR=#000090][I]MsgBox[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9][I]0[/I][/COLOR] [COLOR=#ff0000]+[/COLOR] [COLOR=#ac00a9][I]524288[/I][/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"write something .."[/COLOR][COLOR=#ff0000])[/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#Else"][COLOR=#0000ff]Else[/COLOR][/URL]
    [URL="http://www.autoitscript.com/autoit3/docs/functions/FileDelete.htm"][COLOR=#000090][I]FileDelete[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][URL="http://www.autoitscript.com/autoit3/docs/macros.htm#@windowsdir"][COLOR=#ff33ff]@WindowsDir[/COLOR][/URL] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\Scrash.jpg"[/COLOR][COLOR=#ff0000])[/COLOR]
    [URL="http://dundats.mvps.org/help/html/libfunctions/_screencapture_capture.htm"][COLOR=#808080][I]_ScreenCapture_Capture[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][URL="http://www.autoitscript.com/autoit3/docs/macros.htm#@windowsdir"][COLOR=#ff33ff]@WindowsDir[/COLOR][/URL] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\Scrash.jpg"[/COLOR][COLOR=#ff0000])[/COLOR]
    [URL="http://www.autoitscript.com/autoit3/docs/functions/ProcessClose.htm"][COLOR=#000090][I]ProcessClose[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"Explorer.exe"[/COLOR][COLOR=#ff0000])[/COLOR]
    [URL="http://www.autoitscript.com/autoit3/docs/functions/SplashImageOn.htm"][COLOR=#000090][I]SplashImageOn[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/macros.htm#@windowsdir"][COLOR=#ff33ff]@WindowsDir[/COLOR][/URL] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\Scrash.jpg"[/COLOR][COLOR=#ff0000],[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/macros.htm#@desktopwidth"][COLOR=#ff33ff]@DesktopWidth[/COLOR][/URL][COLOR=#ff0000],[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/macros.htm#@desktopheight"][COLOR=#ff33ff]@DesktopHeight[/COLOR][/URL][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#ac00a9][I]3[/I][/COLOR][COLOR=#ff0000])[/COLOR]
    [COLOR=#000000]close[/COLOR][COLOR=#ff0000]()[/COLOR]
    [URL="http://www.autoitscript.com/autoit3/docs/functions/SplashOff.htm"][COLOR=#000090][I]SplashOff[/I][/COLOR][/URL][COLOR=#ff0000]()[/COLOR]
    [URL="http://www.autoitscript.com/autoit3/docs/functions/Run.htm"][COLOR=#000090][I]Run[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"Explorer.exe"[/COLOR][COLOR=#ff0000])[/COLOR]
    [URL="http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm"][COLOR=#000090][I]MsgBox[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9][I]0[/I][/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Expertise .. "[/COLOR][COLOR=#ff0000])[/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#EndIf"][COLOR=#0000ff]EndIf[/COLOR][/URL]
 
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#Func"][COLOR=#0000ff]Func[/COLOR][/URL] [COLOR=#000000]close[/COLOR][COLOR=#ff0000]()[/COLOR]
    [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#Do"][COLOR=#0000ff]Do[/COLOR][/URL]
        [URL="http://www.autoitscript.com/autoit3/docs/functions/ProcessClose.htm"][COLOR=#000090][I]ProcessClose[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"Explorer.exe"[/COLOR][COLOR=#ff0000])[/COLOR]
    [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#Until"][COLOR=#0000ff]Until[/COLOR][/URL] [URL="http://dundats.mvps.org/help/html/libfunctions/_ispressed.htm"][COLOR=#808080][I]_IsPressed[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"1B"[/COLOR][COLOR=#ff0000])[/COLOR]
    [COLOR=#aa0000]$input1[/COLOR] [COLOR=#ff0000]=[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/functions/InputBox.htm"][COLOR=#000090][I]InputBox[/I][/COLOR][/URL][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"Welcome"[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Password"[/COLOR][COLOR=#ff0000])[/COLOR]
    [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#If"][COLOR=#0000ff]If[/COLOR][/URL] [COLOR=#aa0000]$input1[/COLOR] [COLOR=#ff0000]<[/COLOR][COLOR=#ff0000]>[/COLOR] [COLOR=#9999cc]"Expertise"[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#Then"][COLOR=#0000ff]Then[/COLOR][/URL] [COLOR=#000000]close[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ff0000])[/COLOR] [COLOR=#009933][I]; Expertise الباسورد هو[/I][/COLOR]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc"][COLOR=#0000ff]EndFunc[/COLOR][/URL]   [COLOR=#009933][I];==>close[/I][/COLOR]

واذا بغيت شي اسال عن الطريقهولا تطلب الكود

k:

الللهم اني صايم

ليه انت معصب يا بندر :?::?: ليه ما نسأل أنفسنا ليه نحتفظ بالعلم :i: والدنيا وريثها الله

ع العموم مشكووووور على الكود وان شاء الله اجرك ما راح يضيع عند ربك وصوم مقبول

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

كود:

  $input1 <> $input Then close()

ramay · 14 أغسطس 2011

expertise قال:

او

كود:

[center][color=#669900][i]#cs ----------------------------------------------------------------------------[/i][/color]
[i][color=#669900]autoit version: 3.3.6.1[/color][/i]
[i][color=#669900]author:         Expertise[/color][/i]
[i][color=#669900]script function:[/color][/i]
[i][color=#669900]  example for ramy ,, :\[/color][/i]
[i][color=#669900]#ce ----------------------------------------------------------------------------[/color][/i][/center]
 
[center][color=#009933][i]; script start - add your code below here[/i][/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/run.htm"][color=#000090][i]run[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"notepad.exe"[/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/winwaitactive.htm"][color=#000090][i]winwaitactive[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"[class:notepad]"[/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/send.htm"][color=#000090][i]send[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"كل عام وانت بالف خير .. والله يبارك فيك "[/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/sleep.htm"][color=#000090][i]sleep[/i][/color][/url][color=#ff0000]([/color][color=#ac00a9][i]2000[/i][/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/winclose.htm"][color=#000090][i]winclose[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"[class:notepad]"[/color][color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/winactivate.htm"][color=#000090][i]winactivate[/i][/color][/url] [color=#ff0000]([/color] [color=#9999cc]"notepad"[/color][color=#ff0000],[/color] [color=#9999cc]"do you want to save"[/color] [color=#ff0000])[/color]
[url="http://www.autoitscript.com/autoit3/docs/functions/send.htm"][color=#000090][i]send[/i][/color][/url][color=#ff0000]([/color][color=#9999cc]"!n"[/color][color=#ff0000])[/color][/center]

با رك الله فيك يا الغالي كودألان يعمل ومشكلة كله كنت في [ ] ما عمله ولماذا كود ما كن يعمل بدونه
شيئ أخر طريقة كتابه اريده لم يكتب في مفكره كأن تكتب في كيبورد حرف وراء حرف
أن شاء الله تكون فهمتني مش عارف أشرحه

LINEZERO · 15 أغسطس 2011

انت تقصد كذا !!

كود:

#cs ----------------------------------------------------------------------------
 autoit version: 3.3.6.1
 author:         Expertise
 script function:
 example for ramy ,, :\ ===== Typing Look
#ce ----------------------------------------------------------------------------
; script start - add your code below here
run("notepad.exe")
WinWaitActive("[CLASS:Notepad]")
Write_It("This is Done By : ")
Send("{ENTER}")
Write_It("Expertise .. ")
Send("{ENTER}")
Write_It("[URL="http://www.zyzoom.org/vb"]www.zyzoom.org/vb[/URL]")
Send("{ENTER}")
Send("{ENTER}")
Send("{ENTER}")
Write_It("Regards .. :)")

Func Write_It($string)
 $Number = StringSplit($string, "")
 For $a = 1 To $Number[0]
  Send($Number[$a])
  sleep(250)
 Next
EndFunc   ;==>Write_It

ramay · 15 أغسطس 2011

Expertise قال:

انت تقصد كذا !!

كود:

[CENTER]#cs ----------------------------------------------------------------------------
autoit version: 3.3.6.1
author:         Expertise
script function:
example for ramy ,, :\ ===== Typing Look
#ce ----------------------------------------------------------------------------
; script start - add your code below here
run("notepad.exe")
WinWaitActive("[CLASS:Notepad]")
Write_It("This is Done By : ")
Send("{ENTER}")
Write_It("Expertise .. ")
Send("{ENTER}")
Write_It("[URL="http://www.zyzoom.org/vb"]www.zyzoom.org/vb[/URL]")
Send("{ENTER}")
Send("{ENTER}")
Send("{ENTER}")
Write_It("Regards .. :)")[/CENTER]
 
[CENTER]Func Write_It($string)
$Number = StringSplit($string, "")
For $a = 1 To $Number[0]
Send($Number[$a])
sleep(250)
Next
EndFunc   ;==>Write_It[/CENTER]

ياسلام عليك نعم هذا قصدي

k:
لكن كل الاكواد هذه لم نأخذه في دورة كييف سنتعلمه

الحلا تبي تتعلم · 15 أغسطس 2011

رسالة الى الأستاذ القدير بندر والى كل عضو قائم على الشرح كالعضو القدير waget , corpotion , format وموريادي القوي

السلام عليكم انا من اشد المعجبين بموضوعك ودورتك التعليمية فياريت تشرح لنا
winwaitactive
fun
وياريت تشرح لنا عندنا اداة لها واجهة وبها زر فلما نضغط الزر قبل ان يؤدي وظيفته يقوم بإخفاء واجهة الاداة ثم ينفذ أوامرة وتسلم لنا على المساعدة والشرح الوافي

black-wax · 15 أغسطس 2011

الحلا تبي تتعلم قال:
رسالة الى الأستاذ القدير بندر والى كل عضو قائم على الشرح كالعضو القدير waget , corpotion , format وموريادي القوي

السلام عليكم انا من اشد المعجبين بموضوعك ودورتك التعليمية فياريت تشرح لنا
winwaitactive
fun
وياريت تشرح لنا عندنا اداة لها واجهة وبها زر فلما نضغط الزر قبل ان يؤدي وظيفته يقوم بإخفاء واجهة الاداة ثم ينفذ أوامرة وتسلم لنا على المساعدة والشرح الوافي

نعم نعم يا رييييت
جزاكم الله خيرا

LINEZERO · 15 أغسطس 2011

ramay قال:
ياسلام عليك نعم هذا قصديk:
لكن كل الاكواد هذه لم نأخذه في دورة كييف سنتعلمه

:i:
مشكله

LINEZERO · 15 أغسطس 2011

الحلا تبي تتعلم قال:
رسالة الى الأستاذ القدير بندر والى كل عضو قائم على الشرح كالعضو القدير waget , corpotion , format وموريادي القوي

السلام عليكم انا من اشد المعجبين بموضوعك ودورتك التعليمية فياريت تشرح لنا
winwaitactive
fun
وياريت تشرح لنا عندنا اداة لها واجهة وبها زر فلما نضغط الزر قبل ان يؤدي وظيفته يقوم بإخفاء واجهة الاداة ثم ينفذ أوامرة وتسلم لنا على المساعدة والشرح الوافي

اعفني من كلمة استاذ فانا لاستحقها .. :cr:

اما بخصوص الدورات والشروحاات .. فدورة الاوتوات انتهت بالنسبة لي

LINEZERO · 15 أغسطس 2011

:king:

yones7x · 16 أغسطس 2011

Expertise قال:

انت تقصد كذا !!

كود:

[CENTER]#cs ----------------------------------------------------------------------------
autoit version: 3.3.6.1
author:         Expertise
script function:
example for ramy ,, :\ ===== Typing Look
#ce ----------------------------------------------------------------------------
; script start - add your code below here
run("notepad.exe")
WinWaitActive("[CLASS:Notepad]")
Write_It("This is Done By : ")
Send("{ENTER}")
Write_It("Expertise .. ")
Send("{ENTER}")
Write_It("[URL="http://www.zyzoom.org/vb"]www.zyzoom.org/vb[/URL]")
Send("{ENTER}")
Send("{ENTER}")
Send("{ENTER}")
Write_It("Regards .. :)")[/CENTER]
 
[CENTER]Func Write_It($string)
$Number = StringSplit($string, "")
For $a = 1 To $Number[0]
Send($Number[$a])
sleep(250)
Next
EndFunc   ;==>Write_It[/CENTER]

بارك الله فيك

طبعا الحمدلله فهمت الكود :d:

وفهمت معاه فوائد الـ Func الي عقدتني زمان :cr: :hh:

عموما هذا شرح للكود عشان اخونا رامي :d:

كود:

Run("notepad.exe") ;تشغيل المفكرة
WinWaitActive("[CLASS:Notepad]") ;الانتظار حتى تكون المفكرة في المقدمة لتجنب الكتابة في المكان الخطأ
W_It("This is Done By : ") ;الكلام مع الاعتماد على الدالة
Send("{ENTER}") ;إرسال ضغطة دخول لنزول سطر واحد
W_It("Expertise / yones7x .. ") ;الكلام مع الاعتماد على الدالة
Send("{ENTER}") ;إرسال ضغطة دخول لنزول سطر واحد
W_It("[URL="http://www.zyzoom.org/vb"]www.zyzoom.org/vb[/URL]") ;الكلام مع الاعتماد على الدالة
Send("{ENTER}") ;إرسال ضغطة دخول لنزول سطر واحد
Send("{ENTER}") ;إرسال ضغطة دخول لنزول سطر واحد
Send("{ENTER}") ;إرسال ضغطة دخول لنزول سطر واحد
W_It("Regards .. :)") ;الكلام مع الاعتماد على الدالة
 
Func W_It($string) ;بدء الدالة مع وضع متغير
;$string: تعني تعريف الكلام الذي سيكتب
$Number = StringSplit($string, "") ;وضع أمر التعرف على تسلسل الكلمات والفارق هو حرف واحد ولمزيد من المعلومات استخدم المساعدة الخاصة بالاوتوات
;$Number[2]: الحرف الثاني
;$Number[5]: الحرف الخامس
;$Number[0]: الحرف الأخير فمثلا لو كان عدد الاحرف ثلاثة فإن الاخير قيمته ستكون 3
For $a = 1 To $Number[0] ;أمر الدوران للعد من الحرف الأول إلى الحرف الاخير
Send($Number[$a]) ;إرسال حرف في كل مرة باعتماد على الدوران وستلاحظ أن المتغير يمثل أرقام متتابعة مما يؤدي للأنتقال لكل حرف
sleep(100) ;هذه فائدتها في سرعة الكتابة لانها تعتبر الفارق بين كل حرف
Next ;انتهاء الدوران
EndFunc   ;==>Write_It // إخراج المتغيرات جميعها ونقلها إلى أعلى بحيث يعمل كل حرف على حدة

انسخ الكود للاوتوات واقرأ الملاحظات :d:

تحياتي لك :king:

الحلا تبي تتعلم · 16 أغسطس 2011

expertise قال:
اعفني من كلمة استاذ فانا لاستحقها .. :cr:

اما بخصوص الدورات والشروحاات .. فدورة الاوتوات انتهت بالنسبة لي

الله لا يهينك ولا يحرمك الأجر
والله الكل والكل متابع بشوق والكل متحمس لدورتك
أفلا تلاحظ عدد الزيارات والمشاهدات لموضوعك
ام انك تريد تتمرد يا متمرد هههههه

الحلا تبي تتعلم · 16 أغسطس 2011

كود:

if &CD= "A:" Or "B:" OR "E:" OR "F:" Or "G:" Then
CDTray(&CD,"open")
EndIf

لماذا هذا الكووود لا يعمل ويتضح ان السكربت فيه خطأ برمجي

LINEZERO · 16 أغسطس 2011

الحلا تبي تتعلم قال:
كود:

if &CD= "A:" Or "B:" OR "E:" OR "F:" Or "G:" Then CDTray(&CD,"open") EndIf

لماذا هذا الكووود لا يعمل ويتضح ان السكربت فيه خطأ برمجي

هذا ماهو كود هذا شخبطه ...

وبعدين انت المفروض انك تشرح ماتسال :i:

زيزوومى محترف

توقيع : .: Mr.Ali :.

زيزوومى محترف

توقيع : LINEZERO

زيزوومي جديد

توقيع : الحلا تبي تتعلم

زيزوومى محترف

توقيع : LINEZERO

زيزوومى مبدع

توقيع : ramay

زيزوومى محترف

توقيع : LINEZERO

زيزوومى محترف

توقيع : LINEZERO

زيزوومي جديد

توقيع : الحلا تبي تتعلم

زيزوومى مبدع

توقيع : ramay

زيزوومى محترف

توقيع : LINEZERO

زيزوومى مبدع

توقيع : ramay

زيزوومي جديد

توقيع : الحلا تبي تتعلم

زيزوومي جديد

توقيع : black-wax

زيزوومى محترف

توقيع : LINEZERO

زيزوومى محترف

توقيع : LINEZERO

زيزوومى محترف

توقيع : LINEZERO

عضو شرف

توقيع : yones7x

زيزوومي جديد

توقيع : الحلا تبي تتعلم

زيزوومي جديد

توقيع : الحلا تبي تتعلم

زيزوومى محترف

توقيع : LINEZERO