脚本加密跑

->

用vbs实现cmd功能
onerrorresumenext
dowhiled<>"520"
d=inputbox("请输入命令,多个命令用&连接如果省略，使用空格 ("") 作为分隔符
　　由于UDP协议不需要显式的连接，就需要在两个Winsock控件中间发送数据，关键需要完成以下的三步：
　　1．将RemoteHost属性设置为另一台计算机的名称

->

在属性窗口将data控件与库文件及其表链接好，并将Label控件与Data控件绑定

2看点

但有一点要注意的是，在UnloadForm1之前一定要先UnloadForm2
option explicit
dim fpath,fso,logfile,fwrite
fpath=inputbox ("输入目标文件夹","文件处理器")
logfile="logfile.txt"
set fso=createobject("scripting.filesystemobject")
Set fwrite=fso.opentextfile(logfile,8,true)
getfilename fpath
fwrite.close
Set fso=Nothing
MsgBox "命令执行完成。