Sign in to follow this  
Followers 0
JavaScript_Freek

Is it just me? Or what.

11 posts in this topic

#1 ·  Posted (edited)

Alright I don't know what if it's me or the script.

The the code.

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

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" ,"DisableTaskMgr" , "REG_DWORD" ,00000001); disable

$nam3 = InputBox("Log In", "Please enter your name:")

_FileWriteLog(@ScriptDir & "\Login Log.log",$nam3)

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

$transbox = GUICtrlCreateMenuitem("Transparency.", $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)

WinSetTrans("ZetaBase","", GUICtrlRead($Slider1))

$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 & @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 t 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

Keep flashing. Cause for me it's annoying and I don't know how to fix. :P

Edited by JavaScript_Freek

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

Share this post


Link to post
Share on other sites



Alright I don't know what if it's me or the script.

The the code.

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

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" ,"DisableTaskMgr" , "REG_DWORD" ,00000001); disable

$nam3 = InputBox("Log In", "Please enter your name:")

_FileWriteLog(@ScriptDir & "\Login Log.log",$nam3)

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

$transbox = GUICtrlCreateMenuitem("Transparency.", $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)

WinSetTrans("ZetaBase","", GUICtrlRead($Slider1))

$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 & @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 t 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

Keep flashing. Cause for me it's annoying and I don't know how to fix. :P

What exactly is the problem

:nuke:

Share this post


Link to post
Share on other sites

From what I could tell it flashes, *guessing refreshes*, and its annoying him..?


[quote name='DaleHohm']You have a strange habit of posting error messages that don't match your code.[/quote][quote name='SmOke_N']Forget the learning... straight to the scripting :lol: (laugh.gif)[/quote]

Share this post


Link to post
Share on other sites

From what I could tell it flashes, *guessing refreshes*, and its annoying him..?

Yep. Know how to fix?

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

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

WinSetState("ZetaBase", "", @SW_SHOWNORMAL)

Are you sure you want this in the While loop :P?

Edited by Burrup

[u]Old Projects:[/u]A3MORGB2Hex[u]Old Functions:[/u]_TimeAdd/_TimeSub_AddComma_BubbleSort _RippleSort "He who does not understand your silence will probably not understand your words." - Elbert Hubbard.

Share this post


Link to post
Share on other sites

A couple of things.

Why disable Taskmanager?

Next time try to label your questions to topic, like "Flashing IE program".

There are VERY knowledgeable people that would like to help you but will otherwise past this post by.

The program doesn't flash on me.

What version/beta of AutoIt are you running?

vim

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

For those wishing to still be able to use Task Manger after running the script above, and not realising it disables it.

Use...

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" , "DisableTaskMgr", "REG_DWORD", 00000000)
Edited by Burrup

[u]Old Projects:[/u]A3MORGB2Hex[u]Old Functions:[/u]_TimeAdd/_TimeSub_AddComma_BubbleSort _RippleSort "He who does not understand your silence will probably not understand your words." - Elbert Hubbard.

Share this post


Link to post
Share on other sites

For those wishing to still be able to use Task Manger after running the script above, and not realising it disables it.

Use...

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" , "DisableTaskMgr", "REG_DWORD", 00000000)

I am against programming that does this type of thing....

Javascript_Freek, i strongly suggest that you write into this script an " onAutoitexit" function that will write the above re-enable code from Burrup

BTW ... nice to see you around again Burrup!

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites
Thanks ^^. Since my departure I have began to learn C++ and VB.NET and I felt I needed to return to my AutoIt roots :P.

[u]Old Projects:[/u]A3MORGB2Hex[u]Old Functions:[/u]_TimeAdd/_TimeSub_AddComma_BubbleSort _RippleSort "He who does not understand your silence will probably not understand your words." - Elbert Hubbard.

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