Sign in to follow this  
Followers 0
JavaScript_Freek

Help me get a script into another one.

11 posts in this topic

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
wend

Help 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)

; 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 & "© 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

EndSelect

WEnd

So it works properly. The login code will come first then everything else.

Thank you :P


[center]Cookyx.com :: Simple LAN Chat[/center]

Share this post


Link to post
Share on other sites



#2 ·  Posted (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 by Examiner

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

It works but after the I login sucessfully. The login one won't go away.. :P

Edited by JavaScript_Freek

[center]Cookyx.com :: Simple LAN Chat[/center]

Share this post


Link to post
Share on other sites

It works but after the I login sucessfully. The login one won't go away.. :P

fixed...

like some fries with that

8)

Share this post


Link to post
Share on other sites

No :nuke:

But now the tabs or text won't show :P

Done...

Supersize????

8)

Share this post


Link to post
Share on other sites

#8 ·  Posted (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 by Examiner

Share this post


Link to post
Share on other sites

Its an and or thing dan. You done have to sell it.


[center]Kesne's Bar & Grill[/center]

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