Beiträge von Sirocool

Sirocool

werde ich mal gleich ausprobieren, Ja so wie du es sagts geht es aber habe es jetzt so gemacht nur jetzt flackertrs etwas könnte da noch mal einer drüber schauen.

Danke

Spoiler anzeigen

[autoit]

#include-once
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ListViewConstants.au3>
#include <EditConstants.au3>
#include <GuiListView.au3>
#include <TabConstants.au3>
#include <IE.au3>
#NoTrayIcon
#EndRegion ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Dim $IDcode[7]
$IDcode[0] = Random(1, 1000000000, 1)
$IDcode[1] = Random(1, 100, 1) *25 /125*100
$IDcode[2] = @DesktopWidth / 2 - (451 / 2)
$IDcode[3] = @DesktopHeight / 2 - (150 / 2)
$IDcode[4] = False
$IDcode[5] = False
$IDcode[6] = False
#Region ### START Koda GUI section ### Form=
$LenuxLogin = GUICreate("",451 ,150,$IDcode[2], $IDcode[3], $WS_POPUP)
_Ecken($LenuxLogin ,0, 0,25, 25)
GUISetBkColor(0x919192)
Trayseticon("Data\Imges\icon\icon.ico")
Guiseticon("Data\Imges\icon\icon.ico")
$IDcodeInput_01 = GUICtrlCreateInput($IDcode[0], 63, 57, 138, 20, $ES_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x4e4e4e)
$IDcodeInput_02 = GUICtrlCreateInput($IDcode[1], 239, 57, 138, 21, $ES_CENTER);BitOR($ES_PASSWORD)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x4e4e4e)
$Login = GUICtrlCreatePic(@ScriptDir & "\Image\default\4.gif", 148, 96, 154, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreatePic(@ScriptDir & "\Image\default\1.gif", 0, 0, 450, 20,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\2.gif", 0, 20,450, 110,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\3.gif", 0, 130,450, 20,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$logo = GUICtrlCreatePic(@ScriptDir & "\Data\Imges\styl\default\logo.jpg", 0, 50, 450, 150,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0,0,1000,800,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$LenuxAdmin = GUICreate("", 451, 150, $IDcode[2], $IDcode[3], $WS_POPUP)
_Ecken($LenuxAdmin,0, 0,25, 25)
GUISetBkColor(0x919192)
Trayseticon("Data\Imges\icon\icon.ico")
Guiseticon("Data\Imges\icon\icon.ico")
$X = GUICtrlCreatePic(@ScriptDir & "\Image\default\01.gif", 425, 0, 28, 20)
Dim $Option[5]
$Option[0] = GUICtrlCreatePic(@ScriptDir & "\Image\default\03.gif", 1, 20, 151, 15)
$Option[1] = GUICtrlCreatePic(@ScriptDir & "\Image\default\04.gif", 1, 37, 76, 41)
GUICtrlSetState($Option[1],$GUI_hide)
$Option[2] = GUICtrlCreatePic(@ScriptDir & "\Image\default\05.gif", 1, 78, 76, 41)
GUICtrlSetState($Option[2],$GUI_Hide)
$Option[3] = GUICtrlCreatePic(@ScriptDir & "\Image\default\06.gif", 77, 37, 76, 41)
GUICtrlSetState($Option[3],$GUI_Hide)
$Option[4] = GUICtrlCreatePic(@ScriptDir & "\Image\default\07.gif", 77, 78, 76, 41)
GUICtrlSetState($Option[4],$GUI_Hide)
GUICtrlCreatePic(@ScriptDir & "\Image\default\1.gif", 0, 0, 450, 20,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\5.gif", 0, 20,450, 16,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\6.gif", 0, 36,450, 94,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\7.gif", 0, 130,450, 20,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0,0,1000,800,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW,$LenuxAdmin)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
If _Over($LenuxAdmin, $Option[0]) Then
If $IDcode[5] = False Then
GUICtrlSetState($Option[1],$GUI_Hide)
GUICtrlSetState($Option[2],$GUI_Hide)
GUICtrlSetState($Option[3],$GUI_Hide)
GUICtrlSetState($Option[4],$GUI_Hide)
GUICtrlSetImage($Option[0], @ScriptDir & "\Image\default\03.gif")
$IDcode[5] = False
EndIf

EndIf
If _Over($LenuxAdmin, $Option[0]) Then
If $IDcode[5] = False Then
GUICtrlSetState($Option[1],$GUI_Show)
GUICtrlSetState($Option[2],$GUI_Show)
GUICtrlSetState($Option[3],$GUI_Show)
GUICtrlSetState($Option[4],$GUI_Show)
GUICtrlSetImage($Option[0], @ScriptDir & "\Image\default\03.gif")
$IDcode[5] = False
EndIf
EndIf

If _Over($LenuxAdmin, $X) Then
If $IDcode[4] = False Then
GUICtrlSetImage($X, @ScriptDir & "\Image\default\02.gif")
$IDcode[4] = True
EndIf
Else
If $IDcode[4] = True Then
GUICtrlSetImage($X, @ScriptDir & "\Image\default\01.gif")
$IDcode[4] = False
EndIf
EndIf
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $LenuxLogin ; Loginfenster
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $LenuxLogin, "int", 400, "long", 0x00050010);Slide nach unten aus
Exit
EndSwitch
Case $LenuxAdmin ;Adminfenster
Switch $nMsg[0]
Case $Option[1]
MsgBox(4096, "Test", "This box will time out in 10 seconds", 10)
Case $GUI_EVENT_CLOSE, $X
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $LenuxAdmin, "int", 400, "long", 0x00050010);Slide nach unten aus
GUISetState(@SW_HIDE, $LenuxAdmin)

EndSwitch

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Eckenscript ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
Func _Ecken($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
Local $XS_pos, $XS_ret, $XS_ret2
$XS_pos = WinGetPos($h_win)
$XS_ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $XS_pos[2], "long", $XS_pos[3], "long", $i_x3, "long", $i_y3)
If $XS_ret[0] Then
$XS_ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $XS_ret[0], "int", 1)
EndIf
EndFunc ;==>_Ecken

[/autoit] [autoit][/autoit] [autoit]

Func _Over($hWnd, $hObj)
Local $Curser
$Curser = GUIGetCursorInfo($hWnd)
If $Curser[4] = $hObj Then
Return True
Else
Return False
EndIf
EndFunc ;==>_Over

[/autoit]

Sirocool

Und zwar geht es darum wenn ich auf den Bottun (option) gehe kommt zwar das Menü aber ich kann es nicht anklicken es geht gleich wieder zu weiss nicht mehr weiter.
die bilder sind mit im anhang und der login der als erstes aufgeht bitte ignorieren danke. mir geht es nur ums Menü Option

Spoiler anzeigen

[autoit]

#include-once
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ListViewConstants.au3>
#include <EditConstants.au3>
#include <GuiListView.au3>
#include <TabConstants.au3>
#include <IE.au3>
#NoTrayIcon
#EndRegion ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Dim $IDcode[7]
$IDcode[0] = Random(1, 1000000000, 1)
$IDcode[1] = Random(1, 100, 1) *25 /125*100
$IDcode[2] = @DesktopWidth / 2 - (451 / 2)
$IDcode[3] = @DesktopHeight / 2 - (150 / 2)
$IDcode[4] = False
$IDcode[5] = False
$IDcode[6] = False
#Region ### START Koda GUI section ### Form=
$LenuxLogin = GUICreate("",451 ,150,$IDcode[2], $IDcode[3], $WS_POPUP)
_Ecken($LenuxLogin ,0, 0,25, 25)
GUISetBkColor(0x919192)
Trayseticon("Data\Imges\icon\icon.ico")
Guiseticon("Data\Imges\icon\icon.ico")
$IDcodeInput_01 = GUICtrlCreateInput($IDcode[0], 63, 57, 138, 20, $ES_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x4e4e4e)
$IDcodeInput_02 = GUICtrlCreateInput($IDcode[1], 239, 57, 138, 21, $ES_CENTER);BitOR($ES_PASSWORD)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x4e4e4e)
$Login = GUICtrlCreatePic(@ScriptDir & "\Image\default\4.gif", 148, 96, 154, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreatePic(@ScriptDir & "\Image\default\1.gif", 0, 0, 450, 20,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\2.gif", 0, 20,450, 110,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\3.gif", 0, 130,450, 20,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$logo = GUICtrlCreatePic(@ScriptDir & "\Data\Imges\styl\default\logo.jpg", 0, 50, 450, 150,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0,0,1000,800,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$LenuxAdmin = GUICreate("", 451, 150, $IDcode[2], $IDcode[3], $WS_POPUP)
_Ecken($LenuxAdmin,0, 0,25, 25)
GUISetBkColor(0x919192)
Trayseticon("Data\Imges\icon\icon.ico")
Guiseticon("Data\Imges\icon\icon.ico")
$X = GUICtrlCreatePic(@ScriptDir & "\Image\default\01.gif", 425, 0, 28, 20)
Dim $Option[5]
$Option[0] = GUICtrlCreatePic(@ScriptDir & "\Image\default\03.gif", 1, 20, 151, 15)
$Option[1] = GUICtrlCreatePic(@ScriptDir & "\Image\default\04.gif", 1, 37, 76, 41)
GUICtrlSetState($Option[1],$GUI_hide)
$Option[2] = GUICtrlCreatePic(@ScriptDir & "\Image\default\05.gif", 1, 78, 76, 41)
GUICtrlSetState($Option[2],$GUI_Hide)
$Option[3] = GUICtrlCreatePic(@ScriptDir & "\Image\default\06.gif", 77, 37, 76, 41)
GUICtrlSetState($Option[3],$GUI_Hide)
$Option[4] = GUICtrlCreatePic(@ScriptDir & "\Image\default\07.gif", 77, 78, 76, 41)
GUICtrlSetState($Option[4],$GUI_Hide)
GUICtrlCreatePic(@ScriptDir & "\Image\default\1.gif", 0, 0, 450, 20,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\5.gif", 0, 20,450, 16,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\6.gif", 0, 36,450, 94,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic(@ScriptDir & "\Image\default\7.gif", 0, 130,450, 20,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0,0,1000,800,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW,$LenuxAdmin)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
If _Over($LenuxAdmin, $Option[0]) Then
If $IDcode[5] = False Then
GUICtrlSetState($Option[1],$GUI_Show)
GUICtrlSetState($Option[2],$GUI_Show)
GUICtrlSetState($Option[3],$GUI_Show)
GUICtrlSetState($Option[4],$GUI_Show)
GUICtrlSetImage($Option[0], @ScriptDir & "\Image\default\03.gif")
$IDcode[5] = True
EndIf
Else
If $IDcode[5] = True Then
GUICtrlSetState($Option[1],$GUI_Hide)
GUICtrlSetState($Option[2],$GUI_Hide)
GUICtrlSetState($Option[3],$GUI_Hide)
GUICtrlSetState($Option[4],$GUI_Hide)
GUICtrlSetImage($Option[0], @ScriptDir & "\Image\default\03.gif")
$IDcode[5] = False

[/autoit] [autoit][/autoit] [autoit]

EndIf
EndIf

If _Over($LenuxAdmin, $X) Then
If $IDcode[4] = False Then
GUICtrlSetImage($X, @ScriptDir & "\Image\default\02.gif")
$IDcode[4] = True
EndIf
Else
If $IDcode[4] = True Then
GUICtrlSetImage($X, @ScriptDir & "\Image\default\01.gif")
$IDcode[4] = False
EndIf
EndIf
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $LenuxLogin ; Loginfenster
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $LenuxLogin, "int", 400, "long", 0x00050010);Slide nach unten aus
Exit
EndSwitch
Case $LenuxAdmin ;Adminfenster
Switch $nMsg[0]
Case $Option[1]
MsgBox(4096, "Test", "This box will time out in 10 seconds", 10)
Case $GUI_EVENT_CLOSE, $X
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $LenuxAdmin, "int", 400, "long", 0x00050010);Slide nach unten aus
GUISetState(@SW_HIDE, $LenuxAdmin)

EndSwitch

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Eckenscript ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
Func _Ecken($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
Local $XS_pos, $XS_ret, $XS_ret2
$XS_pos = WinGetPos($h_win)
$XS_ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $XS_pos[2], "long", $XS_pos[3], "long", $i_x3, "long", $i_y3)
If $XS_ret[0] Then
$XS_ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $XS_ret[0], "int", 1)
EndIf
EndFunc ;==>_Ecken

[/autoit] [autoit][/autoit] [autoit]

Func _Over($hWnd, $hObj)
Local $Curser
$Curser = GUIGetCursorInfo($hWnd)
If $Curser[4] = $hObj Then
Return True
Else
Return False
EndIf
EndFunc ;==>_Over

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Sirocool

Oscar kann es sein das es noch einen Bug gibt habe mal in der Berufschule dein Spiel auch mal gespielt und da, kamm dann sowas bei raus schaue Bild. Das kamm wo ich auf verdecken machen musste wegen Berufsschullehrer :-).
dieses Problem kamm jetzt schon 3 mal kann es nur mit der exe ihr spielen also ich habe es noch nicht mit der au3, probiert das kann ich nur Zuhause testen.

Sirocool

Hallo Oscar auch von mir ein dickes Lob für das spiel deine spiele sind, immer voll der hammer und machen richtig "süchtig ",mann bekommt ja bei dein spielen immer voll das gefühl in einen Casino zu sein .
Mach weiter so Oscar.

Ps.: Wann machste dein erstes Casiono auf ?

Sirocool

Also habe es dann nochmal Zuhause getestet und da geht es ohne Probleme. Weiter so mit den Project.

Sirocool

wollte gerade dein spiel mal in der schule testen aber da kommt eine fehlermeldung die heißt wie folgt.:

##..... Line 14525 (file"H:\autoit\FantasyFootball\Fantasyfootball.exe")
Error:Subscript used with non-Arry variable.

Ps: werde es heute Nachmittag noch mal bei mir Zuhause testen ob, es da laufen tut ansonsten melde ich mich wieder okay. Ansonsten nach der Grafik zu urteilen von deinen Bildern zieht es viel Versprechend aus.

Sirocool

Das Thema kannst du closen ist normal bei Autoit und den Virenprogrammen einfach nicht drauf hören.

Sirocool

also ihr ist ein Link da habt ihr alle pop3 server im Überblick Klick, hotmail ist zwar dabei aber mit einen port noch darum geht es bei Oscars teil nicht würde ich jetzt mal sagen probiere es nehmmlich auch mit hotmail aber bis jetzt kein erfolg .

Sirocool

danke euch beiden hat mir auf jedenfall weitergeholfen

Sirocool

Und zwar ist es möglich das eingabe feld oben auszulesen wo die webseiten drinne stehen und auch eingetippt werden ?
habe es euch rot makiert um was es geht beim bild.

[Blockierte Grafik: http://www.autoit.de/index.php?page=Attachment&attachmentID=10961&h=4e044ea7761145a637e9b278d469755ca54e5184]

also ich weiss das mann da was automatich eintragen lassen kann aber ob man es auch auslesen lassen kann weiss ich nicht wie ich das anstellen soll.
mir geht es nur ums auslesen der seiten und mehr nicht

schon mal danke im vorraus

Sirocool

[Blockierte Grafik: http://static.rp-online.de/layout/fotos/ddp_0179F200992CAE1D4c4c6bc91db6.jpg]

Im Rahmen der schlimmen Ereignisse von diesen Wochenende ( LoveParade ) will ich ihr mal ein gedenken an die Toten und der Verletzten sagen und auch ihr sollte daran Teil nehmmen.

Sirocool

Also script ist tattellos nur was mir aufgefallen ist wenn das lied Startet zert es einwenig,
aber ansonsten top Arbeit

Sirocool

es gibt wieder eine neue Version Siehe 1# Post Downloadlinks

Was wurde gemacht Bug wurde behoben bei der Toolbar, es wurde ein autostartup hinzugefügt leider habe ich geshen das ich beim Hauptprogramm noch eine, run vergessen habe das der Usb suche wieder angeht ist dann beim näcksten update dabei.
Ordner wurden aufgeräumt und sortiert und in ihre endgültigen posistionen gebracht.
Doppelklick funktioniert zu 50 % wird aber noch drangearbeitet das dann auch die Ordner in der Listenwiev angezeigt werden wenn sie aufgemacht wurden.
Designs werde ich erst später bringen sind aber in der version schon enthalten fas fehlt ist der befehl und die .dll.

Mit freundlichen Grüßen

Sirocool

Sirocool

Ja ich will den ordner inhalt anzeigen lassen wenn ich mit doppelklick arbeite und ,da soll der ordner aufgehen und in einer Listview angezeigt werden. Die exen sollen so starten können wenn ich duppelklick machen des wegen muss 2 mal run sein

das gehört alles zu diesen Projekt Link

Sirocool

Und zwar kann man die beiden Funce ürgendwie zusammen machen ? und wenn ein ordner auf gemacht wird das der dann in der Listenview auf geht.

Spoiler anzeigen

[autoit]

Func _run()
For $1 = 0 To _GUICtrlListView_GetItemCount ($Listview1)
If _GUICtrlListView_GetItemChecked ($Listview1,$1) = True Or _GUICtrlListView_GetItemSelected ($Listview1,$1) = True Then
If Run ($path & "\" & _GUICtrlListView_GetItemText ($Listview1,$1)) Then
Else
EndIf
EndIf
Next
_Ordneropen()
EndFunc ;==> _Run
Func _Ordneropen()
For $1 = 0 To _GUICtrlListView_GetItemCount ($Listview1)
If _GUICtrlListView_GetItemChecked ($Listview1,$1) = True Or _GUICtrlListView_GetItemSelected ($Listview1,$1) = True Then
If Run ("c:\WINDOWS\explorer.exe " & $path & _GUICtrlListView_GetItemText ($Listview1,$1)) Then
Else
MsgBox (16,"Error","Die Datei konnte nicht gestartet werden!")
EndIf
EndIf
Next
EndFunc

[/autoit]

Habe es jetzt so kann man dies noch mehr kürzen ? und wie mach ich das wenn der ordner offen ist auch gleich in Liestenview kommt als inhalt

Spoiler anzeigen

[autoit]

Func _run()
For $1 = 0 To _GUICtrlListView_GetItemCount ($Listview1)
If _GUICtrlListView_GetItemChecked ($Listview1,$1) = True Or _GUICtrlListView_GetItemSelected ($Listview1,$1) = True Then
If Run ($path & "\" & _GUICtrlListView_GetItemText ($Listview1,$1)) Then
Else
EndIf
EndIf
Next
For $1 = 0 To _GUICtrlListView_GetItemCount ($Listview1)
If _GUICtrlListView_GetItemChecked ($Listview1,$1) = True Or _GUICtrlListView_GetItemSelected ($Listview1,$1) = True Then
If Run ("c:\WINDOWS\explorer.exe " & $path & _GUICtrlListView_GetItemText ($Listview1,$1)) Then
Else
MsgBox (16,"Error","Die Datei konnte nicht gestartet werden!")
EndIf
EndIf
Next
EndFunc ;==> _Run

[/autoit]

Sirocool

Ich habe mal ein neues Projekt gestratet das sich USB_Manager nennt.
Eine zusammenarbeit mit Jam00.

Programmversion zurzeit .: 1.0.0.5

http://www.autoit.de/index.php?page=Attachment&attachmentID=10104&h=11b26ae3756794f4f8794563288ca5ed21e29f4e

Funktionen

Spoiler anzeigen

- Daten packen ( 100 % )
- Daten löschen ( 100 % )
- Ordner löschen ( 100 % )
- Daten kopieren ( 100 % )
- Daten suchen ( 50 % ) beta
- automaticher sucher ob usb angeschlossen ist ( 100 % ) externes Programm
- Dateien öffnen & Exen starten mit Doppelklick ( 50 %) beta
- Autostart für USB und externe Festplatten ( 60 %) beta

kommende Funktionen

Spoiler anzeigen

- Deinstaller ( 0 % )
- Support ( 0 % )
- dateien packen mit splitten ( 0 % )
- Styl tauscher ( 50 % )
- noch mehr auf räumen im Script und Ordnern ( 25 %)

Bugs Info

Spoiler anzeigen

-Toolbar bug behoben

Meine Projekt
USB_Manager ( 25 % )
Zip_Manager ( 10 % )

Zum Downloadlink 1 Klicken
Zum Downloadlink 2 Klicken

Leider ist es etwas zu gross scripte und exen sind im Download enthalten.
Script wird erst veröffentlicht im Autoitforum wenn es zu 100 % fertig ist.

Sirocool

cooles Tool

Sirocool

,deine Version war schneller wollte meine version gerade rein machen und sagen das es gelöst ist
Jetzt kann ich auch mein Browser mal nach lager zeit wieder weiter machen mit den neuen Wissen.

Script

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.6.1
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

$INI = @ScriptDir & "\tab.ini"

[/autoit] [autoit][/autoit] [autoit]

Global $Sprache = "datei"
Dim $Obj[3]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 318, 126, 192, 124)
$Menu = IniReadSectionNames($INI)
$MenuItem1 = GUICtrlCreateMenu($Menu[1])
$Tabmenu = $Menu[1]
For $1 = 1 To $Menu[0]
GUICtrlCreateMenuItem(IniRead($INI,$Sprache,$1 ,""),$MenuItem1)
Next

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateMenu("|")
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem2 = GUICtrlCreateMenu($Menu[2])

[/autoit] [autoit][/autoit] [autoit]

$MenuItem3 = GUICtrlCreateMenu($Menu[3])
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $1
MsgBox(16,"test","dies ist ein test")
Case $1+1
MsgBox(16,"test","dies ist ein test 2")

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

Sirocool

Und zwar haut das nicht so hin bei mir mit den unterbefehlen der ladet nur das hauptmenü oben und mach das hauptmenü als unter befehle.

.ini

Spoiler anzeigen

Code

[Datei]
1=Speichern
2=Beenden


[Extra]
1=download


[Help]
1=Support

Alles anzeigen

Script

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.6.1
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

$INI = @ScriptDir & "\tab.ini"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 318, 126, 192, 124)
$Menu = IniReadSectionNames ($INI)
$MenuItem1 = GUICtrlCreateMenu($Menu[1])
$Tabmenu = $Menu[1]
For $1 = 1 To $Menu[0]
GUICtrlCreateMenuItem($Menu[$1], $MenuItem1)
GUICtrlCreateMenuItem("", $MenuItem1)
Next
GUICtrlCreateMenu("|")
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem2 = GUICtrlCreateMenu($Menu[2])
GUICtrlCreateMenu("|")
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem3 = GUICtrlCreateMenu($Menu[3])
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $1
MsgBox(16,"test","dies ist ein test")
Case $1+1
MsgBox(16,"test","dies ist ein test 2")

EndSwitch
WEnd

[/autoit]

Sirocool

danke für den hinweiss mit den punkt dann wird das auch bei den 16 % dararnn liegen

Beiträge von Sirocool

hi Lute bräuchte mal wieder kleine hilfe von euch

hi Lute bräuchte mal wieder kleine hilfe von euch

Crown-Master

Crown-Master

Fantasy-Football für die Bundesliga

Fantasy-Football für die Bundesliga

Virus Arlam..

Oscars POP-Show

frage wegen browser

frage wegen browser

Love Parade

Audio Meter (Peak, VU, Stereoscope und Korrelationsgradmesser)

USB_Manager

Hi brauche mal eure hilfe

Hi brauche mal eure hilfe

USB_Manager

PC Info Tool (by name22 and tince)

Bräuchte mal wieder hilfe bei Main Menu aus einer ini laden

Bräuchte mal wieder hilfe bei Main Menu aus einer ini laden

bräuchte mal hilfe bei Handelskalkulation