z0mgItsJohn Posted December 11, 2007 Posted December 11, 2007 (edited) Hello AutoIt Team I Have Updated Auto Website v1.1 So Now There Is Only One Script Added Setup To The Main Function.. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ~~ Auto Website Version 1.1 By John O. ~~ ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ expandcollapse popup#Include <GuiConstants.au3> #NoTrayIcon Opt('GUIOnEventMode', 1) $Name = " Auto Website v1.1" Global $Ini = @ScriptDir & "\Website_Set.ini" GuiCreate($Name & " - Website Set", 350, 320) GUISetOnEvent($GUI_EVENT_CLOSE, '_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 GuiCtrlCreateButton("Continue", 150,285,65,25) GUICtrlSetOnEvent(-1, 'Continue') GuiSetState(@SW_SHOW) _LoadIni() While 1 Sleep(100) WEnd Func _LoadIni() 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)) AutoWebsite() EndFunc Func AutoWebsite() GuiCreate($Name, 200, 243) 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, "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 While 1 Sleep(100) WEnd Func Website() For $x = 1 To 10 If @GUI_CtrlId = $array[$x] Then ShellExecute(IniRead("Website_Set.ini", "Website_" & $x, "Set_" & $x, "")) Next EndFunc Func _Exit() Exit EndFunc ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ~~ Special Thanks To Smashly ~~ ------------------ ~~ Enjoy ~~ ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ Edited December 14, 2007 by John2006 Latest Projects :- New & Improved TCP Chat
JustinReno Posted December 11, 2007 Posted December 11, 2007 (edited) You shouldn't make a new thread for an update to your program. Just edit the previous one. Edit: Spelling Edited December 11, 2007 by JustinReno
NELyon Posted December 11, 2007 Posted December 11, 2007 To make it into one script, try this. [pseudocode] Checks to see if file "config.cfg" exists if it doesn't exist, create it, open a configuration dialog where the options can be set write that to a config.cfg file if the file already exists, continue to the main code [some main code here] [/psuedocode] So the file only exists if the person has ran the program before.
z0mgItsJohn Posted December 14, 2007 Author Posted December 14, 2007 Updated! =] Latest Projects :- New & Improved TCP Chat
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now