simple vbscript adbomb

Microsoft Windows
Post Reply
User avatar
MigrationUser
Posts: 336
Joined: 2021-Jul-12, 1:37 pm
Contact:

simple vbscript adbomb

Post by MigrationUser »

06 Feb 2015 17:37
Seinu


This is just a simple script I made from inspiration from the movie die hard 4 it spawns IE windows that currently only goto google.com I would like to make it a bit better by actually making it redirect to something besides just google perhaps a custom website with ads on it possibly with a modification of my wifi script in it as well as making it so that you can't close IE

Code: Select all

On Error Resume Next
Dim max,min,rand
max=1000
min=400
Randomize

Set ie = CreateObject("internetexplorer.application")
Set WShell = WScript.CreateObject("Wscript.Shell")

ie.StatusBar = 0
ie.MenuBar = 0
ie.ToolBar = 0
ie.Resizable = 0
ie.Height=Int((max-min+1)*Rnd+min)
ie.Width=Int((max-min+1)*Rnd+min)
ie.Document.Focus()
'ie.Left=Int(rnd*320) + 1
'ie.Top=Int(rnd*200) + 1
ie.visible = True
ie.Navigate("http://www.google.com/")

WShell.Run "wscript.exe " & """AdBomb.vbs"""

----------------------------

#3 07 Feb 2015 02:00
Hackoo


Hi wink
I don't understand your aim ? can you explain more it, or perhaps i must watch this movie "Die hard 4" before big_smile lol

----------------------------

#4 08 Feb 2015 11:25
Hackoo


This a sample code show you how to open some website with a Do....Loop with pause of 10 secondes
IE_ADS.vbs

Code: Select all

Option Explicit
Dim WebSiteArray,index
Do
	Randomize()
	WebSiteArray = Array("www.yahoo.com","www.ss64.org","www.google.com","www.youtube.com","www.facebook.com","www.twitter.com", "www.stackoverflow.com")
	index = Int((UBound(WebSiteArray)+1)*Rnd())
	Call NavigateIE(WebSiteArray(index))
	Call Pause(10) 'sleep 10 secondes
Loop
'*********************************
Sub NavigateIE(WebSite)
	Dim max,min,ie
	max=800
	min=400
	Set ie = CreateObject("internetexplorer.application")
	ie.StatusBar = 0
	ie.MenuBar = 0
	ie.ToolBar = 0
	ie.Resizable = 0
	ie.Height=Int((max-min+1)*Rnd+min)
	ie.Width=Int((max-min+1)*Rnd+min)
	ie.visible = True
	ie.Navigate WebSite
End Sub
'*********************************
Sub Pause(sec)
	wscript.sleep(sec*1000)
End sub
'*********************************

And this of course to kill the process of wscript.exe and iexplore.exe in order to clean up your fake virus  lol

Kill_WS_IE.vbs

Call Kill("wscript.exe")
Call Kill("iexplore.exe")
'************************************************
Sub Kill(Process)
	Dim Ws,Command,Execution
	Set Ws = CreateObject("WScript.Shell")
	Command = "cmd /c Taskkill /F /IM "&Process&""
	Execution = Ws.Run(Command,0,False)
End Sub
'************************************************
----------------------------

#5 10 Feb 2015 16:09
Seinu


Not any real goal besides cluttering the screen and just for fun too

original thread: https://ss64.org/oldforum/viewtopic.php?pid=8207
Post Reply