Jump to content

Wtf... not working

JavaScript_Freek
 Share

Recommended Posts

JavaScript_Freek Universalist

JavaScript_Freek

Posted
Posted 

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. :whistle:

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

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

@Java ... You'd be better off on using the UDF that I posted and Gary re-did and just pass the Url to it, that way you don't have to worry about silly stuff like this.

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites
JavaScript_Freek Universalist

JavaScript_Freek

Posted
  • Author
Posted 

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

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

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted (edited)

I'm being reminded of the ScareCrow on the Wizard of OZ.

1. Quit posting your code like, it's a pain in the rear to scroll down so much... To solve this use codebox [ codebox][ /codebox] (without spaces).

2. I provided a UDF that Gary made work also with what you wanted, and all you have to do is pass the variable or string for the link you want, easy as pie.

3. I also trimmed your code up, showing how you could make life easier with arrays, it's not a "have to" to do it, but it makes it easier for others to follow or change 1 thing instead having to change the entire UDF. I don't expect you to get it done right now on this project, but you should practice that style of coding to make life easier on yourself of all people.

Edit:

My ebonics is acting up.

Edited by SmOke_N

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...