Halloo
allso ich wollte für meine freunde ein prog machen wo sie nur raufklicken müssen damit sie auf eine seite kommen
Dann wollte ein Anderer noch das er ein eigenen GUI bekommt mit Passwortabfrage
Jetzt habe ich alles mal zusammen geschmissen und das prog hängt sich jetzt immer auf
Kann jmd mein Souce mal überarbeiten?
Spoiler anzeigen
; ;
; (c) 2oo7 by IronX ;
; ;
; ;
; ;
; ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include
$parent1= Opt("TrayIconHide", 1)
Opt("GUIOnEventMode", 1)
Opt("RunErrorsFatal", 0)
Opt("TrayMenuMode", 1) ; Traymenü entfernen
Global $iMsgBoxAnswer
[/autoit] [autoit][/autoit] [autoit]GUICreate("Passwort-Abfrage", 350, 350)
[/autoit] [autoit][/autoit] [autoit]$Button_1 = GUICtrlCreateButton ("Pennergame", 120, 30, 100)
GUICtrlSetOnEvent(-1, "_passwort")
$Button_2 = GUICtrlCreateButton ("Exit", 120, 110, 100)
$Button_3 = GUICtrlCreateButton ("Julian Spezial", 120, 70, 100)
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_3
GuiCreate("test - by IronX", 392, 362,(@DesktopWidth-392)/2, (@DesktopHeight-362)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
EndSelect
WEnd
Exit
GUISetOnEvent($GUI_EVENT_CLOSE, "_schliessen")
GUISetState ()
While 1
Sleep(20)
WEnd
Func _passwort()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Do
$passwd = InputBox("Passwort-Check", "Bitte geben Sie Ihr Passwort ein.", "", "*M")
If $passwd = "" Then
Exit
ElseIf $passwd = "1" Then
$parent2= GuiCreate("Tool - by IronX", 392, 362,(@DesktopWidth-392)/2, (@DesktopHeight-362)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUISetBkColor (8800000)
$Button_1 = GuiCtrlCreateButton("DerPennaMc", 130, 20, 100, 20)
$Button_2 = GuiCtrlCreateButton("vladie", 130, 50, 100,20)
$Button_3 = GuiCtrlCreateButton("PaulVogelsang", 130, 80, 100, 20)
$Button_5 = GuiCtrlCreateButton("Melcom", 130, 110, 100, 20)
$Button_4 = GuiCtrlCreateButton("Exit", 300, 300, 60, 20)
;$Button_6 = GUICtrlCreateButton("Nichtklicken", 150, 140, 60, 20)
$Label_39 = GUICtrlCreateLabel("Admin Tools:", 10, 170, 140, 20)
; $Button_5 = GuiCtrlCreateButton("Connect", 1, 300, 60, 20)
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=8248041")
Case $msg = $Button_2
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=1375464")
Case $msg = $Button_3
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=6065144")
Case $msg = $Button_5
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=2419897")
Case $msg = $Button_4
WinKill ( "Tool - by IronX", "")
; Case $msg = $Button_6
;GuiCreate("test - by IronX", 392, 362,(@DesktopWidth-392)/2, (@DesktopHeight-362)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
;GUISetBkColor (0xFF00FF)
;Case $msg = $Button_5
;Run("C:\Programme\Mozilla Firefox\firefox.exe")
;WinWaitActive("Google")
;$oIE = _IECreate ("teamspeak://ultimate-sponsorring.ath.cx:5054")
;Winkill("Google - ")
;Case Else
;;;
EndSelect
WEnd
Exit
Else
$iMsgBoxAnswer = MsgBox(53, "Anmeldung fehlgeschlagen!", "Ihr Passwort ist falsch!")
EndIf
GuiSetState()
While 2
$msg = GuiGetMsg()
Select
$msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_2
WinKill("Passwort-Abfrage")
EndSelect
Wend 2
Until $iMsgBoxAnswer <> 4
Return $passwd
EndFunc
Func _schliessen()
Exit
EndFunc
</GUIConstants.au3>
Und kann mir jmd sagen wie ich mehere source in eine datei bekomme? dieses $parent1 = kapier ich nicht
Edit BugFix: Bitte Spoiler verwenden!