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

This article mainly explains "how to use vbs and windows to realize qq message emoji package timing sending function", interested friends may wish to have a look. The method introduced in this paper is simple, fast and practical. Let's let Xiaobian take you to learn "how to use vbs and windows to realize qq message emoji package timing sending function"!

Target

After waking up the computer screen at a certain time, it automatically sends qq messages with emoticons, and closes the computer screen after sending. The whole process does not need too many programs to run, we use vbs scripts and windows timed tasks to achieve this function.

ready

vbs code

qq information txt text

qq file emoji file

Send shortcuts to contacts

3 Windows tasks

Specific operation information and shortcuts to prepare qq information txt text and emoji files

Desktop new text input to send information, save as abc.txt,

Create a new file on the desktop, put the emoji package you want to put into it, and save it as abd

qq shortcut

Drag contacts to desktop to generate shortcuts, remember, qq stay logged in

VBS script

See code comments for program changes

Set objShell = CreateObject("Wscript.Shell") WScript.Sleep 3000objShell.SendKeys "{ESC}" WScript.Sleep 7000 'Wait time 7 seconds is set to give enough time for the computer to start objShell.SendKeys "{ESC}" WScript.Sleep 3000Set Shell=Wscript.Createobject("Wscript.shell")Shell.run "C: \Users\captainzou\Desktop\abc.txt "'qq information file save address Wscript.Sleep 1000 'wait 1 second set WshShell = CreateObject ("WScript.Shell")WshShell.SendKeys ("^a")Wscript.Sleep 2000 'Wait 1 sec WshShell.SendKeys ("^c")Wscript.Sleep 2000 ' Wait 1 sec WshShell.SendKeys "%{F4}" Wscript.Sleep 1000 'Wait 1 second Shell.run "C:\Users\captainzou\Desktop\tanhuang.lnk" ' Contact Shortcuts Save Address Wscript.Sleep 5000 'Wait 5 seconds WshShell.SendKeys ("^v")Wscript.Sleep 1000 ' Wait 1 sec WshShell.SendKeys "%{F4}"Wscript.Sleep 2000 'Wait 2 sec Shell.run "C:\Users\captainzou\Desktop\abd" ' emoji save address Wscript.Sleep 2000 'Wait 2 seconds WshShell. SendKeys ("^a")Wscript.Sleep 1000' Wait 1 second WshShell.SendKeys ("^c") Wscript.Sleep 1000 'Wait 1 sec WshShell.SendKeys "%{F4}"Wscript.Sleep 1000' Wait 1 sec Shell.run "C: \Users\captainzou\Desktop\tanhuang.lnk" 'Contact shortcuts save address Wscript.Sleep 1000 ' wait 1 second WshShell.SendKeys ("^v")Wscript.Sleep 4000 'wait 4 seconds WshShell.SendKeys "{ENTER}"Wscript.Sleep 1000 ' wait 1 second WshShell.SendKeys "%{F4}"Wscript.Sleep 1000 'Wait 1 second

Windows comes with timed tasks

wake the computer

Right-click "this computer" and click management to find the task scheduling program, click "create task," enter the name "wake up computer," check "run with highest authority" in general, fill in wake-up time in trigger, enter program "notepad.exe" in operation, and check "wake up computer to run this task" in condition. Then confirm it.

send information

Basically consistent with waking up the computer, note that you have to choose the right time to send, and browse to select vbs scripts in operation.

turn off the computer

Basically consistent with waking up the computer, note that in the operation, enter the program "shutdown.exe" and add the parameter "-h".

last

After 4 icons appear on the computer, you can lie down and wait for the message to be sent automatically in the middle of the night.

qq keep login status, and then computer sleep on the line.

qq shut down after sending the message.

At this point, I believe that everyone has a deeper understanding of "how to use vbs and windows to realize the qq message emoticon package timing sending function," may wish to actually operate it! Here is the website, more related content can enter the relevant channels for inquiry, pay attention to us, continue to learn!

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.