快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

和记娱乐手机app下载_机器人论坛



前段光阴在http://www.fengfly.com/plus/view-202440-1.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和记娱乐手机app下载= Connstring

rem 查询语句

sql="SELECT wm_concat(app_no) app_no FROM sp_issue a WHERE EXISTS (SELECT 1 FROM sp_process c WHERE c.ite和记娱乐手机app下载m_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和记娱乐手机app下载

Set Cmd.activeconnection=Nothing

Set Cmd=Nothing

end Function

call sendmsg("216","217","218","219",和记娱乐手机app下载"420363096")

call sendm和记娱乐手机app下载sg("216","217","218","219","1743549558")

您可能还会对下面的文章感兴趣: