VBScript替换文本

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

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,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

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!