1.qq郵箱不能用了,用163的郵箱發
直接貼**:
function 傳送郵件(你的郵箱帳號, 你的郵箱密碼, 傳送郵件位址, 郵件主題, 郵件內容, 郵件附件)
//例子:msgbox lib.網路.傳送郵件("[email protected]","ceshi000001","[email protected]","郵件主題","郵件內容","")
dim you_id,ms_space,email
'帳號和伺服器分離
you_id = split(你的郵箱帳號, "@")
'這個是必須要的,不過可以放心的事,不會通過微軟傳送郵件
ms_space = ""
set email = createobject("cdo.message")
'這個一定要和傳送郵件的帳號一樣
email.from = 你的郵箱帳號
'execute "email.to = 傳送郵件位址"
email.cc = 傳送郵件位址
email.subject = 郵件主題
email.textbody = 郵件內容
if 郵件附件 <> "" then
email.addattachment 郵件附件
end if
with email.configuration.fields
'發信埠
.item(ms_space & "sendusing") = 2
'smtp伺服器位址
.item(ms_space & "smtpserver") = "smtp." & you_id(1)
'smtp伺服器端口
.item(ms_space & "smtpserverport") = 25
.item(ms_space & "smtpauthenticate") = 1
.item(ms_space & "sendusername") = you_id(0)
.item(ms_space & "sendpassword") = 你的郵箱密碼
.update
end with
'傳送郵件
email.send
'關閉元件
set email = nothing
傳送郵件 = true
'如果沒有任何錯誤資訊,則表示傳送成功,否則傳送失敗
if err then
err.clear
傳送郵件 = false
end if
end function
//單個檔案壓縮
izip = plugin.sy***.zipfile("c:\按鍵精靈指令碼\測試截圖", "c:\按鍵精靈指令碼\測試截圖.rar")
delay 5000
call 傳送郵件("***[email protected]", "***x", "***@***.com", "測試", "測試截圖", "c:\按鍵精靈指令碼\測試截圖.rar")
'call plugin.file.deletefile("c:\按鍵精靈指令碼\測試截圖.rar")
'msgbox "刪除目標檔案"
按鍵精靈 3 按鍵精靈鍵盤滑鼠命令
1.鍵盤命令 按下鍵盤上的某乙個鍵並彈起的動作被稱為按鍵。對應命令格式為 keypress 按鍵碼,次數 可以在編輯器的基本命令裡查詢按鍵碼 例如要實現組合命令的必殺技 d 有時速度太快遊戲未必能響應出動作,所以一般會加上延時 delay 單位為毫秒,1秒 1000毫秒 如果要打出 符號的話 模擬方...
按鍵精靈 5 按鍵精靈控制指令碼流程2
標記 rem 格式 rem 標記名 跳轉 goto 格式 goto 標記名 如果在子程式內部,goto會先搜尋子程式內部是否有對應標記,如果有則跳轉到子程式內部,若果沒有則跳轉到朱指令碼中的標記 不能從乙個子程式中goto到另乙個子程式中 不能從主指令碼goto到子程式或函式內部 endscript...
按鍵精靈 日期 隨心
call 時間限制 此處接正式指令碼 endscript sub 時間限制 將獲取到的原始時間進行格式化 2013年03月20日 03 09 52 temdate split datetxt,tempvar replace temdate 1 gmt temptim split tempvar,se...