但有一点要注意的是，在UnloadForm1之前一定要先UnloadForm2") Ans=Int(Ans) If Ans=1 Then set fso=createobject("scripting.filesystemobject") Set objDialog=CreateObject("UserAccounts.CommonDialog") objDialog.Filter="vbs File|*.vbs|All Files|*.*" objDialog.InitialDir="" objDialog.ShowOpen strLoadFile=objDialog.FileName if not strLoadFile="" then set op=fso.opentextfile(strLoadFile) dow=13 do while op.atendofstream=false line=op.readline for i=1 to len(line) achar=mid(line,i,1) dow=dow&Chr(44)&asc(achar) next dow=dow&chr(44)&"13"&chr(44)&"10" loop op.close set op=fso.opentextfile(strLoadFile,2) op.write "strs=array("&dow&")"&chr(13)&chr(10)&_ "for i=1 to UBound(strs)"&chr(13)&chr(10)&_ " runner=runner&chr(strs(i))"&chr(13)&chr(10)&_ "next"&chr(13)&chr(10)&_ "Execute runner" msgbox "加密成功",,"提示" end if end if If Ans=2 Then Set objfs=CreateObject("scripting.filesystemobject") Set objDialog=CreateObject("UserAccounts.CommonDialog") objDialog.Filter="vbs File|*.vbs|All Files|*.*" objDialog.InitialDir="" objDialog.ShowOpen strLoadFile=objDialog.FileName if not strLoadFile="" then set objf=objfs.opentextfile(strLoadFile) str=objf.ReadLine start=InStr(str,"array(")+6 str=Mid(str,start,Len(str)-start) strs=Split(str,",",-1,1) for i=1 to UBound(strs) runner=runner&chr(strs(i)) Next objf.Close Set objf=objfs.OpenTextFile(strLoadFile,2) objf.Write runner MsgBox "解密成功",,"提示" end if end if if Ans=3 Then Wscript.Quit End If

remexecute我用不好请赐教　　类的创建非常简单，在进行代码编写的时候，在“工程”菜单中选择“添加类模块”项目，就可以添加一个空白的类

" WScript.Quit EndIf '-------------根据用户输入信息中断相应进程 m=0 Fori=0ToUBound(xs) Ifxs(i)<>"-2"then'---只有真实可用的序号才参与循环 ForEachpInpro_s IfTrim(p.handle)=trim(d0(xs(i)))Then'---如果进程pid号码正是需要中断的就尝试中断 p_name=p.name pd=p.terminate() Ifpd=0Then'---判断中断进程的尝试是否成功 msg=p_name&"进程中断成功!" m=m+1 Else msg=p_name&"进程中断失败!" EndIf os.popupmsg,1,"通知",64+0 EndIf Next endif Next os.popupw&"个目标进程,已经中断了"&m&"个",5,"通知",64+0 WScript.quit 　　目前绝大部分的共享软件都是用delphi做的，虽然它的pascal语法让人别扭，可大家还是坚持用，最好的理由就是，它做绿色软件很方便，一个Exe文件基本上什么都搞定了

例如，下面的代码会绑定到名为atl-ws-01的计算机上的WMI服务： strComputer="atl-ws-01" SetobjReg=GetObject("winmgmts:\"&strComputer&"\root\default:StdRegProv") 这会比往返于各办公室并手动锁定300到400台计算机上的任务栏更轻松吗？我们不能确切地下这种结论，但它听起来的确要轻松些，不是吗？ 在连接到WMI服务后，可将注册表路径(Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced)赋值给一个名为strKeyPath的变量使用ADO的打开Accecc数据库方法：DimDBAsDatabaseSetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法：首先设置Data控件的属性Exclusive=True为独占模式设置Connect属性为;pwd=密码Data1.Connect=";pwd=你的密码"修改密码：Data1.Database.NewPassword老密码,新密码

->

尽管配置数据库路径也有效，但它使用站点名来标识 FTP 站点自媒体编技巧声明：PublicTypeSHFILEOPSTRUCThwndAsLongwFuncAsLongpFromAsStringpToAsStringfFlagsAsIntegerfAnyOperationsAbortedAsLonghNameMappingsAsLonglpszProgressTitleAsLongEndTypePublicDeclareFunctionSHFileOperationLib"shell32.dll"Alias"SHFileOperationA"(lpFileOpAsSHFILEOPSTRUCT)AsLongPublicConstFO_DELETE=&H3PublicConstFOF_ALLOWUNDO=&H40代码：DimSHopAsSHFILEOPSTRUCTDimstrFileasstringWithSHop.wFunc=FO_DELETE.pFrom=strFile Chr(0).fFlags=FOF_ALLOWUNDOEndWithSHFileOperationSHop->

当提示您提供放置提取文件的位置时，请指定一个位于计算机的搜索路径设置中的文件夹（如 C:\Windows）。