VBScript替换文本

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

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

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。