VBS实现工作任务自动QQ提醒(第二版)

      前段时间在http://www.cnblogs.com/Automation_software/archive/2011/04/13/2010857.html发表了VBS实现工作任务自动QQ提醒,之后对相关功能做了相关的改动,最终代码如下:

Function sendmsg(item_code1,item_code2,item_code3,item_code4,qq_id)
dim Data_Source
Data_Source
="BRT170"
msg
= "有相关工作任务,请及时处理!工单编号为:" rem 发送消息内容
'''''''''''''''''''''''''''''''''''''''''''''''''''
Dim res,cmd,sql
Set res
=createobject("adodb.recordset")
Set cmd
=createobject("adodb.command")
Rem 连接数据库
Dim Connstring
Connstring
="Provider=OraOLEDB.Oracle.1;Password = query ;Persist Security Info=True; User ID = query ; Data Source = "&Data_Source&" ; Server = 172.19.201.170"
Cmd.activeconnection
= Connstring
rem 查询语句

sql
="SELECT wm_concat(app_no) app_no FROM sp_issue a WHERE EXISTS (SELECT 1 FROM sp_process c WHERE c.item_code IN ('"&item_code1&"','"&item_code2&"','"&item_code3&"','"&item_code4&"') AND c.state = '0' AND c.app_no = a.app_no)"
Cmd.CommandText
=sql
Dim returnapp_no
Set res
=Cmd.Execute()

If res.EOF And res.BOF Then
res.Close
Else
If res(
0)<>"" Then
returnapp_no
=Cstr(res(0))
On Error Resume Next
str
=""&msg&""&returnapp_no&""
Set WshShell
=WScript.CreateObject("WScript.Shell")
WshShell.run
"mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
WshShell.run
"tencent://message/?Menu=yes&uin="&qq_id&"&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
WScript.Sleep
3000
WshShell.SendKeys
"^v"
WshShell.SendKeys
"%s"
WshShell.sendkeys
"{enter}"
WScript.Sleep
1000
WshShell.sendkeys
"%{F4}"
End If
End If
Set res
=Nothing
Set Cmd.activeconnection
=Nothing
Set Cmd
=Nothing
end Function
call sendmsg(
"216","217","218","219","420363096")
call sendmsg(
"216","217","218","219","1743549558")

       将以上代码保存为*.VBS文件。

       在指定时间内间隔时间的运行*.VBS文件,添加另一个VBS文件,代码如下:

Option Explicit
function run(mintime,maxtime,xrun)
dim i,WshShell
Set WshShell
= CreateObject("WScript.Shell" )
WshShell.CurrentDirectory
= "D:\"
i=Hour(time())
if (cint(i)>=mintime and cint(i)<=maxtime) then
Call WshShell.Run(xrun,
1, True):exit function
end
if
set WshShell=nothing
end function

do
dim file
file
="Automatic_notification.vbs"
run
9,22,file
wscript.sleep
15000*60
loop

       将以上代码保存为**.vbs,运行**.vbs即可实现我们的功能。

posted on 2011-05-04 20:28  dfine.sqa  阅读(930)  评论(0编辑  收藏  举报

导航