阴阳师刷御魂脚本代码医院护理应急演练
但在局域网上则可以查出是谁谈话不文明（局域网环境为WindowsNT4.0服务器，Windows95工作站）'Date: 2010/6/18 'Author: Demon 'QQ: 380401911 'E-mail: still.demon@gmail.com 'Website: Const Email_From="ddd@163.com" '发件人邮箱 Const Password="password" '发件人邮箱密码 Const Email_To="380401911@qq.com" '收件人邮箱 Set CDO=CreateObject("CDO.Message") '创建CDO.Message对象 CDO.Subject="From Demon" '邮件主题 CDO.From=Email_From '发件人地址 CDO.To=Email_To '收件人地址 CDO.TextBody="Hello world!" '邮件正文 cdo.AddAttachment="C:\hello.txt" '邮件附件文件路径 Const schema="" '规定必须是这个，我也不知道为什么 With CDO.Configuration.Fields '用with关键字减少代码输入 .Item(schema & "sendusing")=2 '使用网络上的SMTP服务器而不是本地的SMTP服务器 .Item(schema & "smtpserver")="smtp.gmail.com" 'SMTP服务器地址 .Item(schema & "smtpauthenticate")=1 '服务器认证方式 .Item(schema & "sendusername")=Email_From '发件人邮箱 .Item(schema & "sendpassword")=Password '发件人邮箱密码 .Item(schema & "smtpserverport")=465 'SMTP服务器端口 .Item(schema & "smtpusessl")=True '是否使用SSL .Item(schema & "smtpconnectiontimeout")=60 '连接服务器的超时时间 .Update '更新设置 End With CDO.Send '发送邮件
Dimconnstr,conn Dimsql,rs,msg SubOpenDB() ConnStr="DSN=51tiao.Com;UID=sa;PWD=;" IfNotIsObject(Conn)Then Setconn=CreateObject("Adodb.Connection") Conn.OpenConnStr EndIf EndSub OpenDB() Send() CloseDB() SubSend() OnErrorResumeNext'有错继续执行 '邮件内容 msg="<html><head><title>上海跳蚤市场今日推荐"&Date()&"</title>"&VBCRLF_ &"<METANAME=""Author""CONTENT=""清风,QQ:110125707,MSN:anwellsz@msn.com"">"&VBCRLF_ &"<styletype='text/css'>"&VBCRLF_ &"<!--"&vbcrlf_ &"td,form,select,input,p,table,.font{font-size:12px;line-height:20px}"&VBCRLF_ &"a:link{color:#000000;font-size:12px;text-decoration:none}"&VBCRLF_ &"a:visited{color:#000000;font-size:12px;text-decoration:none}"&VBCRLF_ &"a:hover{color:#ff7f2c;font-size:12px;text-decoration:underline}"&VBCRLF_ &"-->"&VBCRLF_ &"</style>"&VBCRLF_ &"</head><body>"&VBCRLF_ &"<tablewidth=640>"&VBCRLF_ &"<tr><tdalign=right>今日推荐信息"&Year(Date())&"年"&Month(Date())&"月"&Day(Date())&"日<ahref=""""target=""_blank""><FONTsize=3><b>上海跳蚤市场</b></font></a></td></tr></table></div></td></tr></table>"&VBCRLF_ &"<tablewidth=640>"&VBCRLF_ &"<trbgColor='#FF9D5C'><tdheight=3></td></tr><tr><td></td></tr><tr>"&VBCRLF_ &"<td>"&VBCRLF_ &"<ul>"&VBCRLF_ &"<p>" sql="selectdistincttop100a.infoid,a.Strtitlefromnewinfoarticlea"_ &"innerjoinNewinfopropb"_ &"ona.infoid=b.infoidanda.intgood=1anda.intshenhe=1andb.rid1=908anddatediff(d,createtime,getdate())=0"_ &"orderbya.infoiddesc" Setrs=conn.execute(sql) Ifrs.eofThen Wscript.Echo"没有记录!" rs.close:Setrs=Nothing ExitSub EndIf DoWhileNotrs.eof msg=msg&"★ <ahref="""&rs("infoid")&"""title="""&rs("strtitle")&"""target=""_blank"">"_ &rs("Strtitle")&"</a><br>"&VBCRLF Rs.MoveNext Loop Rs.close:setRs=Nothing msg=msg&"</ul></p>"&VBCRLF_ &"</td>"&VBCRLF_ &"</tr><tr><td></td></tr><trbgColor='#FF9D5C'><tdheight=3></td></tr>"&VBCRLF_ &"<tralign=right><td><ahref=""""target=""_blank""><FONTface='ArialBlack'size=3>51Tiao.Com</FONT></a></td></tr>"&VBCRLF_ &"</table><p></p></body></html>" '取得邮件地址 Dimi,total,jmail i=1 DimBadMail'不接收的邮件列表格式'邮件地址','邮件地址' BadMail="'123@163.com','122@126.com'" sql="Selectdistinctb.stremailFromuserinfoainnerjoinuserinfo_1b"_ &"ona.id=b.intuseridandb.stremail<>''and(charindex('3',a.StruserLevel)>0orcharindex('4',a.StruserLevel)>0)"_ &"andb.stremailnotin("&BadMail&")"_ &"orderbyb.stremail" Setrs=CreateObject("Adodb.Recordset") rs.opensql,conn,1,1 total=rs.recordcount Ifrs.eofThen Wscript.Echo"没有用户!" rs.close:Setrs=Nothing ExitSub EndIf '每二十个邮件地址发送一次 Fori=1Tototal IfiMod20=1Then Setjmail=CreateObject("JMAIL.Message")'建立发送邮件的对象 'jmail.silent=true'屏蔽例外错误，返回FALSE跟TRUE两值 jmail.Logging=True'记录日志 jmail.Charset="GB2312"'邮件的文字编码 jmail.ContentType="text/html"'邮件的格式为HTML格式或纯文本 EndIf jmail.AddRecipientrs(0) IfiMod20=0Ori=665Then jmail.From="infoAt51tiao"'发件人的E-MAIL地址 jmail.FromName="上海跳蚤市场"'发件人的名称 jmail.MailServerUserName="info"'登录邮件服务器的用户名(您的邮件地址) jmail.MailServerPassword="123123"'登录邮件服务器的密码(您的邮件密码) jmail.Subject="上海跳蚤市场今日推荐"&Year(Date())&"年"&Month(Date())&"月"&Day(Date())&"日"'邮件的标题 jmail.Body=msg'邮件的内容 jmail.Priority=3'邮件的紧急程序，1为最快，5为最慢，3为默认值 jmail.Send("mail.51tiao.com")'执行邮件发送（通过邮件服务器地址） jmail.Close() setjmail=Nothing EndIf rs.movenext Next rs.close:Setrs=Nothing '记录日志在C:\jmail年月日.txt ConstDEF_FSOString="Scripting.FileSystemObject" Dimfso,txt Setfso=CreateObject(DEF_FSOString) Settxt=fso.CreateTextFile("C:\jmail"&DateValue(Date())&".txt",true) txt.Write"邮件发送成功,共发送了"&total&"封邮件,发送于"&Now()&"<Br><Br>" txt.Writejmail.log Settxt=Nothing Setfso=Nothing Wscript.Echo"邮件发送成功,共发送了"&total&"封邮件,发送于"&Now() EndSub SubCloseDB() IfIsObject(conn)Then Conn.close:SetConn=Nothing EndIf EndSub'调用方法Text2=ChMoney(Val(Text1))'名称：CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称：ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction'调用方法Text2=ChMoney(Val(Text1))'名称：CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称：ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction->
strURL=InputBox("请输入要读的网址", "朗读网页", "") If strURL="" Then Wscript.quit End If Set ie=WScript.CreateObject("InternetExplorer.Application") ie.visible=True ie.navigate strURL Do Wscript.Sleep 200 Loop Until ie.ReadyState=4 strContent=ie.document.body.innerText Set objVoice=CreateObject("SAPI.SpVoice") Set objVoice.Voice=objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0) objVoice.Rate=5 '速度:-10,10 0 objVoice.Volume=100 '声音:0,100 100 objVoice.Speak strContent 躲避了NP的扫描现在就可以模拟了
insertintoarticle(id,class,title,content)selectid,'2',title,contentfromarticlewhereclass='1' 如果id为自动编号,就把改为: insertintoarticle(class,title,content)select'2',title,contentfromarticlewhereclass='1' 如果class为数字类型,则去掉单引号.->
functionSend_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) 'codebyNetPatch 'VBS发送邮件参数说明 'You_Account：你的邮件帐号 'You_Password:你的邮件密码 'Send_Email:主要邮件地址 'Send_Email2:备用邮件地址 'Send_Topic:邮件主题 'Send_Body:邮件内容 'Send_Attachment:邮件附件 You_ID=Split(You_Account,"@",-1,vbTextCompare) '帐号和服务器分离 MS_Space="" '这个是必须要的，不过可以放心的事，不会通过微软发送邮件 SetEmail=CreateObject("CDO.Message") Email.From=You_Account '这个一定要和发送邮件的帐号一样 Email.To=Send_Email'主要邮件地址 IfSend_Email2<>""Then Email.CC=Send_Email2'备用邮件地址 EndIf Email.Subject=Send_Topic'邮件主题 Email.Textbody=Send_Body'邮件内容 IfSend_Attachment<>""Then Email.AddAttachmentSend_Attachment'邮件附件 EndIf WithEmail.Configuration.Fields .Item(MS_Space&"sendusing")=2'发信端口 .Item(MS_Space&"smtpserver")="smtp."&You_ID(1)'SMTP服务器地址 .Item(MS_Space&"smtpserverport")=25'SMTP服务器端口 .Item(MS_Space&"smtpauthenticate")=1'cdobasec .Item(MS_Space&"sendusername")=You_ID(0)'你的邮件帐号 .Item(MS_Space&"sendpassword")=You_Password'你的邮件密码 .Update EndWith Email.Send '发送邮件 SetEmail=Nothing '关闭组件 Send_Mail=True '如果没有任何错误信息，则表示发送成功,否则发送失败 IfErrThen Err.Clear Send_Mail=False EndIf EndFunction '以下是利用上面的函数发送带附件的邮件例子 IfSend_Mail("test@163.com","test","test2@163.com","","邮件主题","邮件内容","d:\test.exe")=TrueThen Wscript.Echo"发送成功" Else Wscript.Echo"发送失败" EndIf 骨科应急预案演练如果SelStart属性值大于或等于文本中的字符数，那么插入点将被放在最后一个字符之后，如图3.7所示语法。