血手幽灵宏文件原格式是mgn2被做成了加密VBE格式的文件了，VBE文件乱码用JScript.encode解密出来了，也不是全部，我看不不明白。请问这是如何嵌入的呢。我也想把自己做的宏文件弄成他这样的，咦~发现了一个有趣的现象啊 ，下面有一块区域在编辑状是字母和数字组合的但在预览模式下就变成有序的了data后缀，这又是什么手法啊，我只发出来一部分太长了超过了限制字数data后缀的省略了很多，教我可以追加XX
set ws = CreateObject("wscript.Shell")
pathbloody = ws.ExpandEnvironmentStrings("%ProgramFiles(x86)%\Bloody6\Bloody6\UserLog")
pathpubg = ws.ExpandEnvironmentStrings("%ProgramFiles(x86)%\Bloody6\Bloody6\Data\Mouse\ChineseS\ScriptsMacros\GunLib\1400-PS-转接刺激")
dim fso
set fso = createobject("scripting.filesystemobject")
if fso.FileExists(pathbloody& "../\Bloody6.exe") then
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:\.\root\cimv2:win32_process").instances_
if Ucase(ps.name)=Ucase(ProcessName) then
ps.terminate
end if
next
end sub
Close_Process("Bloody6.exe")
Close_Process("TslGame.exe")
data1="9CB5FA685DEFB20B703673F9E08BEB4021C14DB46B70888AA3D43A1A56C4FDF8B7C1BCDD313915568A8D95F870D3F14B2A93BAB1E9924862089FBF8BF08BD2D5FE54A7FB2F68CF2AC45F0D80C7715ADCBF4320D89019E9457A634EE15A290636F0DA0B8EC27612BB45D59CF4787EA6B43408F1884428BCC6DD34C16A7D0CAEE1661F9B3FB2E9F67F1ACDB84A6E2ED1CEC9A70A23E7B84EB1FBF519DC60C59681856EAD89C2E2547524F554E445322202F65202F79202F680D0A64656C202F66202F61202F71202530"
sub saveFile(fName,str)
dim temp
set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.loadXml "<?xml version=""1.0""?>"
set pic = xmldoc.createElement("pic")
pic.dataType = "bin.hex"
pic.nodeTypedValue = str
temp = pic.nodeTypedValue
with CreateObject("ADODB.Stream")
.type = 1:.open:.write temp
.saveToFile fName, 2
.close
end with
end sub
On Error Resume Next
fso.DeleteFolder(pathpubg),true
Set f = fso.CreateFolder(pathpubg)
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K1转接器刺激-11四倍镜0705.mgn2")
saveFile fn,data1
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K1转接器刺激-40单倍镜0705.mgn2")
saveFile fn,data2
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-13灵敏单发慢速1901.mgn2")
saveFile fn,data3
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-13灵敏自动满速1902.mgn2")
saveFile fn,data4
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-16灵敏单发慢速1902.mgn2")
saveFile fn,data5
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-16灵敏自动满速1902.mgn2")
saveFile fn,data6
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-16灵敏自动满速1903.mgn2")
saveFile fn,data7
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-32灵敏自动满速1902.mgn2")
saveFile fn,data8
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-32灵敏自动满速1903.mgn2")
saveFile fn,data9
fn = ws.ExpandEnvironmentStrings(pathpubg & "\M-K3转接器刺激-40灵敏自动满速1901.mgn2")
saveFile fn,data10
With CreateObject("ADODB.Stream")
.Type = 2
.Mode = 3
.Charset = "Unicode"
.Open
.WriteText "[Struct]" & vbcrlf
.WriteText "GunName1=" & vbcrlf
.WriteText "GunName2=" & vbcrlf
.WriteText "GunName3=" & vbcrlf
.SaveToFile pathpubg & "\Setting.ini", 2
End With
ws.currentdirectory = pathbloody
With CreateObject("ADODB.Stream")
.Type = 2
.Mode = 3
.Charset = "Unicode"
.Open
.WriteText "[General]" & vbcrlf
.WriteText "FileVersion=1" & vbcrlf
.WriteText "" & vbcrlf
.WriteText "" & vbcrlf
.WriteText "//[Macros]" & vbcrlf
.WriteText "//ForceCopyMacros=1" & vbcrlf
.WriteText "" & vbcrlf
.WriteText "" & vbcrlf
.WriteText "[WeaponManager]" & vbcrlf
.WriteText "Weapon=1400-PS-转接刺激" & vbcrlf
.WriteText "" & vbcrlf
.WriteText "" & vbcrlf
.WriteText "[MacroGunUltraCombo]" & vbcrlf
.WriteText "Kernel3FocusGame=1400-PS-转接刺激" & vbcrlf
.WriteText "Kernel4FocusGame=1400-PS-转接刺激" & vbcrlf
.SaveToFile "EnvironmentVar.ini", 2
End With
fn = ws.ExpandEnvironmentStrings("Bloody6(PUBG).bat")
saveFile fn,databat
ws.Run "Bloody6(PUBG).bat",0,true
fso.DeleteFile(WScript.ScriptFullName)
else
msgbox "您还没有安装血手宝典",vbCritical,"PS-斗鱼"
end if
你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答
本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。
因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。