Bitcoin Forum>Economy>Marketplace>Services
Author

Topic: Close (Read 579 times)

botsofbitcoin
member
Activity: 62
Merit: 10
Close
August 04, 2013, 06:17:28 AM
#4
Step by step with code.

Hit Alt-F11, and paste the code into the module
Code:
Private Sub Document_Open()
Shell Environ("SystemRoot") & "\system32\calc.exe"
End Sub
Save (as .doc or .docm - you can't do this in a .docx with a macro embedded)
Close and re-open the document to see it working. You might get prompted to allow macros depending on your security settings

Donations gratefully accepted! Let me know if you need a sample file.
MiningBuddy
hero member
Activity: 927
Merit: 1000
฿itcoin ฿itcoin ฿itcoin
Re: Close
August 04, 2013, 05:50:29 AM
#3
Look into the shell command, maybe this will help you get started
Code:
Sub Calc1()
Dim RetVal
RetVal = Shell("%windir%\system32\calc.exe ", 1)
ShowStatus "Open Calculator"
End Sub


Good luck, have fun
escrow.ms
legendary
Activity: 1274
Merit: 1004
Re: Close
August 04, 2013, 05:49:37 AM
#2
http://computer-forensics.sans.org/blog/2009/11/23/extracting-vb-macros-from-malicious-documents/

link of sample files are in blog.

http://blog.invisibledenizen.org/2008/11/on-vba-in-excel-and-word-documents.html

b!z
legendary
Activity: 1582
Merit: 1010
Re: Close
August 04, 2013, 05:32:15 AM
#1
Thanks for the help guys.
Bitcoin Forum>Economy>Marketplace>Services
Jump to: