Jump to content

Auto Website v1.2

z0mgItsJohn

By z0mgItsJohn,
in AutoIt Example Scripts

 Share

Recommended Posts

z0mgItsJohn Universalist

z0mgItsJohn

Posted
Posted (edited)

Hello AutoIt Peoples! :blink: I Have Finished My Newest Version Of Auto Website ^^ It Now Comes With A Hide And Show Option

In The Tray Icon :P

About Auto Website : Its A Program That Allows You To Set 10 Different Websites Then After You Set The 10 Websites A Window Comes Up With 10 Different Buttons... If You Hover Over The Button It Tells You Witch Website Each Button Gos To ... And If You Want To Hide The Window With The Buttons Just Click The Tray Icon Then Goto Options->Hide Then To Restore The Window Goto Options->Show... :)

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

Heres The Source :wub:

;====================================
;=       Author : John O.           =
;====================================

#Include <GuiConstants.au3>

Opt("TrayMenuMode",1)
Opt("TrayOnEventMode",1)
Opt('GUIOnEventMode',1)

Global $INI = @ScriptDir & "\Website_Set.ini"

$Name = "Auto Website v1.2"
$Name_00 = " Auto Website v1.2"

GuiCreate($Name_00 & " - Website Set", 350, 320)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
$TrayMenu = TrayCreateMenu ( "Options" )
$TrayItem = TrayCreateItem ( "Exit", $TrayMenu )
TrayItemSetOnEvent ($TrayItem, "_Exit" )
Dim $Array[11]
For $X = 1 to 10
    $Array[$X] = GUICtrlCreateInput ( "", 90, $X * 25, 200, 20)
    GUICtrlCreateLabel ( "Website " & $X & " = " , 15, ($X * 25) + 3)
Next
$Button = GuiCtrlCreateButton("Continue", 150,285,65,25)
GUICtrlSetOnEvent($Button, "Continue")
GuiSetState(@SW_SHOW)

_Load_INI()

Func _Load_INI()
    If FileExists($INI) Then
        Dim $IRSN = IniReadSectionNames($INI)
        If Not @ERROR Then
            For $I = 1 To $IRSN[0]
                Dim $IRS = IniReadSection($INI, $IRSN[$I])
                For $H = 1 To $IRS[0][0]
                    If Not @ERROR = 1 Then GUICtrlSetData($Array[$I], $IRS[$H][1])
                Next
            Next
        EndIf     
    EndIf
EndFunc

Func Continue()
    For $X = 1 to 10
        IniWrite ($INI, "Website_" & $X,"Set_" & $X, GuiCtrlRead($Array[$X]))
    Next
WinSetState ( " "," ",(@SW_HIDE))
_Start()
EndFunc

Func _Start()
GuiCreate($Name, 200, 243)
TrayItemDelete ($TrayMenu)
$TrayMenu = TrayCreateMenu ( "Options" )
$TrayItem_1 = TrayCreateItem ( "Hide", $TrayMenu )
TrayItemSetOnEvent ($TrayItem_1, "_Hide" )
$TrayItem_2 = TrayCreateItem ( "Show", $TrayMenu )
TrayItemSetOnEvent ($TrayItem_2, "_Show" )
$TrayItem_3 = TrayCreateItem ( "Exit", $TrayMenu )
TrayItemSetOnEvent ($TrayItem_3, "_Exit" )
Dim $array[11]
Local $bX = 15, $bY = 12
For $x = 1 To 10
    GUICtrlCreateGroup ("", $bx - 5, $bY - 10, 85, 45)
    $array[$x] = GUICtrlCreateButton ("Website " & $x, $bX , $bY, 75, 30)
    GUICtrlSetOnEvent(-1, "Run_Website")
    GUICtrlSetTip(-1, IniRead("Website_Set.ini", "Website_" & $x, "Set_" & $x, ""))
    $bX += 96
    If Not Mod($x, 2) Then
        $bX = 15
        $bY += 47
    EndIf
Next
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GuiSetState(@SW_SHOW)
EndFunc

Func Run_Website()
    For $x = 1 To 10
        If @GUI_CtrlId = $array[$x] Then ShellExecute(IniRead("Website_Set.ini", "Website_" & $x, "Set_" & $x, ""))
    Next
EndFunc

While 1
Sleep (300) 
WEnd

Func _Hide()
WinSetState ($Name, "", @SW_HIDE )
EndFunc

Func _Show()
WinSetState ($Name, "", @SW_SHOW )
EndFunc

Func _Exit()
Exit
EndFunc

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

All Credits Goto Me... For Any Questions.. Add Me On Msn At 'maxell225@hotmail.com'

Comments Bug Reports Ect.. Is Ok :P

~~Enjoy~~

Edited by John2006

Latest Projects :- New & Improved TCP Chat

Link to comment
Share on other sites
zxzxzx Wayfarer

zxzxzx

Posted
Posted

Hello AutoIt Peoples! :blink: I Have Finished My Newest Version Of Auto Website ^^ It Now Comes With A Hide And Show Option

In The Tray Icon :P

About Auto Website : Its A Program That Allows You To Set 10 Different Websites Then After You Set The 10 Websites A Window Comes Up With 10 Different Buttons... If You Hover Over The Button It Tells You Witch Website Each Button Gos To ... And If You Want To Hide The Window With The Buttons Just Click The Tray Icon Then Goto Options->Hide Then To Restore The Window Goto Options->Show... :)

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

Heres The Source :wub:

;====================================
;=       Author : John O.           =
;====================================

#Include <GuiConstants.au3>

Opt("TrayMenuMode",1)
Opt("TrayOnEventMode",1)
Opt('GUIOnEventMode',1)

Global $INI = @ScriptDir & "\Website_Set.ini"

$Name = "Auto Website v1.2"
$Name_00 = " Auto Website v1.2"

GuiCreate($Name_00 & " - Website Set", 350, 320)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
$TrayMenu = TrayCreateMenu ( "Options" )
$TrayItem = TrayCreateItem ( "Exit", $TrayMenu )
TrayItemSetOnEvent ($TrayItem, "_Exit" )
Dim $Array[11]
For $X = 1 to 10
    $Array[$X] = GUICtrlCreateInput ( "", 90, $X * 25, 200, 20)
    GUICtrlCreateLabel ( "Website " & $X & " = " , 15, ($X * 25) + 3)
Next
$Button = GuiCtrlCreateButton("Continue", 150,285,65,25)
GUICtrlSetOnEvent($Button, "Continue")
GuiSetState(@SW_SHOW)

_Load_INI()

Func _Load_INI()
    If FileExists($INI) Then
        Dim $IRSN = IniReadSectionNames($INI)
        If Not @ERROR Then
            For $I = 1 To $IRSN[0]
                Dim $IRS = IniReadSection($INI, $IRSN[$I])
                For $H = 1 To $IRS[0][0]
                    If Not @ERROR = 1 Then GUICtrlSetData($Array[$I], $IRS[$H][1])
                Next
            Next
        EndIf     
    EndIf
EndFunc

Func Continue()
    For $X = 1 to 10
        IniWrite ($INI, "Website_" & $X,"Set_" & $X, GuiCtrlRead($Array[$X]))
    Next
WinSetState ( " "," ",(@SW_HIDE))
_Start()
EndFunc

Func _Start()
GuiCreate($Name, 200, 243)
TrayItemDelete ($TrayMenu)
$TrayMenu = TrayCreateMenu ( "Options" )
$TrayItem_1 = TrayCreateItem ( "Hide", $TrayMenu )
TrayItemSetOnEvent ($TrayItem_1, "_Hide" )
$TrayItem_2 = TrayCreateItem ( "Show", $TrayMenu )
TrayItemSetOnEvent ($TrayItem_2, "_Show" )
$TrayItem_3 = TrayCreateItem ( "Exit", $TrayMenu )
TrayItemSetOnEvent ($TrayItem_3, "_Exit" )
Dim $array[11]
Local $bX = 15, $bY = 12
For $x = 1 To 10
    GUICtrlCreateGroup ("", $bx - 5, $bY - 10, 85, 45)
    $array[$x] = GUICtrlCreateButton ("Website " & $x, $bX , $bY, 75, 30)
    GUICtrlSetOnEvent(-1, "Run_Website")
    GUICtrlSetTip(-1, IniRead("Website_Set.ini", "Website_" & $x, "Set_" & $x, ""))
    $bX += 96
    If Not Mod($x, 2) Then
        $bX = 15
        $bY += 47
    EndIf
Next
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GuiSetState(@SW_SHOW)
EndFunc

Func Run_Website()
    For $x = 1 To 10
        If @GUI_CtrlId = $array[$x] Then ShellExecute(IniRead("Website_Set.ini", "Website_" & $x, "Set_" & $x, ""))
    Next
EndFunc

While 1
Sleep (300) 
WEnd

Func _Hide()
WinSetState ($Name, "", @SW_HIDE )
EndFunc

Func _Show()
WinSetState ($Name, "", @SW_SHOW )
EndFunc

Func _Exit()
Exit
EndFunc

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

All Credits Goto Me... For Any Questions.. Add Me On Msn At 'maxell225@hotmail.com'

Comments Bug Reports Ect.. Is Ok :P

~~Enjoy~~

Thank
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...