脚本加密跑
发布时间:2021-06-22 来源:脚本之家 点击:
->用vbs实现cmd功能
onerrorresumenext
dowhiled<>"520"
d=inputbox("请输入命令,多个命令用&连接
如果省略,使用空格 ("") 作为分隔符
由于UDP协议不需要显式的连接,就需要在两个Winsock控件中间发送数据,关键需要完成以下的三步:
1.将RemoteHost属性设置为另一台计算机的名称 ->在属性窗口将data控件与库文件及其表链接好,并将Label控件与Data控件绑定
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 "命令执行完成。
热门阅读