Angeber und wie wars? für wen warst du? oder hasst du dich da nur so zum spaß hingestellt damit jmd anderes die karten nich kriegt?
Mfg Spider
Angeber und wie wars? für wen warst du? oder hasst du dich da nur so zum spaß hingestellt damit jmd anderes die karten nich kriegt?
Mfg Spider
Für alle dies noch nich wissen:
ITALIEN
ist Weltmeister! Ich persönlich war für frankreich..
Mfg Spider
Hallo!
Hier mal von Scite die Abrevation von cmdlineselect:
#region - CmdlineSelect
If $CMDLINE[0] Then
For $i = 1 To $CMDLINE[0]
Select
Case $CMDLINE[$i] = '/?'
MsgBox(0x40000, StringTrimRight(@ScriptName, 4) & ' Help', _
'Switches are:' & @LF _
& @LF & '/extract' _
& @LF & @TAB & 'Extract files to current directory' _
& @LF & '/x' _
& @LF & @TAB & '' _
& @LF & '/x' _
& @LF & @TAB & '' _
& @LF & '/x' _
& @LF & @TAB & '' _
& @LF & '/x' _
& @LF & @TAB & '')
Exit
Case $CMDLINE[$i] = '/extract'
FileInstall('x', @ScriptDir & '\')
Exit
Case $CMDLINE[$i] = '/x'
Case $CMDLINE[$i] = '/x'
Case $CMDLINE[$i] = '/x'
Case $CMDLINE[$i] = '/x'
Case Else
MsgBox(0x40000, 'Incorrect switch used', _
'Command used:' & @LF & $CMDLINERAW & @LF & _
@LF & 'Use /? for the switches available.')
Exit
EndSelect
Next
EndIf
#endregion
Alles anzeigen
und hier cmdlineselect2
#region - CmdlineSelect + Properties
If $CMDLINE[0] Then
For $i = 1 To $CMDLINE[0]
If StringLeft($CMDLINE[$i], 1) = '/' Then
Select
Case $CMDLINE[$i] = '/?'
MsgBox(0x40000, StringTrimRight(@ScriptName, 4) & ' Help', _
'Switches are:' & @LF _
& @LF & '/extract' _
& @LF & @TAB & 'Extract files to current directory' _
& @LF & '/x' _
& @LF & @TAB & '' _
& @LF & '/x' _
& @LF & @TAB & '' _
& @LF & '/x' _
& @LF & @TAB & '' _
& @LF & '/x' _
& @LF & @TAB & '')
Exit
Case $CMDLINE[$i] = '/extract'
FileInstall('x', @ScriptDir & '\')
Exit
Case $CMDLINE[$i] = '/x'
Case $CMDLINE[$i] = '/x'
Case $CMDLINE[$i] = '/x'
Case $CMDLINE[$i] = '/x'
Case Else
_CmdlineMsgBox()
EndSelect
Else
Const $PROPERTY = StringSplit($CMDLINE[$i], '=')
If Not @error Then
Select
Case $PROPERTY[1] = 'x'
$x = $PROPERTY[2]
Case $PROPERTY[1] = 'x'
$x = $PROPERTY[2]
Case $PROPERTY[1] = 'x'
$x = $PROPERTY[2]
Case $PROPERTY[1] = 'x'
$x = $PROPERTY[2]
Case $PROPERTY[1] = 'x'
$x = $PROPERTY[2]
Case Else
_CmdlineMsgBox()
EndSelect
Else
_CmdlineMsgBox()
EndIf
EndIf
Next
EndIf
Func _CmdlineMsgBox()
MsgBox(0x40000, 'Incorrect switch used', _
'Command used:' & @LF & $CMDLINERAW & @LF & _
@LF & 'Use /? for the switches available.')
Exit
EndFunc
#endregion
Alles anzeigen
Mfg Spider
Ich bin auch dabei!
Hallo!
Für pees vorschlag brauchst du die Beta
ausserdem meint er _FileReadToArray und _FileWriteFromArray
hier die beiden funktionen:
;===============================================================================
;
; Description: Reads the specified file into an array.
; Syntax: _FileReadToArray( $sFilePath, $aArray )
; Parameter(s): $sFilePath - Path and filename of the file to be read
; $aArray - The array to store the contents of the file
; Requirement(s): None
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @error = 1
; Author(s): Jonathan Bennett <jon at hiddensoft dot com>
; Note(s): None
;
;===============================================================================
Func _FileReadToArray($sFilePath, ByRef $aArray)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $hFile
$hFile = FileOpen($sFilePath, 0)
If $hFile = -1 Then
SetError(1)
Return 0
EndIf
$aArray = StringSplit( StringStripCR( FileRead($hFile, FileGetSize($sFilePath))), @LF)
FileClose($hFile)
Return 1
EndFunc ;==>_FileReadToArray
;===============================================================================
;
; Description: Write array to File.
; Syntax: _FileWriteFromArray( $sFilePath, $aArray )
; Parameter(s): $sFilePath - Path and filename of the file to be written
; $a_Array - The array to retrieve the contents
; $i_Base - Start reading at this Array entry.
; $I_Ubound - End reading at this Array entry.
; Default UBound($a_Array) - 1
; Requirement(s): None
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @error = 1
; Author(s): Jos van der Zande <jdeb at autoitscript dot com>
; Note(s): None
;
;===============================================================================
Func _FileWriteFromArray($sFilePath, $a_Array, $i_Base = 0, $i_UBound = 0)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $hFile
; Check if we have a valid array as input
If Not IsArray($a_Array) Then
SetError(2)
Return 0
EndIf
; determine last entry
Local $last = UBound($a_Array) - 1
If $i_UBound < 1 Or $i_UBound > $last Then $i_UBound = $last
If $i_Base < 0 Or $i_Base > $last Then $i_Base = 0
; Open output file
$hFile = FileOpen($sFilePath, 2)
If $hFile = -1 Then
SetError(1)
Return 0
EndIf
;
FileWrite($hFile, $a_Array[$i_Base])
For $x = $i_Base + 1 To $i_UBound
FileWrite($hFile, @CRLF & $a_Array[$x])
Next
FileClose($hFile)
Return 1
EndFunc ;==>_FileWriteFromArray
Alles anzeigen
Hallo!
@pee: das sind immer unsere liebsten antworten^^ (Guck mal im englischen fourm)
XXX: Wenn du die beta benutzt geht sowas mit GuiCtrlCreateGraphic! Wenn du die Beta nicht benutzt, hol sie dir Die ist fast so stable wie die stable version
mFg Spider
Hallo!
kein problem dafür ist ein forum ja da, um zu helfen und um gehelft zu werden :engel2:
Mfg Spider
Hallo!
Auf dieser seite weiter unten gibt es den MP3 Tag reader und den MP§ info reader http://www.autoitscript.com/fileman/users/Lazycat/udfs.html Damit kannst du bestimmt was anfangen
Mfg Spider
Korrekt Naja mir viel nix besseres ein.. ausserdem könnte ich ab und zu autoit ausm fenster schmeißen..
Mfg Spider
Nein! davor kommt noch was
Hallo
So hab auch mal eins gemacht
Mfg Spider
Die Lösung: Autoit
Der Lösungsweg: txt datei in zip umgewandelt das mit winrar/winzip öffnen. Da gibts dann 2 dateien einmal passwort.txt die umwandeln in ein jpg und öffnen. Da steht das passwort für diie andere datei, Code.rar. Die datei entpacken und den code benutzen (1987) Dann hat man eine 9b datei wo die lösung drin steht
Die Idee: Gut! Mach sowas mal öfter macht spaß das zu lösen Bzw: nich nur du sondern alle, auch ich
Mfg Spider
Hallo!
Meinst du den Text? Das geht mit WinGetText oder ControlGetText! Gucks dir mal in der Hilfe an
Mfg Spider
Hallo
@meger: du hast von pee den 2. platz bekommen aber nicht in der bewertung von allen..
Ich würde mich pee widerum haupsächlich anschließén
Mfg spider
Hallo
Wenn es jezt genau um diese htmldatei geht, kann man die auch sehr leicht selber bauen, guck ma ob ich am we zeit hab , dann poste ichs mal..
mfg spider
Hallo
Der Fehler lahg in dem Anfang von der Func _Version.. da wurden die variablen nur für die Funktion erstellt und dannach sozusagen wider weggevorfen, da man die ja nicht mehr brauch. Also muss das am anfang des Skriptes sein(ich hab es einfach mal von Dim>Global umgetauft(kommt aber auf das gleiche hinnaus))damit die Variablen für das ganze skript erstellt werden, und nicht nur die die func
MFg spider
Hallo!
So gehtz:
#include <array.au3>
#include <process.au3>
#include <GUIConstants.au3>
Const $DateiName = @TempDir & "\SysInfo.Prt"
Global $cpugen, $cpuat, $cpuraw, $cpu, $mem, $memfreeun, $memtotalun, $memfree, $memtotal, $vide, $vidcard, $monito, $monitor, $soun, $soundcard, $mous, $mouse
Dim $KB = 1024 ;denn 2^10=1024 und nicht 1028 :rofl:
$a = 0
$date = @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr"
$Form1 = GUICreate("Info zum PC - By GtaSpider(Max)&ytwinky", 396, 420, 192, 125)
$cancelbutton = GuiCtrlCreateButton ("Ende",288,390,70,20)
$iniwrite = GuiCtrlCreateButton ("Daten speichern",100,390,100,20)
$Edit1 = GUICtrlCreateEdit ("", 8, 8, 380, 350, $ES_AUTOVSCROLL+$WS_VSCROLL, $WS_EX_CLIENTEDGE)
GUICtrlSetData(-1,StringReplace(_Version(),@LF,@CRLF))
GUISetState(@SW_SHOW)
While 1
$msg = GuiGetMsg()
Select
Case $msg = $iniwrite
IniWrite("Computer.ini", "Allgemein", "Datum", $date)
IniWrite("Computer.ini", "Allgemein", "Computer-Name", @ComputerName)
IniWrite("Computer.ini", "Allgemein", "Benutzer", @UserName)
; IniWrite("Computer.ini", "Hardware", "CPU", $cpu)
IniWrite("Computer.ini", "Hardware", "Mainboard", "")
IniWrite("Computer.ini", "Hardware", "Grafikkarte", $vidcard)
IniWrite("Computer.ini", "Hardware", "Soundkarte", $soundcard)
IniWrite("Computer.ini", "Hardware", "Mouse", $mouse)
IniWrite("Computer.ini", "Hardware", "Arbeitsspeicher", $memtotal & " Frei: " & $memfree)
IniWrite("Computer.ini", "Hardware", "Monitor", $monitor)
IniWrite("Computer.ini", "Hardware", "Auflösung", @DesktopWidth & "x" & @DesktopHeight & "x" & @DesktopDepth)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $cancelbutton
Exit
EndSelect
WEnd
Exit
Func _Version()
;Infos zur CPU auslesen:
$cpugen = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "Identifier")
$cpuat = " @ " & RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz") & "MHz"
$cpuraw = $cpugen & $cpuat
$cpu = StringStripWS($cpuraw, 1)
;Infos zum Arbeitsspeicher:
$mem = MemGetStats()
$memfreeun = Round(($mem[2] / $KB))
$memtotalun = ($mem[1] / $KB)
$memfree = Round($memfreeun, 0) & " MB"
$memtotal = Round($memtotalun, 0) & " MB"
;CurrentControlSet auslesen:
Global $crtset
$crtset = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM", 2)
;Grafikkarte auslesen:
$vide = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000"
$vidcard = RegRead($vide, "DriverDesc")
;Monitor auslesen:
$monito = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}\0002"
$monitor = RegRead($monito, "DriverDesc")
;Soundkarte auslesen:
$string = _zounds("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}")
Dim $subkeystring
$subkeystring = _subkey($string)
$subarray = StringSplit($subkeystring, "|")
$soun = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}" & $subarray[1]
$soundcardone = "Soundkarte: " & RegRead($soun, "DriverDesc")
$sountwo = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}" & $subarray[2]
$soundcardtwo = "Soundkarte: " & RegRead($sountwo, "DriverDesc")
If $soundcardone = $soundcardtwo Then
$soundcard = $soundcardone
EndIf
If $soundcardtwo <> $soundcardone And RegRead($sountwo, "DriverDesc") <> "" Then
$soundcard = $soundcardone & @CRLF & $soundcardtwo
EndIf
If $soundcardtwo <> $soundcardone And RegRead($sountwo, "DriverDesc") = "" Then
$soundcard = $soundcardone
EndIf
;Mouse auslesen:
$mous = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E96F-E325-11CE-BFC1-08002BE10318}\0000"
$mouse = RegRead($mous, "DriverDesc")
$winkey = DecodeProductKey(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductID"))
$winid = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId")
Return "Datum/Zeit:" & @TAB & $date & @LF & @LF & "Hardware:" & @LF & "CPU:" & @TAB & @TAB & $cpu & @LF & "Prozessor Rev.:" & @TAB & _GetRevison() &@LF & "Arbeitsspeicher:" & @TAB & $memtotal & " frei:" & @TAB & $memfree & @LF&"Grafikkarte:" & @TAB & $vidcard & @LF & "Monitor:" & @TAB & @TAB & $monitor & @LF & "Auflösung:" & @TAB & @DesktopWidth & " x " & @DesktopHeight & " x " & @DesktopDepth & @LF & $soundcard & @LF & "Mouse:" & @TAB & @TAB & $mouse & @LF & " " & @LF & "Aktuelles Betriebssystem:" & @LF & "Windows:" & @TAB & @TAB & _OSVersion() & @TAB & @OSBuild & @TAB & @OSServicePack & @LF & "Windows-Typ:" & @TAB & _OSTyp() & @LF & "Seriennummer:" & @TAB & $winkey & @LF & "Produkt-ID:" & @TAB & $winid & @LF & "Sprache:" & @TAB & @TAB & _Language() & @LF & " " & @LF & "Systeminformationen:" & @LF & "Computer-Name:" & @TAB & @ComputerName & @LF & "Aktueller Benutzer:" & @TAB & @UserName & @LF & " " & @LF & "Netzwerkinformationen:" & @LF & "IP-Adresse 1:" & @TAB & @IPAddress1 & @LF & "IP-Adresse 2:" & @TAB & @IPAddress2 & @LF & "IP-Adresse 3:" & @TAB & @IPAddress3 & @LF & "IP-Adresse 4:" & @TAB & @IPAddress4 & @LF & "MAC-Adresse:" & @TAB & _GetMACFromIP(@IPAddress1)
EndFunc ;==>_Version
Func _Language()
Select
Case StringInStr("0413,0813", @OSLang)
Return "Isländisch"
Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,2409,2809,2c09,3009,3409", @OSLang)
Return "Englisch"
Case StringInStr("040c,080c,0c0c,100c,140c,180c", @OSLang)
Return "Französisch"
Case StringInStr("0407,0807,0c07,1007,1407", @OSLang)
Return "Deutsch"
Case StringInStr("0410,0810", @OSLang)
Return "Italienisch"
Case StringInStr("0414,0814", @OSLang)
Return "Norwegisch"
Case StringInStr("0415", @OSLang)
Return "Polnisch"
Case StringInStr("0416,0816", @OSLang)
Return "Portugisisch"
Case StringInStr(" 040a,080a,0c0a,100a,140a,180a,1c0a,200a,240a,280a,2c0a,300a,340a,380a,3c0a,400a,440a,480a,4c0a,500a", @OSLang)
Return "Spanisch"
Case StringInStr("041d,081d", @OSLang)
Return "Schwedisch"
Case Else
Return "Ander Sprache" ;Aussengeländer andere Baustelle nixsprechengud deutsch
EndSelect
EndFunc ;==>_Language
Func _OSVersion()
Dim $W="Windows "
Select
Case @OSVersion == "WIN_2003"
Return $W &"2003"
Case @OSVersion == "WIN_XP"
Return $W &"XP"
Case @OSVersion == "WIN_2000"
Return $W &"2000"
Case @OSVersion == "WIN_NT4"
Return $W &"NT 4"
Case @OSVersion == "WIN_ME"
Return $W &"ME"
Case @OSVersion == "WIN_98"
Return $W &"98"
Case @OSVersion == "WIN_95"
Return $W &"95"
Case Else
Return $W &" für Waschmaschinen"
EndSelect
EndFunc ;==>_OSVersion
Func _OSTyp()
Select
Case @OSTYPE == "WIN32_NT"
Return "Windows NT32"
Case @OSTYPE == "WIN32_WINDOWS"
Return "Windows 32"
EndSelect
EndFunc ;==>_OSTyp
Func _zounds($soundcardkey)
Global $string
$i = 1
While 1
$key = RegEnumKey($soundcardkey, $i)
If @Error = -1 Then ExitLoop
$reg = RegRead($soundcardkey & "" & $key, "SetupPreferredAudioDevicesCount")
If $reg = "0" Then
$reg = "0"
EndIf
If $reg = "" Then
$reg = "-1"
EndIf
$string = $string & $reg & " | "
SetError(1)
$i = $i + 1
WEnd
Return $string
EndFunc ;==>_zounds
Func _subkey($str)
$array = StringSplit($str, "|")
_ArrayDelete($array, 0)
$arrayoriginal = $array
$maxinda = _ArrayMaxIndex($arrayoriginal, 1)
$maxa = $arrayoriginal[$maxinda]
_ArrayDelete($array, $maxinda)
$arrayafter = $array
$maxindb = _ArrayMaxIndex($arrayafter, 1)
$maxb = $arrayafter[$maxindb]
If $maxinda = 0 And $maxa = -1 Then
$subkeyone = "0000"
$subkeytwo = "0000"
Return $subkeyone & "|" & $subkeytwo
EndIf
If $maxindb = 0 And $maxb = -1 Then
If $maxinda < 10 Then
$subkeyone = "000" & $maxinda
$subkeytwo = $subkeyone
EndIf
If $maxinda > 9 Then
$subkeyone = "00" & $maxinda
$subkeytwo = $subkeyone
EndIf
Return $subkeyone & "|" & $subkeytwo
EndIf
If $maxinda < 10 And $maxindb < 9 And $maxinda < $maxindb Then
$subkeyone = "000" & $maxinda
$subkeytwo = "000" & ($maxindb + 1)
EndIf
If $maxinda < 10 And $maxindb < 10 And $maxinda > $maxindb Then
$subkeyone = "000" & $maxinda
$subkeytwo = "000" & $maxindb
EndIf
If $maxinda > 9 And $maxindb > 9 And $maxinda > $maxindb Then
$subkeyone = "00" & $maxinda
$subkeytwo = "00" & $maxindb
EndIf
If $maxinda > 9 And $maxindb > 8 And $maxinda < $maxindb Then
$subkeyone = "00" & $maxinda
$subkeytwo = "00" & ($maxindb + 1)
EndIf
If $maxinda > 9 And $maxindb < 10 And $maxinda > $maxindb Then
$subkeyone = "00" & $maxinda
$subkeytwo = "000" & $maxindb
EndIf
If $maxinda < 10 And $maxindb > 9 And $maxinda < $maxindb Then
$subkeyone = "000" & $maxinda
$subkeytwo = "00" & ($maxindb + 1)
EndIf
Return $subkeyone & "|" & $subkeytwo
EndFunc ;==>_subkey
Func DecodeProductKey($BinaryDPID)
Local $bKey[15], $sKey[29], $Digits[24], $Value = 0, $hi = 0, $n = 0, $i = 0, $dlen = 29, $slen = 15, $Result
$Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "")
$BinaryDPID = StringMid($BinaryDPID, 105, 30)
For $i = 1 To 29 Step 2
$bKey[Int($i / 2) ] = Dec(StringMid($BinaryDPID, $i, 2))
Next
For $i = $dlen - 1 To 0 Step - 1
If Mod(($i + 1), 6) = 0 Then
$sKey[$i] = "-"
Else
$hi = 0
For $n = $slen - 1 To 0 Step - 1
$Value = BitOR(BitShift($hi, -8), $bKey[$n])
$bKey[$n] = Int($Value / 24)
$hi = Mod($Value, 24)
Next
$sKey[$i] = $Digits[$hi + 1]
EndIf
Next
For $i = 0 To 28
$Result = $Result & $sKey[$i]
Next
Return $Result
EndFunc ;==>DecodeProductKey
Func _GetMACFromIP ($sIP)
;By ytwinky
$run=_RunDos(@ComSpec &" /c nbtstat -a " &$sIP &" | Find ""="" >" &$DateiName)
$s=_ReadAll($DateiName)
FileDelete($DateiName)
Return StringMid($s, StringInstr($s, "=")+1)
EndFunc
Func _GetRevison()
;2006 By ytwinky
$run=_RunDos( @ComSpec & " /c echo %PROCESSOR_REVISION% >" &$DateiName)
$run=_ReadAll($DateiName)
FileDelete($DateiName)
Return StringMid($run, 1, StringLen($run)-1)
EndFunc
Func _ReadAll($DateiName)
;2006 By ytwinky
Local $ForReading=0, $Size, $DateiHnd, $Warte=3000
If FileExists($DateiName) Then
$DateiHnd=FileOpen($DateiName, $ForReading)
If $DateiHnd<0 Then
MsgBox(4096, "Ooops:", "Datei " &$DateiName &" läßt sich nicht öffnen..", $Warte)
Exit 1
Else
$Size=FileGetSize($DateiName)
If $Size>0 Then ;da is was drin..
$Size=FileRead($DateiHnd, $Size)
FileClose($DateiHnd)
Return $Size
Else ;da is nix drin
MsgBox(4096, "Ooops:", "Datei " &$DateiName &" ist leer..", $Warte)
Exit 1
EndIf
EndIf
Else
MsgBox(4096, "Ooops:", "Datei " &$DateiName &" nicht gefunden..", $Warte)
Exit 1
EndIf
EndFunc
Alles anzeigen
Hallo.
Ah gut zu wissen. Ich arbeite auch teils mit photoshop, habs aber erst seit ca ne woche und muss mich da noch etwas reinarbeiten, solange ich noch nich so gut bin, benutze ich GIMP
Mfg spider
Hallo.
So sind wir halt
Also bei mir öffnent er Tabs.. welche version hast du vom FF?
Mfg Spider
Hallo.
Du meinst die graphiken? also die jpg dateien? Die sind final glaub ich, warum? Hättest du ein anderen vorschlag?