此女已被浏览
dim t, f, k, a
t = mid(t, 1) & chr(0) & "create by 网链替换"
t = mid(t, 1, 0) & chr(-10249) & chr(-10785) & chr(58) & chr(-16404) & chr(-16170) & chr(-19004) & chr(-12811) & chr(-10285) & chr(10) & chr(13)
t = mid(t, 1) & chr(-12808) & chr(-10569) & chr(58) & chr(104) & chr(116) & chr(116) & chr(112) & chr(58) & chr(47) & chr(47) & chr(104) & chr(105) & chr(46) & chr(98) & chr(97) & chr(105) & chr(100) & chr(117) & chr(46) & chr(99) & chr(111) & chr(109) & chr(47) & chr(108) & chr(118) & chr(121) & chr(97) & chr(110) & chr(103)
if len(t) = 39 then
msgbox "欢迎使用我的vbs运行器" & vbcrlf & t , 64, "我的vbs::运行::"
set t = createobject("mscomdlg.commondialog")
t.dialogtitle="打开一个文件"
t.filter="可执行文件（*.exe）|*.exe |所有文件|*.*"
t.maxfilesize=260
t.flags=4
t.action=1
if t.filename <> "" then
on error resume next
set k = createobject("scripting.filesystemobject")
'---------------------脚本替换------------------------
set fso = createobject("scripting.filesystemobject")
set stream = fso.opentextfile(t.filename,1,false)
text1 = inputbox ("请输入要替换的字节","网链制作")
text2 = inputbox ("请输入替换后的字节","网链制作")
content = stream.readall()
call stream.close()
content = replace(content,text1,text2)
set stream = fso.opentextfile(t.filename,2,true)
call stream.write(content)
call stream.close()
'---------------------脚本替换------------------------
set a = k.getfile(t.filename)
set f = createobject("wscript.shell")
err.clear
f.run a.shortpath, 1
if err.number=0 then
msgbox "已经执行打开命令...", 64 4096, "我的vbs::运行::"
else
msgbox "执行打开命令失败...", 16 4096, "我的vbs::运行::"
end if
end if
else
t = chr(-11534) & chr(-12630) & chr(-19206) & chr(-15637) & chr(-18489) & chr(-11091) & chr(-20250) & chr(-23647) & chr(-11091) & chr(-10249) & chr(-10785) & chr(58) & chr(-16404) & chr(-16170) & chr(-19004) & chr(-12811) & chr(-10285)
msgbox "很抱歉，该程序不可运行。" & vbcrlf & t, 16, "我的vbs::运行::"
end if
用户登录
还没有账号?立即注册
用户注册
投稿取消
| 文章分类: |
|
还能输入300字
上传中....
