JavaScript_Freek

Can I see it Big Daddy? And yes i just want the verticel scroll bar out

; ******************************************************* ; Nelmen Browser by keen ; Special thanks to Dan! ; ******************************************************* ; #include <GUIConstants.au3> #include <IE.au3> _IEErrorHandlerRegister () $oIE = _IECreateEmbedded () GUICreate("Nelmen Browser", 640, 580, _ (@DesktopWidth - 754) / 2, (@DesktopHeight - 580) / 2, _ $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUI_Input = GUICtrlCreateInput("", 10, 10, 540) $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 748, 360) $GUI_Button_Go = GUICtrlCreateButton("Go", 560, 10, 50, 20, $BS_DEFPUSHBUTTON) $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30) $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30) $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30) $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30) GUISetState() ;Show GUI _IENavigate ($oIE, "http://www.zetastyles.com") ; Waiting for user to close the window While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GUI_Button_Home _IENavigate ($oIE, "http://www.zetastyles.com") Case $msg = $GUI_Button_Back _IEAction ($oIE, "back") Case $msg = $GUI_Button_Forward _IEAction ($oIE, "forward") Case $msg = $GUI_Button_Stop _IEAction ($oIE, "stop") Case $GUI_Button_Go $sUsername = GUICtrlRead($GUI_Input) EndSwitch EndSelect WEnd GUIDelete() Exit Alright so here's the problem I want a regular browser that will open up MAXZIMIED so the v scrollbar or h scroll bar dont appear. And i want in input box that whatever you type it goes in the select page. How would you go about?

Latest. No I don't want this in while loop.

Yep. Know how to fix?

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.

Ok how come the bigger it gets it gets more laggy. I mean it flashes a black screen when i set the screen size bigger.

So #include <GUIConstants.au3> AutoItSetOption("GUIResizeMode",802) Global $oldwidth = 500, $oldheight = 100, $ontop = 1 GUICreate("Transparent Test",500,100,-1,-1,$WS_POPUP + $WS_SIZEBOX) GUICtrlCreateLabel("",28,28,32,20,$SS_BLACKFRAME) $trans = GUICtrlCreateSlider(60,37,73,18,$TBS_NOTICKS) GUICtrlSetLimit(-1,255,80) GUICtrlSetData(-1,220) GUICtrlCreateLabel("Transparency:",70,25,100,12) GUICtrlSetFont(-1,7) $top = GUICtrlCreateCheckbox('"Always On Top"',28,50) GUICtrlSetState(-1,1) GUISetState() WinSetTrans("Transparent Test","",220) WinSetOnTop("Transparent Test","",1) do $msg = GUIGetMsg() If $msg = $trans then WinSetTrans("Transparent Test","",GUICtrlRead($trans)) works fine?

Entire GUI.

Still need help =\ Make a WHOLE script that i can copy and paste into SciTe and press F5 to run

What would be an example script?

WIll you get a guicreate pop up with a slider and label (transpareny) and every time u move sider the trancparency changes?

#include <GUIConstants.au3> AutoItSetOption("GUIResizeMode",802) Global $oldwidth = 500, $oldheight = 100, $ontop = 1 GUICreate("Transparent Test",500,100,-1,-1,$WS_POPUP + $WS_SIZEBOX) GUICtrlCreateLabel("",28,28,32,20,$SS_BLACKFRAME) $trans = GUICtrlCreateSlider(60,37,73,18,$TBS_NOTICKS) GUICtrlSetLimit(-1,255,80) GUICtrlSetData(-1,220) GUICtrlCreateLabel("Transparency:",70,25,100,12) GUICtrlSetFont(-1,7) $top = GUICtrlCreateCheckbox('"Always On Top"',28,50) GUICtrlSetState(-1,1) GUISetState() WinSetTrans("Transparent Test","",220) WinSetOnTop("Transparent Test","",1) do $msg = GUIGetMsg() If $msg = $trans then WinSetTrans("Transparent Test","",GUICtrlRead($trans)) Alright why isn't this working? :R

I'd like to know, how to set up a chatbox. Like Like when you enter a name like Dan and you type Hi in the input box. Dan: Hi you know? I know it uses GUICtrlSetData. That's all. Anyways where is one. I'd like to know.

Wow this script is amazing! Please tell me how you added a chat to it

I don't see the Helpfiles folder anywhere...

What happened to the HELP FILES?

I'd like to know this too!

vim... what do you mean? o_o

Doesn't work nothing pops up. =(

Omg my start button i cant get to it XD

Alright thanks CWorks!

The links work for you? o_o

;*********************** ; ZetaBase ; Project Manager: keen ; Coded by: Dan of www.zetastyles.com ; Code Started: August 9, 2006 ; Code Released: ; 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 GUICreate("ZetaBase", 400, 400) GUISetIcon("C:\Program Files\AutoIt3\beta\Icons\au3.ico", 0) ; 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() RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" ,"DisableTaskMgr" , "REG_DWORD" ,00000000) ; disable While 1 $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=Members&max_results=10&sort_key=posts&sort_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 Didn't work

What do you mean?

Line 0 (Fine "C:\Documents and Settings\USER\ZetaBase.exe"): Run(@ComSpec & ' /c start " " "http://invisionfreeskins.com/index.php?showtopic=18261",",@SW_HIDE Error: Unable to execute external program Something is terribly wrong and I don't know how to fix it. Btw my friend gave me this message when he ran it. The .exe works fine, but the links don't.