4 Cool VBS Scripts With Codes

>> YOUR LINK HERE: ___ http://youtube.com/watch?v=Tp5M00_SZD0

4 Really Cool VBS Scripts i made and edited from some sites • Yes...I am on Virtualbox • • Facebook: / 139218029477834 • • Spambot • ----------------------------------- • 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 • • Computer Speak • ---------------------------- • Dim userinputuserinput • userinputuserinput = inputbox( Type below to hear your computer speak ) • set sapi = wscript.createobject( SAPI.Spvoice ) • Sapi.speak userinputuserinput • • Password • ---------------------------- • 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 • • Password If wrong log off • -------------------------------------- • password = princeg1412390 • 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

#############################

New on site