Beiträge von funkey

  • µit - März

    Hallo Sudoku-Spezialisten.
    Ich hatte zwar auch angefangen, ein Sudoku-Löseprogramm zu schreiben, aber mich hat ziemlich früh die Lust verlassen, das ganze auch zu beenden, sorry.
    Somit stelle ich hier mein Skript rein, wie ich es schon am 21.03. bereits hatte. Ohne direkte Schnittstelle für den Benchmark, aber mit grafischer Oberfläche.
    Mein Skript löst einfache Sudokus, kann aber kein Backtracking.

    Gratulation an alle, die länger bei der Sache geblieben sind, und ihre Skripte extrem verfeinert haben. :thumbup: Ihr seid super! :thumbup:

  • Label transparent über Child-Gui ?

    Hallo ;)

    Gibt es eine Möglichkeit das Titel-Label im folgenden Skript transparent über die Child-Gui zu legen?

    Spoiler anzeigen
    [autoit]

    #Include <Color.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Opt('PixelCoordMode', 0)
    Opt("GUIOnEventMode", 1)

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

    Const $WS_EX_COMPOSITED = 0x2000000
    Global $title = "Funkey's Moving Transition ;-)"
    Global $hGui = GUICreate($title, 400, 500, -1, -1, BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_COMPOSITED)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

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

    GUICtrlCreateButton('0', 348, 2, 16, 16, 0x0800) ; _
    GUICtrlSetOnEvent(-1, '_Minimize')
    GUICtrlSetTip(-1, 'Minimieren')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

    GUICtrlCreateButton('1', 364, 2, 16, 16, 0x0800) ;
    GUICtrlSetOnEvent(-1, '_Maximize')
    GUICtrlSetTip(-1, 'Maximieren')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    GUICtrlCreateButton('r', 382, 2, 16, 16, 0x0800) ; x
    GUICtrlSetOnEvent(-1, '_Exit')
    GUICtrlSetTip(-1, 'Schließen')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

    GUICtrlCreateLabel(" " & $title, 20, 2, 200, 16, 0x4000200, 0x00100000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetFont(-1, 9.8, 400, 0, 'MS Sans Serif')

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

    Global $hChild = GUICreate('Child', 1600, 20, 0, 0, $WS_CHILD, -1, $hGui)
    Global $Ctrl_Grafik = _CreateColorTransition(0, 0, 1600, 20, 0xFF0000, 0xFFFF00, 1, 4)
    GUISetState()
    GUISwitch($hGUI)
    GUISetState()

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

    AdlibEnable('_RotateCaption', 50)

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

    While 1
    Sleep(10000)
    WEnd

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

    Func _RotateCaption()
    Local $aPosC = WinGetPos($hChild), $aPosG = WinGetPos($hGui)
    If $aPosC[0] - $aPosG[0] <= -800 Then
    WinMove($hChild, '', -5, 0)
    Else
    WinMove($hChild, '', $aPosC[0] - $aPosG[0] - 5, 0)
    EndIf
    EndFunc

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

    Func _Minimize()
    GUISetState(@SW_MINIMIZE)
    EndFunc

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

    Func _Maximize()
    GUISetState(@SW_MAXIMIZE)
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

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

    Func _CreateColorTransition($iPosx, $iPosy, $iWidth, $iHeight, $nColorStart, $nColorEnd, $iAlignment = 0, $iWaveFaktor = 1)
    ; funkey
    Local $startRot, $startGruen, $startBlau, $endRot, $endGruen, $endBlau, $Color
    Local $ColorOffsetRot, $ColorOffsetGruen, $ColorOffsetBlau, $Grafik
    $startRot = _ColorGetRed($nColorStart)
    $startGruen = _ColorGetGreen($nColorStart)
    $startBlau = _ColorGetBlue($nColorStart)
    $endRot = _ColorGetRed($nColorEnd)
    $endGruen = _ColorGetGreen($nColorEnd)
    $endBlau = _ColorGetBlue($nColorEnd)
    $Grafik = GUICtrlCreateGraphic($iPosx, $iPosy, $iWidth, $iHeight, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $iHeight += $iWaveFaktor - Mod($iHeight, $iWaveFaktor)
    Switch $iAlignment
    Case 0
    $ColorOffsetRot = ($endRot - $startRot) / ($iHeight / $iWaveFaktor)
    $ColorOffsetGruen = ($endGruen - $startGruen) / ($iHeight / $iWaveFaktor)
    $ColorOffsetBlau = ($endBlau - $startBlau) / ($iHeight / $iWaveFaktor)
    Switch Mod($iWaveFaktor, 2)
    Case 0
    For $w = 1 To $iWaveFaktor - 1 Step 2
    For $i = ($w - 1) * ($iHeight / $iWaveFaktor) To ($w) * ($iHeight / $iWaveFaktor) - 1
    $Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1 - (($w - 1) * $iHeight / $iWaveFaktor)), 2) & _
    Hex($startGruen + $ColorOffsetGruen * ($i + 1 - (($w - 1) * $iHeight / $iWaveFaktor)), 2) & _
    Hex($startBlau + $ColorOffsetBlau * ($i + 1 - (($w - 1) * $iHeight / $iWaveFaktor)), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
    Next
    For $i = $w * ($iHeight / $iWaveFaktor) To ($w + 1) * ($iHeight / $iWaveFaktor) - 1
    $Color = '0x' & Hex($endRot - $ColorOffsetRot * ($i - ($w * $iHeight / $iWaveFaktor) + 1), 2) & _
    Hex($endGruen - $ColorOffsetGruen * ($i - ($w * $iHeight / $iWaveFaktor) + 1), 2) & _
    Hex($endBlau - $ColorOffsetBlau * ($i - ($w * $iHeight / $iWaveFaktor) + 1), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
    Next
    Next
    Case 1
    For $i = 0 To $iHeight - 1
    $Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1), 2) & _
    Hex($startGruen + $ColorOffsetGruen * ($i + 1), 2) & _
    Hex($startBlau + $ColorOffsetBlau * ($i + 1), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
    Next
    EndSwitch
    Case Else
    $ColorOffsetRot = ($endRot - $startRot) / ($iWidth / $iWaveFaktor)
    $ColorOffsetGruen = ($endGruen - $startGruen) / ($iWidth / $iWaveFaktor)
    $ColorOffsetBlau = ($endBlau - $startBlau) / ($iWidth / $iWaveFaktor)
    Switch Mod($iWaveFaktor, 2)
    Case 0
    For $w = 1 To $iWaveFaktor - 1 Step 2
    For $i = ($w - 1) * ($iWidth / $iWaveFaktor) To ($w) * ($iWidth / $iWaveFaktor) - 1
    $Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1 - (($w - 1) * $iWidth / $iWaveFaktor)), 2) & _
    Hex($startGruen + $ColorOffsetGruen * ($i + 1 - (($w - 1) * $iWidth / $iWaveFaktor)), 2) & _
    Hex($startBlau + $ColorOffsetBlau * ($i + 1 - (($w - 1) * $iWidth / $iWaveFaktor)), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $i, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $i, $iHeight)
    Next
    For $i = $w * ($iWidth / $iWaveFaktor) To ($w + 1) * ($iWidth / $iWaveFaktor) - 1
    $Color = '0x' & Hex($endRot - $ColorOffsetRot * ($i - ($w * $iWidth / $iWaveFaktor) + 1), 2) & _
    Hex($endGruen - $ColorOffsetGruen * ($i - ($w * $iWidth / $iWaveFaktor) + 1), 2) & _
    Hex($endBlau - $ColorOffsetBlau * ($i - ($w * $iWidth / $iWaveFaktor) + 1), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $i, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $i, $iHeight)
    Next
    Next
    Case 1
    For $i = 0 To $iHeight - 1
    $Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1), 2) & _
    Hex($startGruen + $ColorOffsetGruen * ($i + 1), 2) & _
    Hex($startBlau + $ColorOffsetBlau * ($i + 1), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
    Next
    EndSwitch
    EndSwitch
    Return $Grafik
    EndFunc ;==>_CreateColorTransition

    [/autoit]

  • Problem mit 2D Array

    Zitat von Hilfe

    Die Anzahl der zurückgegebenen Elemente steht in $result[0][0]. Wenn ein @error auftaucht, wird kein Array erstellt.
    Nur die ersten 32767 Zeichen werden aufgrund der Win9x-Kompatibilität in einer Sektion berücksichtigt.

    demnach:

    [autoit]

    MsgBox(0,"", $var[0][0])

    [/autoit]

    Übrigens Ubound schreibt man mit weichem 'd' ;)

  • MsgBoxEx Problem

    Spoiler anzeigen
    [autoit]

    #include <GuiConstantsEx.au3>
    #include <EditConstants.au3>
    #include <WindowsConstants.au3>
    _MsgBoxEx("Test", "Hallo", 1, "OK|OK2")

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

    Func _MsgBoxEx($Title, $Text, $Buttons = 1, $Buttons_Names = "OK", $Color = 0xCCCCCC)
    If Not IsNumber($Buttons) Then
    SetError(@error, 2)
    Return 0
    EndIf
    $GUI_MSGBOX = GUICreate($Title, ($Buttons * 100) + 100, 100)
    GUISetState()
    GUISetBkColor($Color)
    $Buttons_Splitted = StringSplit($Buttons_Names, "|")
    $PosButts = 0
    Dim $Buttons_Create[$Buttons_Splitted[0] + 1]
    For $i = 1 To UBound($Buttons_Splitted, 1) - 1
    $Buttons_Create[$i] = GUICtrlCreateButton($Buttons_Splitted[$i], $PosButts, 100 - 25, 100)
    $PosButts = $PosButts + 100
    Next
    $Edit = GUICtrlCreateEdit($Text, 0, 0, ($Buttons * 100) + 98, 70, $ES_READONLY + $WS_VSCROLL)
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    SetError(@error, 1)
    Return 0
    For $i = 1 To UBound($Buttons_Create, 1) - 1
    Select
    Case $msg = $Buttons_Create[$i]
    GUIDelete($GUI_MSGBOX)
    Return 1
    EndSelect
    Next
    EndSelect
    WEnd
    EndFunc ;==>_MsgBoxEx

    [/autoit]

  • Es ist vorbei...

    Hallo anno2008, du vertrittst ganz und gar meine Meinung.

    Mich stören Threads nach der Art 'Was tun wir gegen das Bot-Problem' fast noch mehr als die eigentlichen Bot-Threads. Einfach schließen und die Sache hat sich, da braucht nicht lange hin und her diskutiert werden.

    BTW: Ich habe es ganze 4 Monate lang geschafft mir jeden Post reinzuziehen, aber damach ging's einfach nicht mehr. Deswegen ja auch mein Skript um das gesamte Forum als gelesen zu markieren. ;)

  • Zeitformat

    Und jetzt wieder StringFormat und in eine Funktion gepackt dann haben wir die kürzeste Lösung ;)

    [autoit]

    $str = "4/2/2009 8:3 AM"
    MsgBox(4160, '', "Datum & Uhrzeit: " & _timeconvert($str))

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

    Func _timeconvert($sDate)
    Local $aDate = StringRegExp($sDate, '(\d{1,2})/(\d{1,2})/(\d{4}) (\d{1,2}):(\d{1,2}) ([AP]M)', 3)
    Return StringFormat('%002i', $aDate[1]) & '.' & StringFormat('%002i', $aDate[0]) & '.' & $aDate[2] & _
    ' ' & StringFormat('%002i', $aDate[3]) & ':' & StringFormat('%002i', $aDate[4])
    EndFunc ;==>_timeconvert

    [/autoit]

  • Zeitformat

    Ich hätte StringFormat verwendet:

    Spoiler anzeigen
    [autoit]

    $str = "4/2/2009 8:3 AM"
    MsgBox(4160, '', "Datum & Uhrzeit: " & _timeconvert($str))

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

    Func _timeconvert($data)
    $a_str = StringSplit($str, " ")
    $d_str = StringSplit($a_str[1], "/")
    $z_str = StringSplit($a_str[2], ":")
    If $a_str[3] = "PM" Then $z_str[1] += 12
    $str = StringFormat('%002i', $d_str[2]) & "." & StringFormat('%002i', $d_str[1]) & "." & $d_str[3] & _
    " " & StringFormat('%002i', $z_str[1]) & ":" & StringFormat('%002i', $z_str[2])
    Return ($str)
    EndFunc ;==>_timeconvert

    [/autoit]

  • Windows Style

    So gehts bei mir.

    Spoiler anzeigen
    [autoit]

    ;~ ShellExecute(@WindowsDir &'\Resources\Themes\Luna.theme') ;XP-Style
    ShellExecute(@WindowsDir &'\Resources\Themes\Windows Classic.theme') ;2000er-Style

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

    WinWait('Eigenschaften von Anzeige')
    ControlClick('Eigenschaften von Anzeige', '', 'Button3')

    [/autoit]

  • Old-Style programmieren

    Gibt es eine Möglichkeit, dass die Buttons keinen Fokus erhalten?
    Kann man das Icon transparent zeichnen?

    Jam00: Das Maximiert-Symbol in Marlett ist 2 und nicht _.
    Da marlett.ttf im Explorer versteckt ist hilft das vllt.

    [autoit]

    ShellExecute(@WindowsDir &'\Fonts\marlett.ttf')

    [/autoit]

  • Old-Style programmieren

    Danke Jam00, damit stimmt das Resizing für die Buttons schon mal. Den Button-Text müsste man dann noch umschalten auf das Maximiert-Symbol. Beim Titel stimmts auch noch nicht ganz.

    @progandy:
    1. Das sieht ganz bestimmt nicht wie richtiges 2000-Feeling aus
    2. Es geht mir ums Prinzip
    3. Das kenne ich natürlich schon ziemlich lange

  • Old-Style programmieren

    Nur mal aus Interesse.
    Ich hab mir eine GUI mit 2000er-Style erstellt.
    Habt ihr Vorschläge wie man das verbessern kann? So dass zum Beispiel das Icon in der Titelleiste transparent wird, oder dass die Buttons zum Schliesen nicht markiert werden können, oder dass das Maximieren (Resizing) richtig funktioniert.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $title = "Funkey's Old-Style-Gui"

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

    Opt("GUIOnEventMode", 1)
    ;~ GUICreate($title, 400, 600, -1, -1, BitOR(-1, $WS_DLGFRAME)) ;zum Vergleich mit 2. Titelleiste
    GUICreate($title, 400, 600, -1, -1, BitOR($WS_POPUP, $WS_DLGFRAME)) ;ohne Original-Titelleiste
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

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

    GUICtrlCreateIcon("shell32.dll", 42, 2, 2, 16, 16, 0x0200)

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

    GUICtrlCreateButton('0', 348, 2, 16, 16, 0x0800)
    GUICtrlSetOnEvent(-1, '_Minimize')
    GUICtrlSetTip(-1, 'Minimieren')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

    GUICtrlCreateButton('1', 364, 2, 16, 16, 0x0800) ;
    GUICtrlSetOnEvent(-1, '_Maximize')
    GUICtrlSetTip(-1, 'Maximieren')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    GUICtrlCreateButton('r', 382, 2, 16, 16, 0x0800) ; x
    GUICtrlSetOnEvent(-1, '_Exit')
    GUICtrlSetTip(-1, 'Schließen')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

    GUICtrlCreateLabel(" " & $title, 0, 0, 400, 20, 0x4000200, 0x00100000)
    GUICtrlSetBkColor(-1, 0x08246B)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetFont(-1, -1, 553)

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

    GUISetState()

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

    While 1
    Sleep(10000)
    WEnd

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

    Func _Minimize()
    GUISetState(@SW_MINIMIZE)
    EndFunc ;==>_Minimize

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

    Func _Maximize()
    GUISetState(@SW_MAXIMIZE)
    EndFunc ;==>_Maximize

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]

  • Autoit.de Spoiler-Reader V2.4

    Hallo AutoBert, bei diesem Skript gibt es noch einiges zu verbessern, aber im Normalfall funktioniert es sehr gut. Ich verwende es täglich und habe damit wenig Probleme (wahrscheinlich weil ich die Schwächen des Skripts kenne). Ich werde hoffentlich in naher Zukunft Zeit finden und das ganze Skript ein wenig zu überarbeiten. Dann könnte ich auch eine Zwischenablage-Überwachung einbauen, womit das Tab-Problem am besten in den Griff zu bekommen ist.

  • Was ist hier falsch? ( TCP )

    Hab mir deinen Code nicht angesehen, aber hier mal ein paar Fehlercodes

    Spoiler anzeigen

    Socketfehler: Diese Liste erhebt keinen Anspruch auf Vollständigkeit
    Name Code Bedeutung

    WSAEINTR 10004 Aufruf wurde abgebrochen
    WSAEBADF 10009
    WSAEACCES 10013 Zugriffsfehler
    WSAEFAULT 10014 Parameter sind falsch
    WSAEINVAL 10022 1. Andere Funktion muß vorher aufgerufen werden
    2. Socket ist schon an Adresse gebunden
    3. Socket noch nicht an Adresse gebunden bzw. schon verbunden
    WSAEMFILE 10024 Resourcen fehlen (Dateien, Warteschlangen)
    WSAEWOULDBLOCK 10035 Aufruf würde blockieren
    WSAEINPROGRESS 10036 Parallele Aufrufe nicht erlaubt
    WSAEALREADY 10037 Abgebrochene Routine trotzdem schon fertig
    WSAENOTSOCK 10038 Kein gültiger Socket angegeben
    WSAEDESTADDRREQ 10039 Zieladresse benötigt
    WSAEMSGSIZE 10040 Datagram zu groß, wurde abgeschnitten
    WSAEPROTOTYPE 10041
    WSAENOPROTOOPT 10042 Unbekannte Socket-Option
    WSAEPROTONOSUPPORT 10043 Protokoll wird nicht unterstützt
    WSAESOCKTNOSUPPORT 10044 Sockettyp wird in angegebener Adressfamilie nicht unterstützt
    WSAEOPNOTSUPP 10045 Dieser Sockettyp wird nicht unterstützt
    WSAEPFNOSUPPORT 10046 Protokollfamilie wird nicht unterstützt
    WSAEAFNOSUPPORT 10047 Adressfamilie wird nicht unterstützt
    WSAEADDRINUSE 10048 IP-Adresse bzw. Port werden schon/noch benutzt
    WSAEADDRNOTAVAIL 10049 Port/Adresse nicht verfügbar
    WSAENETDOWN 10050 Netzwerk reagiert nicht
    WSAENETUNREACH 10051 Netzwerk kann nicht erreicht werden
    WSAENETRESET 10052 Verbindung durch TCP/IP zurückgesetzt
    WSAECONNABORTED 10053 Verbindung durch TCP/IP abgebrochen
    WSAECONNRESET 10054 Partner hat Verbindung zurückgesetzt
    WSAENOBUFS 10055 Resourcen fehlen (Interner Pufferspeicher)
    WSAEISCONN 10056 Socket ist schon verbunden
    WSAENOTCONN 10057 Socket ist noch nicht verbunden
    WSAESHUTDOWN 10058 Andere Seite hat Verbindung einseitig beendet
    WSAETOOMANYREFS 10059
    WSAETIMEDOUT 10060 Aufruf dauert zu lange, daher Abbruch
    WSAECONNREFUSED 10061 Angerufener möchte keinen Verbindungsaufbau
    WSAELOOP 10062
    WSAENAMETOOLONG 10063
    WSAEHOSTDOWN 10064
    WSAEHOSTUNREACH 10065 Host nicht erreicbar
    WSAENOTEMPTY 10066
    WSAEPROCLIM 10067
    WSAEUSERS 10068
    WSAEDQUOT 10069
    WSAESTALE 10070
    WSAEREMOTE 10071
    WSASYSNOTREADY 10091 Netzwerk nicht zur Kommunikation bereit
    WSAVERNOTSUPPORTED 10092 gewünschte Winsock-Version wird nicht unterstützt
    WSANOTINITIALISED 10093 Socket.Initialize muß aufgerufen werden
    WSAHOST_NOT_FOUND 11001 DNS-Server nicht gefunden
    WSATRY_AGAIN 11002 Gesuchter Rechner nicht gefunden
    WSANO_RECOVERY 11003 Nicht behebbarer Fehler
    WSANO_DATA 11004 Keine Namensdaten vorhanden
    WSANO_ADDRESS 11004

    Ich hoffe, das sind die richtigen ;)