小弟不懂vbs，所以特來求教。
需求：要求將a.log里的最后一句話以短信的方式發送出去。
腳本內容如下，一共兩個，如何整合到一起去實作這個功能？或者幫我寫一個全新的。
Function LoadFile(Path)
Dim Stm2
Set Stm2 = CreateObject("ADODB.Stream")
Stm2.Type = 2
Stm2.Mode = 3
Stm2.Open
Stm2.LoadFromFile Path
Stm2.Charset = "UTF-8"
'Stm2.Charset = "Unicode"
'Stm2.Charset = "GB2312"
Stm2.position = 0
LoadFile = Stm2.ReadText
Stm2.Close
Set Stm2 = nothing
End Function
logfile="C:\fetion\a.log"
fetion_exec="C:\fetion\fetion.exe"
fetion_user="13951886111"
fetion_passwd="iamcb11"
send_buddy="139518869111"
Msg=LoadFile(logfile)
arr=split(msg,vbcrlf)
l=ubound(arr)
Set objShell = CreateObject("Wscript.Shell")
objShell.run "cmd /C "&fetion_exec&" --mobile="&fetion_user&" --pwd="&fetion_passwd&" --to="&send_buddy&" --msg-gb="& arr(l),4,True
=========================分割線,另一個腳本=======================
On error resume Next
Dim mu_ConnString, mu_SelectSql
Dim objConnection, objCommand, objRecordset
mu_ConnString = "dsn=smsdata;driver={MySQL ODBC 5.1 Unicode Driver};server=23.23.23.23;uid=user;pwd=XXXXXX;database=smsdata;port=3306;"
mu_SelectSql = "insert into smsdata.SMS_OUTBOX(SISMSID,EXTCODE,DESTADDR,MESSAGECONTENT,REQDELIVERYREPORT,MSGFMT,SENDMETHOD,REQUESTTIME,APPLICATIONID) values
('1','001','13801039466;13810313198',短信提醒，有主機設備down，請及時關注。','0','8','2',now(),'P000000000008002')"
set objConnection = CreateObject("ADODB.Connection")
set objCommand = CreateObject("ADODB.Command")
set objRecordset = CreateObject("ADODB.Recordset")
objCommand.CommandText = mu_SelectSql
objConnection.Open mu_ConnString
if(objConnection.State = 0) Then
'MsgBox "連接資料庫失敗"
else
set objCommand.ActiveConnection = objConnection
objCommand.Execute
objConnection.Close
set objCommand = Nothing
set objConnection = Nothing
end if
'MsgBox "短信即將發出,請稍候."
uj5u.com熱心網友回復：
有人幫忙么？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/121729.html
標籤：VBA
下一篇：socket 異步通訊問題