Beiträge von Jam00

Jam00

@Schnail
was denn?

Greenhorn
Da kommt bei mir einen Fehlermeldung

Fehlermeldung

C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\5.au3(8,35) : WARNING: $WM_CTLCOLORSTATIC: possibly used before declaration.
GUIRegisterMsg ($WM_CTLCOLORSTATIC,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\5.au3(12,88) : WARNING: $WS_OVERLAPPEDWINDOW: possibly used before declaration.
$WS_OVERLAPPEDWINDOW)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\5.au3(8,35) : ERROR: $WM_CTLCOLORSTATIC: undeclared global variable.
GUIRegisterMsg ($WM_CTLCOLORSTATIC,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\5.au3 - 1 error(s), 2 warning(s)

Jam00

Das ist der Hammer! Ich find die Steuerung nur ein Bischen verwirrend
Ja, wenn man es kann brauch man nur 1 1/2 Tage

Jam00

Warum erklärst du es nicht im Forum, da können es alle lesen

Jam00

Und wie geht es mit einem edit?

Jam00

Danke
Könntest du mir das mit dem ListBox mal genauer Erklären? Das ist nähmlich auch wichtig!

Jam00

@Padmark
Wann ist denn deiner fertig?

Jam00

Keine Ahnung

Jam00

Hallo Leute ich hab mal eine Frage:
Weiß jemand wie ich es machen kann, das etwas pasiert, wenn ich einen Doppelklick auf einen Button oder so was in der Gui mache, und nicht wenn ich nur einen mache? Und geht sowas auch bei Einer ListBox wenn ich da auf einen Item doppelt klicke?

Jam00

Jo. mach ich, aber ich hab einen Fehler Gefunden, hier das neue:

Client

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Pic\INC.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <INet.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <GuiEdit.au3>
#include <GuiListBox.au3>
#include "Beep.au3"

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

$Sichtbar = True
$Name = InputBox("INC", "Gib deinen Namen ein")
If @error Then Exit
$IP = InputBox("INC", "Die IP des Servers", _GetIP())
If @error Then Exit

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

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\INC\Benutzeroberfläche\INC1.kxf
$INC = GUICreate("INC - " & $Name, 503, 380, 291, 296)
GUISetBkColor(0x4CEC00)
GUISetIcon("C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\INC\Pic\INC.ico")
$Edit1 = GUICtrlCreateEdit("", 3, 3, 368, 262, BitOR($ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$List1 = GUICtrlCreateList("", 372, 3, 127, 262)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Edit2 = GUICtrlCreateEdit("", 3, 267, 496, 89, BitOR($ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Senden = GUICtrlCreateButton("Senden", 423, 357, 75, 22, 0)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$Checkbox1 = GUICtrlCreateCheckbox("Ton an", 3, 357, 97, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Dim $Form2_AccelTable[1][2] = [["{ENTER}", $Senden]]
GUISetAccelerators($Form2_AccelTable)
#EndRegion ### END Koda GUI section ###
TCPStartup()
$Port = 31758
$ConnectedSocket = TCPConnect($IP, $Port)
If $ConnectedSocket = -1 Then
MsgBox(16, "Error", "Es ist bei dem Verbindungsversuch ein Fehler aufgetreten, vermutlich ist kein Server gestartet!")
Exit
Else
TCPSend($ConnectedSocket, "Name|" & $Name)
MsgBox (64,"INC","Drücken Sie Strg+Q um INC unsichtbar bzw. sichtbar zu machen")
HotKeySet ("^{q}","_Sichtbar")
GUISetState(@SW_SHOW)
EndIf
While 1
$Empfang = TCPRecv($ConnectedSocket, 9999)
$sEmpfang = StringSplit($Empfang, "|")
If IsArray($sEmpfang) = 1 Then
If $sEmpfang[1] = "Namen" Then
If GUICtrlRead($Checkbox1) = 1 Then
_Beep(2)
EndIf
For $1 = 3 To $sEmpfang[2] + 2
GUICtrlSetData($List1, $sEmpfang[$1])
Next
ElseIf $sEmpfang[1] = "Nachricht" Then
$Edit2Read = GUICtrlRead($Edit1)
If GUICtrlRead($Checkbox1) = 1 Then
_Beep(1)
EndIf
If $Edit2Read <> "" Then
$Text = $Edit2Read & @CRLF & $sEmpfang[2] & @CRLF & $sEmpfang[4]
Else
$Text = $sEmpfang[2] & @CRLF & $sEmpfang[4]
EndIf
GUICtrlSetData($Edit1, $Text)
_Scroll($Edit1)
ElseIf $sEmpfang[1] = "Off" Then
$del = _GUICtrlListBox_FindString($List1, $sEmpfang[2])
_GUICtrlListBox_DeleteString($List1, $del)
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
TCPSend($ConnectedSocket, "Off|" & $Name)
Exit
Case $Senden
_Senden()
EndSwitch
WEnd
Func _Senden()
$Edit2Read = GUICtrlRead($Edit2)
$An = GUICtrlRead($List1)
If $Edit2Read <> "" Then
If $An <> "" Then
If $An <> $Name Then
$Text2 = "Nachricht|" & $Name & " " & _NowTime(5) & "|" & $An & "|" & $Edit2Read
TCPSend($ConnectedSocket, $Text2)
GUICtrlSetData($Edit2, "")
$Edit2Read = GUICtrlRead($Edit1)
$sText2 = StringSplit($Text2, "|")
If $Edit2Read <> "" Then
$Text = $Edit2Read & @CRLF & $sText2[2] & @CRLF & $sText2[4]
Else
$Text = $sText2[2] & @CRLF & $sText2[4]
EndIf
GUICtrlSetData($Edit1, $Text)
_Scroll($Edit1)
Else
MsgBox(16, "INC", "Du kannst keine Nachricht an dich selber schreiben!")
EndIf
Else
MsgBox(16, "INC", "Wähle einen Benutzer aus!")
EndIf
Else
MsgBox(16, "INC", "Du kannst keine Nachricht ohne Inhalt Senden!")
EndIf
EndFunc ;==>_Senden
Func _Scroll($Felt)
$Lines = _GUICtrlEdit_GetLineCount($Felt)
_GUICtrlEdit_LineScroll($Felt, 0, $Lines)
EndFunc ;==>_Scroll
Func _Sichtbar()
If $Sichtbar = True Then
GUISetState (@SW_HIDE)
$Sichtbar = False
ElseIf $Sichtbar = False Then
GUISetState (@SW_SHOW)
$Sichtbar = True
EndIf
EndFunc

[/autoit]

Server

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>
#include <INet.au3>
#include <GuiEdit.au3>
_GetIP()
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\INC\Benutzeroberfläche\INC-Server.kxf
$INCServer = GUICreate("INC-Server", 644, 293, 378, 337)
$Combo1 = GUICtrlCreateCombo(@IPAddress1, 3, 1, 145, 25)
If @IPAddress2 <> "0.0.0.0" Then
GUICtrlSetData(-1, @IPAddress2)
EndIf
If @IPAddress3 <> "0.0.0.0" Then
GUICtrlSetData(-1, @IPAddress3)
EndIf
If @IPAddress4 <> "0.0.0.0" Then
GUICtrlSetData(-1, @IPAddress4)
EndIf
$Edit1 = GUICtrlCreateEdit("", 3, 24, 356, 266,$WS_VSCROLL)
GUICtrlSetData(-1, "")
$List1 = GUICtrlCreateList("", 362, 4, 139, 278)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("", 198, 3, 75, 17)
$Button1 = GUICtrlCreateButton("OK", 150, 1, 48, 22, 0)
$List2 = GUICtrlCreateList("", 502, 4, 139, 278)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($Combo1, $GUI_HIDE)
GUISetState (@SW_HIDE)
ExitLoop
EndSwitch
WEnd
$IP = GUICtrlRead($Combo1)
GUICtrlSetData($Label1, $IP)
$MainSocket = TCPListen($IP, 31758)
$zahl = -1
Global $Speicher = ""
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket > -1 Then
$zahl = $zahl + 1
$zahl1 = $zahl +1
$Speicher = $ConnectedSocket
EndIf
If $Speicher <> "" Then
$Neu = TCPRecv ($Speicher,9999)
If $Neu <> "" Then
$sNeu = StringSplit ($Neu,"|")
If $sNeu[1] = "Name" Then
GUICtrlSetData($List2, $sNeu[2] & "=" & $Speicher)
GUICtrlSetData($List1, $sNeu[2])
Local $text = ""
For $i = 0 To _GUICtrlListBox_GetCount($List1) - 1
If $i = 0 Then
$text = $text & _GUICtrlListBox_GetText($List1, $i)
Else
$text = $text & "|" & _GUICtrlListBox_GetText($List1, $i)
EndIf
Next
For $3 = 0 To $zahl
$Benutzer2 = _GUICtrlListBox_GetText($List2, $3)
If $Benutzer2 <> "" Then
$sBenutzer2 = StringSplit($Benutzer2, "=")
TCPSend($sBenutzer2[2], "Namen" & "|" & $zahl1 & "|" & $text)
EndIf
Next
$Speicher = ""
EndIf
EndIf
EndIf
If $zahl > -1 Then
For $1 = 0 To $zahl
$Benutzer3 = _GUICtrlListBox_GetText($List2, $1)
$sBenutzer3 = StringSplit($Benutzer3, "=")
StringReplace ($sBenutzer3,"=","=")
If $sBenutzer3[0] > 1 Then
$Empfang = TCPRecv($sBenutzer3[2], 9999)
If $Empfang <> "" Then
$Edit1Read = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $Edit1Read & @CRLF & $Empfang)
_Scroll($Edit1)
$sEmpfang = StringSplit($Empfang, "|")
If $sEmpfang[1] = "Nachricht" Then
For $2 = 0 To $zahl
$Benutzer = _GUICtrlListBox_GetText($List2, $2)
$sBenutzer = StringSplit($Benutzer, "=")
If $sBenutzer[1] = $sEmpfang[3] Then
TCPSend($sBenutzer[2], $Empfang)
EndIf
Next
ElseIf $sEmpfang[1] = "Off" Then
$del = _GUICtrlListBox_FindString($List1, $sEmpfang[2])
_GUICtrlListBox_DeleteString($List1, $del)
$del = _GUICtrlListBox_FindString($List2, $sEmpfang[2])
_GUICtrlListBox_DeleteString($List2, $del)
$zahl = $zahl -1
$zahl1 = $zahl +1
For $3 = 0 To $zahl
$Benutzer2 = _GUICtrlListBox_GetText($List2, $3)
If $Benutzer2 <> "" Then
$sBenutzer2 = StringSplit($Benutzer2, "=")
TCPSend($sBenutzer2[2], "Off" & "|" & $sEmpfang[2])
EndIf
Next
EndIf
EndIf
EndIf
Next
EndIf
WEnd
Func _Scroll($Felt)
$Lines = _GUICtrlEdit_GetLineCount($Felt)
_GUICtrlEdit_LineScroll($Felt, 0, $Lines)
EndFunc ;==>_Scroll

[/autoit]

Jam00

oki, danke
Weiß jemand was wegen dem Button?

Jam00

Also irgendwie weiß ich nicht so genau was du meist!

Jam00

weiß niemand was?

Jam00

Hi leute weiß jemand wie ich ein Pic in den HIntergrund setzen kann?

Beispiel

[autoit]

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

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

#Region ### START Koda GUI section ###
$INC = GUICreate("INC", 454, 524, 705, 245,$WS_POPUP)
GUISetIcon("D:\005.ico")
GUISetFont(8, 400, 0, "Arial")
$Pic1 = GUICtrlCreatePic(@scriptdir & "\Hintergrund-1.gif", 0, 0, 454, 524)
GUISetBkColor(0x0054E3)
$Edit2 = GUICtrlCreateEdit("", 3, 405, 449, 89, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "Edit2")
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("Input1", 3, 384, 448, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL), 0)
GUICtrlSetBkColor(-1, 0x3D95FF)
$Edit1 = GUICtrlCreateEdit("", 6, 51, 443, 332)
GUICtrlSetData(-1, "Edit1")
$Pic2 = GUICtrlCreatePic(@scriptdir & "Senden.bmp", 375, 495, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic2
GUICtrlSetImage ($Pic2,@scriptdir & "Senden-2.bmp")
Sleep (100)
GUICtrlSetImage ($Pic2@scriptdir & "Senden.bmp")
EndSwitch
WEnd

[/autoit]

Du dann wollte ich noch wissen wie ich es mache, das der Button erst wieder zurückgesetzt wird wenn ich mit der maus nicht mehr draufklicke

Jam00

Bei mir geht es aber!

Jam00

Also ich hab ein Script geschreiben, dass man mit #Include einbindet und für das script muss man im schribt wo man es einbindet eine Varialbe setzen udn ich will das das Script prüft ob sie erstellt wurde!

Script

[autoit]

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

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

AutoIt Version: 3.3.0.0
Author: Hendrik Norkowski

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

Script Function:
Dies ist ein UDF-Script. UDFs: _LogIn
Das schrip fragt Benutzerdaten ab und gibt bei erfold die Gewünschten felder frei!

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

Sreibe: _LogIn ($UserInput,$PasswortInput,$UserDaten,$Passwortdaten,$Veränderfeld,$Status ("Zeigen","Verstecken")
Setzen sie Befor sie Die Func beim Ersten mal ausführen umbedingt $Meldung = False
Trenne die User und Passworter mit "|"
Wenn sie mehrere Objekte mit einem Passwort anzeigen mochten, füchren sie die Func erneut mit den gleichen daten aus bist auf $Feld
wollen sie die Func jedoch auf eine Neues Passwortfeld beziehen nehmen sie die neuen daten, und setzen sie $Meldung = False wieder

Um die Felder zu verstecken, befor das paswort eingegeben wurde müssen sie dieses Tun: GuiCtrlSetState ($Feld,$Status) $Status = $GUI_HIDE zum verstecken, $GUI_SHOW zum anzeigen
#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
Global $INI3Status = False
Func _LogIn ($InUser,$InPass,$UserData,$PassData,$FreiFeld,$AnzeigeStatus)
$PassINR = GUICtrlRead ($InUser)
$UserINR = GUICtrlRead ($InPass)
If $PassINR <> "" Then
If $UserINR <> "" Then
$sUser = StringSplit ($UserData,"|")
$sPass = StringSplit ($PassData,"|")
$Benutzerdaten = True
For $i = 1 To $sUser[0]
If $sUser[0] = $sPass[0] Then
If $UserINR = $sUser[$i] Then
If $PassINR = $sPass[$i] Then
$INI3Status = True
EndIf
EndIf
Else
$Benutzerdaten = False
EndIf
Next
If $Benutzerdaten = False Then
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Fehler in den Benutzerdaten!")
EndIf
ElseIf $sPass[0] <> $sUser[0] Then
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Falscher Benutzerdatenbank!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
If $INI3Status = True Then
If $AnzeigeStatus = "Zeigen" Then
GUICtrlSetState ($FreiFeld, $GUI_SHOW)
ElseIf $AnzeigeStatus = "Verstecken" Then
GUICtrlSetState ($FreiFeld, $GUI_HIDE)
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Falsche Benutzerdaten!")
EndIf
EndIf
EndFunc

[/autoit]

Beispiel

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include "LogIn.au3"

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 204, 146, 303, 219)
$Edit1 = GUICtrlCreateEdit("", 15, 54, 185, 89)
GUICtrlSetData(-1, "Hi leute")
$Input1 = GUICtrlCreateInput("", 78, 6, 121, 21)
$Input2 = GUICtrlCreateInput("", 78, 30, 121, 21)
$Label1 = GUICtrlCreateLabel("Benutzername:", 3, 6, 75, 17)
$Label2 = GUICtrlCreateLabel("Passwort:", 0, 30, 50, 17)
$Button1 = GUICtrlCreateButton ("OK",175,52,25,25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

GUICtrlSetState ($Edit1,$GUI_HIDE)
$User = "Test|Test2"
$Pass = "1234|5678"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Meldung = False
_LogIn ($Input2,$Input1,$User,$Pass,$Button1,"Verstecken")
_LogIn($Input2,$Input1,$User,$Pass,$Edit1,"Zeigen")
GUICtrlSetData ($Input1,"")
GUICtrlSetData ($Input2,"")
EndSwitch
WEnd

[/autoit]

Jam00

Ich hab kein Script!

Jam00

danke schick es doch einfach ein Parr freunden!

Jam00

Also ich mein ich möchte heraubekommen ob es $1 gibt, ja in einer If frage!

Jam00

wie kann ich überprüfen ob ein String existiert, also wenn es ihn ja nicht gibt hängt er sich ja auf, und ich muss heraubekommen ob er existiert!

Jam00

Kann man per AutoIt eigentlich auch Dateinen verschiken? Du kannst dir uach mal mein Chat angucken (in Projekte "Mein Chat INC").

Beiträge von Jam00

Textfeld / Button etc. Transparent machen

Multiplayer-Game 'Kurven-Spiel'

cmdline? mit befehlen für batch arbeiten

Textfeld / Button etc. Transparent machen

Doppelklick

Batchy -Der Batch-Editor

Mein Chat INC

Doppelklick

Mein Chat INC

Hintergrundbild

Den Platzhalter * als "Joker" benutzen

Hintergrundbild

Hintergrundbild

String

String

String

Mein Chat INC

String

String

TCP wird immer blockiert