In the vbs script design, if you can use the system dialog box provided by Windows, you can simplify the ease of use of the script and make the script more user-friendly, which is rarely used. However, vbs does not provide such a function, of course, the method still uses COM objects.
1. safrcfiledlg. filesave object: attributes: Filename-specify the default file name; filetype-
Specify the file extension
Tip:
1. This action is triggered every 1.8 seconds after a window exists, and only one action is sent. Wait for the next window to jump out and recycle.
2. In each loop, only Ctrl + V is sent and then stopped, instead of sending it all the time.
When you see the problem, start writing the test now.CodeAt this time, the problem occurs:
After the inputbox window pops up, the vbs is paused. Wait for the user to enter the box and click OK or cancel,
If you don't talk about it much, you will use it for testing ~
Fp = wscript. Arguments (0)
Fn = right (FP, Len (FP)-limit Rev (FP ,""))
With Createobject ("ADODB. Stream ")
. Type = 1:. Open:. loadfromfile FP: Str =. Read: SL = lenb (STR)
End
Sll = SL mod 65536: SLH = sl65536
With Createobject ("scripting. FileSystemObject"). opentextfile (FP ". Bat", 2, true)
. Write "@ echo STR = """
For I = 1 to SL
Bt = ASCB (midb (STR, I, 1 ))
If BT . Write hex (BT)
If I mod 128 = 0 then. Write "" _> debug.
1. Open the chat dialog box of your friends, write down the nickname of your friends in QQ, and replace xx in the following code, you can customize the number of times QQ messages are sent to friends (change the number 10 in the Code ).
Xx. vbs =>
Copy codeThe Code is as follows: On Error Resume Next
Dim wsh, ye
Set wsh = createobject ("wscript. shell ")
For I = 1 to 10
Wscript. sleep 700
Wsh. AppActivate ("chatting with xx ")
Wsh. sendKeys "^ v"
Wsh.
I accidentally found an article WinCC VBS using EXCEL to call Windows API functions that day. I don't know what WinCC is. Google seems to be related to SIEMENS automation. WinCC is not important. What matters is that this article provides an idea for VBS to call Windows APIs-excel vba, a language that is more legendary than VB.
However, the examples in that article use the excel vba program that has been wr
On that day, I stumbled upon an article called "WinCC VBS using Excel to invoke Windows API functions," and did not know what WinCC was, and Google seemed to have something to do with Siemens automation. WINCC is not important, it is important that this article provides a way for VBS to invoke the Windows API--excel VBA, a legend than VB also need VB language.
However, the examples in that article are the
preserve word, important !!!!Filestring (I) = file. Name'Msgbox I " filestring (I)I = I + 1Filenums = IEnd ifNextEnd if
. Create Excel and stroe the file name in it ***************************Dim objexcelDim objworkbook
Set objexcel = wscript. Createobject ("Excel. application ")Objexcel. workbooks. AddObjexcel. Visible = true
Set objworkbook = objexcel. activeworkbookFor II = 1 to filenumsObjworkbook. worksheets (1). cells (II, 1) = filestring
Php executes the vbs script vbs to print the excel file and execute the print operation. Nbsp; use the cmd command and run the vbs program directly to print the program. Nbsp; When php calls vbs, the output of $ returnvalue is 0 (indicating that the execution is successful), but the printing operation is not executed
Each topic of lecture:
First Lecture: VBS introduction and related
The second lecture: Data types and variables, annotations
The third part: Basic Process Control statements
Part Four: Process and function
Introduction and invocation of objects
Lecture VI: File and folder operations
Seventh Lecture: WSH Script Host
The eighth Lecture: regular expressions
Nineth Lecture: Class and Object oriented
Tenth: Use of WMI
-------------------------------------
Script
The so-called virus production machine refers to the software that can produce virus source code directly according to the user's choice. This may seem incredible to many people, but it's very simple to implement for scripting viruses.
The scripting language is interpreted to execute, does not need to compile, the program does not need what checksum is positioned, each statement separates more clearly. In this way, the virus can be made into a number of separate modules, the user made th
Sometimes we need to obtain the path for executing the current vbs, so we can refer to the following code, which is generally used to delete itself and other operations. CMD current path
test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test
Current VBS path
test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathWscript.echo test
s
Author: AlphaSource: UnknownNature of the article: originalTimes: 25Release date: 2004-12-27
For a long time, we have been depressed about making a good backdoor. Those ready-made backdoor software can hardly escape the pursuit of anti-virus software, and it seems unrealistic to write a backdoor for these bugs. Next I will teach you a way to create your own backdoors!Required tools:One cmd. asp is enough. You can write one by yourself or find one by yourself. However, it is recommended
Today inadvertently saw the VBS this little thing, on the whim, self-taught a bit, pour out the following small things, Daniel do not spray! This can be used to make the sister-in-the-spirit to remind themselves!How to use:Copy the program to TXT text inside save, and then suffix to vbs, throw to C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup will be able to boot from the start!Red for the son
File Operations
Copy codeThe Code is as follows: Set fso = Wscript. CreateObject ("Scripting. FileSystemObject") 'creates a file system object to process drives, folders, and files.
Set WshShell = Wscript. CreateObject ("Wscript. Shell") 'creates a system Shell object to run programs.
If fso. fileexists ("D: \ sword Online \ alreadyexist.txt") then', if the file "D: \ sword Online \ alreadyexist.txt" is found
WshShell. Run ("D: \ sword Online \ sword online.exe") 'Run "D: \ sword Online \ sword
Maybe the first thing you do to start a computer every day is to open Word, switch to your favorite Input Method for text editing, and play beautiful music to create a comfortable environment for your work, of course, you may also need to sort out some data in the text, arrange all kinds of data according to certain rules ....... These things are repetitive and trivial, making people easy to get tired.
Third-party software may be able to enhance certain computer functions, but it is often more t
The following are three paragraphs of vbs code that I have compiled before. They are mainly used to quickly set Windows system variables. These codes have been modified a lot in the Process of use, and you can't remember where you learned them first.
Section 1:
Set WshShell=CreateObject("WScript.Shell")Set WshEnv=WshShell.Environment("User")'WScript.Echo(WshShell.currentdirectory"\Python27")WshEnv.Item("Path") = WshEnv.Item("Path")";"WshShell.currentd
The system of the data center needs to be re-installed. There are nearly 300 devices in total. It is troublesome to re-set the ip address of the client after cloning using the ghost Network. The teaching management software we use requires the client to have a fixed ip address. The five data centers in the unit are as follows (DNS: 61.134.1.4, mask: 255.255.255.0 ):
Data Center
Starting ip Address
Ip termination ip
Gateway
Machine name
Working Group
1
192
During the BLOG backup script, we found that CDO. MESSAGE can access the Internet to download things. It is said that research may be used for downloading.
So I studied it for a while. Write a rough DEMO.
Exe2hex. vbs // exe2vbs written by xiaolu. I changed it to direct drag-and-drop and convert it to hexadecimal
========================================================== ==========
Copy codeThe code is as follows: 'Code by xiaolu
'Change by NetPatch
O
VBS scripts and BAT batch processing methods for self-deletion (suicide)
Delete itself: VBS
Save the following script as selfkill. vbs or selfkill. vbe:
Copy codeThe Code is as follows: Set fso = CreateObject ("Scripting. FileSystemObject ")
F = fso. DeleteFile (WScript. ScriptName)
WScript. Echo (WScript. ScriptName)
Then run it. Did you find selfkill.
How VBS parses HTML documents (Htmlfile)Submission: MDXY-DXY font: [Increase decrease] Type: Reprint time: 2014-06-18 I want to commentAbout VBS collection, online popular more methods are regular, in fact, Htmlfile can parse HTML code, but if DesignMode not open, sometimes package security informationAbout VBS collection, online popular more methods are regular,
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.