VBScript替换文本

VBScript替换文本

VBScript替换文本

代码:

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

 

支付宝打赏 微信打赏
分享到 :