Ok raupi so gehts vielen dank
kann ich das so auch für die nächsten 20 platten verwenden ? weil so ist es ja nicht definitv oder ?
Ok raupi so gehts vielen dank
kann ich das so auch für die nächsten 20 platten verwenden ? weil so ist es ja nicht definitv oder ?
Hallo Leute
Ich hab wohl irgendwo einen Fehler oder einen Denkfehler denn hier gibt es anscheinen immer nen Error doch ich weis nicht weshalb
;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 $dRives[1] = @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)
$Button1 = GUICtrlCreateButton($dRive1, 16, 160, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Button2", 16, 200, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Button3", 16, 240, 75, 25, 0)
$Button4 = GUICtrlCreateButton("Button4", 16, 280, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Button5", 16, 320, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Button6", 16, 360, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Button7", 16, 400, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Button8", 16, 440, 75, 25, 0)
$Button9 = GUICtrlCreateButton("Button9", 16, 480, 75, 25, 0)
$Button10 = GUICtrlCreateButton("Button10", 16, 520, 75, 25, 0)
$Button11 = GUICtrlCreateButton("Button11", 112, 160, 75, 25, 0)
$Button12 = GUICtrlCreateButton("Button12", 112, 200, 75, 25, 0)
$Button13 = GUICtrlCreateButton("Button13", 112, 240, 75, 25, 0)
$Button14 = GUICtrlCreateButton("Button14", 112, 280, 75, 25, 0)
$Button15 = GUICtrlCreateButton("Button15", 112, 320, 75, 25, 0)
$Button16 = GUICtrlCreateButton("Button16", 112, 360, 75, 25, 0)
$Button17 = GUICtrlCreateButton("Button17", 112, 400, 75, 25, 0)
$Button18 = GUICtrlCreateButton("Button18", 112, 440, 75, 25, 0)
$Button19 = GUICtrlCreateButton("Button19", 112, 480, 75, 25, 0)
$Button20 = GUICtrlCreateButton("Button20", 112, 520, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Er gibt immer nur aus keine HDD jedoch ist C:\ ja definitiv vorhanden sieht jemand den fehler ?
hmm.. naja also wie du das Programm steuern kannst wüßte ich jetzt leider nicht aber ob du bereits intenet hast kannste mit dem einfachen befehl
[autoit]$var = Ping("www.AutoIt.de")
If $var Then
ShellExecute("iexplore.exe")
Else
MsgBox(0, "Status", "Es ist ein Fehler mit der Nummer " & @error & " aufgetreten.")
EndIf
okay ähm danke für den Tipp Matthias jedoch würde ich das gerne in AutoIt lösen Ftp ist eh schon so ne sache ich muss es scheinbar nehmen aber dann auch noch PHP einbauen ist ein wenig overdressed da ich mich damit überhaupt nicht auskenne
nein nein eben nicht sein server steht zuhause, aber wir wollen auch von überall anders darauf zugreifen können (also die files downloaden) vorrausgesetzt der client ist auf dem jeweiligen rechner installiert.
Vom Prinzip her so alla Usenet, ein Server und mehrere Accounts die halt per Client darauf zugreifen. Alle Files auflisten an den client senden der zeigt se an und man wählt dann halt eine Datei und klickt auf Download somit werden sie Geladen.
das wäre echt cool vielen dank !!!
ok ne also lokal sollte da nichts laufen ähm... active directory sagt mir gar nix und ihm auch nicht.
Wie sollte man das denn mit ftp lösen ? mir würde da kein weg einfallen.
Naja der server hatt :
2 x Dualcore xeon
16 Gb Ram
12 x 2 Tb Platten
und irgendson sau teures Asus board
naja ähm... eigentlich wär mir jede methode recht bei der ich einen eigenen clienten benutzen könnte
und @kev84 : nein es soll ja nicht nur lokal betrieben werden sondern fü ( ich denke 5) leute per client zugriff bieten
naja Matthias geht da schon in die richtige richtung jedoch sind es im Moment so knappe 8 TB und es sollen bis zu 24 TB werden und er will halt vor allem seinen eigenen Clienten
Ich habe bereits bis jetzt (für des serverScript) die Möglichkeit mir auf dem server alle Verzeichnise,Rar files, Musikfiles und Bildfiles auflisten und in eine datei schreiben zu lassen, denn ich gehe davon aus das ich ja um die dateien dann per client downloaden zu können die exakten verzeichnisse davon brauche oder irre ich mich da ?
Hallo Leute
Ich wollte euch mal etwas fragen über das ich schon sehr lange nachdenke und zwar :
Ein kumpel von mir baut sich gerade einen server, er hatt auch schon einen Serverschrank , USV, Rack usw.
Er wollte jetzt das ich ein Script schreibe also quasi einen serverscript und nen client script und das man nur was von dem server downloaden kann wenn der server script läuft und man sich per Pw und client eingeloggt hatt.
Meine derzeitige theorie wäre das ganze per TCP zu machen jedoch wollte ich eure meinungen und Ideen hören wie man das evtl. besser lösen kann / könnte.
Das OS des Servers wäre entweder Win7 oder WinServer2008, ich hoffe was ich zu erklären versucht habe war weitestgehend verständlich
Danke schon mal, euer Eistee
Auch von mir alles gute zum Geburtstag und das du uns ja Gesund bleibst
ahhh ok vielen dank darauf hätt ich selber kommen können.. danke dir
also mir fällt eines auf kann auch sein das ich irre aber
Komplett Code -> enthält keine pfadangabe
;LoL Swapper
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $path = '' ;kein direkter pfad
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$frm_Main = GUICreate("LoL Swapper", 194, 66, 774, 500)
$Group_Control = GUICtrlCreateGroup("Control Panel", 0, 0, 193, 65)
$Radio_EU = GUICtrlCreateRadio("EU", 8, 16, 41, 17)
$Radio_NA = GUICtrlCreateRadio("NA", 8, 40, 33, 17)
$Button_Apply = GUICtrlCreateButton("Apply", 48, 16, 57, 41, $WS_GROUP)
$Label_Headlineclient = GUICtrlCreateLabel("Current client", 112, 16, 66, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Label_CurrentClient = GUICtrlCreateLabel("default", 136, 37, 21, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START UDF ###
Func GetCurrentClient()
$fp = FileOpen($path&'\RADS\projects\lol_air_client_config_eu\releases\0.0.0.1\deploy\lol.properties')
$fr = FileReadLine($fp,2)
If (StringRight($fr,20) == 'eu.lol.riotgames.com') Then
Return 'EU'
ElseIf (StringRight($fr,22) == 'beta.lol.riotgames.com') Then
Return 'NA'
Else
Return False
EndIf
EndFunc
Func PostCurrentClient($client)
Switch $client
Case 'EU'
GUICtrlSetState($Radio_EU,$GUI_CHECKED)
GUICtrlSetData($Label_CurrentClient,'EU')
Case 'NA'
GUICtrlSetState($Radio_EU,$GUI_CHECKED)
GUICtrlSetData($Label_CurrentClient,'NA')
Case False
GUICtrlSetData($Label_CurrentClient,'ERROR')
EndSwitch
EndFunc
Func SwapCurrentClient($swapto)
If $swapto == GetCurrentClient() Then
Return True
Else
DirMove($path&'\RADS\projects\lol_air_client_config_eu',$path&'\RADS\projects\lol_air_client_config_eu1')
DirMove($path&'\RADS\projects\lol_air_client_config_na',$path&'\RADS\projects\lol_air_client_config_eu')
DirMove($path&'\RADS\projects\lol_air_client_config_eu1',$path&'\RADS\projects\lol_air_client_config_na')
PostCurrentClient(GetCurrentClient())
Return True
EndIf
EndFunc
#EndRegion ### END UDF ###
#Region ### START Program initialization ###
If FileExists("LoL Swapper.ini") Then
$path = IniRead("LoL Swapper.ini", "General", "Path", "...")
Else
Do
$path = FileSelectFolder("Select League of Legends folder","",4,'C:\Spiele\League of Legends')
If FileExists($path&'\lol.launcher.exe') Then
$loop = False
Else
MsgBox(48,'Error!','Could not find lol.launcher.exe in selected folder')
$loop = True
EndIf
Until $loop == False
IniWrite("LoL Swapper.ini", "General", "Path",$path)
EndIf
PostCurrentClient(GetCurrentClient())
#EndRegion ### END Program initialization ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_Apply
If GUICtrlRead($Radio_EU) == $GUI_CHECKED Then
MsgBox(0,'','Send EU')
SwapCurrentClient('EU')
ElseIf GUICtrlRead($Radio_NA) == $GUI_CHECKED Then
MsgBox(0,'','Send EU')
SwapCurrentClient('NA')
EndIf
EndSwitch
WEnd
kurzcode : -> hatt direkten Pfad
$path = 'C:\Spiele\League of Legends' ; Direkter Pfad
DirMove($path&'\RADS\projects\lol_air_client_config_eu',$path&'\RADS\projects\lol_air_client_config_eu1')
DirMove($path&'\RADS\projects\lol_air_client_config_na',$path&'\RADS\projects\lol_air_client_config_eu')
DirMove($path&'\RADS\projects\lol_air_client_config_eu1',$path&'\RADS\projects\lol_air_client_config_na')
Exit
mfg Eistee
hmmm.. danke dir für die hilfe jedoch findet er irgendwie nichts keine rar, keine jpg und auch keine mp3 habe ich es falsch verbaut ?
;Von Kenngott Marco (Eistee, AsusExcite)
;E-Mail : [email='marco.kenngott@live.de'][/email]
;
;
#include <Array.au3>
#include <File.au3>
Global $dRives
Global $dRives2
Global $dRivespace
Global $dRivespace2
Global $dRivespaceB
Global $dRivespace2B
Global $dRivespaceC
Global $dRivespace2C
Global $dRivespaceD
Global $dRivespace2D
Global $iA
$dRives = DriveGetDrive("fixed")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If Not @error Then
For $iA = 1 To $dRives[0]
Next
EndIf
For $iA = 1 To $dRives[0]
_FileListCreate()
_FileSpaceData()
;MsgBox(1,"Laufwerke ausser C:\ Nr." & $iA, $dRives[$iA])
Next
Func _FileSpaceData()
$dRivespace = DriveSpaceFree($dRives[$iA] & "\")
$dRivespace2 = DriveSpaceTotal($dRives[$iA] & "\")
$dRivespaceB = StringSplit($dRivespace, ".")
$dRivespace2B = StringSplit($dRivespace2, ".")
$dRivespaceC = $dRivespaceB[1] / 1000
$dRivespace2C = $dRivespace2B[1] / 1000
$dRivespaceD = StringSplit($dRivespaceC, ".")
$dRivespace2D = StringSplit($dRivespace2C, ".")
FileDelete($dRives[$iA] & "\DriveSpace.txt")
FileDelete($dRives[$iA] & "\DriveSpace.txt")
FileWriteLine($dRives[$iA] & "\DriveSpace.txt", $dRivespace2D[1] & " Gb" & @CRLF)
FileWriteLine($dRives[$iA] & "\DriveSpace.txt", $dRivespaceD[1] & " Gb" & @CRLF)
EndFunc ;==>_FileSpaceData
Func _FileListCreate()
$dRives2 = _RecursiveFileListToArray($dRives[$iA] & "\")
_ArraySort($dRives2)
FileDelete($dRives[$iA] & "\filelist.txt")
_FileWriteFromArray($dRives[$iA] & "\filelist.txt", $dRives2)
Local $mp3Array [500000]
Local $mp3cnt = 0
Local $rarArray [500000]
Local $rarcnt = 0
Local $jpgArray [500000]
Local $jpgcnt = 0
For $i = 0 To UBound($dRives2) - 1
If StringInStr($dRives2[$i], ".jpg") Then
$jpgArray[$jpgcnt] = $dRives2[$i]
$jpgcnt += 1
Elseif StringInStr($dRives2[$i], ".mp3") Then
$mp3Array[$mp3cnt] = $dRives2[$i]
$mp3cnt += 1
Elseif StringInStr($dRives2[$i], ".rar") Then
$rarArray[$rarcnt] = $dRives2[$i]
$rarcnt += 1
EndIf
Next
ReDim $jpgArray[$jpgcnt + 1]
ReDim $rarArray[$rarcnt + 1]
ReDim $mp3Array[$mp3cnt + 1]
_FileWriteFromArray("C:\testfilejpg.txt", $jpgArray)
_FileWriteFromArray("C:\testfilerar.txt", $rarArray)
_FileWriteFromArray("C:\testfilemp3.txt", $mp3Array)
EndFunc ;==>_FileListCreate
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; Author(s): Oscar (http://www.autoit.de)
; Anregungen von: bernd670 (http://www.autoit.de)
; und: AspirinJunkie (http://www.autoit.de)
;===============================================================================
Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $fRecursion = True, $sDelim = @CRLF, $fOpenDLL = True)
Local $hSearch, $sFile, $sReturn = '', $aD
Local Static $hDll
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*')
If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
If $fOpenDLL Then $hDll = DllOpen('kernel32.dll')
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If @extended Then
$aD = DllCall($hDll, 'dword', 'GetFileAttributesW', 'wstr', $sPath & $sFile)
If @error Or BitAND($aD[0], 0x400) Then ContinueLoop
If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
If $fRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0, True, $sDelim, False)
ContinueLoop
EndIf
If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
WEnd
FileClose($hSearch)
If $fOpenDLL Then DllClose($hDll)
If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
Return $sReturn
EndFunc ;==>_RecursiveFileListToArray
hmm.. tut mir leid da muss dir evtl. wer anders helfen ich wüsste jetzt nähmlich leider nicht wie sry
Mfg Eistee
Wie schon gesagt statt dem Peter jpg entweder eine transparente gif oder png file verwenden habs dir mal von der theorie erstellt
[autoit]#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WINAPI.au3>
#include <StaticConstants.au3>
$Form1 = GUICreate("Form1", 501, 159, 192, 124)
$Pic1 = GUICtrlCreatePic("Signatur Beispiel 2.jpg", 0, 8, 500, 150, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetBkColor(-1, -2)
$pic = GUICreate("", 100, 45, 140, 20, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $Form1)
GUICtrlCreatePic("Peter.gif", 0, 0, 0, 0, $WS_EX_LAYERED, BitOR($SS_NOTIFY, $WS_GROUP))
GUISetState(@SW_SHOW, $pic)
GUISetState(@SW_SHOW, $Form1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Hallo Gemeinde
Ich habe in den letzten tagen dank der tollen Hilfe dieses Forums einen script erstellt der mir alles Platten durchsucht, mir die gesamten Verzeichnise in einer Textdatei auf der jeweiligen Platte ausgibt und eine weitere Textdatei erstellt iin der er mir die Space daten ausgibt.
ich möchte allerdings erreichen das das Script nur .rar files, .mp3 files, .jpg files in jeweils einer Textdatei ausgibt, aber wüsste jetzt nicht wie ich das entstandene Array diesen Parametern entsprechend durchsuchen / manipulieren könnte.
villeicht könnt ihr mir helfen Danke
Script :
;Von Kenngott Marco (Eistee, AsusExcite)
;E-Mail : [email='marco.kenngott@live.de'][/email]
;
;
#include <Array.au3>
#include <File.au3>
Global $dRives
Global $dRives2
Global $dRivespace
Global $dRivespace2
Global $dRivespaceB
Global $dRivespace2B
Global $dRivespaceC
Global $dRivespace2C
Global $dRivespaceD
Global $dRivespace2D
Global $iA
$dRives = DriveGetDrive("fixed")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If Not @error Then
For $iA = 1 To $dRives[0]
Next
EndIf
For $iA = 1 To $dRives[0]
_FileListCreate()
_FileSpaceData()
;MsgBox(1,"Laufwerke ausser C:\ Nr." & $iA, $dRives[$iA])
Next
Func _FileSpaceData()
$dRivespace = DriveSpaceFree($dRives[$iA] & "\")
$dRivespace2 = DriveSpaceTotal($dRives[$iA] & "\")
$dRivespaceB = StringSplit($dRivespace, ".")
$dRivespace2B = StringSplit($dRivespace2, ".")
$dRivespaceC = $dRivespaceB[1] / 1000
$dRivespace2C = $dRivespace2B[1] / 1000
$dRivespaceD = StringSplit($dRivespaceC, ".")
$dRivespace2D = StringSplit($dRivespace2C, ".")
FileDelete($dRives[$iA] & "\DriveSpace.txt")
FileDelete($dRives[$iA] & "\DriveSpace.txt")
FileWriteLine($dRives[$iA] & "\DriveSpace.txt", $dRivespace2D[1] & " Gb" & @CRLF)
FileWriteLine($dRives[$iA] & "\DriveSpace.txt", $dRivespaceD[1] & " Gb" & @CRLF)
EndFunc ;==>_FileSpaceData
Func _FileListCreate()
$dRives2 = _RecursiveFileListToArray($dRives[$iA] & "\")
_ArraySort($dRives2)
FileDelete($dRives[$iA] & "\filelist.txt")
_FileWriteFromArray($dRives[$iA] & "\filelist.txt", $dRives2)
EndFunc ;==>_FileListCreate
; Author(s): Oscar (http://www.autoit.de)
; Anregungen von: bernd670 (http://www.autoit.de)
; und: AspirinJunkie (http://www.autoit.de)
;===============================================================================
Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $fRecursion = True, $sDelim = @CRLF, $fOpenDLL = True)
Local $hSearch, $sFile, $sReturn = '', $aD
Local Static $hDll
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*')
If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
If $fOpenDLL Then $hDll = DllOpen('kernel32.dll')
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If @extended Then
$aD = DllCall($hDll, 'dword', 'GetFileAttributesW', 'wstr', $sPath & $sFile)
If @error Or BitAND($aD[0], 0x400) Then ContinueLoop
If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
If $fRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0, True, $sDelim, False)
ContinueLoop
EndIf
If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
WEnd
FileClose($hSearch)
If $fOpenDLL Then DllClose($hDll)
If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
Return $sReturn
EndFunc ;==>_RecursiveFileListToArray
kannst du evtl. auch die bilder hochladen ?
Mfg Eistee
ok dann weiß ich es jetzt besser danke dir hehe
Ich würde dir erstmal empfehlen, deinen bisherigen Script zu posten. (Das solltest du eigentlich immer machen.) Damit kann dir wesentlich schneller und effektiver geholfen werden !