Beiträge von MaZy

Hallo, dieser Thread ist zwar alt aber ich hab ne Frag dazu.

Ich hatte die RichEdit UDF von hier.
http://progandy.pr.funpic.de/index.php/comp…/id,20/lang,de/

jetzt habe ich aber den runtergeladen der hier gelinkt wurde.
http://www.autoitscript.com/forum/index.php?showtopic=89358&hl=

Welcher ist denn neuer? Weil bei den finde ich kein SetBold oder Italic usw

Ich finde ieg den ersten link nicht schlecht.. aber da konnte ich keine Farbe finden.

EDIT: Wie dumm von mir. Hab sie total übersehen
Sorry

Hi,

mein Problem ist, dass mein TCPSend nicht sofort sendet sondern ers wenn er aus der funktion rausspringt und zu einer andere Funktion. Aber dort ist noch ein TCPSend. Das heißt es wird die Daten von erste Send nach 2 drangehängt. Ich versuchs mal so zu erklären:

Wenn ich beispiel sende>
TCPsend "Hi-"
<Funktion ende>
For
TCPSend "Hi"
Next
<funktion ende>
Dann wird es als "Hi-Hi" gesendet und nicht "Hi-" und nochmal "Hi"

Hier Code:
User joined Server. Und ihn wird online User geschickt "USER BLA BLU BLI"

func xtakenick($sMessage2)
Local $soutput
$iIndex2 = _ArraySearch($aUser, $sMessage2[2])
if @error Then
if $aUser[0] = "" then
$aUser[0] = $sMessage2[2]
Else
_ArrayAdd($aUser, $sMessage2[2])
EndIf
EndIf
$soutput= xmakesatz(0, $aUser)
TCPSend($iTempSID, "USER " & $soutput & "-")
ConsoleWrite(@CRLF & "USER " & $soutput)
$sSmsg = "JOIN " & $sMessage2[2]
EndFunc

Funktion das eigentliche TCPSend. Da wird nur eigentlich "sSmsg" gesendet

func xsendtochat($sRDYTOSEND)
for $i = 0 to UBound($sConnectedSocket) -1
TCPSend($sConnectedSocket[$i], $sRDYTOSEND)
Next
ConsoleWrite(@CRLF & $sRDYTOSEND)
$sSmsg = ""
EndFunc

Wann genau sendet TCPSend denn die Daten???

Nur Mod hab ich nicht verstanden. Und die Positionen wie das gemacht ist.

Beispiel hier

Dim $ahLabel[500], $iXPos = 50, $iYPos = 10, $iXSpace = 45, $iYSpace = 15, $iWidth = 45, $iHeight = 20, $iUnterReihe = 25
Dim $sSpace
GUICreate('test', 600, 400)
For $i = 0 To 150
Switch $i
Case 0 to 9
$sSpace = ""
Case 10 to 99
$sSpace = " "
Case Else
$sSpace = ""
EndSwitch
$ahLabel[$i] = GUICtrlCreateLabel($sSpace & $i & ' = ' & 0, $iXPos + Int($i / ($iUnterReihe +1)) * $iXSpace, $iXPos + Mod($i, ($iUnterReihe +1)) * $iYSpace, $iWidth, $iHeight)
Next
GUISetState()
Do
Until GUIGetMsg() = -3

Wenn ich $iXPos = 50 mache verschiebt sich das von links nach rechts UND von oben nach unten. Soll ja aber nicht sein. $iYPos = 1000 passiert nichts.

EDIT: Ahh, ok.. mein Fehler... ich hab iYPos zu x gemacht.

Ja genau, danke. Wird dort mehrere Labels erstellt oder nur einer?

Ich kapiere die beiden Stellen nicht:

$iXPos + Int($i / 10) * $iXSpace,

$iYPos + Mod($i, 10) * $iYSpace

Was passiert da?
Ist ja doch komplizierter als ich dachte.

Hallo,
ich hab mal hier im Forum irgendwann mal gesehen, dass ein Taschenrechner GUI nur in mit mit paar Zeilen erstellt wurde. Wie gesagt nur GUI ohne Funktionen usw. Daher wollte ich wissen wie man sowas machen kann.
Ich habe auch sowas vor. Ein Label der 1 bis 100 Zahlen stehen hat. Also sowas: Beide Zahlen sind in var.
1=0 6=0
2=0 7=0
3=0 8=0
4=0 9=0
5=0 10=0
Zwischen beiden blöcken sollte natürlich mehr Abstand sein als hier.
Wie krieg ich das hin? Brauch ich array?

EDIT: Sry paar ein fehler im text

Hallo, ich hab da ne Frage.

Wie sind die Chats eigentlich von Darstellung her aufgebaut.
Ich meine die Chats Beispiel in Java. Die werden wohl doch kein Editfeld benutzen oder?? Ich hab nämlich tolles Chatprogramm geschrieben mit AutoIT. Bin so ziemlich am Anfang. Client und Server verbindet und tauscht Daten.

Aber alles ist mit Label. Weil ich für bestimmte Sachen Kursiv gebraucht habe, aber die Möglichkeit in EDITFeld nicht fand um Sätze wie "Unknown Command" in Kursiv anzuzeigen. Wenn ich das täte wurde alles in Kursiv angezeigt. Daher war meine Idee mit Labels.. jedes mal wird neue erstellt und +17 top dazu berechnet. Danach war meine Idee wenn Chatfenster bis nach unten voll war per Array alles Positionen zu Updaten und eine Zeile (top-17) höher zu ziehen. So das es aussieht als würde sich alles eine Zeile hochscrollen. Aber dann kommt das Problem mit Scrolls usw. Mann kann ja nicht Scrollen. Da die Labels über die Gui dann irgendwann verschwinden. Ja daher hab ich mich gefragt wie das wohl per C++ oder Java aussehen würde.

C++ kenn ich ja einigermaßen gut und Java hatte ich sehr wenig in der Schule gelernt. Nur Basiswissen.

Danke für dein TIPP. Ich bin jetzt sehr weit gekommen. Es können mehrere rein und hab auch meine erste befehl eingebaut. /me ^^.

So jetzt bleibt mir das Problem mit Clientside. Muss ich bei ihn TCPListen() anwenden???

sowas geiles
Hast du gut gemacht. Leider kann ich auf meine Ordner nicht mehr klicken weil sie darunter sind
Besonders gefällt mir Notizblock und Lautstärke regeler da ich das ammeisten brauche =)

Hier hatten wir doch damals ein Thread wo das lange besprochen haben, weil es um ein Script ging

aber hier. Der ist etwas kompliziert

Standard...

Meine Version:

Meiner ändert nach ne Zeit Desktopbild. Bilder in Eigene Datein\picme\* Verzeichnis

Hallo

ich hab ein Problem. Und zwar hat ein User ein Chatscript geschrieben so ziemlich basis. Er kam mit TCP nicht weiter und hat dann mit FTP angefangen. Aber ich hab ihn ein wenig starthilfe gegeben damit er sein TCP-Script weiter aufbaut. Allerdings komm ich bei eine stelle selbst nicht weiter. Also ich habe 2x das gleiche Code.. nur das bei zweite Code kein TCPListen() befindet damit Server nicht nochmal gestartet wird was so oder so wegen Ports nicht geht. Auf jedenfall frage ich mich, wenn ein Client der sich zum Server connected die Daten, was nach Server gesendet wird wie ich das wieder zu Client senden kann?. Da Client kein TCPListen() anwendet kann man doch nichts zu Client senden oder? Oder muss Client auch ein TCPListen anwenden?? Aber was mache ich wenn man jetzt ein Client sein Programm 3x startet..? Die Ports freigeben?

Also ich habe eigentlich wie Spiele gedacht. Jeder verbindet sich zum Server.. die Clients müssen keine Portsfreigeben, kein listen. Quasi wenn man Porttest macht ist dieser Port zu.

Zweite frage wär. Wie kriege ich hin das Server nicht nur nach ein Client wartet sondern das mehrere sich da einklinken können

also

Do
$tcpaccept = TCPAccept($tcplisten)
Until $tcpaccept <> -1

Ohne das Funktioniert bei mir gar nichts.

Hier mal Code

Also das ist die Version Server und Client in eins. Client version zum Testen nur hab ich _server() und tcplisten() usw entfernt.

Ich hoffe könnt mir beim logisches denken helfen

EDIT: IN Sufu hab ich nur gefunden das man sufu benutzen soll wenn es um chat ging lol
Außer 2 beiträge wo jemand sein Script postet aber bei ihn blick ich total nicht durch..

Hoffe könnt mir helfen

mfg
mazy

EDIT: Inzwischen habe ich es raus.

func buchstabenzeigen()
$newpic = $array[random(0, 28, 1)] ; bild wird in newpic gespeichert
GUICtrlSetImage($Pic1, "img/" & $newpic) ;und hier erst gesetzt. Das ist mir erst nicht eingefallen
return $newpic
EndFunc

genau das wollte ich. THX!

#include <GUIConstants.au3>

$gui = GUICreate('CB-Test mit CB3 u. CB4 als Radio')
$cb1 = GUICtrlCreateCheckbox('Vordergrund?', 20, 20, 100)
$cb2 = GUICtrlCreateCheckbox('Install 3 od. 4?', 20, 50, 100)
$cb3 = GUICtrlCreateCheckbox('Check 3 (wenn 3, dann nicht 4)', 35, 80, 180)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetState(-1, $GUI_DISABLE)
$cb4 = GUICtrlCreateCheckbox('Check 4 (wenn 4, dann nicht 3)', 35, 110, 180)
GUICtrlSetState(-1, $GUI_DISABLE)
$cb5 = GUICtrlCreateCheckbox('Check 5', 20, 140, 60)
$cb6 = GUICtrlCreateCheckbox('Check 6', 20, 170, 60)
GUISetState()

While 1
$msg = GUIGetMsg()
Switch $msg
Case $cb1
If GUICtrlRead($cb1) = $GUI_CHECKED Then
MsgBox(0,"","Vordergrund gesetzt")
EndIf
Case $cb2
If BitAND(GUICtrlRead($cb2), $GUI_CHECKED) Then
GUICtrlSetState($cb3, $GUI_ENABLE)
GUICtrlSetState($cb4, $GUI_ENABLE)
Else
GUICtrlSetState($cb3, $GUI_DISABLE)
GUICtrlSetState($cb4, $GUI_DISABLE)
EndIf
Case $cb3
If BitAND(GUICtrlRead($cb3), $GUI_CHECKED) Then
GUICtrlSetState($cb4, $GUI_UNCHECKED)
Else
GUICtrlSetState($cb4, $GUI_CHECKED)
EndIf
Case $cb4
If BitAND(GUICtrlRead($cb4), $GUI_CHECKED) Then
GUICtrlSetState($cb3, $GUI_UNCHECKED)
Else
GUICtrlSetState($cb3, $GUI_CHECKED)
EndIf
Case $cb5

Case $cb6

Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Ganze Fenster (AutoIT).
Das ist ne Testscript.
Das eigentliche hab ich auf dem Laptop. Aber da ist ist auch nur ein cb1 mehr nicht. Weil der rest macht eig was anderes

Hi, wie kann ich Gui On Top machen in dem ich ein Checkbox checke.
Ich dachte so es geht nicht:

Case $cb1
If BitAND(GUICtrlRead($cb1), $GUI_CHECKED) Then
GUICtrlSetState($form1, $GUI_ONTOP))
EndIf

bei $form1 bin ich net sicher.. da steht ja controlID

2. Frage. Wie mach ich ONTOP wieder weg?

Hi ich versuche das zu verstehen aber kapiere nicht.
Ich habe jetzt beim suchen das hier gefunden

If BitAND(GUICtrlRead($cb2), $GUI_CHECKED) Then

Aber ich habe eben die funktion auch so getestet

If GUICtrlRead($cb2) = $GUI_CHECKED Then

Beides funktioniert.
jetzt wollte ich gern wissen was BitAND eig "dort" genau macht weil man daraus ja die gleiche funktion machen kann

hi wie könnt ich aus 7B 00 00 00 umdrehen und 00 00 00 7B machen
BZW 47 82 zu 82 47
Alle sind in eine Variable gespeicherte. Beispiel

$info = 7B 00 00 00

Achso tut mir leid.. so ein code hab ich ja schonmal geschrieben lol allerdings nur für 2
$info = 7B 32

$info2 = StringMid($info, 1, 2)
$info3 = StringMid($info, 3, 2)
$info = $info & $info2
das müsste jetzt 32 7B sein.

Aber wie mache ich wenn das mal länger ist.

Wahrscheinlich hat der eine andere Auflösung und eine andere Anwendung bzw 3D-Anwendung in Vollbildschirmmodus.

Ich denk mal man könnte es beheben in dem man das gestartete programm sofort minimiert oder fensterversteckt. wie war das?

WinSetState("Titel -", "", @SW_HIDE)

Das Problem, aber hier nur ist, wie kann man was verstecken was gar nicht geladen ist.

Zitat von SiLenCa

Also, bei mir is die Variable nicht leer.

[autoit]

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

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

$lol = GUICreate("lol",40,25,"500","500",BitOR($WS_DLGFRAME,$WS_POPUP))
$Button2 = GUICtrlCreateButton("lol",0,0)
$Button3 = GUICtrlCreateButton("lal",20,0)
GUISetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
way()
Case $Button3
takeopcode()
EndSwitch
$bla = "bla"
$blub = "blub"
WEnd

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

func way()
msgbox(0,"",$blub)
EndFunc

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

func takeopcode()
msgbox(0,"",$bla)
EndFunc

[/autoit]

Alles anzeigen

komisch. Auf einmal bei mir auch. Sonst war msgbox leer

While 1
$nMsg = GUIGetMsg()

Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
way()
Case $Button3
takeopcode()
EndSwitch
$bla = "test"
WEnd

func way()
EndFunc

func takeopcode()

msgbox(0,"",$bla)
EndFunc

hi, warum ist die variable $bla in function takeopcode() leer?

danke der funkz ohne probleme.. ich bin aber hier irrtiert.
Warum funktioniert das immernoch?

Ih hab die sachen darüber geshrieben und nicht mal unter Casetrotzdem gehts

EDIT: looooooool

Das geht auch!! Außer ohne

GUIRegisterMsg($WM_COMMAND, 'MY_WM_COMMAND')

geht es nicht, Also ist GUIRegisterMsg nur wichtig