Normalerweise sollte man bei Bugmeldungen ja mit der aktuellen Version testen. 
Ich habe das mal getan und der "Fehler" triit auch dort auf. Der Fehler liegt daran, dass Du im Listview-Header nichts eingetragen hast.
Wenn Du den Header leer lassen willst, solltest Du min. ein Leerzeichen in die letzte Spalte eintragen:
GUICtrlCreateListView("|| ",...)
[/autoit]Wollte das gerade mal starten. Resultat:
!>00:01:21 AutoIT3.exe ended.rc:-1073741819
Liegt vielleicht an Win7, 64 Bit?!
Unter WinXP, 32 Bit funktioniert es! 
Dann muss man alle Spalten dieser Zeile einlesen. Das geht so:
#include <Array.au3>
#include <Excel.au3>
$oExcel = _ExcelBookOpen(@ScriptDir & '\Mappe1.xls')
$aArray = _ExcelReadSheetToArray($oExcel)
_ExcelBookClose($oExcel)
$aSearch = StringSplit(FileRead(@ScriptDir & '\Ort.txt'), @CRLF, 1)
If $aSearch[0] = 1 And $aSearch[1] = '' Then Exit MsgBox(0, '', 'Kein Suchwort gefunden!')
For $row = 1 To $aArray[0][0]
For $i = 1 To $aSearch[0]
If $aSearch[$i] = $aArray[$row][2] Then
$out = ''
For $col = 1 To $aArray[0][1]
$out &= $aArray[$row][$col] & ', '
Next
MsgBox(0, '', $out)
EndIf
Next
Next
FileReadLine ist ziemlich langsam, ich würd's so machen:
[autoit]
$aData = StringSplit(FileRead(@ScriptDir & '\data.txt'), @CRLF, 1)
For $i = 1 To $aData[0]
If StringInStr($aData[$i], 'PC1-') Then MsgBox(0,0,StringRegExpReplace($aData[$i], '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}),.+', '$1'))
Next
So geht's:
#include <Array.au3>
#include <Excel.au3>
$oExcel = _ExcelBookOpen(@ScriptDir & '\Mappe1.xls')
$aArray = _ExcelReadSheetToArray($oExcel)
_ExcelBookClose($oExcel)
$aSearch = StringSplit(FileRead(@ScriptDir & '\Ort.txt'), @CRLF, 1)
If $aSearch[0] = 1 And $aSearch[1] = '' Then Exit MsgBox(0, '', 'Kein Suchwort gefunden!')
For $row = 1 To $aArray[0][0]
For $i = 1 To $aSearch[0]
If $aSearch[$i] = $aArray[$row][2] Then MsgBox(0, '', 'Name = ' & $aArray[$row][1] & @CRLF & 'Alter = ' & $aArray[$row][3])
Next
Next
In "Ort.txt" dürfen auch mehrere Orte (durch @crlf getrennt) stehen.
So:
[autoit]
$string = '192.168.0.11, PC1-053042118071, 00215c1d0be1, PC, DHCP, , Domain, '
If StringInStr($string, 'PC1-') Then MsgBox(0,0,StringRegExpReplace($string, '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}),.+', '$1'))
Wenn Du jeweils eine Beispieldatei (txt und Excel) postest, dann schreib ich Dir das Script.
Du darfst den GUIOnEvent-Mode und den GUIGetMsg-Mode nicht gleichzeitig benutzen!
Entscheide Dich für einen von beiden.
Was ist denn an einem Edit problematisch?
Beispiel:
$hGui = GUICreate('Console', 400, 600)
$hList = GUICtrlCreateEdit('', 5, 5, 390, 590)
GUISetState()
$sString = InetRead('http://www.autoitscript.com/autoit3/docs/history.htm')
$sString = BinaryToString($sString)
GUICtrlSetData($hList, $sString)
Do
Until GUIGetMsg() = -3
Edit: Achso, das Limit beim Edit. Kann man einfach höher setzen:
$hGui = GUICreate('Console', 400, 600)
$hList = GUICtrlCreateEdit('', 5, 5, 390, 590)
GUICtrlSetLimit(-1, 2^30)
GUISetState()
$sString = InetRead('http://www.autoitscript.com/autoit3/docs/history.htm')
$sString = BinaryToString($sString)
For $i = 0 To 99
GUICtrlSetData($hList, $sString, 1)
Next
Do
Until GUIGetMsg() = -3
Dein Script enthält ein paar Fehler:
1. Der Mai hat 31 Tage (Zeile 10)
2. Der August hat ebenfalls 31 Tage (Zeile 13)
3. Du füllst die Progressbar des Tages mit den Stundendaten (Zeile 53)
4. die Progressbar der Stunden mit den Minutendaten (Zeile 54)
5. und die Progressbar der Minuten mit den Sekundendaten (Zeile 55)
Und Deine Konstanten solltest Du nicht runden, sondern besser das Rechenergebnis.
Eine Port-Weiterleitung geschieht ja auf eine bestimmte, lokale IP-Adresse, also musst Du nur dafür sorgen, dass Dein Laptop immer die gleiche lokale IP-Adresse bekommt (von Router 1 und von Router 2, egal wo er sich anmeldet).
Das kann man beim Router meistens einstellen, zum Beispiel anhand der MAC-Adresse. Der Rest sollte dann funktionieren, wenn das Netzwerk korrekt installiert ist.
Version 1.2 (26.01.2010)
In "Hilfe & Unterstützung" hatten wir ja gerade das Thema mit der Fußball-Stopuhr. Ich habe mein Script noch etwas erweitert.
- Man kann jetzt die Spielzeit auswählen (2x45, 2x30, 2x15, 2x12 oder 2x10 Minuten)
- Wenn die reguläre Spielzeit noch nicht vorbei ist und man auf den Pause- bzw. den Ende-Button klickt, fragt das Programm zur Sicherheit nach.
- Auch beim beenden fragt das Programm nach, damit man es nicht aus Versehen beendet.
- Ich benutze jetzt die _Timer-Funktion, weil damit die Zeit auch dann weiterläuft, wenn das Fenster bewegt oder eine MsgBox angezeigt wird.
Screenshot:
Script, Icons und Exe sind im ZIP-Archiv (Anhang).
In der deutschen Hilfe ist das noch nicht enthalten, da diese UDF erst in der letzten AutoIt-Version eingeführt wurde.
Dokumentiert ist die UDF aber in der englischen Hilfe ("UDFs3.chm").
Ist doch mit der neuen AutoIt-Version ganz einfach:
[autoit]
#include <Crypt.au3>
$md5 = _Crypt_HashFile('test.exe', $CALG_MD5)
MsgBox(0, 0, $md5)
Ich hatte auch gerade mal Lust dazu so eine Uhr zu schreiben. Hier also meine Version:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Stadion-Uhr.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Stadion-Uhr
#AutoIt3Wrapper_Res_Fileversion=1.1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=by Oscar (http://www.autoit.de)
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
Opt('GUIOnEventMode', 1)
Global $sStatus = 'Start', $iTimer, $iTimerPause
[/autoit] [autoit][/autoit] [autoit]$hGui = GUICreate('Stadion-Uhr v1.1 ' & Chr(169) & ' by Oscar (http://www.autoit.de)', 640, 430, -1, -1, Default, 0x02000000)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
GUISetBkColor(0xFFFFCC)
GUISetIcon('shell32.dll', 21)
$sDate = @MDAY & '.' & @MON & '.' & @YEAR
$hDate = GUICtrlCreateLabel($sDate, 500, 10, 130, 25, $SS_RIGHT)
GUICtrlSetFont(-1, 16, 800, 0, 'Tahoma')
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$hTime = GUICtrlCreateLabel(@HOUR & ':' & @MIN & ':' & @SEC, 150, 30, 340, 80, $SS_CENTER)
GUICtrlSetFont(-1, 52, 800, 0, 'Tahoma')
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel('1. Halbzeit', 10, 130, 200, 30, $SS_CENTER)
GUICtrlSetFont(-1, 20, 800, 0, 'Tahoma')
GUICtrlSetColor(-1, 0x0066AA)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$h1stHalf = GUICtrlCreateLabel('00:00', 10, 160, 200, 50, $SS_CENTER)
GUICtrlSetFont(-1, 28, 800, 0, 'Tahoma')
GUICtrlSetColor(-1, 0xAAAAAA)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$hAddTime1 = GUICtrlCreateLabel('00:00', 10, 210, 200, 25, $SS_CENTER)
GUICtrlSetFont(-1, 16, 800, 0, 'Tahoma')
GUICtrlSetColor(-1, 0xFF2222)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel('Pause', 215, 130, 200, 30, $SS_CENTER)
GUICtrlSetFont(-1, 20, 800, 0, 'Tahoma')
GUICtrlSetColor(-1, 0x0066AA)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$hPause = GUICtrlCreateLabel('00:00', 215, 160, 200, 50, $SS_CENTER)
GUICtrlSetFont(-1, 28, 800, 0, 'Tahoma')
GUICtrlSetColor(-1, 0xAAAAAA)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel('2. Halbzeit', 430, 130, 200, 30, $SS_CENTER)
GUICtrlSetColor(-1, 0x0066AA)
GUICtrlSetFont(-1, 20, 800, 0, 'Tahoma')
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$h2ndHalf = GUICtrlCreateLabel('00:00', 430, 160, 200, 50, $SS_CENTER)
GUICtrlSetFont(-1, 28, 800, 0, 'Tahoma')
GUICtrlSetColor(-1, 0xAAAAAA)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$hAddTime2 = GUICtrlCreateLabel('00:00', 430, 210, 200, 25, $SS_CENTER)
GUICtrlSetFont(-1, 16, 800, 0, 'Tahoma')
GUICtrlSetColor(-1, 0xFF2222)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel('Gesamt-Spielzeit', 190, 250, 260, 30, $SS_CENTER)
GUICtrlSetColor(-1, 0x0066AA)
GUICtrlSetFont(-1, 20, 800, 0, 'Tahoma')
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$hAll = GUICtrlCreateLabel('00:00', 190, 280, 260, 60, $SS_CENTER)
GUICtrlSetFont(-1, 36, 800, 0, 'Tahoma')
GUICtrlSetColor(-1, 0xAAAAAA)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$hStart = GUICtrlCreateButton('Starte' & @CRLF & '1. Halbzeit', 205, 360, 235, 60, $BS_MULTILINE)
GUICtrlSetFont(-1, 16, 800, 0, 'Arial')
GUICtrlSetOnEvent(-1, '_Startbutton')
GUISetState()
AdlibRegister('_ShowDisplay', 200)
While Sleep(20)
WEnd
Func _End()
AdlibUnRegister('_ShowDisplay')
Exit
EndFunc ;==>_End
Func _Startbutton()
Switch $sStatus
Case 'Start'
GUICtrlSetColor($h1stHalf, 0x222222)
GUICtrlSetColor($hAll, 0x222222)
$iTimer = TimerInit()
$sStatus = 'Pause'
GUICtrlSetData($hStart, 'Halbzeit' & @CRLF & 'Pause')
_ShowDisplay()
Case 'Pause'
GUICtrlSetColor($h1stHalf, 0xAAAAAA)
GUICtrlSetColor($hAddTime1, 0xFFAAAA)
GUICtrlSetColor($hPause, 0x222222)
$iTimerPause = TimerInit()
GUICtrlSetData($hStart, 'Starte' & @CRLF & '2. Halbzeit')
$sStatus = '2nd'
_ShowDisplay()
Case '2nd'
GUICtrlSetColor($h2ndHalf, 0x222222)
GUICtrlSetColor($hPause, 0xAAAAAA)
GUICtrlSetData($hStart, 'Spiel' & @CRLF & 'beenden')
$iTimer = TimerInit()
$sStatus = 'End'
_ShowDisplay()
Case 'End'
GUICtrlSetColor($h1stHalf, 0xAAAAAA)
GUICtrlSetColor($h2ndHalf, 0xAAAAAA)
GUICtrlSetColor($hAddTime2, 0xFFAAAA)
GUICtrlSetData($hStart, 'Anzeige' & @CRLF & 'zurücksetzen')
$sStatus = 'Reset'
Case 'Reset'
GUICtrlSetState($hAddTime1, $GUI_HIDE)
GUICtrlSetState($hAddTime2, $GUI_HIDE)
GUICtrlSetColor($hAddTime1, 0xFF2222)
GUICtrlSetColor($hAddTime2, 0xFF2222)
GUICtrlSetData($h1stHalf, '00:00')
GUICtrlSetData($h2ndHalf, '00:00')
GUICtrlSetData($hPause, '00:00')
GUICtrlSetData($hAll, '00:00')
GUICtrlSetColor($hAll, 0xAAAAAA)
GUICtrlSetData($hStart, 'Starte' & @CRLF & '1. Halbzeit')
$sStatus = 'Start'
EndSwitch
EndFunc ;==>_Startbutton
Func _ShowDisplay()
Local $iTmp
Switch $sStatus
Case 'Pause'
$iTmp = TimerDiff($iTimer)
GUICtrlSetData($h1stHalf, _MyTicksToTime($iTmp))
GUICtrlSetData($hAll, _MyTicksToTime($iTmp))
If $iTmp > 2700000 Then
GUICtrlSetState($hAddTime1, $GUI_SHOW)
GUICtrlSetData($hAddTime1, _MyTicksToTime($iTmp - 2700000))
EndIf
Case '2nd'
GUICtrlSetData($hPause, _MyTicksToTime(TimerDiff($iTimerPause)))
Case 'End'
$iTmp = TimerDiff($iTimer)
GUICtrlSetData($h2ndHalf, _MyTicksToTime($iTmp))
GUICtrlSetData($hAll, _MyTicksToTime($iTmp + 2700000))
If $iTmp > 2700000 Then
GUICtrlSetState($hAddTime2, $GUI_SHOW)
GUICtrlSetData($hAddTime2, _MyTicksToTime($iTmp - 2700000))
EndIf
EndSwitch
GUICtrlSetData($hTime, @HOUR & ':' & @MIN & ':' & @SEC)
If @MDAY & '.' & @MON & '.' & @YEAR <> $sDate Then
$sDate = @MDAY & '.' & @MON & '.' & @YEAR
GUICtrlSetData($hDate, $sDate)
EndIf
EndFunc ;==>_ShowDisplay
Func _MyTicksToTime($iTicks)
Local $iHours, $iMins, $iSecs = Int($iTicks / 1000)
$iMins = Int($iSecs / 60)
$iSecs = Mod($iSecs, 60)
Return StringFormat('%02i:%02i', $iMins, $iSecs)
EndFunc ;==>_MyTicksToTime
Edit: Jetzt auch mit Anzeige der Pausenzeit.
Hier mal eine Laufschrift mit Hilfe von GDI+:
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
Opt('GUIOnEventMode', 1)
_GDIPlus_Startup()
$sString = 'Dieser Text scrollt als Laufschrift über das Fenster und wird immer wieder wiederholt.'
$iWidth = 800 ; Fensterbreite
$iHeight = 600 ; Fensterhöhe
$iColor = 0xFF4444DD ; Vordergrundfarbe im Format: ARGB
$iBkColor = 0xFFFFFFFF ; Hintergrundfarbe im Format: ARGB
$iTextYPos = 320 ; Y-Position der Laufschrift
$iTextXPos = $iWidth + 1 ; X-Position wird erstmal festgelegt auf außerhalb des Fensters
$sFont = 'Times New Roman' ; Font der Laufschrift
$iSize = 20 ; Fontgröße der Laufschrift
$hGui = GUICreate('GDI+ Laufschrift', $iWidth, $iHeight)
GUISetBkColor($iBkColor)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
GUISetState()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
_GDIPlus_GraphicsSetSmoothingMode($hGraphics, 2)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics)
$hBackBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
$hBrush1 = _GDIPlus_BrushCreateSolid($iColor)
$hBrush2 = _GDIPlus_BrushCreateSolid($iBkColor)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate($sFont)
$hFont = _GDIPlus_FontCreate($hFamily, $iSize, 1, 3)
_GDIPlus_GraphicsClear($hBackBuffer, $iBkColor)
$tLayout = _GDIPlus_RectFCreate($iTextXPos, $iTextYPos, $iWidth, $iHeight)
$aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sString, $hFont, $tLayout, $hFormat)
$iStringWidth = Int($iWidth / $aInfo[1]) * ($aInfo[1] * $aInfo[2])
AdlibRegister('_DrawMarquee', 10)
While Sleep(10)
WEnd
Func _DrawMarquee()
Local $tLayout, $aInfo
_GDIPlus_GraphicsFillRect($hBackBuffer, 0, $iTextYPos, $iWidth, $iSize * 2, $hBrush2)
$tLayout = _GDIPlus_RectFCreate($iTextXPos, $iTextYPos, $iStringWidth, $iHeight)
$aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sString, $hFont, $tLayout, $hFormat)
_GDIPlus_GraphicsDrawStringEx($hBackBuffer, $sString, $hFont, $aInfo[0], $hFormat, $hBrush1)
_GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iWidth, $iHeight)
$iTextXPos -= 1
If $iTextXPos = -$iStringWidth Then $iTextXPos = $iWidth
EndFunc ;==>_DrawMarquee
Func _End()
AdlibUnRegister('_DrawMarquee')
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_BrushDispose($hBrush1)
_GDIPlus_BrushDispose($hBrush2)
_GDIPlus_GraphicsDispose($hBackBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_End
Z.B: Heisst es nun "der GUI" oder "das GUI"? etc. etc. etc.
Wieso "der" oder "das"?
Ich schreibe immer die GUI, wegen "Graphical User Interface" = "Grafische Benutzeroberfläche".
Wikipedia sieht das übrigens auch so: GUI
Raupi : Das Prozentzeichen sollte nur als Kennzeichnung für die Binärzahl stehen. Das man weiß, es handelt sich nicht um eine Dezimalzahl.
Naja, es geht auch ganz ohne Includes:
MsgBox(0,0,_Int2Dual(6789))
Func _Int2Dual($iInteger)
Local $sDual
For $i = 30 To 0 Step -1
$sDual &= Number(BitAND($iInteger, 2^$i) = 2^$i)
Next
Return StringRegExpReplace($sDual, '\A0*([10]*)', '%$1')
EndFunc
Und hier noch ein StringReqExpReplace:
[autoit]
$string = "C:\Windows\System32\winrm\0407\"
$split = StringRegExpReplace($string & '\', '(.+\\).+\\+', '$1')
MsgBox(0, "", $split)
