Sign in to follow this  
Followers 0
z0mgItsJohn

Auto Website v1.2

5 posts in this topic

#1 ·  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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

zxzxzx you don't need to post in every topic you know.

The user was already notified this morning to quit spamming.


SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Share this post


Link to post
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
Sign in to follow this  
Followers 0