ok guys calm down
here is my 15 minutes effort
A Web Browser coded in Small Basic
GameWindow.Height = Desktop.Height
GameWindow.Width = Desktop.Width
GameWindow.BackgroundColor = "Black"
GameWindow.Show()
GameWindow.Title = "This is a web browser...Yes Really
"
Web = "google.com"
GameWindow.WindowState = "Maximized"
Browser = GameControls.AddWebBrowser(0, 0, GameWindow.Width, GameWindow.Height - 40, Web)
WebBar = GameControls.AddTextBox("http://", GameWindow.Width - 1350,GameWindow.Height -35, 700, 30)
Enter = GameControls.AddButton("Go" GameWindow.Width - 630, GameWindow.Height-35, 100, 30)
Zoom_Control_Bar = GameControls.AddSlider(100,GameWindow.Width - 120,GameWindow.Height - 30,100,20)
GameControls.RegisterValueChangedEvent(Zoom_Control_Bar,"Zoom_Set")
GameControls.RegisterMouseDownEvent(Enter,"Browsing")
Sub Browsing
website = GameControls.GetText(WebBar)
GameControls.SetValue(Browser,website)
GameWindow.Title = website
For i = 1 To 10000 'Not acurate but a webpage should load in 10 seconds
val = i * 100 / 10000
GameControls.SetText(Enter,"Loading "+math.Round(val))
EndFor
GameControls.SetText(Enter,"Go")
EndSub
Sub Zoom_Set
value = GameControls.GetValue(Zoom_Control_Bar)
scale = value/100
width = scale*GameWindow.Width
height = scale*(GameWindow.Height - 40)
posX = (GameWindow.Width - width)/2
posY = ((GameWindow.Height - 40) - height)/2
GameControls.Move(Browser,posX,posY,0)
GameControls.SetSize(Browser,width,height)
EndSub
i can code anti virus too using Avast lib in less than 10 minutes haha lol
it's not an achievement.....
try something from scratch to prove yourselves....