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即可实现我们的功能。