Jump to content

Transparency

JavaScript_Freek
 Share

Recommended Posts

  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

WinSetTrans(), then call it when they choose your menu item... (P.S., that would be toward the bottom of the help file :whistle: )

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

Do you mean set the transparency of a menu item? If your talking about the whole window, then you didn't read the help file again... WinSetTrans("title", "text", transparency)

Of the whole window but i want it so you can set it at Menu

lik

File

Save ...............100%

Transparency>> 50%

.........................0%

Get what I'm talking about?

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

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

Of the whole window but i want it so you can set it at Menu

lik

File

Save ...............100%

Transparency>> 50%

.........................0%

Get what I'm talking about?

Well you have your answer (WinSetState()), now write it... if you run into problems, post your code and ask for help.

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 (edited) 

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

;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|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)
            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 [url=http://www.zetastyles.com']http://www.zetastyles.com'[/url], '', @SW_HIDE)
        Case $msg = $zs2
            Run(@ComSpec & ' /c start [url=http://www.InvisionFreeSkins.com']http://www.InvisionFreeSkins.com'[/url], '', @SW_HIDE) 
        Case $msg = $zs3
            Run(@ComSpec & ' /c start [url=http://www.support.zetastyles.com']http://www.support.zetastyles.com'[/url], '', @SW_HIDE)
        Case $msg = $zs4
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=UserCP&CODE=00']http://invisionfreeskins.com/index.php?act...mp;CODE=00'[/url], '', @SW_HIDE)
        Case $msg = $zs5
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=Msg&CODE=01']http://invisionfreeskins.com/index.php?act...mp;CODE=01'[/url], '', @SW_HIDE)
        Case $msg = $zs6
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=Search&CODE=getnew']http://invisionfreeskins.com/index.php?act...ODE=getnew'[/url], '', @SW_HIDE)
        Case $msg = $zs7
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=Stats&CODE=leaders']http://invisionfreeskins.com/index.php?act...DE=leaders'[/url], '', @SW_HIDE)
        Case $msg = $zs8
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=Search&CODE=getactive']http://invisionfreeskins.com/index.php?act...=getactive'[/url], '', @SW_HIDE)
        Case $msg = $zs9
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=Stats']http://invisionfreeskins.com/index.php?act=Stats'[/url], '', @SW_HIDE)
        Case $msg = $zs10
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=Members&max_results=10&sort_key=posts&sort_order=desc']http://invisionfreeskins.com/index.php?act...order=desc'[/url], '', @SW_HIDE)
        Case $msg = $zs11
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=Members']http://invisionfreeskins.com/index.php?act=Members'[/url], '', @SW_HIDE)
        Case $msg = $zs12
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=boardrules']http://invisionfreeskins.com/index.php?act=boardrules'[/url], '', @SW_HIDE)
        Case $msg = $zs13
            Run(@ComSpec & ' /c start [url=http://invisionfreeskins.com/index.php?act=calendar']http://invisionfreeskins.com/index.php?act=calendar'[/url], '', @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 = $GUI_EVENT_CLOSE ;CLOSE
            ExitLoop
        Case $msg = $exititem
            ExitLoop
    EndSelect
WEnd]

:whistle:

Edited by JavaScript_Freek

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

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted (edited)

No need to whistle like a smartass (only assuming that's what your doing) because I don't see where you even tried to impliment it...

Edit:

BTW, you have a ton of quotation and other syntax errors in there.

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
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

Here I shortened what you gave us made alot of things arrays (these will need beta) (shortened it by 30+ lines and easier to manage)

#include <GUIConstants.au3>
#include <File.au3>
FileWrite("c:/blank.txt", "")
Global $oRP
;PRO SKINS
Local $skin[4] = ["http://invisionfreeskins.com/index.php?showtopic=4038", "http://invisionfreeskins.com/index.php?showtopic=4039",  _
        "http://invisionfreeskins.com/index.php?showtopic=15888"]
;END PRO SKINS
;DOCUMENTS
Local $doc[4] = ['', "http://invisionfreeskins.com/index.php?showtopic=4038", "http://invisionfreeskins.com/index.php?showtopic=4039",  _
        "http://invisionfreeskins.com/index.php?showtopic=15888"]
;END DOCUMENTS
;TUTORIALS
Local $tut[4] = ['', "http://invisionfreeskins.com/index.php?showtopic=4038", "http://invisionfreeskins.com/index.php?showtopic=4039",  _
        "http://invisionfreeskins.com/index.php?showtopic=15888"]
;END TUTORIALS
;WEBSITE TEMPLATES
Local $wt[4] = ['', "http://invisionfreeskins.com/index.php?showtopic=4038", "http://invisionfreeskins.com/index.php?showtopic=4039",  _
        "http://invisionfreeskins.com/index.php?showtopic=15888"]
;END WEBSITE TEMPLATES
;zs Array
Local $zs[14]
;zs URLs
Local $zsURL[14] = ['', 'http://zetastyles.com', 'http://InvisionFreeSkins.com', 'http://support.zetastyles.com',  _
        'http://invisionfreeskins.com/index.php?act=UserCP&CODE=00', 'http://invisionfreeskins.com/index.php?act=Msg&CODE=01',  _
        'http://invisionfreeskins.com/index.php?act=Search&CODE=getnew', 'http://invisionfreeskins.com/index.php?act=Stats&CODE=leaders',  _
        'http://invisionfreeskins.com/index.php?act=Search&CODE=getactive', 'http://invisionfreeskins.com/index.php?act=Stats',  _
        'http://invisionfreeskins.com/index.php?act=Members&max_results=10&sort_key=posts&sort_order=desc', 'http://invisionfreeskins.com/index.php?act=Members',  _
        'http://invisionfreeskins.com/index.php?act=boardrules', 'http://invisionfreeskins.com/index.php?act=calendar']
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")
$zs[1] = GUICtrlCreateMenuitem("Visit Website", $filemenu)
$zs[2] = GUICtrlCreateMenuitem("Visit Forum", $filemenu)
$zs[3] = GUICtrlCreateMenuitem("Support", $filemenu)
$zs[12] = GUICtrlCreateMenuitem("Terms of Service", $filemenu)
;FORUM OPTIONS
$filemenu = GUICtrlCreateMenu("Forum Options")
$zs[4] = GUICtrlCreateMenuitem("Control Panel", $filemenu)
$zs[5] = GUICtrlCreateMenuitem("Inbox", $filemenu)
$zs[6] = GUICtrlCreateMenuitem("View New Posts", $filemenu)
$zs[11] = GUICtrlCreateMenuitem("View Members", $filemenu)
$zs[13] = GUICtrlCreateMenuitem("Calender", $filemenu)
GUICtrlCreateMenuitem("", $filemenu)
$file1 = GUICtrlCreateMenu("Statistics", $filemenu)
$zs[7] = GUICtrlCreateMenuitem("Zeta Styles Staff", $file1)
$zs[8] = GUICtrlCreateMenuitem("Today's Active Topics", $file1)
$zs[9] = GUICtrlCreateMenuitem("Today's Top 10 Posters", $file1)
$zs[10] = GUICtrlCreateMenuitem("Overall Top 10 Posters", $file1)
;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|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
            Local $skText[4] = ['', "Astro Jax", 'Aurora', 'Black sk00n']
            _RunInfo($skText, GUICtrlRead($skincombo), $skin)
        Case $msg = $doccombo ;START DOC URL
            Local $docText[4] = ['', 'Doc1', 'Doc2', 'Doc3']
            _RunInfo($docText, GUICtrlRead($doccombo), $doc)
        Case $msg = $tutcombo ;START TUT URL
            Local $tutText[4] = ['', 'TUT1', 'TUT2', 'TUT3']
            _RunInfo($tutText, GUICtrlRead($tutcombo), $tut)
        Case $msg = $wtcombo ;START WT URL
            Local $wtText[4] = ['', 'WT1', 'WT2', 'WT3']
            _RunInfo($wtText, GUICtrlRead($wtcombo), $wt)
            ;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 = $GUI_EVENT_CLOSE ;CLOSE
            ExitLoop
        Case $msg = $exititem
            ExitLoop
    EndSelect
    For $xCount = 1 To UBound($zs) - 1
        If $msg = $zs[$xCount] Then
            Run(@ComSpec & ' /c start ' & $zsURL[$xCount], '', @SW_HIDE)
            ExitLoop
        EndIf
    Next
WEnd
Func _RunInfo($aText, $sText, $aURL)
    For $iCount = 1 To UBound($aText) - 1
        If StringInStr($sText, $aText[$iCount]) Then
            Run(@ComSpec & " /c Start " & $aURL[$iCount], "", @SW_HIDE)
            Return 1
        EndIf
    Next
    Return SetError(1, 0, 0)
EndFunc

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
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

Didn't work =\ ^^

I only checked for syntax errors... I didn't run it... And I didn't do your work on the WinSetTrans() either.

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