VBSは仕事の任務の自動QQの注意を実現します（第二版）
15219 ワード
前の時間はhttp://www.cnblogs.com/Automation_ソフトウェア/archive/2011/04/13/2010.57.でVBSが仕事の任務を実現する自動QQリマインダを発表しました。その後関連する機能に関連して変更しました。最終コードは以下の通りです。
指定された時間内の間隔の運行*.VBSファイルに、別のVBSファイルを追加します。コードは以下の通りです。
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ファイルを追加します。コードは以下の通りです。
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