Beiträge von Blackhornettt

bis jz kann man nur 2 befehle ausführen: Run (programm) oder eine msgbox,
normal müste der befehl dann lauten "Run/notepad" dann sollte unten der traytip kommen rechts unten und notepad sich öfnen, das klapt halt ned

Hab ich probiert zeigt aber bei beiden keinen fehler an das script startet auch ganz normal alles funktioniert aber wenn ich einen befehl schicke kommt nixs
kanst dus mal bei dir probieren ? auch gleich mit einem befehl senden pls

Omg.. danke, leider hat mein autoit beim fehler der variabel keinen fehler ausgespuckt deswegen hab ich ihnauch ned gefunden

leider geht es noch immer ned das die befehle ankommen

Hey, ich versteh leider nicht wo/ wie ich das einsetzen muss bei mir klapt das leider ned

Hey ich habe probiert einen tcp server/ client zu machen es sollte ansich gehen , aber geht leider ned
vll wist ihr was da ned stimmt, ob das port forwarding ned passt oder im cod was falsch ist, vll kann der eine oder andere es bei sich selber ausprobieren ob es geht befehle zu schicken, bis jz kann man nur run und msg box befehle schicken aber die befehle kommen halt anscheinend ned an
mfg
black

Server

[autoit]

#include<GUIConstants.au3>
$ServerIP = @IPAddress1
$Port = 33891
TCPStartup()
$MainSocket = TCPListen($ServerIP, $Port)
if $MainSocket = -1 Then Exit

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

$ConnectedSocket = -1
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

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

while 1
$recv = TCPRecv($ConnectedSocket, 2048)
if @error Then ExitLoop

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

if $recy <> "" Then
TrayTip("Incoming Command",$recv ,5)
_CommandToAction($recv)

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

EndIf
WEnd
if $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)

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

TCPShutdown()

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

Func _CommandToAction($command)
$ar = StringSplit($command,"/")
Switch $ar[1]

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

case "Msg"

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

MsgBox(0,$ar[2],$ar[3])

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

Case "Run"
Run($ar[2])
EndSwitch
EndFunc

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

Client

[autoit]

$ServerIP = @IPAddress1
$Port = 33891
TCPStartup ()
$ConnectedSocket = TCPConnect($ServerIP, $Port)

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

if @error Then
MsgBox(4112,"Error","TcpConnect Failed : " & @error)
Else
while 1
$Data = InputBox("Data send to the server","Pls enter Data :")
if @error or $Data = "" Then ExitLoop
TCPSend($ConnectedSocket , $Data)
if @error Then ExitLoop
WEnd

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

EndIf

[/autoit]

Vielen dank für deinen ausführlichen text, ich werde schauen was mit meinen begrenzten autoit skillz so möglich ist
mfg
Blackhornettt

Ich probiere gerade einen remote chat auf ftp basis zu machen, dazu soll einfach nur in einem txt dokument auf einem ftp server ausgelesen werden und den inhalt in eine ganz normale msg box geschreiben werden. Leider schaffe ich es nicht das file ohne es zu downloaden zu lesen were cool wenn ihr mir da helfen könnt

[autoit]

Local $server = '*****.bplaced.net'
Local $username = '****'
Local $pass = '*****

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

Local $Open = _FTP_Open('MyFTP Control')
Local $Conn = _FTP_Connect($Open, $server, $username, $pass)
$FILEOPEN = _FTP_FileOpen($Conn,"test.txt")
$FILEREAD = _FTP_FileRead($FILEOPEN, 1000000)

[/autoit]

Danke

Vielen dank für die erklärung
es funktioniert jz alles, immoment bin ich nur noch am schauen wie ich aus denn millisekunden eine sekunde mache , später dann minute, mit einer inputbox * 1000, da steck ich leider noch wo ich das genau einsätze vll weist du was dazu ?
mfg
black

danke, ich habe leider keinen plan wo ich so einen "handle" einsetzen soll bin da ziemlich neu , werst du so lieb ?

[autoit]

Dim $timer, $run = False, $label[2]=['Start','Stop']
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 175, 139, 192, 124)
$Input1 = GUICtrlCreateInput("Sekunden", 40, 32, 89, 21) / 1000
$Button1 = GUICtrlCreateButton("Button1", 8, 88, 155, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$time = 1

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

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

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

Case $Button1

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

;? GUICtrlRead($Input1) ?
Sleep($Input1)

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

MsgBox(0,"","fertig")

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

EndSwitch
WEnd

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

Ich probiere einen ShutDown Manager zu machen aber leider habe ich
glaube ich das problem das er ned den inhalt der input box ausliest und
so nicht funktioniert

[autoit]

Dim $timer, $run = False, $label[2]=['Start','Stop']
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 175, 139, 192, 124)
$Input1 = GUICtrlCreateInput("Sekunden", 40, 32, 89, 21) / 1000
$Button1 = GUICtrlCreateButton("Button1", 8, 88, 155, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$time = 1

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

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

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

Case $Button1
Sleep($Input1)

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

MsgBox(0,"","fertig")

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

EndSwitch
WEnd

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

Vielen Dank So wie ich es mir erhofft habe

Danke für deine schnelle rückschrift aber ich meinte das ich mehrere bilder zugleich öfnen will nicht das eine oder das andere wie bei der radio box, deswegen ja die checkboxen damit ich zum beispiel 5 bilder auf einmahl öffnen kann,weißt du da vll auch was ?

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 391, 262)
$Radio1 = GUICtrlCreateRadio("Bild 1", 312, 144, 97, 17)
$Radio2 = GUICtrlCreateRadio("Bild 2", 312, 176, 79, 25)
$Button1 = GUICtrlCreateButton("Start", 288, 264, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$1 = "Unbenannt.jpg"
$2 = "lol.jpg"
Local $Auswahl
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1
$Auswahl = $1
Case $Radio2
$Auswahl = $2
Case $Button1
ShellExecute($Auswahl)
EndSwitch
WEnd

[/autoit]

hey ich probiere eine gui zu erstellen mit einigen check boxes wo man auswählt was man haben will danach auf einen button klickt und darauf die angegebenen (Bilder) geöffnet werden
nun habe ich das ganze schon gemacht nur immer wenn ich auf die check boxes klicke wird sofort das bild geöfnet,wie kann ich das verknüpfen das ich zuerst auswähle und dann auf den button klicke und dann erst die bilder geöfnet werden ?

mfg
black

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 391, 262)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 312, 144, 97, 17)
$Button1 = GUICtrlCreateButton("Start", 288, 264, 75, 25)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 305, 176, 79, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$1 = "Unbenannt.jpg"
$2 = "lol.jpg"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Checkbox1
ShellExecute ($1)
Case $Checkbox2
ShellExecute ($2)
EndSwitch
WEnd

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