The usage of this down. vbs is shown here
Http://www.jb51.net/article/15506.htm
Code:Copy codeThe Code is as follows: on error resume nextSet outstreem = wscript. stdoutIf (lcase (right (wscript. fullname, 11) = "wscript.exe") thenWscript. QuitEnd if
If wscript. Arguments. Count Wscript. Echo "not enough parameters ."Usage ()Wscript. QuitEnd if
IP = wscript. Arguments (0)Username = wscript. Arguments (1)Password = wscript. Arguments (2)Require
In practical work, most software projects are process-based and version-based. Each person's work and tasks must be handled in a timely manner so that the work can be carried out efficiently. To this end, we thought of using vbs to implement the automatic QQ reminder function for work tasks. Its working principle is very simple: using ADO to achieve database connection, to query the status of related work tasks in different links, through the establis
Copy codeThe Code is 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' in system32
For I =
First of all, we must understand the principle.Bundling, almost all of the files are released after the first run, so the bundled files themselves must be free of killing.Otherwise, even if bundled together to avoid killing, when running, a release, immediately will be killed.Self-extracting method of production I won't say it, Hongyu. A point to note. in the box selection of files must first select the Trojan, and then select the cover file, or the risk of a high rate of toxicity. Cover file, t
CopyCode The Code is as follows: if not wscript. Arguments. Count = 1 then wscript. Echo "drag the vbs file to be converted to me! ": Wscript. Quit
Set FSO = Createobject ("scripting. FileSystemObject ")
Set Self = FSO. opentextfile (wscript. scriptfullname)
Set vbs = FSO. createtextfile (left (wscript. Arguments (0), Len (wscript. Arguments (0)-4) + "_ xorencode. vbs
Solution for Windows 7 system failure to run slmgr. vbs-dlv to view activation information
After Windows 7 is installed, the system is automatically activated. if the system is not activated, some applications cannot be used. After installing the Win7 system, you need to check whether your win7 system is activated. If not, you can use the pony win7 activation tool. Some users find that they cannot view activation information when running slmgr.
How to use the VBS to simulate the left mouse button click, left-click, right click? ......
The answer that is commonly found on the Internet is that VBS cannot be implemented, or is it to use a third party COM (ActiveX?) Component I'm disgusted with third-party components, and there's no portability to using third-party components, because this component is not necessarily registered in someone else's sys
It's not a good thing to find out that most black and white friends don't program, so this time I wrote a simple programming tutorial about VBScript. Mainly for the rookie, know how to program friends do not waste time, if you want to contact the following VBScript can also, but since there is a programming foundation recommended directly to find some reference books to read, will be faster.
What is VBScript? The full name of VBScript is: Microsoft Visual Basic Script editon.(Microsoft Visual Ba
also to clean up in time.
And there are two solutions:
1.60 days before the daily cleaning of the log
2. Over time, clean up the 60 days before the log.
But either way, it has to be handled by technology, manual to delete unless you are very professional, you can find 60 days before the log file to delete, but even if you are very good technology, this method is very time-consuming, the best way is: Using a DOS batch or script to implement, you can use the script is mainly
Yesterday downloaded and installed the Updater Application block, the need to execute a deploy.vbs file, I talents, this small problem unexpectedly also cost me a lot of scheming.
Now share the conclusion.
First of all, my VBS file association has been captured by "hero". I double-click Deploy.vbs will open hero, more depressed. But I used the open way, tried the browser, cmd, no avail.
Today, when I think about this, I have an idea to go up to Micr
The answer commonly found on the web is that VBS cannot be implemented, or that a third-party COM (ActiveX? Components I am disgusted with third-party components, and using third-party components is not portable, because this component is not necessarily registered in someone else's system. My advice is to try not to call third-party components in the VBS code unless your program just writes for your own us
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
Remove this link from the System Start menu:
Copy Code code as follows:
Windows Registry Editor Version 5.00
[Hkey_classes_root\clsid\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}]
@=-
"InfoTip" =-
[Hkey_classes_root\clsid\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\defaulticon]
@=-
[Hkey_classes_root\clsid\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\instance\initpropertybag]
"Command" =-
"Param1" =-
VBS script imple
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.