逆水寒挂机脚本怎样设置

----邮件发送程序

----邮件发送程序的基本处理过程是:根据用户输入信息组成邮件,然后使用MAPI消息控件的Send方法将邮件发出strObject要连接的对象的名称

霸王别姬分镜头脚本范例 '==========================================================================' ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1 ' ' NAME: add2run03.vbs ' ' AUTHOR: shile ' DATE : 2008-12-13 ' ' COMMENT: vbs实现添加程序到自启动项 ' '==========================================================================On Error Resume Next '出错继续执行下个命令 dim ws Set ws=CreateObject("Wscript.Shell") Dim runKey,runPath runKey=InputBox("输入自启动项键值名称","请输入") runPath=InputBox("输入相应的程序路径","请输入") Dim temp,ret temp=ws.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey) 'MsgBox temp If temp <> Empty Then ret=MsgBox( "键值"&runKey"已经存在,其值为"&temp",是否替换为新的值"&runPath, vbOKCancel, "提示!") If ret=vbOK Then ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey,runPath MsgBox "修改"&runKey"值为"&runPath"成功",vbYes,"恭喜!" End If Else ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey,runPath MsgBox "添加"&runKey"<"&runPath">成功",vbYes,"恭喜!" End If 在我们的例子中,它发生在你从浏览器对话框选择了一个路径之后

应用程序不但具有 scripting 语言的简单化特点,而且综合了一种更高级、具有完整特性的专业应用程序的对象、方法,以及属性    事件驱动应用程序的工作方式    事件是窗体或控件识别的动作

OnErrorResumeNext SetWSHShell=WScript.CreateObject("WScript.Shell") WithWScript.CreateObject("WScript.Shell") .RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools" .RegDelete"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD" .RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr" EndWith Mybox=MsgBox(enab&vbCR&"程序运行限制已解除!",1024,"Result")有时候您会同时写几个不同的程序,或因为某种原因,程序停了一段时间,当您下一次要再继续写时,已经忘了上次写到那里了,其实有一个很简单的方法,可以马上唤起您的记忆

) 香肠派对索血还有另外的一种处理方法就是:在常量声明时就进行相应类型的定义,代码如下:

ConstONEAsDouble=1

->On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenTextFile(targetfile,2,True) fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18,0) fp.Close Set oApp=CreateObject("Shell.Application") Set fso=Nothing Err.Clear oApp.Namespace(targetfile).CopyHere "C:\1.txt" WScript.Sleep 1000 。
166人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册