IT博客-疾风随影-随笔分类-AutoIT columnhttp://www.cnitblog.com/stjie/category/6697.htmlzh-cnFri, 30 Sep 2011 00:05:05 GMTFri, 30 Sep 2011 00:05:05 GMT60AutoIT显示当前时间函数http://www.cnitblog.com/stjie/archive/2008/01/19/39044.html疾风随影疾风随影Sat, 19 Jan 2008 02:40:00 GMThttp://www.cnitblog.com/stjie/archive/2008/01/19/39044.htmlhttp://www.cnitblog.com/stjie/comments/39044.htmlhttp://www.cnitblog.com/stjie/archive/2008/01/19/39044.html#Feedback0http://www.cnitblog.com/stjie/comments/commentRss/39044.htmlhttp://www.cnitblog.com/stjie/services/trackbacks/39044.html$Label = GUICtrlCreateLabel(" ", 10, 110, 135, 17) ;同上
GUISetState()
AdlibEnable("time",1000)
While 1
 Sleep(500)
WEnd 
Func time()
        GUICtrlSetData($Label, "现在时刻: " & @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc

疾风随影 2008-01-19 10:40 发表评论
]]>AutoIT清除系统日志函数（转载）http://www.cnitblog.com/stjie/archive/2008/01/18/39016.html疾风随影疾风随影Fri, 18 Jan 2008 03:52:00 GMThttp://www.cnitblog.com/stjie/archive/2008/01/18/39016.htmlhttp://www.cnitblog.com/stjie/comments/39016.htmlhttp://www.cnitblog.com/stjie/archive/2008/01/18/39016.html#Feedback0http://www.cnitblog.com/stjie/comments/commentRss/39016.htmlhttp://www.cnitblog.com/stjie/services/trackbacks/39016.html阅读全文

疾风随影 2008-01-18 11:52 发表评论
]]>AutoIT中多定时器用法实例（转载）http://www.cnitblog.com/stjie/archive/2008/01/17/38961.html疾风随影疾风随影Thu, 17 Jan 2008 03:49:00 GMThttp://www.cnitblog.com/stjie/archive/2008/01/17/38961.htmlhttp://www.cnitblog.com/stjie/comments/38961.htmlhttp://www.cnitblog.com/stjie/archive/2008/01/17/38961.html#Feedback0http://www.cnitblog.com/stjie/comments/commentRss/38961.htmlhttp://www.cnitblog.com/stjie/services/trackbacks/38961.html
#Include
#include   阅读全文

疾风随影 2008-01-17 11:49 发表评论
]]>AutoIT获取本机用户SID函数（转载）http://www.cnitblog.com/stjie/archive/2008/01/17/38958.html疾风随影疾风随影Thu, 17 Jan 2008 03:35:00 GMThttp://www.cnitblog.com/stjie/archive/2008/01/17/38958.htmlhttp://www.cnitblog.com/stjie/comments/38958.htmlhttp://www.cnitblog.com/stjie/archive/2008/01/17/38958.html#Feedback0http://www.cnitblog.com/stjie/comments/commentRss/38958.htmlhttp://www.cnitblog.com/stjie/services/trackbacks/38958.html$UserName="administrator"
MsgBox(64,"",GetSID($UserName)
Func GetSID($user)
;~ $user = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName") ;取当前登录用户的名称
$objWMIService = ObjGet("winmgmts:\\" & "localhost" & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_UserAccount", "WQL")
For $objItem In $colItems
        $username = StringSplit($objItem.Caption, "\", 1)
        If $username[2] = $user Then
             Return $objItem.SID
        EndIf
next
EndFunc


疾风随影 2008-01-17 11:35 发表评论
]]>AutoIT使用多线程（转载）http://www.cnitblog.com/stjie/archive/2008/01/15/38873.html疾风随影疾风随影Tue, 15 Jan 2008 04:07:00 GMThttp://www.cnitblog.com/stjie/archive/2008/01/15/38873.htmlhttp://www.cnitblog.com/stjie/comments/38873.htmlhttp://www.cnitblog.com/stjie/archive/2008/01/15/38873.html#Feedback0http://www.cnitblog.com/stjie/comments/commentRss/38873.htmlhttp://www.cnitblog.com/stjie/services/trackbacks/38873.html一直以来Autoit都不支持多线程，因此一些需要同时运行多个循环的操作也就无法实现。这个问题在其它的某些语言里也经常出现，解决的方法就是使用多进程。
  阅读全文

疾风随影 2008-01-15 12:07 发表评论
]]>AutoIT的IP格式判断函数http://www.cnitblog.com/stjie/archive/2007/12/15/37725.html疾风随影疾风随影Sat, 15 Dec 2007 03:15:00 GMThttp://www.cnitblog.com/stjie/archive/2007/12/15/37725.htmlhttp://www.cnitblog.com/stjie/comments/37725.htmlhttp://www.cnitblog.com/stjie/archive/2007/12/15/37725.html#Feedback0http://www.cnitblog.com/stjie/comments/commentRss/37725.htmlhttp://www.cnitblog.com/stjie/services/trackbacks/37725.htmlFunc PDGS($value)
        $IP=StringSplit($value,".")
        If $IP[0]=4 Then         
                For $i=1 to 4
                        $csz=$IP[$i]
                        $bdz="^\d{1,3}$"
                        $aReturn = StringRegExp($csz,$bdz, 3)
                        If Not IsArray($aReturn) Then
                                MsgBox(64,"警告",$value & " 中的 " & $csz & " 不是有效IP地址范围！")
                                Return False                                                       
                        Else
                                If $csz > 255 Then                                       
                                        MsgBox(64,"警告",$value & " 中的 " & $csz & " IP数值超出！")
                                        Return False                                               
                                EndIf
                        EndIf ;====>Not IsArray
                Next
                Return True
        Else
                MsgBox(64,"警告",$value & " IP地址格式错误！")       
                Return False
        EndIf
EndFunc

疾风随影 2007-12-15 11:15 发表评论
]]>