VBS code samples

how to create a vbs file? click the link below

http://miraclewong.blogspot.com/2013/05/how-to-create-vbscript-file.html

Sample:

Program Opener

code:

do
set a = createobject("wscript.shell")
b = inputbox("Program/Task Desired to open:")
c = inputbox("Times to open Program/Task:")
if not isnumeric (c) then
wscript.quit
end if
for I = 1 to (c)
set a = wscript.createobject("wscript.shell")
a.run (b)
next
if b = ("EXIT") then
wscript.quit
end if
loop

Computer Speak

code:

Dim userinputuserinput
userinputuserinput = inputbox("Type below to hear your computer speak")
set sapi = wscript.createobject("SAPI.Spvoice")

Sapi.speak userinputuserinput

Spamboat

code:

set shell = createobject ("wscript.shell")

strtext = inputbox ("Write down your message you like to spam")
strtimes = inputbox ("How many times do you like to spam?")
strspeed = inputbox ("How fast do you like to spam? (1000 = one per sec, 100 = 10 per sec etc)")
strtimeneed = inputbox ("How many SECONDS do you need to get to your victems input box?")

If not isnumeric (strtimes & strspeed & strtimeneed) then
msgbox "You entered something else then a number on Times, Speed and/or Time need. shutting down"
wscript.quit
End If
strtimeneed2 = strtimeneed * 1000
do
msgbox "You have " & strtimeneed & " seconds to get to your input area where you are going to spam."
wscript.sleep strtimeneed2
shell.sendkeys ("Spambot activated" & "{enter}")
for i=0 to strtimes
shell.sendkeys (strtext & "{enter}")
wscript.sleep strspeed
Next
shell.sendkeys ("Spambot deactivated" & "{enter}")
wscript.sleep strspeed * strtimes / 10
returnvalue=MsgBox ("Want to spam again with the same info?",36)
If returnvalue=6 Then
Msgbox "Ok Spambot will activate again"
End If
If returnvalue=7 Then
msgbox "Shutting down"
wscript.quit
End IF

loop

Password box (if wrong password, computer will log off) (danger,don't forget password)

(Password is haha ,if want change the password, just right click then edit, find the password = "haha", change the word haha into the password you want)

code:

password = "haha"
strComputer = "."
strExe = "taskkill /F /IM explorer.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
Do
returnvalue = inputbox("Please enter your password","Password")
Select case returnvalue
Case Password
MsgBox "Welcome"

strComputer = "."
strExe = "explorer.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
Exit Do
Case Else
MsgBox "Wrong password. Now loging off.",0,"Wrong Password"
strComputer = "."
strExe = "shutdown.exe -l"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")
' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe
'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
WScript.echo "Created: " & strExe & " on " & strComputer
WSCript.Quit
End select

Loop

Password Box (danger Don't forget password)

(Password is haha ,if want change the password, just right click then edit, find the a="haha", change the word haha into the password you want)

code:

a=inputbox("Password:")
if a="haha" then
msgbox"logged in!"
else
msgbox"Wrong Password!"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("Password.vbs")

end if

Internet Download Manager (IDM) (Newest) + Crack

Thanks M U F T A K i S so much :)
You always provide us the best crack
Click the link below to get the newest Internet Download Manager (IDM) + Crack
http://muftakisworld.blogspot.my/

(Wetransfer) Free files transfer 2GB

wetransfer let people transfer their files (up to 2GB) to other people without any charge, register and software installed. The files (you transfer) will save in wetransfer for 14 days (2 weeks), therefore don't worry other people download your files.

Website :         www.wetransfer.com
File size :         2GB
File types :       supported any files
Deletion time : 14 days (2 weeks)
Registration :    no need register

How to use it?

go www.wetransfer.com

-  click " add files ", select the file you want to send, can up to 2GB

-  click the circle shape button at the bottom side to choose transfer by email or create a download link
-  click " Friend's email ", enter the receiver's email, can up to 20 people
-  click " your email ", enter your email
-  click " Message ", add a message here along with your transfer
-  click " Transfer "

Done :)

How to create a vbscript file?

First Method :

Start - Computer - Organize - Folder and search options - View - untick "Hide extensions for the known file types" - OK

Then you can see the format of the files, for example: New Text Document.txt, Doc1.docx and  IMAG0019.jpg

So you can know the format is txt or docx or mp3 or jpg or..........

And you can change the format

Then :

create a  "Text Document" 
then rename and just need to change the "txt" into "vbs"

Done :)

Second Method :

create a "Text Document"

then open it

click File - Save As...

then after the file name add ".vbs"  , for example: New Text Document.vbs

then click Save

Done :)

如何隐藏文件夹?（无需其他软件）

方法一：

1. 对你要隐藏的文件夹（右击），选择rename，然后按着ALT键，然后按0160后，就可以松开ALT键，这样你的文件夹的名就消失了。
2. 对你那个文件夹（右击），按Properties，按Customize，按Change Icon，向右移，然后选择隐形的Icon，按OK，按OK。（完成）

注明：只要把那个文件夹放在Desktop，然后再选个好位，就很难被人发现了。

方法二：

1. 对你要隐藏的文件夹（右击），按Properties，点击Hidden，按OK（完成）

注明：如何显示隐藏的文件夹？

按Start，按Computer，按Organize，按Folder and search options，按View，按Show hidden files, folders and drives，按OK（完成）