顯示具有 AutoIT 標籤的文章。 顯示所有文章
顯示具有 AutoIT 標籤的文章。 顯示所有文章

2013年1月28日 星期一

連續製造檔案

;連續製造檔案。

$i=0
while 1

;創件檔案。
$file1 = FileOpen($i & ".txt", 1)
;輸入內容到檔案裡。
$abc = random(0,1,0)
FileWriteLine($file1,$abc & @CRLF)
;關閉檔案。
fileclose($file1)
$i = $i +1
WEnd

2012年6月26日 星期二

AutoIT 基本時間和判斷時間

$Hour = @HOUR ;時
$Min  = @MIN  ;分
$Sec  = @SEC  ;秒

msgbox(0,"Time",$Hour & ":" & $Min & ":" & $Sec) ;現在時間

while 1 ;無限迴圈。
  
 sleep(6000);每6秒偵測一次。
;判斷是否晚上21點,晚上21點就執行訊息。
 if @Hour = 21 and @min =00 then msgbox(0,"","Run")

WEnd

2012年6月9日 星期六

隨機產生資料

;設定資料元素
Dim $D[65] = ["0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","@","-","_"]
$tarFile = "C:\test.txt" ;設定檔案位址
$srcOpen = FileOpen($tarFile,1) ;開啟檔案

 While 1
;一行產生12個字元
For $My = 0 to 12
  
     Random(0,64,1)
  ;寫入檔案。
     FileWrite($srcOpen,$D[Random(0,64,1)] )
  
Next
;換行
    FileWrite($srcOpen,@CRLF)
WEnd
;關閉檔案
Fileclose($srcOpen)

2012年5月20日 星期日

AutoIT 一鍵登入Yahoo 信箱


#include <IE.au3>

$oIE = _IECreate ("https://login.yahoo.com/config/mail?.intl=tw") ;Yahoo 信箱位址
$o_form = _IEFormGetObjByName ($oIE, "login_form")    ;表單名稱
$o_login = _IEFormElementGetObjByName ($o_form, "username") 
$o_password = _IEFormElementGetObjByName ($o_form, "passwd")
$o_signin = _IEFormElementGetObjByName ($o_form, ".save")

$username = "個人帳號"
$password = "個人密碼"

_IEFormElementSetValue ($o_login, $username) ;輸入帳號
_IEFormElementSetValue ($o_password, $password) ;輸入密碼
_IEAction ($o_signin, "click") ;點擊登入


Ubuntu-Journalctl查看系統日誌

 近期所使用Ubuntu系統24小時開著,進行跑Python程式使用,但跑個2~3天,排程就無法正常寄信,SSH連線也無法正常連線,經查看後為wifi連線問題,暫先使用腳本排程進行重開wifi。 以下為記錄Journalctl指令。 使用Journalctl來從系統日誌上查看看問...