JavaScript_Freek Posted August 20, 2006 Share Posted August 20, 2006 Can someone help me get a login script created by rambo3889:#include <Guiconstants.au3> Guicreate("Login",200,200) $username=Guictrlcreateinput("Username",50,20,90,20) Guictrlcreatelabel("Password",0,50) $pasword=Guictrlcreateinput("Password",50,50,90,20) $login=Guictrlcreatebutton("Login",50,70,90,20) $new=Guictrlcreatebutton("New Accout",50,110,90,20) GUISetState() While 1 $msg=guigetmsg() Switch $msg Case $GUI_EVENT_CLOSE Exit Case $login ; HERE YOU MAKE THE LOGIN Case $new $newusername=Inputbox("Username","Please enter the username you want") If @error or $newusername = ""then Msgbox(0,"No Username","You didn't enter any username") Continueloop endif $newpassword=Inputbox("Password","Please enter the Password you want") If @error or $newpassword = "" then Msgbox(0,,"No Password","You didn't enter any Password") Continueloop endif Filewrite("File.log","Username="&$newusername&@CRLF&"Password="&$newpassword) endswitch wendHelp me get That ^^ into CODE;***********************; ZetaBase; Project Manager: keen; Coded by: Dan of www.zetastyles.com; Code Started: August 9, 2006; Coded Ended:; Special Thanks to: keen for graphics!;***********************#include <GUIConstants.au3>#include <File.au3>FileWrite("c:/blank.txt", "")Global $oRP;PRO SKINS$skin1 = "http://invisionfreeskins.com/index.php?showtopic=4038"$skin2 = "http://invisionfreeskins.com/index.php?showtopic=4039"$skin3 = "http://invisionfreeskins.com/index.php?showtopic=15888"$skin4 = "http://invisionfreeskins.com/index.php?showtopic=2319"$skin5 = "http://invisionfreeskins.com/index.php?showtopic=12961"$skin6 = "http://invisionfreeskins.com/index.php?showtopic=7046"$skin7 = "http://invisionfreeskins.com/index.php?showtopic=2305"$skin8 = "http://invisionfreeskins.com/index.php?showtopic=16709"$skin9 = "http://invisionfreeskins.com/index.php?showtopic=13403"$skin10 = "http://invisionfreeskins.com/index.php?showtopic=2307"$skin11 = "http://invisionfreeskins.com/index.php?showtopic=7859"$skin12 = "http://invisionfreeskins.com/index.php?showtopic=13775"$skin13 = "http://invisionfreeskins.com/index.php?showtopic=2308"$skin14 = "http://invisionfreeskins.com/index.php?showtopic=2246"$skin15 = "http://invisionfreeskins.com/index.php?showtopic=17120"$skin16 = "http://invisionfreeskins.com/index.php?showtopic=14185";END PRO SKINS;DOCUMENTS$doc1 = "http://invisionfreeskins.com/index.php?showtopic=4038"$doc2 = "http://invisionfreeskins.com/index.php?showtopic=4039"$doc3 = "http://invisionfreeskins.com/index.php?showtopic=15888";END DOCUMENTS;TUTORIALS$tut1 = "http://invisionfreeskins.com/index.php?showtopic=4038"$tut2 = "http://invisionfreeskins.com/index.php?showtopic=4039"$tut3 = "http://invisionfreeskins.com/index.php?showtopic=15888";END TUTORIALS;WEBSITE TEMPLATES$wt1 = "http://invisionfreeskins.com/index.php?showtopic=4038"$wt2 = "http://invisionfreeskins.com/index.php?showtopic=4039"$wt3 = "http://invisionfreeskins.com/index.php?showtopic=15888";END WEBSITE TEMPLATES; GUI$Form1 = GUICreate("ZetaBase", 400, 400)GUISetIcon("C:\Program Files\AutoIt3\beta\Icons\au3.ico", 0)$Slider1 = GUICtrlCreateSlider(0, 8, 265, 49)GUICtrlSetLimit(-1,255)GUICtrlSetData(-1,220); BANNER$s_TempFile = _TempFile()InetGet("http://209.85.48.9/8805/35/upload/p1488438.gif", $s_TempFile)GUICtrlCreatePic($s_TempFile, 0, 0, 400, 67); TEXTGUICtrlCreateLabel("Sample Label ", 10, 275, 389, 20);GUICtrlSetStyle (-1, $SS_RIGHT )GUICtrlCreateLabel("Logged in as: " & $nam3, 1, 258, 400, 14); MENU$filemenu = GUICtrlCreateMenu("File")$fileitem = GUICtrlCreateMenuitem("Open...", $filemenu) $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu)$separator1 = GUICtrlCreateMenuitem("", $filemenu)$exititem = GUICtrlCreateMenuitem("Exit", $filemenu);ZETA STYLES$filemenu = GUICtrlCreateMenu("Zeta Styles")$zs1 = GUICtrlCreateMenuitem("Visit Website", $filemenu)$zs2 = GUICtrlCreateMenuitem("Visit Forum", $filemenu)$zs3 = GUICtrlCreateMenuitem("Support", $filemenu)$zs12 = GUICtrlCreateMenuitem("Terms of Service", $filemenu);FORUM OPTIONS$filemenu = GUICtrlCreateMenu("Forum Options")$zs4 = GUICtrlCreateMenuitem("Control Panel", $filemenu)$zs5 = GUICtrlCreateMenuitem("Inbox", $filemenu)$zs6 = GUICtrlCreateMenuitem("View New Posts", $filemenu)$zs11 = GUICtrlCreateMenuitem("View Members", $filemenu)$zs13 = GUICtrlCreateMenuitem("Calender", $filemenu)GUICtrlCreateMenuItem("", $filemenu)$file1 = GUICtrlCreateMenu("Statistics", $filemenu)$zs7 = GUICtrlCreateMenuitem("Zeta Styles Staff", $file1)$zs8 = GUICtrlCreateMenuitem("Today's Active Topics", $file1)$zs9 = GUICtrlCreateMenuitem("Today's Top 10 Posters", $file1)$zs10 = GUICtrlCreateMenuitem("Overall Top 10 Posters", $file1)$file3 = GUICtrlCreateMenu("ZetaFX")$zs19 = GUICtrlCreateMenuitem("ZetaFX V1", $file3)$zs20 = GUICtrlCreateMenuitem("ZetaFX V2", $file3)$separator1 = GUICtrlCreateMenuitem("", $file3)$aboutfx = GUICtrlCreateMenuitem("About ZetaFX", $file3)GUICtrlCreateMenuItem("", $filemenu)$file2 = GUICtrlCreateMenu("Board Options", $filemenu)$zs14 = GUICtrlCreateMenuitem("Email Settings", $file2)$zs15 = GUICtrlCreateMenuitem("Board Settings", $file2)$zs16 = GUICtrlCreateMenuitem("Skin and Languages", $file2)$zs17 = GUICtrlCreateMenuitem("Change Email Address", $file2)$zs18 = GUICtrlCreateMenuitem("Change Password", $file2);ABOUT$helpmenu = GUICtrlCreateMenu("About")$aboutitem = GUICtrlCreateMenuitem("About ZetaBase", $helpmenu)GUISetState(@SW_SHOW); TABGUICtrlCreateTab(1, 70, 400, 190)$tab1 = GUICtrlCreateTabItem("Welcome")GUICtrlCreateLabel("Welcome to ZetaBase." & @CRLF & " " & @CRLF & "This project was started by keen and coded by Dan of www.zetastyles.com. This is ZetaBase. A program to show you the best of the best of what ZetaStyles has to offer. This program has ZS Best Skins, ZS Document Database, GFX Tutorial Database, and Website Template Database!", 20, 120, 375, 100)GUICtrlCreateTabItem("Pro Skins")GUICtrlCreateLabel("Category: Pro Skins" & @CRLF & " " & @CRLF & "Welcome to ZetaBase's Pro Skins category. To view skins, just simply select one from the drop down menu and you will be redirected to the skins topic in your default browser.", 20, 125, 375, 100)$skincombo = GUICtrlCreateCombo("", 10, 100) ; PRO SKINS DROP DOWNGUICtrlSetData(-1, "Choose a skin|Astro Jax|Aurora|Black sk00n|Creative Stripes|Dark Slate Blue|Encrypted V 2.0|Enlightened Blue|Epinephrine|Green Media Revamped|Hall'o'Queen|Highway Star|Iligua|Kryptonisis|Smoothy Bluey|Tropic Summer PR|wibbleFLOP", "Choose a skin") ; add other item snd set a new defaultGUICtrlCreateTabItem("Documents")GUICtrlCreateLabel("Category: Documents" & @CRLF & " " & @CRLF & "Welcome to ZetaBase's Documents category. To view the documents, just simply select one from the drop down menu and you will be redirected to the document topic in your default browser.", 20, 125, 375, 100)$doccombo = GUICtrlCreateCombo("", 10, 100) ; DOCUMENT DROP DOWNGUICtrlSetData(-1, "Choose a document|DOC1|DOC2|DOC3", "Choose a document")GUICtrlCreateTabItem("Tutorials")GUICtrlCreateLabel("Category: Tutorials" & @CRLF & " " & @CRLF & "Welcome to ZetaBase's Tutorials category. To view the tutorials, just simply select one from the drop down menu and you will be redirected to the tutorial topic in your default browser.", 20, 125, 375, 100)$tutcombo = GUICtrlCreateCombo("", 10, 100) ; TUTORIAL DROP DOWNGUICtrlSetData(-1, "Choose a tutorial|TUT1|TUT2|TUT3", "Choose a tutorial")GUICtrlCreateTabItem("Website Templates")GUICtrlCreateLabel("Category: Website Templates" & @CRLF & " " & @CRLF & "Welcome to ZetaBase's Website Templates category. To view the templates, just simply select one from the drop down menu and you will be redirected to the template topic in your default browser.", 20, 125, 375, 100)$wtcombo = GUICtrlCreateCombo("", 10, 100) ; TUTORIAL DROP DOWNGUICtrlSetData(-1, "Choose a website template|WT1|WT2|WT3", "Choose a website template"); GUI MESSAGE LOOPGUICtrlCreateTabItem("") ; end tabitem definitionGUICtrlSetState($tab1, $GUI_SHOW) ; will be display firstGUISetState()While 1WinSetState("ZetaBase", "", @SW_SHOWNORMAL) $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)") If @error <> 1 Then GUICtrlCreateMenuitem($file, $recentfilesmenu) Case $msg = $skincombo ;START SKIN URL If StringInStr(GUICtrlRead($skincombo), "Astro Jax") Then Run(@ComSpec & " /c Start " & $skin1, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Aurora") Then Run(@ComSpec & " /c Start " & $skin2, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Black sk00n") Then Run(@ComSpec & " /c Start " & $skin3, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Creative Stripes") Then Run(@ComSpec & " /c Start " & $skin4, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Dark Slate Blue") Then Run(@ComSpec & " /c Start " & $skin5, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Encrypted V 2.0") Then Run(@ComSpec & " /c Start " & $skin6, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Enlightened Blue") Then Run(@ComSpec & " /c Start " & $skin7, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Epinephrine") Then Run(@ComSpec & " /c Start " & $skin8, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Green Media Revamped") Then Run(@ComSpec & " /c Start " & $skin9, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Hall'o'Queen") Then Run(@ComSpec & " /c Start " & $skin10, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Highway Star") Then Run(@ComSpec & " /c Start " & $skin11, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Iligua") Then Run(@ComSpec & " /c Start " & $skin12, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Kryptonisis") Then Run(@ComSpec & " /c Start " & $skin13, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Smoothy Bluey") Then Run(@ComSpec & " /c Start " & $skin14, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Tropic Summer PR") Then Run(@ComSpec & " /c Start " & $skin15, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "wibbleFLOP") Then Else EndIf;END SKIN URL Case $msg = $doccombo ;START DOC URL If StringInStr(GUICtrlRead($doccombo), "Doc1") Then Run(@ComSpec & " /c Start " & $doc1, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($doccombo), "doc2") Then Run(@ComSpec & " /c Start " & $doc2, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($doccombo), "doc3") Then Run(@ComSpec & " /c Start " & $doc3, "", @SW_HIDE) Else EndIf;END DOC URL Case $msg = $tutcombo ;START TUT URL If StringInStr(GUICtrlRead($tutcombo), "TUT1") Then Run(@ComSpec & " /c Start " & $tut1, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($tutcombo), "TUT2") Then Run(@ComSpec & " /c Start " & $tut2, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($tutcombo), "TUT3") Then Run(@ComSpec & " /c Start " & $tut3, "", @SW_HIDE) Else EndIf;END TUT URL Case $msg = $wtcombo ;START WT URL If StringInStr(GUICtrlRead($wtcombo), "WT1") Then Run(@ComSpec & " /c Start " & $wt1, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($wtcombo), "WT2") Then Run(@ComSpec & " /c Start " & $wt2, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($wtcombo), "WT3") Then Run(@ComSpec & " /c Start " & $wt3, "", @SW_HIDE) Else EndIf;END WT URL ;START MENU URL Case $msg = $zs1 Run(@ComSpec & ' /c start http://www.zetastyles.com', '', @SW_HIDE) Case $msg = $zs2 Run(@ComSpec & ' /c start http://www.InvisionFreeSkins.com', '', @SW_HIDE) Case $msg = $zs3 Run(@ComSpec & ' /c start http://support.zetastyles.com/submit.php', '', @SW_HIDE) Case $msg = $zs4 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=00"' '', @SW_HIDE) Case $msg = $zs5 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=Msg&CODE=01"' '', @SW_HIDE) Case $msg = $zs6 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=Search&CODE=getnew"' '', @SW_HIDE) Case $msg = $zs7 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=Stats&CODE=leaders"' '', @SW_HIDE) Case $msg = $zs8 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=Search&CODE=getactive"' '', @SW_HIDE) Case $msg = $zs9 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act=Stats', '', @SW_HIDE) Case $msg = $zs10 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act...order=desc', '', @SW_HIDE) Case $msg = $zs11 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act=Members', '', @SW_HIDE) Case $msg = $zs12 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act=boardrules', '', @SW_HIDE) Case $msg = $zs13 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act=calendar', '', @SW_HIDE) Case $msg = $zs14 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=02"' '', @SW_HIDE) Case $msg = $zs15 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=04"' '', @SW_HIDE) Case $msg = $zs16 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=06"' '', @SW_HIDE) Case $msg = $zs17 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=08"' '', @SW_HIDE) Case $msg = $zs18 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=28"' '', @SW_HIDE) Case $msg = $zs19 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?showtopic=17686"' '', @SW_HIDE) Case $msg = $zs20 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?showtopic=18261"' '', @SW_HIDE) ;END MENU URL Case $msg = $aboutitem ;ABOUT MsgBox(0, "About ZetaBase", "ZetaBase"& @CRLF &"http://z9.invisionfree.com/TeamSTYLE/index.php?" & @CRLF & @CRLF & "Created by: keen" & @CRLF & "" & @CRLF & "Coded by: Dan" & @CRLF & "" & @CRLF & "© 2006 to repective topic starters.") Case $msg = $aboutfx ;ABOUT ZETA FX MsgBox(0, "About ZetaFX", "ZetaFX" & @CRLF & @CRLF & "Created by: .Mohib" & @CRLF & "" & @CRLF & "ZetaFX is a document that allowes users to have many ideal codes installed into their board." & @CRLF & "" & @CRLF & "© 2006 to .Mohib") Case $msg = $GUI_EVENT_CLOSE ;CLOSE ExitLoop Case $msg = $exititem ExitLoop EndSelectWEndSo it works properly. The login code will come first then everything else.Thank you [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
Examiner Posted August 20, 2006 Share Posted August 20, 2006 (edited) well this works [autoit];*********************** ; ZetaBase ; Project Manager: keen ; Coded by: Dan of www.zetastyles.com ; Code Started: August 9, 2006 ; Coded Ended: ; Special Thanks to: keen for graphics! ;*********************** #include <GUIConstants.au3> #include <File.au3> FileWrite("c:/blank.txt", "") Global $oRP Dim $nam3 = FileReadLine("File.log", 1) If @error or $nam3 = "" Then $nam3 = "Username" Dim $pas3 = FileReadLine("File.log", 2) If @error or $pas3 = "" Then $pas3 = "Password" $log_Win = GUICreate("Login", 200, 200) $username = GUICtrlCreateInput("Username", 50, 20, 90, 20) GUICtrlCreateLabel("Password", 0, 50) $pasword = GUICtrlCreateInput("Password", 50, 50, 90, 20) $login = GUICtrlCreateButton("Login", 50, 70, 90, 20) $new = GUICtrlCreateButton("New Accout", 50, 110, 90, 20) GUISetState() While 1 $msg1 = GUIGetMsg() Select Case $msg1 = $GUI_EVENT_CLOSE Exit Case $msg1 = $login If StringInStr((FileRead("File.log")), $nam3) And StringInStr((FileRead("File.log")), $pas3) Then ExitLoop Else MsgBox(64, " Login Error", "Your username and password are not recognized",5) ContinueLoop EndIf Case $msg1 = $new $newusername = InputBox("Username", "Please enter the username you want") If @error Or $newusername = ""then MsgBox(0, "No Username", "You didn't enter any username") ContinueLoop EndIf $newpassword = InputBox("Password", "Please enter the Password you want") If @error Or $newpassword = "" Then MsgBox(0, "No Password", "You didn't enter any Password") ContinueLoop EndIf FileWrite("File.log", $newusername & @CRLF & $newpassword) GUICtrlSetData($username, $newusername) GUICtrlSetData($pasword, $newpassword) $nam3 = $newusername $pas3 = $newpassword EndSelect WEnd GUISetState(@SW_HIDE, $log_Win) ;PRO SKINS $skin1 = "http://invisionfreeskins.com/index.php?showtopic=4038" $skin2 = "http://invisionfreeskins.com/index.php?showtopic=4039" $skin3 = "http://invisionfreeskins.com/index.php?showtopic=15888" $skin4 = "http://invisionfreeskins.com/index.php?showtopic=2319" $skin5 = "http://invisionfreeskins.com/index.php?showtopic=12961" $skin6 = "http://invisionfreeskins.com/index.php?showtopic=7046" $skin7 = "http://invisionfreeskins.com/index.php?showtopic=2305" $skin8 = "http://invisionfreeskins.com/index.php?showtopic=16709" $skin9 = "http://invisionfreeskins.com/index.php?showtopic=13403" $skin10 = "http://invisionfreeskins.com/index.php?showtopic=2307" $skin11 = "http://invisionfreeskins.com/index.php?showtopic=7859" $skin12 = "http://invisionfreeskins.com/index.php?showtopic=13775" $skin13 = "http://invisionfreeskins.com/index.php?showtopic=2308" $skin14 = "http://invisionfreeskins.com/index.php?showtopic=2246" $skin15 = "http://invisionfreeskins.com/index.php?showtopic=17120" $skin16 = "http://invisionfreeskins.com/index.php?showtopic=14185" ;END PRO SKINS ;DOCUMENTS $doc1 = "http://invisionfreeskins.com/index.php?showtopic=4038" $doc2 = "http://invisionfreeskins.com/index.php?showtopic=4039" $doc3 = "http://invisionfreeskins.com/index.php?showtopic=15888" ;END DOCUMENTS ;TUTORIALS $tut1 = "http://invisionfreeskins.com/index.php?showtopic=4038" $tut2 = "http://invisionfreeskins.com/index.php?showtopic=4039" $tut3 = "http://invisionfreeskins.com/index.php?showtopic=15888" ;END TUTORIALS ;WEBSITE TEMPLATES $wt1 = "http://invisionfreeskins.com/index.php?showtopic=4038" $wt2 = "http://invisionfreeskins.com/index.php?showtopic=4039" $wt3 = "http://invisionfreeskins.com/index.php?showtopic=15888" ;END WEBSITE TEMPLATES ; GUI $Form1 = GUICreate("ZetaBase", 400, 400) GUISetIcon("C:\Program Files\AutoIt3\beta\Icons\au3.ico", 0) $Slider1 = GUICtrlCreateSlider(0, 8, 265, 49) GUICtrlSetLimit(-1, 255) GUICtrlSetData(-1, 220) ; BANNER $s_TempFile = _TempFile() InetGet("http://209.85.48.9/8805/35/upload/p1488438.gif", $s_TempFile) GUICtrlCreatePic($s_TempFile, 0, 0, 400, 67) ; TEXT GUICtrlCreateLabel("Sample Label ", 10, 275, 389, 20) ;GUICtrlSetStyle (-1, $SS_RIGHT ) GUICtrlCreateLabel("Logged in as: " & $nam3, 1, 258, 400, 14) ; MENU $filemenu = GUICtrlCreateMenu("File") $fileitem = GUICtrlCreateMenuitem("Open...", $filemenu) $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu) $separator1 = GUICtrlCreateMenuitem("", $filemenu) $exititem = GUICtrlCreateMenuitem("Exit", $filemenu) ;ZETA STYLES $filemenu = GUICtrlCreateMenu("Zeta Styles") $zs1 = GUICtrlCreateMenuitem("Visit Website", $filemenu) $zs2 = GUICtrlCreateMenuitem("Visit Forum", $filemenu) $zs3 = GUICtrlCreateMenuitem("Support", $filemenu) $zs12 = GUICtrlCreateMenuitem("Terms of Service", $filemenu) ;FORUM OPTIONS $filemenu = GUICtrlCreateMenu("Forum Options") $zs4 = GUICtrlCreateMenuitem("Control Panel", $filemenu) $zs5 = GUICtrlCreateMenuitem("Inbox", $filemenu) $zs6 = GUICtrlCreateMenuitem("View New Posts", $filemenu) $zs11 = GUICtrlCreateMenuitem("View Members", $filemenu) $zs13 = GUICtrlCreateMenuitem("Calender", $filemenu) GUICtrlCreateMenuitem("", $filemenu) $file1 = GUICtrlCreateMenu("Statistics", $filemenu) $zs7 = GUICtrlCreateMenuitem("Zeta Styles Staff", $file1) $zs8 = GUICtrlCreateMenuitem("Today's Active Topics", $file1) $zs9 = GUICtrlCreateMenuitem("Today's Top 10 Posters", $file1) $zs10 = GUICtrlCreateMenuitem("Overall Top 10 Posters", $file1) $file3 = GUICtrlCreateMenu("ZetaFX") $zs19 = GUICtrlCreateMenuitem("ZetaFX V1", $file3) $zs20 = GUICtrlCreateMenuitem("ZetaFX V2", $file3) $separator1 = GUICtrlCreateMenuitem("", $file3) $aboutfx = GUICtrlCreateMenuitem("About ZetaFX", $file3) GUICtrlCreateMenuitem("", $filemenu) $file2 = GUICtrlCreateMenu("Board Options", $filemenu) $zs14 = GUICtrlCreateMenuitem("Email Settings", $file2) $zs15 = GUICtrlCreateMenuitem("Board Settings", $file2) $zs16 = GUICtrlCreateMenuitem("Skin and Languages", $file2) $zs17 = GUICtrlCreateMenuitem("Change Email Address", $file2) $zs18 = GUICtrlCreateMenuitem("Change Password", $file2) ;ABOUT $helpmenu = GUICtrlCreateMenu("About") $aboutitem = GUICtrlCreateMenuitem("About ZetaBase", $helpmenu) GUISetState(@SW_SHOW) ; TAB GUICtrlCreateTab(1, 70, 400, 190) $tab1 = GUICtrlCreateTabItem("Welcome") GUICtrlCreateLabel("Welcome to ZetaBase." & @CRLF & " " & @CRLF & "This project was started by keen and coded by Dan of www.zetastyles.com. This is ZetaBase. A program to show you the best of the best of what ZetaStyles has to offer. This program has ZS Best Skins, ZS Document Database, GFX Tutorial Database, and Website Template Database!", 20, 120, 375, 100) GUICtrlCreateTabItem("Pro Skins") GUICtrlCreateLabel("Category: Pro Skins" & @CRLF & " " & @CRLF & "Welcome to ZetaBase's Pro Skins category. To view skins, just simply select one from the drop down menu and you will be redirected to the skins topic in your default browser.", 20, 125, 375, 100) $skincombo = GUICtrlCreateCombo("", 10, 100) ; PRO SKINS DROP DOWN GUICtrlSetData(-1, "Choose a skin|Astro Jax|Aurora|Black sk00n|Creative Stripes|Dark Slate Blue|Encrypted V 2.0|Enlightened Blue|Epinephrine|Green Media Revamped|Hall'o'Queen|Highway Star|Iligua|Kryptonisis|Smoothy Bluey|Tropic Summer PR|wibbleFLOP", "Choose a skin") ; add other item snd set a new default GUICtrlCreateTabItem("Documents") GUICtrlCreateLabel("Category: Documents" & @CRLF & " " & @CRLF & "Welcome to ZetaBase's Documents category. To view the documents, just simply select one from the drop down menu and you will be redirected to the document topic in your default browser.", 20, 125, 375, 100) $doccombo = GUICtrlCreateCombo("", 10, 100) ; DOCUMENT DROP DOWN GUICtrlSetData(-1, "Choose a document|DOC1|DOC2|DOC3", "Choose a document") GUICtrlCreateTabItem("Tutorials") GUICtrlCreateLabel("Category: Tutorials" & @CRLF & " " & @CRLF & "Welcome to ZetaBase's Tutorials category. To view the tutorials, just simply select one from the drop down menu and you will be redirected to the tutorial topic in your default browser.", 20, 125, 375, 100) $tutcombo = GUICtrlCreateCombo("", 10, 100) ; TUTORIAL DROP DOWN GUICtrlSetData(-1, "Choose a tutorial|TUT1|TUT2|TUT3", "Choose a tutorial") GUICtrlCreateTabItem("Website Templates") GUICtrlCreateLabel("Category: Website Templates" & @CRLF & " " & @CRLF & "Welcome to ZetaBase's Website Templates category. To view the templates, just simply select one from the drop down menu and you will be redirected to the template topic in your default browser.", 20, 125, 375, 100) $wtcombo = GUICtrlCreateCombo("", 10, 100) ; TUTORIAL DROP DOWN GUICtrlSetData(-1, "Choose a website template|WT1|WT2|WT3", "Choose a website template") ; GUI MESSAGE LOOP GUICtrlCreateTabItem("") ; end tabitem definition GUICtrlSetState($tab1, $GUI_SHOW) ; will be display first GUISetState() While 1 WinSetState("ZetaBase", "", @SW_SHOWNORMAL) $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)") If @error <> 1 Then GUICtrlCreateMenuitem($file, $recentfilesmenu) Case $msg = $skincombo ;START SKIN URL If StringInStr(GUICtrlRead($skincombo), "Astro Jax") Then Run(@ComSpec & " /c Start " & $skin1, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Aurora") Then Run(@ComSpec & " /c Start " & $skin2, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Black sk00n") Then Run(@ComSpec & " /c Start " & $skin3, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Creative Stripes") Then Run(@ComSpec & " /c Start " & $skin4, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Dark Slate Blue") Then Run(@ComSpec & " /c Start " & $skin5, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Encrypted V 2.0") Then Run(@ComSpec & " /c Start " & $skin6, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Enlightened Blue") Then Run(@ComSpec & " /c Start " & $skin7, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Epinephrine") Then Run(@ComSpec & " /c Start " & $skin8, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Green Media Revamped") Then Run(@ComSpec & " /c Start " & $skin9, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Hall'o'Queen") Then Run(@ComSpec & " /c Start " & $skin10, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Highway Star") Then Run(@ComSpec & " /c Start " & $skin11, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Iligua") Then Run(@ComSpec & " /c Start " & $skin12, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Kryptonisis") Then Run(@ComSpec & " /c Start " & $skin13, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Smoothy Bluey") Then Run(@ComSpec & " /c Start " & $skin14, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "Tropic Summer PR") Then Run(@ComSpec & " /c Start " & $skin15, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($skincombo), "wibbleFLOP") Then Else EndIf;END SKIN URL Case $msg = $doccombo ;START DOC URL If StringInStr(GUICtrlRead($doccombo), "Doc1") Then Run(@ComSpec & " /c Start " & $doc1, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($doccombo), "doc2") Then Run(@ComSpec & " /c Start " & $doc2, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($doccombo), "doc3") Then Run(@ComSpec & " /c Start " & $doc3, "", @SW_HIDE) Else EndIf;END DOC URL Case $msg = $tutcombo ;START TUT URL If StringInStr(GUICtrlRead($tutcombo), "TUT1") Then Run(@ComSpec & " /c Start " & $tut1, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($tutcombo), "TUT2") Then Run(@ComSpec & " /c Start " & $tut2, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($tutcombo), "TUT3") Then Run(@ComSpec & " /c Start " & $tut3, "", @SW_HIDE) Else EndIf;END TUT URL Case $msg = $wtcombo ;START WT URL If StringInStr(GUICtrlRead($wtcombo), "WT1") Then Run(@ComSpec & " /c Start " & $wt1, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($wtcombo), "WT2") Then Run(@ComSpec & " /c Start " & $wt2, "", @SW_HIDE) ElseIf StringInStr(GUICtrlRead($wtcombo), "WT3") Then Run(@ComSpec & " /c Start " & $wt3, "", @SW_HIDE) Else EndIf;END WT URL ;START MENU URL Case $msg = $zs1 Run(@ComSpec & ' /c start http://www.zetastyles.com', '', @SW_HIDE) Case $msg = $zs2 Run(@ComSpec & ' /c start http://www.InvisionFreeSkins.com', '', @SW_HIDE) Case $msg = $zs3 Run(@ComSpec & ' /c start http://support.zetastyles.com/submit.php', '', @SW_HIDE) Case $msg = $zs4 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=00"', '', @SW_HIDE) Case $msg = $zs5 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=Msg&CODE=01"', '', @SW_HIDE) Case $msg = $zs6 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=Search&CODE=getnew"', '', @SW_HIDE) Case $msg = $zs7 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=Stats&CODE=leaders"', '', @SW_HIDE) Case $msg = $zs8 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=Search&CODE=getactive"', '', @SW_HIDE) Case $msg = $zs9 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act=Stats', '', @SW_HIDE) Case $msg = $zs10 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act...order=desc', '', @SW_HIDE) Case $msg = $zs11 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act=Members', '', @SW_HIDE) Case $msg = $zs12 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act=boardrules', '', @SW_HIDE) Case $msg = $zs13 Run(@ComSpec & ' /c start http://invisionfreeskins.com/index.php?act=calendar', '', @SW_HIDE) Case $msg = $zs14 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=02"', '', @SW_HIDE) Case $msg = $zs15 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=04"', '', @SW_HIDE) Case $msg = $zs16 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=06"', '', @SW_HIDE) Case $msg = $zs17 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=08"', '', @SW_HIDE) Case $msg = $zs18 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?act=UserCP&CODE=28"', '', @SW_HIDE) Case $msg = $zs19 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?showtopic=17686"', '', @SW_HIDE) Case $msg = $zs20 Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?showtopic=18261"', '', @SW_HIDE) ;END MENU URL Case $msg = $aboutitem ;ABOUT MsgBox(0, "About ZetaBase", "ZetaBase" & @CRLF & "http://z9.invisionfree.com/TeamSTYLE/index.php?" & @CRLF & @CRLF & "Created by: keen" & @CRLF & "" & @CRLF & "Coded by: Dan" & @CRLF & "" & @CRLF & " Edited August 20, 2006 by Examiner Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 20, 2006 Author Share Posted August 20, 2006 (edited) It works but after the I login sucessfully. The login one won't go away.. Edited August 20, 2006 by JavaScript_Freek [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
Examiner Posted August 20, 2006 Share Posted August 20, 2006 It works but after the I login sucessfully. The login one won't go away.. fixed...like some fries with that8) Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 20, 2006 Author Share Posted August 20, 2006 No But now the tabs or text won't show [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
Examiner Posted August 20, 2006 Share Posted August 20, 2006 No But now the tabs or text won't show Done...Supersize????8) Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 20, 2006 Author Share Posted August 20, 2006 Yes I love super size [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
Examiner Posted August 20, 2006 Share Posted August 20, 2006 (edited) replace this block to show the current registered user name at login $log_Win = GUICreate("Login", 200, 200) $username = GUICtrlCreateInput($nam3, 50, 20, 90, 20) GUICtrlCreateLabel("Password", 0, 50) $pasword = GUICtrlCreateInput($pas3, 50, 50, 90, 20) $login = GUICtrlCreateButton("Login", 50, 70, 90, 20) $new = GUICtrlCreateButton("New Accout", 50, 110, 90, 20) GUISetState() 8) Edited August 20, 2006 by Examiner Link to comment Share on other sites More sharing options...
Valuater Posted August 20, 2006 Share Posted August 20, 2006 Looks like you put a LOT of work into this and it looks very niceif you really want to protect it... and or sell it... check this out http://www.autoitscript.com/forum/index.ph...c=31020&hl=8) Link to comment Share on other sites More sharing options...
JavaScript_Freek Posted August 20, 2006 Author Share Posted August 20, 2006 I like it Val, but I don't use paypal. [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
keen Posted August 21, 2006 Share Posted August 21, 2006 Its an and or thing dan. You done have to sell it. [center]Kesne's Bar & Grill[/center] Link to comment Share on other sites More sharing options...
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