@ MisterSpeed : Woow danke dein Script läuft suuper ! Jetzt muss ich es nur noch verstehen xD
danke an alle =)
Wenn jetzt noch jemand weiss wie ich das alte Syntax Highlightning hinbekomme bin ich rundum glücklich hehe
@ MisterSpeed : Woow danke dein Script läuft suuper ! Jetzt muss ich es nur noch verstehen xD
danke an alle =)
Wenn jetzt noch jemand weiss wie ich das alte Syntax Highlightning hinbekomme bin ich rundum glücklich hehe
hm schade hab grade gemerkt das auch mit genutztem Array noch immer doppelte Zahlen erstellt werden.. mist
Wow hatte ganz vergessen wie klasse der Support hier ist, da antworten gleich so viele =) könnten sich viele Foren was von abschneiden
@ BugFix, sorry das ich Frage, aber wie setze ich diese Funktion ein ?
@Awsome : deine Antwort passt zu deinem Nick mit der Anleitung von Bugfix hab ich das mit dem Array gleich gerafft =)
jetzt muss ich nur noch herausfinden warum sich der Button nur einmal drücken lässt, und man das prog dann erst neu starten muss für neue zahlen.
OffTopic : und weiss zufällig jemand wie ich in scite die Normalen Farben bekomme ? der extreme Rot Anteil nervt gewaltig...
Hmm. ich raff das mit den Arrays wohl nicht ganz.. so läuft es nicht, gibt direkt einen Fehler in zeile 8 an...
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $1
$1[0] = Random(1,49,1) ;legt erste Zahl fest
$1[1] = Random(1,49,1) ;legt zweite Zahl fest
$1[2] = Random(1,49,1) ;legt dritte Zahl fest
$1[3] = Random(1,49,1) ;legt vierte Zahl fest
$1[4] = Random(1,49,1) ;legt fünfte Zahl fest
$1[5] = Random(1,49,1) ;legt sechste Zahl fest
$Form1 = GUICreate("6 aus 49", 192, 184, -1, -1) ;Erstellt Gui
GUISetBkColor(0xFFFFFF) ; Färbt Gui Weiss
$Input1 = GUICtrlCreateInput("-", 48, 32, 30, 21) ;Ausgabefeld Zahl 1
$Input2 = GUICtrlCreateInput("-", 48, 56, 30, 21) ;Ausgabefeld Zahl 2
$Input3 = GUICtrlCreateInput("-", 48, 80, 30, 21) ;Ausgabefeld Zahl 3
$Input4 = GUICtrlCreateInput("-", 112, 32, 30, 21) ;Ausgabefeld Zahl 4
$Input5 = GUICtrlCreateInput("-", 112, 56, 30, 21) ;Ausgabefeld Zahl 5
$Input6 = GUICtrlCreateInput("-", 112, 80, 30, 21) ;Ausgabefeld Zahl 6
$Label1 = GUICtrlCreateLabel("Ihre Gewinnzahlen diese Woche sind : ", 0, 0, 189, 17) ;Einfacher Text
$Label2 = GUICtrlCreateLabel("Viel Glück !", 66, 120, 58, 17) ;Einfacher Text
$Button1 = GUICtrlCreateButton("Zahlen Bereitstellen", 40, 152, 107, 25) ;Auslösen der Funktion
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Create ()
EndSwitch
WEnd
Func _Create ()
GUICtrlSetData($Input1,$1[0]) ;gibt die Zahl 1
GUICtrlSetData($Input2,$1[1]) ;gibt die Zahl 1
GUICtrlSetData($Input3,$1[2]) ;gibt die Zahl 1
GUICtrlSetData($Input4,$1[3]) ;gibt die Zahl 1
GUICtrlSetData($Input5,$1[4]) ;gibt die Zahl 1
GUICtrlSetData($Input6,$1[5]) ;gibt die Zahl 1
EndFunc
Hallo an alle,
Wie in der Überschrift ersichtlich möchte ich mit dem Random Befehl arbeiten, im Prinzip möchte ich mir damit
per Zufall meine Lottozahlen generieren lassen.
Das Script an sich ist bereits fertig, ich zerbreche mir aber bereits seit einigen Stunden den Kopf wie ich denn "doppelbenennungen" ausschließen kann.
Denn bei 6 aus 49 gibt es ja jede Zahl nur einmal =)
Habt ihr dazu eine Idee ?
Hier mal das bisherige Script :
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$1 = Random(1,49,1) ;legt erste Zahl fest
$2 = Random(1,49,1) ;legt zweite Zahl fest
$3 = Random(1,49,1) ;legt dritte Zahl fest
$4 = Random(1,49,1) ;legt vierte Zahl fest
$5 = Random(1,49,1) ;legt fünfte Zahl fest
$6 = Random(1,49,1) ;legt sechste Zahl fest
$Form1 = GUICreate("Lottozahlen", 192, 184, -1, -1) ;Erstellt Gui
GUISetBkColor(0xFFFFFF) ; Färbt Gui Weiss
$Input1 = GUICtrlCreateInput("-", 48, 32, 30, 21) ;Ausgabefeld Zahl 1
$Input2 = GUICtrlCreateInput("-", 48, 56, 30, 21) ;Ausgabefeld Zahl 2
$Input3 = GUICtrlCreateInput("-", 48, 80, 30, 21) ;Ausgabefeld Zahl 3
$Input4 = GUICtrlCreateInput("-", 112, 32, 30, 21) ;Ausgabefeld Zahl 4
$Input5 = GUICtrlCreateInput("-", 112, 56, 30, 21) ;Ausgabefeld Zahl 5
$Input6 = GUICtrlCreateInput("-", 112, 80, 30, 21) ;Ausgabefeld Zahl 6
$Label1 = GUICtrlCreateLabel("Ihre Gewinnzahlen diese Woche sind : ", 0, 0, 189, 17) ;Einfacher Text
$Label2 = GUICtrlCreateLabel("Viel Glück !", 66, 120, 58, 17) ;Einfacher Text
$Button1 = GUICtrlCreateButton("Zahlen Bereitstellen", 40, 152, 107, 25) ;Auslösen der Funktion
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Create ()
EndSwitch
WEnd
Func _Create ()
GUICtrlSetData($Input1,$1) ;gibt die Zahl 1
GUICtrlSetData($Input2,$2) ;gibt die Zahl 1
GUICtrlSetData($Input3,$3) ;gibt die Zahl 1
GUICtrlSetData($Input4,$4) ;gibt die Zahl 1
GUICtrlSetData($Input5,$5) ;gibt die Zahl 1
GUICtrlSetData($Input6,$6) ;gibt die Zahl 1
EndFunc
Gruß und Danke , Eistee
danke dir vielmals man, wäre voll cool, soll quasi ein kleines fenster werden des unten am desktop angzeigt wird, dann soll dieser die hand erkennen, und nur wenn die hand in diesem fenster ist, soll er gewisse (selbst festzulegende ) gesten erkennen
Hm.. danke, und sorry Autoit meinte ich =) ähm ja hab da da schnell angemeldet, bekomme da nur ein 40 MB Archiv mit anscheinend C++ Dateien, schade das übersteigt bei weitem meinen Horizont..
Hallo Community, ich habe mir kürzlich das Leap Motion zugelegt, ein cooles teil soweit, jedoch suche ich nach einer Möglichkeit mir Quasi bestimmte Gesten mit Funktionen zu verknüpfen, was anscheinend mit Standard Leap mitteln nicht im Bereich des möglichen liegt.
Und somit meine frage : kann man evtl. irgendwie mit Autoit die eingaben des Leap Controllers abfangen und pro Geste ein Script ausführen lassen ?
Ich hoffe was ich fragen wollte ist ersichtlich =)
Gruß eistee
ZitatWenn ich das mit dem Bild recht verstehe hast du für jede % Zahl ein Bild, also 100 Bilder? Das geht auch besser. Mit guictrlcreategraphic oder auch gdi kann man Tortendiagramme zeichnen. Da solltest du dann evtl. noch einen extra Thread aufmachen oder etwas im Forum suchen, müsstest da was zu finden.
Ja dein Argument ist verständlich aber : mit Adobe Photoshop bin ich relativ gut und so ne erstellung von 100 bildern mit berechnungen ist kein allzuschwieriges Problem für mich nur eben aufwendig und mir geht es ja darum das es danach wirklich nach was aussieht (hänge mal paar bilder an)
und da ich Gdi+ nicht verstehe und ich die meisten Boardmittel von AutoIt nicht wircklich ansprechend finde muss ich es leider so regeln
Mfg
Danke misterspeed es läuft muss nur noch fileinstalls für die Bilder einfügen aber soweit ist es fertig
;Von Kenngott Marco (Eistee, AsusExcite)
;E-Mail : [email='marco.kenngott@live.de'][/email]
;
;Großes Danke an misterspeed und Raupi(http://www.autoit.de)
;
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#include <File.au3>
Global $button[1] ; Array wird deklariert mit Größe 1, weiter unten erhöhen wir die Größe wenn mehr Buttons benötigt werden
Global $dRives
$dRives = DriveGetDrive("FIXED")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive1 = -1 ; verhindert Erstellung der Buttons
MsgBox(0, "Fehler", "Laufwerke konnten nicht ausgelesen werden!")
Else
$dRive1 = 1 ; erlaubt Erstellung der Buttons
EndIf
$Form1 = GUICreate("Excite HDD-Information", 700, 588, -1, -1)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("C:\Users\AsusDK\Desktop\ServerClientV1\HDDSpace\0.jpg", 279, 29, 400, 500, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("HDD-Information", 264, 8, 425, 537)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Danke an misterspeed und Raupi (http://www.autoit.de), Von Kenngott Marco (AsusExcite)", 290, 560, 450, 17)
$Label2 = GUICtrlCreateLabel("Verwendetes Betriebssystem :", 16, 24, 145, 17)
$Label3 = GUICtrlCreateLabel(@OSVersion, 16, 56, 183, 28)
GUICtrlSetFont(-1, 16, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x808080)
$Label4 = GUICtrlCreateLabel("Datenträger :", 16, 120, 66, 17)
$Label5 = GUICtrlCreateLabel($dRives[0], 120, 120, 36, 17)
$Label6 = GUICtrlCreateLabel("Bitte HDD wählen", 500, 103, 150, 46) ;Festplatte
GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel(" ", 500, 148, 158, 26)
GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel(" ", 500, 193, 162, 26)
GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetBkColor(-1, 0xFFFFFF)
If IsArray($dRives) And $dRive1 <> -1 Then
For $i = 1 To $dRives[0] ; erzeugt für jedes Laufwerk einen Button
ReDim $button[UBound($button) + 1] ; vergrößert dein Array in jedem Durchlauf der Schleife um 1, damit du immer genau 1 Speicherplatz für die Button Control id frei hast
If $i < 11 Then ; sollte ja klar sein, du erstellst hier die Buttons und speicherst diese in das Array, dabei werden für jeden Durchlauf die Positionen verändert
$button[$i] = GUICtrlCreateButton($dRives[$i], 16, 120 + $i * 40, 75, 25, 0)
Else
$button[$i] = GUICtrlCreateButton($dRives[$i], 112, 120 + ($i - 10) * 40, 75, 25, 0)
EndIf
Next
EndIf
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case Else ; für alle Nachrichten der GUI, die du nicht explizit in cases abhandelst
If UBound($button) > 1 Then ; nur wenn du Zusatzbuttons erstellt hast, also oben in Zeile 17 / 42 Laufwerke gefunden wurden
For $i = 1 To UBound($button) - 1 ; für alle gespeicherte Buttons
If $nMsg = $button[$i] Then ; kommt die GUI Nachricht vom Button der gerade in der Schleife geprüft wird?
_B1($i) ; wir übergeben den Button index an die Funktion, damit du dort je nach button nr. ggf verschiedene Funktionen aufrufen kannst
ExitLoop ; verlässt die for schleife um nicht das ganze array prüfen zu müssen, da der button je bereits gefunden wurde
EndIf
Next
EndIf
EndSwitch
WEnd
Func _B1($index)
$DSF = DriveSpaceFree($dRives[$index] & "\")
$DST = DriveSpaceTotal($dRives[$index] & "\")
$DSFb = StringSplit($DSF, ".")
$DSTb = StringSplit($DST, ".")
$DSFc = $DSFb[1] / 1000
$DSTc = $DSTb[1] / 1000
$DSFd = StringSplit($DSFc, ".")
$DSTd = StringSplit($DSTc, ".")
$DSV1 = $DSTd[1] / 100
$DSV2 = $DSFd[1] / $DSV1
$DSV3 = StringSplit($DSV2, '.', 1)
GUICtrlSetData($Label6, $dRives[$index])
GUICtrlSetData($Label7, "Space : " & $DSTd[1] & " Gb")
GUICtrlSetData($Label8, "Space free : " & $DSV3[1] & "%")
GUICtrlSetImage($Pic1, "C:\Excite\Sclient\" & $DSV3[1] & ".jpg")
EndFunc ;==>_B1
hmm. ok das dachte ich mir sogar fast schon ich teste es ml eben
vielen dank für die lösung ich hoffe ich habe nicht den eindruck erweckt das ich auf die lösung gewartet habe oder so.
Und um deine Frage zu beantworten ich habe irgendwie ein Problem mit schleifen ich verstehe sie einfach nicht.... ich habe erst kürzlich angefangen wenigstens ein paar einfache schleifen zu verwenden und ja ich habe mir alle beispiele der Hilfe angesehen, das Wiki Tutorial gelesen und sogar den relevanten teil im buch von pethebe aber ich verstehe sie einfach nicht... Wahrscheinlich übersteigen diese einfach meinen geringen Horizont.
Ich war mit deinen Angaben völlig überfordert da ich nicht einmal gewusst habe wo ich sie hätte einbauen oder was ich hätte dadurch ersetzen sollen und dann kam von dir auch noch irgendwas mit redim was ich auch noch nie wirklich verstanden habe...
Naja trotzdem wirklich ein großes danke für die herausragende Hilfe
Mfg Eistee
P.s. und wie weise ich jetzt eigentlich funktionen zu ? weil Func B1 is ja eig. nur für den Button 1
hmm... danke für die hilfe jedoch habe ich nichts davon verstanden ich denke ich werde es dann wohl doch lassen wenn es so sau schwer ist nur ein paar buttons pro festplatte anzuzeigen...
oh man ich blick da gerade echt nicht durch
der lösungsansatz funktioniert leider überhaupt nicht :
wenn ich deine änderung 1 zu 1 übernehme wird andauern
[autoit]msgbox(0,"dein button","der von oben bevor du die for schleife durchläufst...")
[/autoit]
ausgeführt
wenn ich (wovon ich dann mal ausgegangen bin)
[autoit]Case $button[0]
[/autoit]auf
[autoit]Case $button[1]
[/autoit]ändere wird angeblich immer Button 6 gedrückt (was komisch ist da ich nur 5 HDD´s habe und somit auch nur 5 Buttons existieren....
Ich blicke nicht mehr durch...
#include <GDIPConstants.au3>
#include <GDIP.au3>
Einfügen sonst kanns nit laufen
P.s. eine genauere erläuterung welche Probleme jeweils auftreten wäre generell hilfreich und dir helfen zu können
MfG Eistee
Ichwürde dich bitten deinen script und auch die von dir gemeinte au3 hochzuladen.
Wenn in der .au3 nur funktionen sind die dein script zum laufen braucht dann reicht
[autoit]#include <deineau3>
[/autoit]ansonsten wie gesagt
[autoit]Fileinstall
[/autoit]jedoch ist es generell ratsam deinen script mit zu posten damit kann dir wesentlich besser geholfen werden
bei mir hatt geholfen den standart 98 style zu aktivieren und danach wieder den Aero style.
Mfg
das von dir gemeinte script Compilen und dann guck dir mal den Befehl an :
FileInstall
[/autoit]In der Hilfe steht alles was du brauchst.
@ Raupi hey das ist ja cool gelöst jedoch bin ich wohl einfach zu dämlich wie mach ich das denn jetzt im case Bereich ? Weil ich kann ja nicht einfach einen Button nehmen der evtl. nicht existiert
also so fuktioniert es nicht :
;Von Kenngott Marco (Eistee, AsusExcite)
;E-Mail : [email='marco.kenngott@live.de'][/email]
;
;
;
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#include <File.au3>
Global $button[21]
Global $dRives
$dRives = DriveGetDrive("FIXED")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive1 = ("Keine HDD")
Else
$dRive1 = $dRives[1] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
$Form1 = GUICreate("Excite HDD-Information", 701, 589, 193, 125)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("C:\Users\AsusDK\Desktop\ServerClientV1\HDDSpace\0.jpg", 279, 29, 400, 500, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("HDD-Information", 264, 8, 425, 537)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("c by Kenngott Marco (AsusExcite", 528, 560, 161, 17)
$Label2 = GUICtrlCreateLabel("Verwendetes Betriebssystem :", 16, 24, 145, 17)
$Label3 = GUICtrlCreateLabel("Windows 7 Ultimate", 16, 56, 183, 28)
GUICtrlSetFont(-1, 16, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x808080)
$Label4 = GUICtrlCreateLabel("Datenträger :", 16, 120, 66, 17)
$Label5 = GUICtrlCreateLabel($dRives[0], 120, 120, 36, 17)
$button[1] = GUICtrlCreateButton($dRive1, 16, 160, 75, 25, 0)
If IsArray($dRives) Then
For $i = 1 To $dRives[0]
If $i < 11 Then
$button[$i] = GUICtrlCreateButton($dRives[$i], 16, 120 + $i * 40, 75, 25, 0)
Else
$button[$i] = GUICtrlCreateButton($dRives[$i], 112, 120 + ($i - 10) * 40, 75, 25, 0)
EndIf
Next
EndIf
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button[1]
_B1 ()
Case $button[2]
_B1 ()
Case $button[3]
_B1 ()
Case $button[4]
_B1 ()
Case $button[5]
_B1 ()
Case $button[6]
_B1 ()
Case $button[7]
_B1 ()
Case $button[8]
_B1 ()
Case $button[9]
_B1 ()
Case $button[10]
_B1 ()
Case $button[11]
_B1 ()
Case $button[12]
_B1 ()
Case $button[13]
_B1 ()
EndSwitch
WEnd
Func _B1 ()
Exit
EndFunc
naja noch isses leider nicht gelöst so läufts nähmlich nicht :
;Von Kenngott Marco (Eistee, AsusExcite)
;E-Mail : [email='marco.kenngott@live.de'][/email]
;
;
;
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#include <File.au3>
Global $dRives
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$dRives = DriveGetDrive("fixed")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive1 = ("Keine HDD")
Else
$dRive1 = $dRives[1] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive2 = ("Keine HDD")
Else
$dRive2 = $dRives[2] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive3 = ("Keine HDD")
Else
$dRive3 = $dRives[3] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive4 = ("Keine HDD")
Else
$dRive4 = $dRives[4] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive5 = ("Keine HDD")
Else
$dRive5 = $dRives[5] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive6 = ("Keine HDD")
Else
$dRive6 = $dRives[6] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive7 = ("Keine HDD")
Else
$dRive7 = $dRives[7] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive8 = ("Keine HDD")
Else
$dRive8 = $dRives[8] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive9 = ("Keine HDD")
Else
$dRive9 = $dRives[9] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive10 = ("Keine HDD")
Else
$dRive10 = $dRives[10] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive11 = ("Keine HDD")
Else
$dRive11 = $dRives[11] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive12 = ("Keine HDD")
Else
$dRive12 = $dRives[12] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive13 = ("Keine HDD")
Else
$dRive13 = $dRives[13] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive14 = ("Keine HDD")
Else
$dRive14 = $dRives[14] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive15 = ("Keine HDD")
Else
$dRive15 = $dRives[15] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive16 = ("Keine HDD")
Else
$dRive16 = $dRives[16] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive17 = ("Keine HDD")
Else
$dRive17 = $dRives[17] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive18 = ("Keine HDD")
Else
$dRive18 = $dRives[18] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive19 = ("Keine HDD")
Else
$dRive19 = $dRives[19] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
If @error Then ; Wenn error dann $dRive1 = Keine HDD
$dRive20 = ("Keine HDD")
Else
$dRive20 = $dRives[20] ; ansonsten Name der Festplatte jedoch wird immer ausgegeben keine HDD
EndIf
$Form1 = GUICreate("Excite HDD-Information", 701, 589, 193, 125)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("C:\Users\AsusDK\Desktop\ServerClientV1\HDDSpace\0.jpg", 279, 29, 400, 500, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("HDD-Information", 264, 8, 425, 537)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("c by Kenngott Marco (AsusExcite", 528, 560, 161, 17)
$Label2 = GUICtrlCreateLabel("Verwendetes Betriebssystem :", 16, 24, 145, 17)
$Label3 = GUICtrlCreateLabel("Windows 7 Ultimate", 16, 56, 183, 28)
GUICtrlSetFont(-1, 16, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x808080)
$Label4 = GUICtrlCreateLabel("Datenträger :", 16, 120, 66, 17)
$Label5 = GUICtrlCreateLabel($dRives[0], 120, 120, 36, 17)
$Button1 = GUICtrlCreateButton($dRive1, 16, 160, 75, 25, 0)
$Button2 = GUICtrlCreateButton($dRive2, 16, 200, 75, 25, 0)
$Button3 = GUICtrlCreateButton($dRive3, 16, 240, 75, 25, 0)
$Button4 = GUICtrlCreateButton($dRive4, 16, 280, 75, 25, 0)
$Button5 = GUICtrlCreateButton($dRive5, 16, 320, 75, 25, 0)
$Button6 = GUICtrlCreateButton($dRive6, 16, 360, 75, 25, 0)
$Button7 = GUICtrlCreateButton($dRive7, 16, 400, 75, 25, 0)
$Button8 = GUICtrlCreateButton($dRive8, 16, 440, 75, 25, 0)
$Button9 = GUICtrlCreateButton($dRive9, 16, 480, 75, 25, 0)
$Button10 = GUICtrlCreateButton($dRive10, 16, 520, 75, 25, 0)
$Button11 = GUICtrlCreateButton($dRive11, 112, 160, 75, 25, 0)
$Button12 = GUICtrlCreateButton($dRive12, 112, 200, 75, 25, 0)
$Button13 = GUICtrlCreateButton($dRive13, 112, 240, 75, 25, 0)
$Button14 = GUICtrlCreateButton($dRive14, 112, 280, 75, 25, 0)
$Button15 = GUICtrlCreateButton($dRive15, 112, 320, 75, 25, 0)
$Button16 = GUICtrlCreateButton($dRive16, 112, 360, 75, 25, 0)
$Button17 = GUICtrlCreateButton($dRive17, 112, 400, 75, 25, 0)
$Button18 = GUICtrlCreateButton($dRive18, 112, 440, 75, 25, 0)
$Button19 = GUICtrlCreateButton($dRive19, 112, 480, 75, 25, 0)
$Button20 = GUICtrlCreateButton($dRive20, 112, 520, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd