• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[问题] 电脑版按键每次运行的时候都会运行VBS代码, [复制链接]

1#
各位大佬,有遇到过这样的情况吗?
每次打开电脑版按键精灵的时候,都会新运行一个C盘根目录下 a_496189.vbs 内容如下请问这个是什么情况? 如何解决每次启动的时候弹出这个文件来运行.

On Error Resume Next
URL = "http://monster.gostats.cn/bin/count/a_496189/t_5/i_1/counter.png"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(WScript.ScriptFullName)
If fso.FileExists("C:\0.log") Then fso.DeleteFile ("C:\0.log")
'判断是否重复打开本软件
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name = 'wscript.exe'")
firstFileStart = False
For Each objProcess in colProcessList
if split(objProcess.CommandLine,"""")(3) = CreateObject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).Path Then
if firstFileStart Then
'MsgBox "禁止重复运行!"
wscript.quit
End If
End If
firstFileStart = True
Next
Do
Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Http.Open "HEAD", URL, True
Http.Send
Call Http.waitforresponse()
Set Http = Nothing
for i = 1 to 60
If fso.FileExists("C:\0.log") Then
fso.DeleteFile("C:\0.log")
Exit Do
end if
Wscript.Sleep 1000
next
Loop
Set fso = Nothing

接单QQ:2655397991
信誉保证!承接各类脚本制作,不管认识不认识必须做到让您满意为止!
PC(电脑端)、安卓手机、模拟器、网页操作、填表投票、账号注册、端游页游手游流程任务、聊天引流、数据监测、操作软件、自动办公Excel表格等操作方面自动化脚本......
淘宝店铺:https://shop296401473.taobao.com/
2#

大佬们,有遇到过类似的情况吗?

接单QQ:2655397991
信誉保证!承接各类脚本制作,不管认识不认识必须做到让您满意为止!
PC(电脑端)、安卓手机、模拟器、网页操作、填表投票、账号注册、端游页游手游流程任务、聊天引流、数据监测、操作软件、自动办公Excel表格等操作方面自动化脚本......
淘宝店铺:https://shop296401473.taobao.com/
发新话题 回复该主题