清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>
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