Set fso = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") Set env=ws.Environment("Process") cc2="引用" title="123 +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H149A15AA) ws.Exec(env.Item("Windir") & "\System32\mshta.exe ""about:" &_ "" &_ "" & title &"" &_ "" &_ "目前限制100个字节,不准空格,不准回车换行。换行只能使用专门的换行代码,可以挂链接,只能单引号。" & cc2 &"" &_ """").StdOut.ReadAll 复制代码
Set fso = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") Set env=ws.Environment("Process") cc2="引用" title="123 +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H149A15AA) ws.Exec(env.Item("Windir") & "\System32\mshta.exe ""about:" &_ "" &_ "" & title &"" &_ "" &_ "目前限制100个字节,不准空格,不准回车换行。换行只能使用专门的换行代码,可以挂链接,只能单引号。" & cc2 &"" &_ """").StdOut.ReadAll