Go Back   Gaming Gutter > Non-Gaming > Programming > Source Code
Reload this Page [Release]> Gaming Gutter Browser


Source Code - Have a source code/project files you want to post? Do so here.

» Site Navigation
» Home
» Forum
» User CP
» FAQ
» Log in
User Name:

Password:

Not a member yet?
Register Now!
» Advertisement
» Recent Threads
Go to first new post VWN UC Werelupe
11-16-2008 08:34 PM
Last post by checkone
Today 09:38 AM
7 Replies, 55 Views
Go to first new post Buy it NOW! Special...
11-19-2008 10:30 PM
Last post by l_royalty_l
Today 09:30 AM
25 Replies, 317 Views
Go to first new post Heather wants to kill a...
Yesterday 06:49 PM
Last post by Unregenerate Passion
Today 09:23 AM
27 Replies, 134 Views
Go to first new post Gaming Gutter secret...
11-20-2008 11:32 AM
Last post by Bravia
Today 09:16 AM
16 Replies, 129 Views
Go to first new post Bypassing Blocks With...
11-12-2008 01:03 AM
Last post by zook
Today 09:13 AM
8 Replies, 109 Views
Reply
Page 1 of 2 1 2 >
 
LinkBack Thread Tools Display Modes

 [Release]> Gaming Gutter Browser
Old 04-28-2008, 05:13 PM   #1 (permalink)
Cogito, ergo sum.

Male Check is online now
 
Join Date: Feb 2008
Posts: 1,824
GPoints: 1,030
iTrader: 7 / 100%
Check Is a Lord of AwesomenessCheck Is a Lord of AwesomenessCheck Is a Lord of AwesomenessCheck Is a Lord of Awesomeness
Rep Power: 9
[Release]> Gaming Gutter Browser
I was bored so I asked a sibling of mine to help me with making a Browser just for Gaming Gutter. They replied 'yes' And I decided to release it.
Unfortunately it takes a bit to open so RELAX.
Oh yeah and..
Download
Nvm, Virus Scanners don't understand what is Auto it so it often says it is a virus.
Also Press enter on your keyboard to surf to the site.
If these are effective, I will remove the link, please confirm this.
Note: I am not responsible for any harm done to your computer due to the fact that you chose to download.

Credits:
Sister.
Doctor, well kind of for giving me the idea.
Me.
Auto It.



SOURCECODE:
Code:
#include <GUIConstants.au3>
#include <GuiTab.au3>
#include <IE.au3>
#include <GuiStatusBar.au3>
#include <array.au3>
#include <Misc.au3>

Global $Tab[11], $oIE[11], $Obj[11], $flasher[11], $backstack[11][2], $init = 1
Global $Title = "Gaming Gutter's Browser -Error", $TabPos1 = 5, $TabPos2 = 35, $TabPos3 = 850, $TabPos4 = 650, $Status = 0, $Title2, $Status2 = "", $frskip = 0, $Count = 1, $HomePage, $LastPage

_IEErrorHandlerRegister()
$Form = GUICreate($Title, $TabPos3 + 10, $TabPos4 + 30)
$FileMenu = GUICtrlCreateMenu("File")
$FileOpenTab = GUICtrlCreateMenu("New Tab", $FileMenu)
$OpenTab1 = GUICtrlCreateMenuItem("Open Blank Page", $FileOpenTab)
$OpenTab2 = GUICtrlCreateMenuItem("Open Home Page", $FileOpenTab)
$ShowSource = GUICtrlCreateMenuItem("Show Page Source", $FileMenu)
$EditMenu = GUICtrlCreateMenu("Edit")
$Cut = GUICtrlCreateMenuItem("Cut", $EditMenu)
$Copy = GUICtrlCreateMenuItem("Copy", $EditMenu)
$Paste = GUICtrlCreateMenuItem("Paste", $EditMenu)
$Sep = GUICtrlCreateMenuItem("", $EditMenu)
$Selectall = GUICtrlCreateMenuItem("Select All", $EditMenu)
$SettingsMenu = GUICtrlCreateMenu("Settings")
$ChangeHomePage = GUICtrlCreateMenuItem("Change Home Page", $SettingsMenu)
$StatusBar = _GUICtrlStatusBar_Create($Form)
Local $aParts[1] = [500]
_GUICtrlStatusBar_SetParts($StatusBar, $aParts)
$Input = GUICtrlCreateInput("", 7, 7, 305, 22)
$Go = GUICtrlCreateButton("Go", 336, 5, 35, 25)
$Back = GUICtrlCreateButton("Back", 376, 5, 43, 25)
$Forward = GUICtrlCreateButton("Forward", 440, 5, 59, 25)
$Stop = GUICtrlCreateButton("Stop", 520, 5, 43, 25)
$Refresh = GUICtrlCreateButton("Refresh", 568, 5, 59, 25)
$Home = GUICtrlCreateButton("Home", 632, 5, 43, 25)
$Back2 = GUICtrlCreateButton("v", 418, 5, 17, 25)
$Forward2 = GUICtrlCreateButton("v", 498, 5, 17, 25)
$Go2 = GUICtrlCreateButton("v", 320, 5, 17, 25)
$NewTab = GUICtrlCreateButton("New Tab", 680, 5, 65, 25)
$Speak = GUICtrlCreateButton("Speak", 750, 5, 48, 25)
$CloseTab = GUICtrlCreateButton("X", 832, 36, 19, 17)
$CreateTab = GUICtrlCreateTab($TabPos1, $TabPos2, $TabPos3, $TabPos4 - 50)
GUICtrlSetState($Back, $GUI_DISABLE)
GUICtrlSetState($Forward, $GUI_DISABLE)
GUICtrlSetState($Back2, $GUI_DISABLE)
GUICtrlSetState($Forward2, $GUI_DISABLE)
CheckPages()
OpenTab(1, "Home")
OpenTab(2, "http://www.kyoisawesome.com")
OpenTab(3, "Last")
OpenTab(4, "http://www.msn.com/")
OpenTab(5)
$init = 0
GUISetState()

While 1
    $Begin = TimerInit()
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Go
            Navigate(GetTab(), GUICtrlRead($Input))
        Case $Back
            HistoryBack(GetTab())
        Case $Forward
            HistoryForward(GetTab())
        Case $Stop
            _IEAction($oIE[GetTab()], "stop")
        Case $Refresh
            _IEAction($oIE[GetTab()], "refresh")
        Case $Home
            Navigate(GetTab(), "Home")
        Case $OpenTab1
            OpenTab($Count)
        Case $OpenTab2
            OpenTab($Count, "Home")
        Case $Cut
            _IEAction($oIE[GetTab()], "cut")
        Case $Copy
            _IEAction($oIE[GetTab()], "copy")
        Case $Paste
            _IEAction($oIE[GetTab()], "paste")
        Case $Selectall
            _IEAction($oIE[GetTab()], "selectall")
        Case $ChangeHomePage
            $hPage = InputBox("Home Page", "Set default home page :", $HomePage, "", 200, 130)
            If Not @error Then
                $HomePage = $hPage
                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\My Web Browser", "Home Page", "REG_SZ", $HomePage)
            EndIf
        Case $NewTab
            OpenTab($Count, "Home")
        Case $ShowSource
            If FileExists(@TempDir & "\Source.txt") Then FileDelete(@TempDir & "\Source.txt")
            $Source = _IEDocReadHTML($oIE[GetTab()])
            FileWrite(@TempDir & "\Source.txt", $Source)
            ShellExecute(@TempDir & "\Source.txt")
        Case $Speak
            $oSpeak = ObjCreate("Sapi.SpVoice")
            $oSpeak.Speak($oIE[GetTab()].document.selection.createRange.text)
    EndSwitch
    TestHistory(GetTab())
    CheckStatusBar()
    NavigateCheck()
    CheckTitle()
    Sleep(10)
WEnd

Func CheckTitle()
    $CurrentTitle = _IEPropertyGet($oIE[GetTab()], "title")
    If $CurrentTitle <> $Title2 Then
        If $CurrentTitle = "" Then
            WinSetTitle($Form, "", $Title)
        Else
            WinSetTitle($Form, "", $CurrentTitle & " - " & $Title)
        EndIf
        $Title2 = $CurrentTitle
    EndIf
    $nLink = CheckLink()
    If $nLink <> "about:blank" And $nLink <> _GUICtrlTab_GetItemText($CreateTab, GetTab() - 1) Then GUICtrlSetData($Tab[GetTab()], $nLink)
EndFunc   ;==>CheckTitle

Func CheckStatusBar()
    If _IEPropertyGet($oIE[GetTab()], "busy") And $Status2 <> _IEPropertyGet($oIE[GetTab()], "locationurl") Then
        _GUICtrlStatusBar_SetText($StatusBar, "Opening page " & _IEPropertyGet($oIE[GetTab()], "locationurl") & "...")
        GUICtrlSetState($Stop, $GUI_ENABLE)
        $Status2 = _IEPropertyGet($oIE[GetTab()], "locationurl")
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\My Web Browser", "Last Page", "REG_SZ", _IEPropertyGet($oIE[GetTab()], "locationurl"))
    ElseIf Not _IEPropertyGet($oIE[GetTab()], "busy") And $Status2 <> "" Then
        _GUICtrlStatusBar_SetText($StatusBar, " ")
        GUICtrlSetState($Stop, $GUI_DISABLE)
        $Status2 = ""
    EndIf
EndFunc   ;==>CheckStatusBar

Func OpenTab($oNum, $oLink = "")
    If $Count > 10 Then
        MsgBox(0, "Error", "You may only have 10 tabs open at one time")
        Return @error
    EndIf
    $Count += 1
    $backstack[$oNum][0] = 0
    $Tab[$oNum] = GUICtrlCreateTabItem($oNum)
    $oIE[$oNum] = _IECreateEmbedded()
    $Obj[$oNum] = GUICtrlCreateObj($oIE[$oNum], $TabPos1 + 5, $TabPos2 + 25, $TabPos3 - 10, $TabPos4 - 80)
    $flasher[$oNum] = GUICtrlCreateEdit("", $TabPos1 + 5, $TabPos2 + 25, $TabPos3 - 10, $TabPos4 - 80)
    GUICtrlSetState($flasher[$oNum], $GUI_HIDE)
    Navigate($oNum, $oLink)
    TestHistory($oNum)
    If $init = 0 Then
        _GUICtrlTab_SetCurSel($CreateTab, $Count - 2)
    EndIf
EndFunc   ;==>OpenTab

Func Navigate($nNum, $nLink)
    If $nLink = "" Then
        $nLink = "about:blank"
        _IENavigate($oIE[$nNum], $nLink, 0)
        GUICtrlSetData($Tab[$nNum], "Blank Page")
    Else
        If $nLink = "Home"  Then
            $nLink = $HomePage
        ElseIf $nLink = "Last"  Then
            $nLink = $LastPage
        EndIf
        _IENavigate($oIE[$nNum], $nLink, 0)
        $nLink = CheckLink($nLink)
        GUICtrlSetData($Tab[$nNum], $nLink)
    EndIf
EndFunc   ;==>Navigate

Func CheckLink($cLink = "")
    If $cLink = "" Then $cLink = _IEPropertyGet($oIE[GetTab()], "locationurl")
    $cLink = StringReplace($cLink, "http://", "")
    $cLink = StringReplace($cLink, "www.", "")
    If StringInStr($cLink, "/") Then
        $cLink = StringSplit($cLink, "/")
        $cLink = $cLink[1]
    EndIf
    If StringLen($cLink) > 25 Then $cLink = StringLeft($cLink, 25) & "..."
    Return $cLink
EndFunc   ;==>CheckLink

Func NavigateCheck()
    If _IsPressed("0D") And ControlGetFocus($Form) = "Edit1"  Then
        Navigate(GetTab(), GUICtrlRead($Input))
        GUICtrlSetState($Input, $GUI_FOCUS)
    EndIf
EndFunc   ;==>NavigateCheck

Func CheckPages()
    $HomePage = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\My Web Browser", "Home Page")
    If @error Then $HomePage = "http://www.gaminggutter.com"
    $LastPage = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\My Web Browser", "Last Page")
    If @error Then $LastPage = "http://www.google.com"
EndFunc   ;==>CheckPages

Func GetTab()
    Return _GUICtrlTab_GetCurSel($CreateTab) + 1
EndFunc   ;==>GetTab

Func TestHistory($nNum)
    If IsArray($backstack) = 0 Then Return
    If $backstack[$nNum][0] = 0 Then
        If _IEPropertyGet($oIE[$nNum], "locationurl") <> "" Then
            $backstack[$nNum][0] += 1
            $backstack[$nNum][$backstack[$nNum][0]] = _IEPropertyGet($oIE[$nNum], "locationurl")
        EndIf
    EndIf
    If $backstack[$nNum][$backstack[$nNum][0]] <> _IEPropertyGet($oIE[$nNum], "locationurl") And "" <> _IEPropertyGet($oIE[$nNum], "locationurl") And _IEPropertyGet($oIE[$nNum], "locationurl") <> $backstack[$nNum][$backstack[$nNum][0]] Then
        $backstack[$nNum][0] += 1
        $newurl = _IEPropertyGet($oIE[$nNum], "locationurl")
        If $backstack[$nNum][0] + 1 > UBound($backstack, 2) Then ReDim $backstack[11][$backstack[$nNum][0] + 1]
        If $backstack[$nNum][$backstack[$nNum][0]] <> "" Then
            For $avar = $backstack[$nNum][0] To UBound($backstack, 2) - 1
                $backstack[$nNum][$avar] = ""
            Next
        EndIf
        $backstack[$nNum][$backstack[$nNum][0]] = $newurl
        While _IEPropertyGet($oIE[$nNum], "locationurl") <> $backstack[$nNum][$backstack[$nNum][0]]
            Sleep(10)
        WEnd
        If $frskip = 0 Then
            FlashRefresh($nNum)
        Else
            $frskip = 0
        EndIf
    EndIf
    NavButtons($nNum)
EndFunc   ;==>TestHistory

Func NavButtons($nNum)
    If $backstack[$nNum][0] > 1 And GUICtrlGetState($Back) <> 80 Then
        GUICtrlSetState($Back, $GUI_ENABLE)
        GUICtrlSetState($Back2, $GUI_ENABLE)
    EndIf
    If $backstack[$nNum][0] = 1 And GUICtrlGetState($Back) <> 144 Then
        GUICtrlSetState($Back, $GUI_DISABLE)
        GUICtrlSetState($Back2, $GUI_DISABLE)
    EndIf
    If UBound($backstack, 2) - 1 > $backstack[$nNum][0] Then
        If $backstack[$nNum][$backstack[$nNum][0] + 1] = "" Then
            If GUICtrlGetState($Forward) <> 144 Then
                GUICtrlSetState($Forward, $GUI_DISABLE)
                GUICtrlSetState($Forward2, $GUI_DISABLE)
            EndIf
        Else
            If GUICtrlGetState($Forward) <> 80 Then
                GUICtrlSetState($Forward, $GUI_ENABLE)
                GUICtrlSetState($Forward2, $GUI_ENABLE)
            EndIf
        EndIf
    Else
        If GUICtrlGetState($Forward) <> 144 Then
            GUICtrlSetState($Forward, $GUI_DISABLE)
            GUICtrlSetState($Forward2, $GUI_DISABLE)
        EndIf
    EndIf
EndFunc   ;==>NavButtons

Func HistoryBack($nNum)
    GUICtrlSetState($Back, $GUI_DISABLE)
    GUICtrlSetState($Back2, $GUI_DISABLE)
    $backstack[$nNum][0] -= 1
    Navigate($nNum, $backstack[$nNum][$backstack[$nNum][0]])
    While _IEPropertyGet($oIE[$nNum], "locationurl") <> $backstack[$nNum][$backstack[$nNum][0]]
        Sleep(10)
    WEnd
    $frskip = 1
    TestHistory($nNum)
    FlashRefresh($nNum)
EndFunc   ;==>HistoryBack

Func HistoryForward($nNum)
    GUICtrlSetState($Forward, $GUI_DISABLE)
    GUICtrlSetState($Forward2, $GUI_DISABLE)
    $backstack[$nNum][0] += 1
    Navigate($nNum, $backstack[$nNum][$backstack[$nNum][0]])
    While _IEPropertyGet($oIE[$nNum], "locationurl") <> $backstack[$nNum][$backstack[$nNum][0]]
        Sleep(10)
    WEnd
    $frskip = 1
    TestHistory($nNum)
    FlashRefresh($nNum)
EndFunc   ;==>HistoryForward

Func Test()
    _ArrayDisplay($backstack)
EndFunc   ;==>Test

Func FlashRefresh($nNum)
    GUICtrlSetState($flasher[$nNum], $GUI_SHOW)
    GUICtrlSetState($flasher[$nNum], $GUI_HIDE)
    _GUICtrlTab_DeselectAll($CreateTab, False)
EndFunc   ;==>FlashRefresh
__________________

Neutral Evil
Last edited by Check; 05-01-2008 at 07:39 AM.
  Reply With Quote

 
Old 04-28-2008, 05:17 PM   #2 (permalink)
olol.

Male Simultaneous is offline
 
Join Date: Nov 2007
Location: Washington State
Age: 21
Posts: 1,103
GPoints: 186
iTrader: 1 / 100%
Simultaneous Is Popular
Rep Power: 6
Wait.
You made an internet?
How?

Why would you release something with viruses?

&& What makes it defferent?
  Reply With Quote

 
Old 04-28-2008, 05:21 PM   #3 (permalink)
Cogito, ergo sum.

Male Check is online now
 
Join Date: Feb 2008
Posts: 1,824
GPoints: 1,030
iTrader: 7 / 100%
Check Is a Lord of AwesomenessCheck Is a Lord of AwesomenessCheck Is a Lord of AwesomenessCheck Is a Lord of Awesomeness
Rep Power: 9
Quote:
Originally Posted by Simultaneous View Post
Wait.
You made an internet?
How?

Why would you release something with viruses?

&& What makes it defferent?
Auto it.
Don't know viruses might not be harmful.
It has Gaming Gutter at the top, making Gaming Gutter win since we have our own Browser.
__________________

Neutral Evil
Last edited by Check; 05-01-2008 at 07:40 AM.
  Reply With Quote

 
Old 04-28-2008, 05:22 PM   #4 (permalink)
In Purgatory

Male Doctor is offline
 
Join Date: Dec 2006
Location: Australia
Age: 17
Posts: 1,480
GPoints: 129
iTrader: 0 / 0%
Doctor Is a Party CaptainDoctor Is a Party Captain
Rep Power: 0
It doesnt have viruses.
Virus scanners often give AutoIt false positives, Using the login;
"If one program is malicious, All AutoIt programs are malicious".

REFERENCESLINX: Are my AutoIt EXEs really infected? - AutoIt Forums

Ill try it when I get back from school tomorrow.
But, Rep in the meantime.
  Reply With Quote

 
Old 04-28-2008, 05:25 PM   #5 (permalink)
olol.

Male Simultaneous is offline
 
Join Date: Nov 2007
Location: Washington State
Age: 21
Posts: 1,103
GPoints: 186
iTrader: 1 / 100%
Simultaneous Is Popular
Rep Power: 6
I didn't know you could make internets.

IM-Worm.Win32.Sohanad.cv
D:
wtfisthat?
  Reply With Quote

 
Old 04-28-2008, 05:27 PM   #6 (permalink)
In Purgatory

Male Doctor is offline
 
Join Date: Dec 2006
Location: Australia
Age: 17
Posts: 1,480
GPoints: 129
iTrader: 0 / 0%
Doctor Is a Party CaptainDoctor Is a Party Captain
Rep Power: 0
I dont know, Google is your friend.
  Reply With Quote

 
Old 04-28-2008, 05:28 PM   #7 (permalink)
Cogito, ergo sum.

Male Check is online now
 
Join Date: Feb 2008
Posts: 1,824
GPoints: 1,030
iTrader: 7 / 100%
Check Is a Lord of AwesomenessCheck Is a Lord of AwesomenessCheck Is a Lord of AwesomenessCheck Is a Lord of Awesomeness
Rep Power: 9
Quote:
Originally Posted by Doctor View Post
It doesnt have viruses.
Virus scanners often give AutoIt false positives, Using the login;
"If one program is malicious, All AutoIt programs are malicious".

REFERENCESLINX: Are my AutoIt EXEs really infected? - AutoIt Forums

Ill try it when I get back from school tomorrow.
But, Rep in the meantime.
Oh really? Wow, I should really get informed about these things. I was very worried, having the thought that my program has viruses.
__________________

Neutral Evil
  Reply With Quote

 
Old 04-28-2008, 05:29 PM   #8 (permalink)
olol.

Male Simultaneous is offline
 
Join Date: Nov 2007
Location: Washington State
Age: 21
Posts: 1,103
GPoints: 186
iTrader: 1 / 100%
Simultaneous Is Popular
Rep Power: 6
o_o
I see it in a bunch of infected Gaia "hacks"
  Reply With Quote

 
Old 04-28-2008, 05:30 PM   #9 (permalink)
In Purgatory

Male Doctor is offline
 
Join Date: Dec 2006
Location: Australia
Age: 17
Posts: 1,480
GPoints: 129
iTrader: 0 / 0%
Doctor Is a Party CaptainDoctor Is a Party Captain
Rep Power: 0
I dont know, Maybe they call anything with gaia in it that?
  Reply With Quote

 
Old 04-28-2008, 05:54 PM   #10 (permalink)
Cogito, ergo sum.

Male Check is online now
 
Join Date: Feb 2008
Posts: 1,824
GPoints: 1,030
iTrader: 7 / 100%
Check Is a Lord of AwesomenessCheck Is a Lord of AwesomenessCheck Is a Lord of AwesomenessCheck Is a Lord of Awesomeness
Rep Power: 9
Quote:
Originally Posted by Simultaneous View Post
o_o
I see it in a bunch of infected Gaia "hacks"
What? Idk Google it.
__________________

Neutral Evil
  Reply With Quote
Reply
Page 1 of 2 1 2 >

Bookmarks

« av / bd | Help with this True BASIC program »


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes
Linear Mode Linear Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Powered by vBadvanced CMPS v3.0 RC2

All times are GMT -7. The time now is 09:38 AM.
Mark Forums Read | View Forum Leaders
Contact Us - Gaming Gutter - Archive - Family Guy - Family Guy Episodes - South Park - South Park Episodes - Top


vBulletin skin developed by: eXtremepixels
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
The contents of this webpage are copyright © 2006-2008 GamingGutter.com. All Rights Reserved.

Page generated in 0.24573588 seconds (100.00% PHP - 0% MySQL) with 19 queries