kuhasu Posted April 23, 2008 Share Posted April 23, 2008 (edited) @SEC Seconds value of clock. Range is 00 to 59 @MIN Minutes value of clock. Range is 00 to 59 @HOUR Hours value of clock in 24-hour format. Range is 00 to 23 @MDAY Current day of month. Range is 01 to 31 @MON Current month. Range is 01 to 12 @YEAR Current four-digit year @WDAY Numeric day of week. Range is 1 to 7 which corresponds to Sunday through Saturday. @YDAY Current day of year. Range is 1 to 366 (or 365 if not a leap year) Sorry to post here 'cause I have no permission post new topic in the correct place. I need a more smaller mac for time** Thank you.Cheers! Edited April 25, 2008 by kuhasu Link to comment Share on other sites More sharing options...
monoceres Posted April 23, 2008 Share Posted April 23, 2008 Date.au3 is fantastic #include <date.au3> MsgBox(0,"",_Now()) Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
weaponx Posted April 23, 2008 Share Posted April 23, 2008 _Now won't give milliseconds. expandcollapse popup#include <GuiConstantsEx.au3> #include <Date.au3> Global $iMemo _Main() Func _Main() Local $hGUI, $tTime, $aTime ; Create GUI $hGUI = GUICreate("Time", 400, 300) $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL) GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New") GUISetState() ; Get current system time $tTime = _Date_Time_GetSystemTime() $aTime = _Date_Time_SystemTimeToArray($tTime) MemoWrite("Month ........: " & $aTime[0]) MemoWrite("Day ..........: " & $aTime[1]) MemoWrite("Year .........: " & $aTime[2]) MemoWrite("Hour .........: " & $aTime[3]) MemoWrite("Minute .......: " & $aTime[4]) MemoWrite("Second .......: " & $aTime[5]) MemoWrite("Milliseconds .: " & $aTime[6]) MemoWrite("Day of week ..: " & $aTime[7]) ; Loop until user exits Do Until GUIGetMsg() = $GUI_EVENT_CLOSE EndFunc ;==>_Main ; Write a line to the memo control Func MemoWrite($sMessage) GUICtrlSetData($iMemo, $sMessage & @CRLF, 1) EndFunc ;==>MemoWrite Link to comment Share on other sites More sharing options...
Xenobiologist Posted April 23, 2008 Share Posted April 23, 2008 Hi, While 1 ToolTip(@Hour & ':' & @Min & ':' & @Sec & ':' & _MSec()) Sleep(1) WEnd Exit Func _MSec() Local $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort') DllCall('kernel32.dll', 'none', 'GetSystemTime', 'ptr', DllStructGetPtr($stSystemTime)) $sMilliSeconds = StringFormat('%03d', DllStructGetData($stSystemTime, 8)) $stSystemTime = 0 Return $sMilliSeconds EndFunc Mega Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times Link to comment Share on other sites More sharing options...
monoceres Posted April 23, 2008 Share Posted April 23, 2008 _Now won't give milliseconds.Oh, I though he ment something with less code Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
kuhasu Posted April 23, 2008 Author Share Posted April 23, 2008 Thank you !U guys Bull! here's my modified code Thank you!here's my code modified,any suggestions? #include <ScreenCapture.au3> #include <Date.au3> Opt('MustDeclareVars', 1) _Main('渤海证券网上交易V6.05') Func _Main(Const $title) Local $tTime, $aTime ,$bTime, $time $tTime = _Date_Time_GetSystemTime() $aTime = _Date_Time_SystemTimeToArray($tTime) $bTime = $aTime[6] $time=@Hour & " h " & @MIN & " m " & @SEC & " Sec " & $bTime WinActivate($title) _ScreenCapture_CaptureWnd("x:\orc\" & $time & ".jpg", WinGetHandle(WinGetTitle($title)), 313, 124, 371, 141) EndFunc ;==>_Main Link to comment Share on other sites More sharing options...
kuhasu Posted April 23, 2008 Author Share Posted April 23, 2008 I can capture and save 6 pics/sec now! Cheers! Thank you everybody,very much. Link to comment Share on other sites More sharing options...
kuhasu Posted April 23, 2008 Author Share Posted April 23, 2008 I can capture and save 6 pics/sec now!Cheers!Thank you everybody,very much.Really Amazing!I just got 20000 pics in 56min 21sec!BTW,can au3 file be ran in cmd directly?like "x:\autoit.au3"Thank you Link to comment Share on other sites More sharing options...
Psibernetic Posted April 23, 2008 Share Posted April 23, 2008 Really Amazing!I just got 20000 pics in 56min 21sec!BTW,can au3 file be ran in cmd directly?like "x:\autoit.au3"Thank yousure why not... just test it next time as long as you are in windows the assoc command in CMD has a listing for .au3=autoit.exeof course this is assuming you have it set to run on open [sup]Psibernetic[/sup]My Creations:X-HideSecuracy Link to comment Share on other sites More sharing options...
Zedna Posted April 23, 2008 Share Posted April 23, 2008 (edited) I can capture and save 6 pics/sec now! If you need the best speed then try this one speed optimized version based on Xenobiologist's code: #include <ScreenCapture.au3> $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort') $dll_kernel32 = DllOpen('kernel32.dll') $hWnd = WinGetHandle('????????V6.05') For $i = 1 To 100 DllCall($dll_kernel32 , 'none', 'GetSystemTime', 'ptr', DllStructGetPtr($stSystemTime)) $time=@Hour & " h " & @MIN & " m " & @SEC & " Sec " & DllStructGetData($stSystemTime, 8) WinActivate($hWnd) _ScreenCapture_CaptureWnd("x:\orc\" & $time & ".jpg", $hWnd, 313, 124, 371, 141) Next $stSystemTime = 0 DllClose($dll_kernel32) Edited April 23, 2008 by Zedna Resources UDF ResourcesEx UDF AutoIt Forum Search Link to comment Share on other sites More sharing options...
kuhasu Posted April 24, 2008 Author Share Posted April 24, 2008 If you need the best speed then try this one speed optimized version based on Xenobiologist's code: #include <ScreenCapture.au3> $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort') $dll_kernel32 = DllOpen('kernel32.dll') $hWnd = WinGetHandle('????????V6.05') For $i = 1 To 100 DllCall($dll_kernel32 , 'none', 'GetSystemTime', 'ptr', DllStructGetPtr($stSystemTime)) $time=@Hour & " h " & @MIN & " m " & @SEC & " Sec " & DllStructGetData($stSystemTime, 8) WinActivate($hWnd) _ScreenCapture_CaptureWnd("x:\orc\" & $time & ".jpg", $hWnd, 313, 124, 371, 141) Next $stSystemTime = 0 DllClose($dll_kernel32) Thank you! Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now