Beiträge von Nachid

  • IE Submit

    Was auch sehr geil ist ist z.B. ein Java-Script als adresse einzutippen
    das dann auf der lokalen seite den button drückt. Funktioniert relativ gut.
    (wenn ich mich nicht irre geht das so

    [autoit]

    javascript:alert("test");

    [/autoit]

    und das einfach als neue adresse posten ;)

  • Chat - Server

    Dafür hab ich ein 2tes testscript :D

    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.1
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    TCPStartup()
    $main = TCPConnect("192.168.0.100",33981)

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

    While 1
    $rec = TCPRecv($main,64)
    If @error Then Exit(1)
    If $rec <> "" Then MsgBox(0,"Reciever",$rec)
    WEnd

    [/autoit]

  • Chat - Server

    Gut, (ich hab das heute schon das 2te mal geschrieben, 1x auf nem anderen rechner deswegen dahct ich ich hab die zeile drin)

    mal das beiseite is der Client nur n Testclient....

    Versuch da mal was hinzuschicken, trotzdem müsste doch Case Else
    die Nachricht an alle wieder zurückverteilen oder ?

    //Edit hab ne zeile fürn nick eingefüt
    //Edit 2
    geht imer noch nicht, kannste das mal schnell für mich verbessern -.-
    -.- der renamer war einfacher

  • "Autostart"

    Du kannst "versteckte" einträge in der system.ini setzen
    genauso wie windows batch datein zu "erweitern" oder
    in der reg HKLM\Sotware\Microsoft\Windows\CurrentVersion\Polices
    einen Schlüssel erstellen der sogar vor msconfig unsichtbar ist
    o.ä.^^ Dich an svhost.exe "ranhooken" bzw deine Daten
    in einen Hidden NTFS stream schreiben :DD

  • Chat - Server

    Huhu

    Problem :
    Chat sockets werden in array geschrieben
    Benutzernamen nicht x_X

    komplettes restliches select funktioniert auch nicht ?

    Hier mal der Code des servers

    [autoit]


    ;Server by Nachid
    #include
    $ip = IniRead("config.ini","Config","IP","X")
    $port = IniRead("config.ini","Config","Port","X")
    $max = IniRead("config.ini","Config","Max","100")
    If $ip="X" Or $port="X" Then Exit(1)
    TCPStartup()
    $main = TCPListen($ip,$port,$max)
    Dim $socket[1]
    Dim $nickaname[1]
    $blocked = IniReadSection("config.ini","Blocked")
    waitconnect()

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

    Func waitconnect()
    While 1
    $grabconnection = TCPAccept($main)
    If $grabconnection>=0 Then
    _ArrayAdd($socket,$grabconnection)
    _ArrayAdd($nickaname,"")
    _ArrayDisplay($socket)
    _ArrayDisplay($nickaname)
    EndIf
    For $i=1 To UBound($socket)-1
    $rcv= TCPRecv($main,2048)
    Select
    Case $rcv<>"" And $nickaname[$i]=""
    ConsoleWrite("Register nickname"&@CRLF)
    For $x=1 To UBound($nickaname,1)-1
    If $nickaname[$x]=$rcv Then
    TSend("Name nicht zugelassen.",$socket[$i])
    TSend("Name per /name ändern",$socket[$i])
    $socket[$i]=""
    $nickaname[$i]=""
    TCPCloseSocket($socket[$i])
    EndIf
    Next
    For $x=1 To UBound($blocked,1)
    If StringInStr($rcv,$blocked[$x][1]) Then
    TSend("Name nicht zugelassen.",$socket[$i])
    TSend("Name per /name ändern",$socket[$i])
    TCPCloseSocket($socket[$i])
    $socket[$i]=""
    $nickaname[$i]=""
    EndIf
    Next
    If Not $socket[$i]="" Then $nickaname[$i]=$rcv

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

    Case StringTrimLeft($rcv,3)="/w "
    ConsoleWrite("Whisper"&@CRLF)
    $to = StringSplit($rcv," ")
    $rest = ""
    For $x=1 To UBound($to,1)-2
    $rest = $rest&$to[$x]
    Next
    $to = $to[2]
    For $x=1 To UBound($nickaname,1)-1
    If $nickaname[$x]=$to Then
    TSend($rest,$socket[$x])
    TSend($rest,$socket[$i])
    EndIf
    Next
    Case Else
    If $rcv<>"" Then
    ConsoleWrite("Send to all"&@CRLF)
    TSend($rcv)
    EndIf
    EndSelect
    Next
    WEnd
    EndFunc

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

    Func TSend($var,$ssocket = Default)
    If $ssocket = Default Then
    For $i=1 To UBound($socket,1)-1
    If $socket[$i]<>"" Then
    TCPSend($socket[$i],$var)
    ConsoleWrite("Socket : "&$socket[$i]&@CRLF)
    ConsoleWrite("Nick : "&$nickaname[$i]&@CRLF)
    EndIf
    Next
    Else
    TCPSend($ssocket,$var)
    ConsoleWrite("Socket : "&$ssocket&@CRLF)
    ConsoleWrite("Nick : "&$var&@CRLF)
    EndIf
    EndFunc

    [/autoit]

    Und hier ne kleine Test au3

    [autoit]

    ;Server by Nachid

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

    TCPStartup()
    $main = TCPConnect("192.168.0.100",33981)
    If @error Then _
    MsgBox(4112, "Fehler", "TCP-Connect schlug mit folgendem WSA-Fehler fehl: " & @error)
    While 1
    TCPSend($main,"Das ist ein Test")
    If @error Then Exit(1)
    WEnd

    [/autoit]


    Wär richtig geil wenn mir jmd helfen könnte^^