1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Kizum

Beiträge von Kizum

  • Mittlere von 3 Spalten wird nicht angezeigt

    • Kizum
    • 13. Dezember 2011 um 02:57

    Hab etwas gefummelt :P


    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ComboConstants.au3>
    #include <file.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIConstants.au3>
    #include <ListviewConstants.au3>
    #include <EditConstants.au3>
    #include <StaticConstants.au3>
    #include <ButtonConstants.au3>
    #include <INet.au3>

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

    $Form1 = GUICreate("Lagerverwaltung", 850, 800, 0,0)
    GUISetState(@SW_SHOW)

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

    Global $LAGER[200], $CLICKLAGER[200]

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

    $Combo = GUICtrlCreateCombo("Combo1", 350, 20, 200, 35)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Combo
    LAGERVERWALTUNG()
    EndSwitch
    WEnd

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

    Func LAGERVERWALTUNG()
    For $I = 1 To 3 + 18 * 3 + 64
    Next
    $TEMP1 = GUICtrlCreateLabel(" ", 9, 49, 87, 24)
    GUICtrlSetBkColor(-1, 0)
    $TEMP2 = GUICtrlCreateLabel(" " & ("Lagerort") & ":", 10, 50, 85, 22)
    GUICtrlSetFont(-1, 10, 800)
    GUICtrlSetBkColor(-1, 16777215)
    GUICtrlSetColor(-1, 7807539)
    $TEMP3 = GUICtrlCreateLabel(" ", 289, 49, 87, 24)
    GUICtrlSetBkColor(-1, 0)
    $TEMP4 = GUICtrlCreateLabel(" " & ("Lagerort") & ":", 290, 50, 85, 22)
    GUICtrlSetFont(-1, 10, 800)
    GUICtrlSetBkColor(-1, 16777215)
    GUICtrlSetColor(-1, 7807539)
    $TEMP5 = GUICtrlCreateLabel(" ", 569, 49, 87, 24)
    GUICtrlSetBkColor(-1, 0)
    $TEMP6 = GUICtrlCreateLabel(" " & ("Lagerort") & ":", 570, 50, 85, 22)
    GUICtrlSetFont(-1, 10, 800)
    GUICtrlSetBkColor(-1, 16777215)
    GUICtrlSetColor(-1, 7807539)

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

    $TEMP7 = GUICtrlCreateLabel(" ", 9, 59 + 18, 272, 666 - 17)
    GUICtrlSetBkColor(-1, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $TEMP8 = GUICtrlCreateLabel(" ", 289, 59 + 18, 272, 666 - 17)
    GUICtrlSetBkColor(-1, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $TEMP9 = GUICtrlCreateLabel(" ", 569, 59 + 18, 272, 666 - 17)
    GUICtrlSetBkColor(-1, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Input1 = GUICtrlCreateInput($LAGER,100, 50, 180, 22)
    $Input2 = GUICtrlCreateInput($LAGER,380, 50, 180, 22)
    $Input3 = GUICtrlCreateInput($LAGER,660, 50, 180, 22)
    For $I = 1 To 108
    If $I < 37 Then
    $TEMP7 = GUICtrlCreateLabel(" " & ("Lagerplatz") & " " & $I & ":", 10, 60 + ($I * 18), 99, 17)
    GUICtrlSetFont(-1, 9, 800)
    GUICtrlSetBkColor(-1, 16777215)
    GUICtrlSetColor(-1, 2258739)
    $Input1 = GUICtrlCreateInput($LAGER[$I + 3], 110, 60 + ($I * 18), 170, 18)
    ElseIf $I < 73 Then
    $TEMP8 = GUICtrlCreateLabel(" " & ("Lagerplatz") & " " & $I - 36& ":", 290, 60 + (($I - 36) * 18), 99, 17)
    GUICtrlSetFont(-1, 9, 800)
    GUICtrlSetBkColor(-1, 16777215)
    GUICtrlSetColor(-1, 2258739)
    $Input2 = GUICtrlCreateInput($LAGER[$I + 3], 390, 60 + (($I - 36) * 18), 170, 18)
    ElseIf $I > 37 And $I < 109 Then
    $TEMP9 = GUICtrlCreateLabel(" " & ("Lagerplatz") & " " & $I - 72 & ":", 570, 60 + (($I - 72) * 18), 99, 17)
    GUICtrlSetFont(-1, 9, 800)
    GUICtrlSetBkColor(-1, 16777215)
    GUICtrlSetColor(-1, 2258739)
    $Input3 = GUICtrlCreateInput($LAGER[$I + 3], 670, 60 + (($I - 72) * 18), 170, 18)
    EndIf
    Next
    $TEMP10 = GUICtrlCreateButton("Bankschliessfach", 10, 750, 150, 30)
    EndFunc

    [/autoit]
  • ini-datei wird fehlerhaft beschrieben

    • Kizum
    • 13. Dezember 2011 um 02:18
    [autoit]


    for $i = 0 to UBound($speicher)-1

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

    IniWrite("c:\Programm17\save.ini", $saveNr, $i, $speicher[$i])

    Next

    [/autoit]
  • Programm funktioniert nach dem Compilieren nicht mehr richtig!

    • Kizum
    • 12. Dezember 2011 um 17:36

    Nein geht nicht.

    32.exe funktioniert auf 64Bit System aber nicht umgekehrt.

  • Checksummen von Dateien erstellen

    • Kizum
    • 8. Dezember 2011 um 20:34

    Der Dateiinhalt kann aber auch gleich sein wenn die Dateinamen unterschiedlich sind?

    [123.jpg] [Kopie von 123.jpg] [Kopie von Kopie von 123.jpg]

  • FileOpenDialog auf bestimmte Ordner

    • Kizum
    • 3. Dezember 2011 um 10:34

    Mit _FileListToArray vielleicht

    http://translation.autoit.de/onlinehilfe/li…ListToArray.htm

  • Popup für Script Editor ?

    • Kizum
    • 2. Dezember 2011 um 22:07

    Werf doch mal ein blick auf dieses Projekt

    Wozu das Rad neu erfinden ?

    :)

  • Neue AutoIT Version liest aus SQLite DB die Umlaute nicht mehr korrekt

    • Kizum
    • 2. Dezember 2011 um 18:58

    Versuch doch mal deine Tabellen so zu erstellen.
    Also ohne Datentyp:

    [autoit]


    _SQLite_Startup()

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

    $Op=_SQLite_Open(@ScriptDir & "\Test.db")
    ConsoleWrite("[" & $Op & "]" & @CRLF)
    _SQLite_Exec(-1, "CREATE TABLE Laendertabelle (Name1, Name2);") ; Erzeugt Tabelle

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

    _SQLite_Close()
    _SQLite_Shutdown()

    [/autoit]
  • Winhttp Cookie senden

    • Kizum
    • 23. November 2011 um 19:15

    Würde gerne ein Cookie mitsenden. Aber wie mache ich dass? Probiere schon seit gestern :(
    Habe schon versucht:

    _WinHttpSetOption($hw_open, $WINHTTP_QUERY_SET_COOKIE, "SID=337536d00e25da6071ed1bcc727093be")
    _WinHttpSetOption($hw_open, $WINHTTP_QUERY_COOKIE, "Cookie: SID=337536d00e25da6071ed1bcc727093be")
    usw...

    [autoit]

    #include<WinHTTP.au3>
    Global Const $tagWINHTTP_PROXY_INFO = "DWORD dwAccessType;ptr lpszProxy;ptr lpszProxyBypass;"

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

    Func _WinHttpProxyInfoCreate($dwAccessType, $sProxy, $sProxyBypass)
    Local $tWINHTTP_PROXY_INFO[2] = [DllStructCreate($tagWINHTTP_PROXY_INFO), DllStructCreate('wchar proxychars[' & StringLen($sProxy)+1 & ']; wchar proxybypasschars[' & StringLen($sProxyBypass)+1 & ']')]
    DllStructSetData($tWINHTTP_PROXY_INFO[0], "dwAccessType", $dwAccessType)
    DllStructSetData($tWINHTTP_PROXY_INFO[0], "lpszProxy", DllStructGetPtr($tWINHTTP_PROXY_INFO[1], 'proxychars'))
    DllStructSetData($tWINHTTP_PROXY_INFO[0], "lpszProxyBypass", DllStructGetPtr($tWINHTTP_PROXY_INFO[1], 'proxybypasschars'))
    DllStructSetData($tWINHTTP_PROXY_INFO[1], "proxychars", $sProxy)
    DllStructSetData($tWINHTTP_PROXY_INFO[1], "proxybypasschars", $sProxyBypass)
    Return $tWINHTTP_PROXY_INFO
    EndFunc

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

    $hw_open = _WinHttpOpen("Mozilla")

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

    $tProxyInfo = _WinHttpProxyInfoCreate($WINHTTP_ACCESS_TYPE_NAMED_PROXY, "88.198.96.251:3128", "localhost")
    _WinHttpSetOption($hw_open, $WINHTTP_OPTION_PROXY, $tProxyInfo[0])

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

    $hConnect = _WinHttpConnect($hw_open, "www.google.de")
    $sData = ""
    $sResult = _WinHttpSimpleRequest($hConnect, "GET", "/", $WINHTTP_NO_REFERER, $sData, "Content-Type: application/x-www-form-urlencoded")
    ConsoleWrite($sResult & @CRLF)
    _WinHttpCloseHandle($hConnect)
    _WinHttpCloseHandle($hw_open)

    [/autoit]
  • Kontextmenü dynamisch

    • Kizum
    • 18. November 2011 um 00:09

    Danke für die Mühe, aber leider wird dass wohl so nix. Die anderen Controls sind ein Konflikt und ich bekomme über GuictrlRead immer eine 68...

    Mit der Comboläufts wie es soll nur das nach dem Eintragen die 1. Zeile leer bleibt ?!
    Habe zich Zeilen Code mit 1d & 2d Array´s und wenn ich dann mal was anpassen muss bei dem Kontext, ist Polen offen

  • Kontextmenü dynamisch

    • Kizum
    • 17. November 2011 um 17:06

    Nur Case $test[1] to UBound($test) -1
    auf Case $test[1] to UBound($test) +2

    Dann läufts (erstmal) perfekt.

    Habe den HotkeySet erstellt damit ich die Funktion mehrfach aufrufen kann.

    Danke :)

  • Kontextmenü dynamisch

    • Kizum
    • 17. November 2011 um 14:34

    Ich hab eine Funktion die liest Usernamen aus, variabel zwischen 0 - ca 20
    Nun möchte ich per Kontextmenü einen Usernamen wählen und dieser soll erstmal nur ausgeben werden.
    Nur dass scheint garnicht so einfach zu sein ?(?(
    Erbitte unterstützung :love:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <Array.au3>

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

    HotKeySet("{f1}","CON")

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

    GUICreate("Döner mit alles", 200, 100)
    GUISetState(@SW_SHOW)

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

    Global $contextmenu
    Global $test[1]

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

    Func CON()

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

    GUICtrlDelete($contextmenu)

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

    Sleep(20)

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

    $contextmenu = GUICtrlCreateContextMenu()

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

    $rand = Random(0, 22, 1)
    For $i = 0 to $rand step +1

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

    _ArrayAdd($test, GUICtrlCreateMenuItem("Eintrag-Nr" & $i, $contextmenu))

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

    Next
    _ArrayDisplay($test)
    EndFunc

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

    While 1
    $msg = GUIGetMsg()

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

    Switch $msg
    Case $contextmenu
    ConsoleWrite("Hier soll 'Eintrag-Nr x' Verarbeitet werden" & @CRLF)
    Case $GUI_EVENT_CLOSE
    ExitLoop
    EndSwitch

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

    WEnd

    [/autoit]
  • UDF für login (pincode)

    • Kizum
    • 15. November 2011 um 00:08

    Sowas hier.. läuft aber per USB-Stick den man anschliessen MUSS

    https://autoit.de/index.php?page…32115#post32115

  • UDF für login (pincode)

    • Kizum
    • 14. November 2011 um 23:12

    Ich meine mal was gelesen zu haben aber finden.

    Mit ein Paar Grafiken kann man sich sowas aber auch selbst basteln ...


    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 315, 324, 367, 276)
    $Input1 = GUICtrlCreateInput("Input1", 24, 8, 257, 40)
    $Button1 = GUICtrlCreateButton("Button1", 0, 63, 105, 65)
    $Button2 = GUICtrlCreateButton("Button1", 104, 63, 105, 65)
    $Button3 = GUICtrlCreateButton("Button1", 208, 63, 105, 65)
    $Button4 = GUICtrlCreateButton("Button1", 0, 128, 105, 65)
    $Button5 = GUICtrlCreateButton("Button1", 104, 128, 105, 65)
    $Button6 = GUICtrlCreateButton("Button1", 208, 128, 105, 65)
    $Button7 = GUICtrlCreateButton("Button1", 0, 192, 105, 65)
    $Button8 = GUICtrlCreateButton("Button1", 104, 192, 105, 65)
    $Button9 = GUICtrlCreateButton("Button1", 208, 192, 105, 65)
    $Button10 = GUICtrlCreateButton("Button1", 0, 256, 105, 65)
    $Button11 = GUICtrlCreateButton("Button1", 104, 256, 105, 65)
    $Button12 = GUICtrlCreateButton("Button1", 208, 256, 105, 65)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]
  • Ie Header Auslesen

    • Kizum
    • 14. November 2011 um 20:23

    Mit _IEBodyReadHTML ($oIE) kann man ja den HTML innerhalb des BODY tags wiedergeben.
    Da GZIP aktiviert ist und ich nicht weiss wie man es deaktiviert,
    Muss ich den Response Header lesen.

    Oder den Request Header bearbeiten um klartext zu erhalten....Hat jemand eine Idee ?

    Kurz um, ich möchte an eine SID gelangen. die steht im Header.
    Bzw im Quelltext. der ist aber komprimiert.......... :(:thumbdown:

  • UTF-8 ENCODE DECODE Zeichensatz

    • Kizum
    • 13. November 2011 um 19:30

    Musste ich mir erstellen. Vielleicht braucht es der ein oder andere ja mal.


    Spoiler anzeigen

    Func utf($code)

    Local $Array[196][2]=[['\u0021','!'],['\u0022','""'],['\u0023','#'],['\u0024','$'],['\u0025','%'], _
    ['\u0026','&'],['\u0027',"'"],['\u0028','('],['\u0029',')'],['\u002a','*'],['\u002b','+'], _
    ['\u002c',','],['\u002d','-'],['\u002e','.'],['\u002f','/'],['\u0030','0'],['\u0031','1'], _
    ['\u0032','2'],['\u0033','3'],['\u0034','4'],['\u0035','5'],['\u0036','6'],['\u0037','7'], _
    ['\u0038','8'],['\u0039','9'],['\u003a',':'],['\u003b',';'],['\u003c','<'],['\u003d','='], _
    ['\u003e','>'],['\u003f','?'],['\u0040','@'],['\u0041','a'],['\u0042','b'],['\u0043','c'], _
    ['\u0044','d'],['\u0045','e'],['\u0046','f'],['\u0047','G'],['\u0048','H'],['\u0049','I'], _
    ['\u004a','J'],['\u004b','K'],['\u004c','L'],['\u004d','M'],['\u004e','N'],['\u004f','O'], _
    ['\u0050','P'],['\u0051','Q'],['\u0052','R'],['\u0053','S'],['\u0054','T'],['\u0055','U'], _
    ['\u0056','V'],['\u0057','W'],['\u0058','X'],['\u0059','Y'],['\u005a','Z'],['\u005b','['], _
    ['\u005c','\'],['\u005d','],'],['\u005e','^'],['\u005f','_'],['\u0060','`'],['\u0061','a'], _
    ['\u0062','b'],['\u0063','c'],['\u0064','d'],['\u0065','e'],['\u0066','f'],['\u0067','g'], _
    ['\u0068','h'],['\u0069','i'],['\u006a','j'],['\u006b','k'],['\u006c','l'],['\u006d','m'], _
    ['\u006e','n'],['\u006f','o'],['\u0070','p'],['\u0071','q'],['\u0072','r'],['\u0073','s'], _
    ['\u0074','t'],['\u0075','u'],['\u0076','v'],['\u0077','w'],['\u0078','x'],['\u0079','y'], _
    ['\u007a','z'],['\u007b','{'],['\u007c','|'],['\u007d','}'],['\u007e','~'],['\u00a1','¡'], _
    ['\u00a2','¢'],['\u00a3','£'],['\u00a4','¤'],['\u00a5','¥'],['\u00a6','¦'],['\u00a7','§'], _
    ['\u00a8','¨'],['\u00a9','©'],['\u00aa','ª'],['\u00ab','«'],['\u00ac','¬'],['\u00ae','®'], _
    ['\u00af','¯'],['\u00b0','°'],['\u00b1','±'],['\u00b2','²'],['\u00b3','³'],['\u00b4','´'], _
    ['\u00b5','µ'],['\u00b6','¶'],['\u00b7','·'],['\u00b8','¸'],['\u00b9','¹'],['\u00ba','º'], _
    ['\u00bb','»'],['\u00bc','¼'],['\u00bd','½'],['\u00be','¾'],['\u00bf','¿'],['\u00c0','À'], _
    ['\u00c1','Á'],['\u00c2','Â'],['\u00c3','Ã'],['\u00c4','Ä'],['\u00c5','Å'],['\u00c6','Æ'], _
    ['\u00c7','Ç'],['\u00c8','È'],['\u00c9','É'],['\u00ca','Ê'],['\u00cb','Ë'],['\u00cc','Ì'], _
    ['\u00cd','Í'],['\u00ce','Î'],['\u00cf','Ï'],['\u00d0','Ð'],['\u00d1','Ñ'],['\u00d2','Ò'], _
    ['\u00d3','Ó'],['\u00d4','Ô'],['\u00d5','Õ'],['\u00d6','Ö'],['\u00d7','×'],['\u00d8','Ø'], _
    ['\u00d9','Ù'],['\u00da','Ú'],['\u00db','Û'],['\u00dc','Ü'],['\u00dd','Ý'],['\u00de','Þ'], _
    ['\u00df','ß'],['\u00e0','à'],['\u00e1','á'],['\u00e2','â'],['\u00e3','ã'],['\u00e4','ä'], _
    ['\u00e5','å'],['\u00e6','æ'],['\u00e7','ç'],['\u00e8','è'],['\u00e9','é'],['\u00ea','ê'], _
    ['\u00eb','ë'],['\u00ec','ì'],['\u00ed','í'],['\u00ee','î'],['\u00ef','ï'],['\u00f0','ð'], _
    ['\u00f1','ñ'],['\u00f2','ò'],['\u00f3','ó'],['\u00f4','ô'],['\u00f5','õ'],['\u00f6','ö'], _
    ['\u00f7','÷'],['\u00f8','ø'],['\u00f9','ù'],['\u00fa','ú'],['\u00fb','û'],['\u00fc','ü'], _
    ['\u00fd','ý'],['\u00fe','þ'],['\u00ff','ÿ'],['\r\n',''],['\/','/'],['\"','"'],['%22','"'], _
    ['&quot;','"'],[''',"'"],['&amp;','&'],['max-width:480px','width="50" height="50"']]


    For $i = 0 to UBound($Array) -1

    $code = StringReplace($code, $Array[$i][0], $Array[$i][1])

    Next
    Return $code
    EndFunc

  • Cookies aus Script an IE Objekt weitergeben

    • Kizum
    • 13. November 2011 um 11:35

    Hallo..

    Ich hab ein Loginscripterstellt...mit (_TCP_Send_Request)

    Die erhaltenen Informationen gebe ich in einem IE Objekt -> ObjCreate("Shell.Explorer.2") aus.

    kann ich bei dem IE Objekt nun auch Cookies (SID) setzten die ich mit dem Loginscript erhalten habe ?

    Ich glaube ..aber ich werde es noch probieren das eine weitergabe der SID per URL deaktiviert ist bei dem Host... Edit: ini_set('session.use_trans_sid', 1) ist deaktiviert.

    Danke fürs lesen ;) :rock:

  • Link anklicken -> Funktion aufrufen ?

    • Kizum
    • 17. November 2010 um 10:23

    Kann man in einem IE objekt links erstellen auf die Au3 reagiert zB.

    <a href="#Werner">Schreibe Werner in ein Control</a>

    Ich möchte nur das mit den werten z.B Werner weitergearbeitet wird, der link als sollches ist nicht wichtig


    Hintergrund:

    Ich bekomme im chat die Usernamen und die Message (HTML ) also:

    <b>Werner</b>: Hallo Welt!

    Daraus könnte ich dann auch ein link generieren z.B <a href="#Werner">

    Wenn ich jetzt auf werner klicke möchte ich das der wert (Werner) in ein Input control geschrieben wird

    Ist dies irgendenwie möglich ?

  • TCP Schleife

    • Kizum
    • 6. Oktober 2010 um 17:23

    ja wieso eigentlich nicht...

    Sorry habe keine Konzentration mehr heute

    Und Danke

  • TCP Schleife

    • Kizum
    • 6. Oktober 2010 um 17:11

    Ich hab schon einiges versucht
    es beendet sich nachdem der client sich trennt....

    versuche seit 3 std ..von Au3 zu au3 hat es auch geklappt aber von c++ zu au3 klappts irgendwie nich...

  • TCP Schleife

    • Kizum
    • 6. Oktober 2010 um 16:39

    Nachdem ein Client sich getrennt hat würde ich gerne dass das script sofort wieder auf eine neue verbindung wartet


    [autoit]

    #include <GUIConstantsEx.au3>
    Opt('MustDeclareVars', 1)
    ;==============================================
    ;==============================================
    ; SERVER!! Startet mich zuerst !!!!!!!!!!!!!!!
    ;==============================================
    ;==============================================
    Example()
    Func Example()
    ; Richte einige wiederverwendbare Informationen ein.
    ; Richte deine öffentliche IP Adresse (@IPAddress1) hier ein.
    ; Local $szServerPC = @ComputerName
    ; Local $szIPADDRESS = TCPNameToIP($szServerPC)
    Local $szIPADDRESS = @IPAddress1
    Local $MainSocket, $ConnectedSocket, $szIP_Accepted

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

    Local $nPORT = 33891

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

    Local $msg, $recv
    ; Startet den TCP Service
    ;==============================================
    TCPStartup()
    ; Erstellt einen lauschenden Port.
    ; Benutzt deine IP Adresse und den Port 33891. (Oben angegeben)
    ;==============================================
    $MainSocket = TCPListen($szIPADDRESS, $nPORT)
    ; Wenn die Socketerstellung fehl schlägt, dann wird das Programm beendet.
    If $MainSocket = -1 Then Exit

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

    ; Erstellt eine GUI für Messages.
    ;==============================================

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

    ; Initialisiert eine Variable um eine Verbindung anzugeben
    ;==============================================
    $ConnectedSocket = -1

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

    ; Wartet auf und akzeptiert eine Verbindung
    ;==============================================
    Do
    $ConnectedSocket = TCPAccept($MainSocket)
    Until $ConnectedSocket <> -1

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

    ; Bekommt die IP des verbundenen Clients
    $szIP_Accepted = SocketToIP($ConnectedSocket)
    ; GUI Message Schleife
    ;==============================================
    While 1
    $msg = GUIGetMsg()
    ; GUI beendet
    ;--------------------
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    ; Versucht Daten zu empfangen, bis zu 2048 bytes
    ;----------------------------------------------------------------
    $recv = TCPRecv($ConnectedSocket, 2048)
    ; Wenn der Empfang mit @error fehlschlägt, dann hat sich der Socket getrennt.
    ;----------------------------------------------------------------
    If @error Then ExitLoop
    ; Aktualisiert das Input-Control mit dem, was wir empfangen haben.
    ;----------------------------------------------------------------
    If $recv <> "" Then ConsoleWrite($recv & @CRLF)
    WEnd

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

    If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)
    TCPShutdown()
    EndFunc ;==>Example

    [/autoit]

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™