#1 06 Feb 2015 17:37

Seinu
Member
Registered: 26 Jan 2015
Posts: 5

simple vbscript adbomb

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

Offline

#2 06 Feb 2015 17:38

Seinu
Member
Registered: 26 Jan 2015
Posts: 5

Re: simple vbscript adbomb

And I forgot the code lol

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"""

Offline

#3 07 Feb 2015 02:00

Hackoo
Member
Registered: 05 Feb 2015
Posts: 12

Re: simple vbscript adbomb

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

Offline

#4 08 Feb 2015 11:25

Hackoo
Member
Registered: 05 Feb 2015
Posts: 12

Re: simple vbscript adbomb

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

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
'************************************************

Offline

#5 10 Feb 2015 16:09

Seinu
Member
Registered: 26 Jan 2015
Posts: 5

Re: simple vbscript adbomb

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

Offline

#6 24 Sep 2015 19:48

DireJester
New Member
Registered: 24 Sep 2015
Posts: 1

Re: simple vbscript adbomb

Seinu (and whomever else is interested);
I would like to get in touch with you to discuss scripting techniques and make some rather fun scripts.
the(myss64username)@gmail

Offline

Board footer

Powered by FluxBB