Amilo Posted October 18, 2012 Share Posted October 18, 2012 arkadaslar sizlerin yardımıyla bir script yapmak istiyorum saat ayarlarini ini den cekmesini istiyorum ve sistem saati gelince belirledigim programı controlsend atıcak lütfen yardım beyler Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted October 24, 2012 Share Posted October 24, 2012 [quote name='Amilo' timestamp='1350586132' post='1248714'] arkadaslar sizlerin yardımıyla bir script yapmak istiyorum saat ayarlarini ini den cekmesini istiyorum ve sistem saati gelince belirledigim programı controlsend atıcak lütfen yardım beyler [/quote] bu aradıkların autoit help dosyasında var ama yazdığın kod örneği olursa takıldığın kısımda sizlere yardımcı olacak arkadaşlar vardır. Quote Link to comment Share on other sites More sharing options...
Amilo Posted October 24, 2012 Author Share Posted October 24, 2012 adı ne help dosyasında bulamadım .s Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted October 24, 2012 Share Posted October 24, 2012 [CODE] Example() Func Example() ; Write the value of 'AutoIt' to the key 'Title' and in the section labelled 'General'. IniWrite(@ScriptDir & "\Example.ini", "General", "Title", "AutoIt") ; Read the INI file for the value of 'Title' in the section labelled 'General'. Local $sRead = IniRead(@ScriptDir & "\Example.ini", "General", "Title", "Default Value") ; Display the value returned by IniRead. MsgBox(4096, "", "The value of 'Title' in the section labelled 'General' is: " & $sRead) ; Delete the key labelled 'Title'. IniDelete(@ScriptDir & "\Example.ini", "General", "Title") ; Read the INI file for the value of 'Title' in the section labelled 'General'. $sRead = IniRead(@ScriptDir & "\Example.ini", "General", "Title", "Default Value") ; Display the value returned by IniRead. Since there is no key stored the value will be the 'Default Value' passed to IniRead. MsgBox(4096, "", "The value of 'Title' in the section labelled 'General' is: " & $sRead) ; Delete the INI file. FileDelete(@ScriptDir & "\Example.ini") EndFunc ;==>Example [/CODE] help dosyasından Quote Link to comment Share on other sites More sharing options...
Amilo Posted October 24, 2012 Author Share Posted October 24, 2012 yardım için sağolda Saat Kontrolu Nasıl Yaptırcam : Mesala İni De Saat : 16: Dakika : 00 Program İşlem Yapmak İçin O Saati Beklemesini İstiyorum Quote Link to comment Share on other sites More sharing options...
HalilYanar Posted October 24, 2012 Share Posted October 24, 2012 Saati oraya buraya yazdırmana gerek yok. Ama sende sorunu tamda kurban bayramına denk getiriyosun Millet memlekettine gidicek ondan cevap az galiba. Şimdi yanımda ams yok. Taslak olarak aklımda kalan bunlar; On Timer Evresi [quote] sSec = ComboBox.GetText(ComboBox1); sSec1 = ComboBox.GetText(ComboBox2); sSec2 = ComboBox.GetText(ComboBox3); sSaat = System.GetTime(Hour); sDakika = System.GetTime(Minute); sSaniye = System.GetTime(Second); if sSaat == sSec and sDakina == sSec1 and sSaniye == sSec2 then Yapılacak iş end [/quote] Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted October 24, 2012 Share Posted October 24, 2012 [CODE] ; Time Machine #2 ; Hours & Minutes ; Author Valuater $start = @HOUR & ":" & @MIN + 2 ; for testing While 1 $start2 = @HOUR & ":" & @MIN If $start = $start2 Then Run("notepad.exe") ExitLoop EndIf ToolTip("Start Time = " & $start & @CRLF & "Real Time = " & $start2, 20, 20, "Time Machine", 1) Sleep(2000) WEnd Exit [/CODE] [CODE] ;Time Machine #1 ;Minutes/seconds/miliseconds ; Author - Valuater $Minutes = 90 ; will wait 90 minutes Local $60Count = 0, $begin = TimerInit() While $Minutes > $60Count $dif = TimerDiff($begin) $dif2 = StringLeft($dif, StringInStr($dif, ".") -1) $Count = int($dif/1000) $60Count = Int($Count / 60) ToolTip("Minutes Required = " & $Minutes & @CRLF & "Minutes Past = " & $60Count & @CRLF & "Seconds Count = " & $Count & @CRLF & "Mili-Seconds Count = " & $dif2, 20, 20, "Time Machine #1", 1) Sleep(20) WEnd MsgBox(64, "Time-Up!!", "Your " & $Minutes & " minutes have passed ") [/CODE] [CODE] ; Time Machine #3 ; Day & Hour ; Author - Valuater $start = @MDAY & "/" & @HOUR + 1 ; for testing While 1 $start2 = @MDAY & "/" & @HOUR If $start = $start2 Then Run("notepad.exe") Exit EndIf ToolTip("Start Time = " & $start & @CRLF & "Real Time = " & $start2, 20, 20, "Time Machine", 1) Sleep(2000) WEnd Exit [/CODE] [CODE] ; Run a timed program daily ; Author - Valuater ; #NoTrayIcon ; for testing Dim $Minutes = 30 Dim $Title = "My Window Title" ; settings Dim $Show_Clock = 1 ; 0 = no show Dim $Clock_Title = $Minutes & " Minute Time Machine" If WinExists($Clock_Title) Then Exit AutoItWinSetTitle($Clock_Title) ; ***** for testing only ****** HotKeySet("{F9}", "Runner") Func Runner() Run("notepad.exe") EndFunc ;==>Runner $Minutes = 3 ; for testing $Title = "Untitled" ; for testing ; ***************************** While 1 If WinExists($Title) Then Clockit() Sleep(100) WEnd Func Clockit() Local $log = @WindowsDir & "\temp\" Local $log_file = $log & @YDAY & ".pak" If Not FileExists($log_file) Then FileDelete($log & "*.pak") FileWriteLine($log_file, $Minutes) EndIf Local $M_Minutes = FileReadLine($log_file, 1) Local $begin = TimerInit(), $60Count = 0 If $M_Minutes <= 0 Then WinClose($Title) MsgBox(64, $Clock_Title, "Time-Up!! ...Your daily time usage has passed. ", 5) Return EndIf While $M_Minutes > 0 And WinExists($Title) $dif = TimerDiff($begin) $Count = Int($dif / 1000) If $Count >= 60 Then $60Count += 1 $M_Minutes -= 1 $begin = TimerInit() EndIf If $Show_Clock Then ToolTip("Minutes Remaining = " & $M_Minutes & @CRLF & "Minutes Past = " & $60Count & @CRLF & "Seconds Count = " & $Count, 20, 20, $Clock_Title, 1) Sleep(100) WEnd ToolTip("") FileDelete($log_file) Sleep(300) If $Count >= 20 And $M_Minutes > 0 Then $M_Minutes -= 1 FileWriteLine($log_file, $M_Minutes) EndFunc ;==>Clockit [/CODE] autoit sitesinden örnekleri incele Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted October 24, 2012 Share Posted October 24, 2012 amacım kod yazmanı ve senin araştırma yapıp öğrenmen çok sevimdim ,öğrenmenin devamı dileğiyle Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.