Beiträge von Buphx

Buphx

so sieht es bei mir bei Skype aus: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Buphx

L3viathan: was ist sempervideo?
Bei mir sieht das so aus: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

schickt das mal jemandem per Skype in Skype wird es auch als .jpg angezeigt...

Buphx

Das ist dabei raus gekommen: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
ich weis nicht ob es bei Vista functionier... aber bei Xp nicht.

wenn ihr die Datei entpack sollte sie eine .jpg endung haben(es ist aber eine Exe) sie zeigt nur eine

Spoiler anzeigen

[autoit]

MsgBox(16,"Error", "Du hast eine Sicherheislücke!!!"&@crlf&"Wenn du dachtest dies hier währe eine Bild-Datei." &@CRLF &"Wenn ich dich hätte hacken wollen währe dein Pc jetzt Infiziert!")

[/autoit]

ich habe in den DAtei namen ein RTLO "Right to left order" (U+202E)eingebaut alles was nach dem zeichen kommt wird andersherum angezeigt so wandert exe nach hinten

Beispiel: sexy_h[RTLO]gpj.exe -->sexy_hexe.jpg (soeinfach kann mandie endung verstecken)

testet es einfach mal

mfg

Buphx

Buphx

Also wenn ich das heir starte ist meine Function die schnellste...

Spoiler anzeigen

[autoit]

$timeinsgesammt =''
$Forschleifebis = 2^31-1
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Meine Funktion: "&Round($timeinsgesammt / $a, 3) & @CRLF)

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

$timeinsgesammt =''
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert1($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Kombination von Methode 1 und 3 mit kleinen Optimierungen: "&Round($timeinsgesammt / $a, 3) & @CRLF)

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

$timeinsgesammt =''
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert2($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("von BugFix: "&Round($timeinsgesammt / $a, 3) & @CRLF)

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

$timeinsgesammt =''
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert3($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Ausgedachte Methode 1: "&Round($timeinsgesammt / $a, 3) & @CRLF)

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

$timeinsgesammt =''
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert4($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Subtraktionsmethode: "&Round($timeinsgesammt / $a, 3) & @CRLF)

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

$timeinsgesammt =''
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert5($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Divisionsmethode: "&Round($timeinsgesammt / $a, 3) & @CRLF)

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

While 1

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

WEnd
Func convert($quelle)
$bin = Hex($quelle)
$aBin = StringSplit($bin, "")
local $return = ""
For $i = 1 To 8 Step +1
Switch $aBin[$i]
Case "0"
$return &= "0000"
Case "1"
$return &= "0001"
Case "2"
$return &= "0010"
Case "3"
$return &= "0011"
Case "4"
$return &= "0100"
Case "5"
$return &= "0101"
Case "6"
$return &= "0110"
Case "7"
$return &= "0111"
Case "8"
$return &= "1000"
Case "9"
$return &= "1001"
Case "A"
$return &= "1010"
Case "B"
$return &= "1011"
Case "C"
$return &= "1100"
Case "D"
$return &= "1101"
Case "E"
$return &= "1110"
Case "F"
$return &= "1111"
EndSwitch
Next
Return $return
EndFunc ;==>convert1

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

Func convert1($iD) ; Kombination von Methode 1 und 3 mit kleinen Optimierungen
Local $sR
If $iD < 65536 Then
While Not $iD = 0
$iD /= 2
If IsInt($iD) Then
$sR = '0' & $sR
Else
$sR = '1' & $sR
$iD -= 0.5
EndIf
WEnd
If Not $sR Then Return '0'
Return $sR
Else
Local $sH = Hex($iD)
Local Static $aB[16] = ['0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111']
While StringLeft($sH, 1) = '0'
$sH = StringTrimLeft($sH, 1)
WEnd
For $i = 1 To StringLen($sH) Step 1
$sR &= $aB[Int('0x' & StringMid($sH, $i, 1))]
Next
While StringLeft($sR, 1) = '0'
$sR = StringTrimLeft($sR, 1)
WEnd
If Not $sR Then Return '0'
Return $sR
EndIf
EndFunc ;==>_DecToBin_4

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

Func Convert2($Value); von BugFix
Local $bin
Do
$bin = Mod($Value, 2) & $bin
$Value = Int($Value / 2)
Until $Value = 0
Return $bin
EndFunc ;==>_IntToBin

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

Func Convert3($iDec) ; Ausgedachte Methode 1
Local $sHex = Hex($iDec), $sRet, $aBin[16] = ['0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111']
While StringLeft($sHex, 1) = '0'
$sHex = StringTrimLeft($sHex, 1)
WEnd
For $i = 1 To StringLen($sHex) Step 1
$sRet &= $aBin[Int('0x' & StringMid($sHex, $i, 1))]
Next
While StringLeft($sRet, 1) = '0'
$sRet = StringTrimLeft($sRet, 1)
WEnd
If Not $sRet Then Return '0'
Return $sRet
EndFunc ;==>_DecToBin_3

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

Func convert4($iDec) ; Subtraktionsmethode
Local $sRet
$iDec += 1
For $i = Ceiling(Log($iDec) / Log(2)) To 0 Step -1
If $iDec - 2 ^ $i > 0 Then
$sRet &= '1'
$iDec -= 2 ^ $i
Else
If $sRet Then $sRet &= '0'
EndIf
Next
If Not $sRet Then Return '0'
Return $sRet
EndFunc ;==>_DecToBin_2

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

Func convert5($iDec) ; Divisionsmethode
Local $sRet
While Not $iDec = 0
$iDec /= 2
If IsInt($iDec) Then
$sRet = '0' & $sRet
Else
$sRet = '1' & $sRet
$iDec -= 0.5 ; Ohne den Rest gehts weiter
EndIf
WEnd
If Not $sRet Then Return '0'
Return $sRet
EndFunc ;==>_DecToBin_1

[/autoit]

Buphx

was helste du von der Funktion?

[autoit]

Func _IntToBin($Value); von BugFix
$bin = ''
Do
$bin = Mod($Value, 2) & $bin
$Value = Floor($Value / 2)
Until $Value = 0
Return $bin
EndFunc ;==>_IntToBin

[/autoit]

musst testn wie schnell die ist!

Buphx

Mach doch wenn openport immer 552 ist oben einfach ein

[autoit]

Global Const $OpenPort = 552

[/autoit]

Dann kann sie sich garnich ändern, und wenn du sie ändern willst dann kommt ein error und du weist in welcher dein $openport verändert wird/werden soll !

Buphx

Ich hatte das problem das ich einen Functionsparameter machen wollte wie z.b beim

[autoit]

FileOpen() ; 2. Parameter

[/autoit]

also z.b

[autoit]

FileOpen($file,1+16)

[/autoit]

öffnet die datei im Writemode und im Binarymode.

also hab ich es so gemacht:

Spoiler anzeigen

[autoit]

#include <array.au3>
bsp1(1 + 2 + 16)
bsp2(1 + 2 +

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

Func bsp1($int)

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

ConsoleWrite(@CRLF & @CRLF & "#### Beispiel 1 ###"&@CRLF)

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

$aOptions = Split_To_Options($int)
If _ArraySearch($aOptions, 1) <> -1 Then _Func1()
If _ArraySearch($aOptions, 2) <> -1 Then _Func2()
If _ArraySearch($aOptions, 4) <> -1 Then _Func4()
If _ArraySearch($aOptions, <> -1 Then _Func8()
If _ArraySearch($aOptions, 16) <> -1 Then _Func16()
EndFunc ;==>bsp1

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

Func bsp2($int)

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

ConsoleWrite(@CRLF & @CRLF & "#### Beispiel 2 ###"&@CRLF)
$aOptions = Split_To_Options($int)
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 1 Then
ConsoleWrite(1 & "<-- war enthalten!" & @CRLF)
EndIf
Next
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 2 Then
ConsoleWrite(2 & "<-- war enthalten!" & @CRLF)
EndIf
Next
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 4 Then
ConsoleWrite(4 & "<-- war enthalten!" & @CRLF)
EndIf
Next
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 8 Then
ConsoleWrite(8 & "<-- war enthalten!" & @CRLF)
EndIf
Next
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 16 Then
ConsoleWrite(16 & "<-- war enthalten!" & @CRLF)
EndIf
Next

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

EndFunc ;==>bsp2

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

Func Split_To_Options($zahl)
$aBin = StringSplit(_IntToBin($zahl), "")
Dim $aOptions[1], $a
For $i = UBound($aBin) - 1 To 1 Step -1
$a += 1
If $aBin[$i] = 1 Then _ArrayAdd($aOptions, 2 ^ $a / 2)
;~ ConsoleWrite("$aBin[" & $i & "]= " & $aBin[$i] & @CRLF) ;Debug
Next
Return $aOptions
EndFunc ;==>Split_Int_To_Options

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

Func _IntToBin($Value); von BugFix
$bin = ''
Do
$bin = Mod($Value, 2) & $bin
$Value = Floor($Value / 2)
Until $Value = 0
Return $bin
EndFunc ;==>_IntToBin

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

Func _func1()
ConsoleWrite("die Funktion Nr. 1 wurde aufgerufen"&@crlf)
EndFunc ;==>_func1
Func _func2()
ConsoleWrite("die Funktion Nr. 2 wurde aufgerufen"&@crlf)
EndFunc ;==>_func2
Func _func4()
ConsoleWrite("die Funktion Nr. 4 wurde aufgerufen"&@crlf)
EndFunc ;==>_func4
Func _func8()
ConsoleWrite("die Funktion Nr. 8 wurde aufgerufen"&@crlf)
EndFunc ;==>_func8
Func _func16()
ConsoleWrite("die Funktion Nr. 16 wurde aufgerufen"&@crlf)
EndFunc ;==>_func16

[/autoit]

Vieleicht braucht das ja jemand
Wenn ja viel spaß damit!

P.S.:(ist warscheinlcih umständlich gescriptet)

Buphx

ich finde den Titel lustig das gucken sich viele an

es wird zusehr menschlich bis gorilla hier mal Kopf + Oberkörper

naja könntet ihr mich bei Skype adden? Clyfff

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

p.s. schaut mal hier vorbei Projektverwaltung Flutch

Buphx

ich nutze Blende 2.59 <-- den neuen
ok könntet ihr mir zuschicken was ihr bereits habt.
ich hab das problem das meiner fast zu goriller artig wird

Buphx

Hey leute,
ich würde gern bei euch mitarbeiten,ich setze mich mal anden roten Flutch (stark,groß):-P
meine Skypeaddy Clyfff
ich bin mal gespann was bei Flutch raus komme

Buphx

denkt dran das du auch den Include ordner mitliefern solltest bzw die datein die du über

[autoit]

#include

[/autoit]

einfügst
denke auch drann das viele includes noch andere sachen includen.

bin mir nicht sicher ob der Pfad zum include ordner in der registri steht oder einfach ../include/ ist

mfg
Buphx

Buphx

Juhu 18 h downloaden mit meiner 1000er leitung

Buphx

Happy Birthday

ps noch 12 tage dann bin ich 16

Buphx

@ eukalyptus super aber wenn mann die schricft noch mittig nicht linksbündig machen könnte währe es perfekt!!!

Buphx

Dann muss i9ch aber alle 3 Tage neuinstalieren weil ich keinen Serial-key hab

Buphx

Also ich möchte nach meinem Abo erstmal ne Ausbildung machen.
Fachinformatiker für Anwedungsentwicklung
Später dann Informatik studieren

Ich hoffe mal das ich dann nen Job finde

kurze frage:

ist Programierer Freiberuflich oder Gewerbe (also muss man gewerbesteuer zahlen?)
Software einrichten ist gewerbe aber sie zu schreiben glaube ich nicht
weis dass jemand?

mfg Buphx

Buphx

Hey Leute ich hab man nen UDP-chat geschrieben.
hab leider keine 2 pcs darum kann ich nicht fertigschreiben.
brauche nämlich 2 ips
immoment noch über 2 ports geregelt
wer lust hat, da mal ein paar variablen zuvertauschen

ich würds selber tun kanns aber nicht testen
hier die scripte:

Spoiler anzeigen

Server:

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
#include <arraymore.au3>

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

;### Einstellungen ###
$Ip = "127.0.0.1"
$port = 80

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

;### Einleitung ###
ConsoleWrite("Multichat Copyright 2011 Buphx" & @CRLF & @CRLF)
ConsoleWrite("Einstellungen:" & @CRLF _
& "Ip: " & $Ip & @CRLF _
& "Port: " & $port & @CRLF)
HotKeySet("{esc}", "end")
UDPStartup()
$bind = UDPBind($Ip, $port) ;socket erstellen
Global $empf, $online

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

While 1
While $empf = ""
$empf = UDPRecv($bind, 2048)
WEnd
If StringInStr($empf, "Offline||") Then
_setOffline(StringReplace($empf, "Offline||", ""))
$empf = ""
ElseIf StringInStr($empf, "Online||") Then
_setOnline(StringReplace($empf, "Online||", ""))
$empf = ""
ElseIf StringInStr($empf, "Refresh||") Then
_ONsendlist(StringReplace($empf, "Refresh||", ""))
$empf = ""
Else
$aEmpf = StringSplit($empf, "|")
$empf = ""
_ArrayDelete($aEmpf, 0)
ConsoleWrite($aEmpf[0] & " --> " & $aEmpf[1] & ": " & $aEmpf[3] & @CRLF)
$send = UDPOpen("127.0.0.1", $aEmpf[2])
UDPSend($send, $aEmpf[0] & ": " & $aEmpf[3])
UDPCloseSocket($send)
EndIf
WEnd

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

Func end()
Exit
EndFunc ;==>end

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

Func _setOffline($Ip)
ConsoleWrite($Ip & " --> Offline" & @CRLF)
StringReplace($online, $Ip & "|", "")
EndFunc ;==>_setOffline

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

Func _setOnline($Ip)
ConsoleWrite($Ip & " --> Online" & @CRLF)
$online &= $Ip & "|"
EndFunc ;==>_setOnline

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

Func _ONsendlist($IPuPORT)
$aIPuPORT=StringSplit($IPuPORT,":")
ConsoleWrite($aIPuPORT[1] & ': "Refresh"' & @CRLF)
$sendlist = UDPOpen($aIPuPORT[1], $aIPuPORT[2])
UDPSend($sendlist, "Refresh||" & $online)
UDPCloseSocket($sendlist)
EndFunc ;==>_ONsendlist

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

Spoiler anzeigen

client1

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <array.au3>
OnAutoItExitRegister("exitfunc")

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

;### Gui ###
$Form1 = GUICreate("client1", 621, 444, 190, 161)
$Msgs = GUICtrlCreateEdit("", 16, 8, 433, 345,$ES_READONLY)
$Senden = GUICtrlCreateButton("Senden", 464, 368, 145, 65)
$Text = GUICtrlCreateEdit("", 16, 368, 433, 65, $ES_MULTILINE)
$List1 = GUICtrlCreateList("", 464, 8, 145, 310)
GUICtrlSetLimit($List1, 1000)
$Refresh = GUICtrlCreateButton("Refresh", 464, 320, 145, 30)
GUISetState(@SW_SHOW)

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

;### einstellungen ###
Global $serverport = 80, $serverip = "127.0.0.1", $myip = "127.0.0.1", $dsip = "127.0.0.1", $dsport = 82, $myport = 81

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

UDPStartup()
_online() ; Beim Server anmelden und die Onlineliste abfragen

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Senden ;Button "senden"
_Send($serverip, $serverport, $myip, $dsip, $dsport, GUICtrlRead($Text))
GUICtrlSetData($Text, "")
Case $Refresh
_NeedRefresh()
EndSwitch
$empf = ""
$empf = UDPRecv($bind, 2048)
If StringInStr($empf, "Refresh||") Then
_refreshlist(StringReplace($empf, "Refresh||", ""))
ElseIf $empf <> "" Then
GUICtrlSetData($Msgs, GUICtrlRead($Msgs) & @CRLF & @HOUR&":"&@MIN&":"&@SEC&" "& $empf)
EndIf
WEnd

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

Func _send($servip, $servport, $ip, $dsip, $dsport, $Text = "testmail")
$open = UDPOpen($servip, $servport)
$status = UDPSend($open, $dsip & "|" & $ip & "|" & $dsport & "|" & $Text)
UDPCloseSocket($open)
ConsoleWrite($status)
EndFunc ;==>_send

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

Func exitfunc()
$offline = UDPOpen($serverip, $serverport)
UDPSend($offline, "Offline||127.0.0.1")
UDPCloseSocket($bind)
UDPCloseSocket($offline)
UDPShutdown()
EndFunc ;==>exitfunc

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

Func _refreshlist($ips)
$ips = StringSplit($ips, "|")
GUICtrlSetData($List1, "")
For $i = 1 To $ips[0] - 1
GUICtrlSetData($List1, $ips[$i] & "|")
Next
EndFunc ;==>_refreshlist

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

Func _NeedRefresh()
$Need = UDPOpen($serverip, $serverport)
UDPSend($Need, "Refresh||127.0.0.1:" & $myport)
UDPCloseSocket($Need)
ConsoleWrite("refresh")
EndFunc ;==>_NeedRefresh

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

Func _online()
Global $bind = UDPBind("127.0.0.1", $myport)
$online = UDPOpen($serverip, $serverport)
UDPSend($online, "Online||127.0.0.1")
_NeedRefresh()
EndFunc ;==>_online

[/autoit]

Spoiler anzeigen

Client2

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <array.au3>
OnAutoItExitRegister("exitfunc")

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

;### Gui ###
$Form1 = GUICreate("client1", 621, 444, 190, 161)
$Msgs = GUICtrlCreateEdit("", 16, 8, 433, 345,$ES_READONLY)
$Senden = GUICtrlCreateButton("Senden", 464, 368, 145, 65)
$Text = GUICtrlCreateEdit("", 16, 368, 433, 65, $ES_MULTILINE)
$List1 = GUICtrlCreateList("", 464, 8, 145, 310)
GUICtrlSetLimit($List1, 1000)
$Refresh = GUICtrlCreateButton("Refresh", 464, 320, 145, 30)
GUISetState(@SW_SHOW)

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

;### einstellungen ###
Global $serverport = 80, $serverip = "127.0.0.1", $myip = "127.0.0.1", $dsip = "127.0.0.1", $dsport = 81, $myport = 82

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

UDPStartup()
_online() ; Beim Server anmelden und die Onlineliste abfragen

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Senden ;Button "senden"
_Send($serverip, $serverport, $myip, $dsip, $dsport, GUICtrlRead($Text))
GUICtrlSetData($Text, "")
Case $Refresh
_NeedRefresh()
EndSwitch
$empf = ""
$empf = UDPRecv($bind, 2048)
If StringInStr($empf, "Refresh||") Then
_refreshlist(StringReplace($empf, "Refresh||", ""))
ElseIf $empf <> "" Then
GUICtrlSetData($Msgs, GUICtrlRead($Msgs) & @CRLF & @HOUR&":"&@MIN&":"&@SEC&" "& $empf)
EndIf
WEnd

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

Func _send($servip, $servport, $ip, $dsip, $dsport, $Text = "testmail")
$open = UDPOpen($servip, $servport)
$status = UDPSend($open, $dsip & "|" & $ip & "|" & $dsport & "|" & $Text)
UDPCloseSocket($open)
ConsoleWrite($status)
EndFunc ;==>_send

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

Func exitfunc()
$offline = UDPOpen($serverip, $serverport)
UDPSend($offline, "Offline||127.0.0.1")
UDPCloseSocket($bind)
UDPCloseSocket($offline)
UDPShutdown()
EndFunc ;==>exitfunc

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

Func _refreshlist($ips)
$ips = StringSplit($ips, "|")
GUICtrlSetData($List1, "")
For $i = 1 To $ips[0] - 1
GUICtrlSetData($List1, $ips[$i] & "|")
Next
EndFunc ;==>_refreshlist

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

Func _NeedRefresh()
$Need = UDPOpen($serverip, $serverport)
UDPSend($Need, "Refresh||127.0.0.1:" & $myport)
UDPCloseSocket($Need)
ConsoleWrite("refresh")
EndFunc ;==>_NeedRefresh

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

Func _online()
Global $bind = UDPBind("127.0.0.1", $myport)
$online = UDPOpen($serverip, $serverport)
UDPSend($online, "Online||127.0.0.1")
_NeedRefresh()
EndFunc ;==>_online

[/autoit]

(der unterschied Client 1&2 sind die ports in reihe 20)

mfg

Buphx

Buphx

DFPWare: Hey, ich will auch mit Asm anfangen
benutze Nasm, aber ne andere version lad ich mir gerne Runter. würde es gerne mit dir zusammenlernen fals du interesse hast
mfg Buphx

Skype: clyfff

freue mich wenn du dich meldest

Buphx

angebot interesiert mich
doch eine Frage:
ist der Ram ddr2 oder dd3

mfg buphx

ps: ist vom handy geschrieben

Buphx

Meistens oder nie alles.Ich beutze öfters über 4gb große datein und mein arbeisspeicher verbrauch liegt mit Win7 und nen paar kleinen spielen nur bei 2gb auslasstung

also mit Fielread... Fileopen jeden falls nicht

Beiträge von Buphx

Leute hab mal nen bisschen mit unicode rumgespielt und hab eine Sicherheitslücke in Win7 gefunden [war wohl schon bekannt]

Leute hab mal nen bisschen mit unicode rumgespielt und hab eine Sicherheitslücke in Win7 gefunden [war wohl schon bekannt]

Leute hab mal nen bisschen mit unicode rumgespielt und hab eine Sicherheitslücke in Win7 gefunden [war wohl schon bekannt]

Suche (schnelle) Funktion zum Umrechnen ins Dual- oder Hexadezimalsystem

Suche (schnelle) Funktion zum Umrechnen ins Dual- oder Hexadezimalsystem

TCPConnect Return wert auf einmal weg?

Split to Options

Flutch - Erobert die Welt

Flutch - Erobert die Welt

Flutch - Erobert die Welt

au3 aus Script ausführen, auch auf Rechnern wo kein AutoIt installiert ist

Fast fertiger UDP Multiclient Chat

sl4y3r wird Mann

au15k - Skriptwettbewerb - Fertig -

Fast fertiger UDP Multiclient Chat

Ausbildung/Studium/Arbeiten als Informatiker?

Fast fertiger UDP Multiclient Chat

Masm, Tasm, Nasm, Fasm ???

Verkaufe UpgradeKit C2D 3GHz, 6GB RAM, Asus Mainboard

Programm direkt in den RAM geladen oder nur verwendete Bestandteile?