Sistem Saatini Okutma Ve İşlem Yaptırma

[Amilo]

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

[mesale0077]

[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.

[Amilo]

adı ne help dosyasında bulamadım .s

[mesale0077]

[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

[Amilo]

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

[HalilYanar]

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]

[mesale0077]

[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

[mesale0077]

amacım kod yazmanı ve senin araştırma yapıp öğrenmen
çok sevimdim ,öğrenmenin devamı dileğiyle