simple vbscript adbomb
Posted: 2021-Jul-25, 7:17 am
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
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
----------------------------
#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
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
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