Beiträge von janaiky

janaiky

Du musst überall $var = vorschreiben, also:

Spoiler anzeigen

[autoit]

Local $var = 7

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

If $var = 0 Or $var = 1 Or $var = 2 Or $var = 3 Or $var = 4 Then
MsgBox(0, '', 'klein')
ElseIf $var = 5 Or $var = 6 Or $var = 7 Or $var = 8 Or $var = 9 Then
MsgBox(0, '', 'groß')
Else
MsgBox(0, '', 'Variable ist falsch')
EndIf

[/autoit]

janaiky

Hi und willkommen im Forum,
versuch einfach mal ein

[autoit]

Sleep(1000)

[/autoit]

nach dem Send einzufügen.
Dein Script schreibt wieder den alten Wert in die Zwischenablage,
aber Windows ist zu langsam und schafft es nicht den Text einzufügen.

Aber eigentlich brauchst du die Zwischenablage doch nicht,
machs doch mit Variablen und Send:

[autoit]

$aTextTemplate = _GUICtrlListView_GetItemTextArray($hMainSpecialPasteList, _GUICtrlListView_GetSelectionMark($hMainSpecialPasteList))
WinActivate(GUICtrlRead($hMainSpecialPasteWindowName)) ;Ursprungs-Programm in Vordergrund holen
Send($aTextTemplate[2],0) ;Inhalt einfügen
GUISetState(@SW_HIDE, $hMainSpecialPaste) ;Text Template Auswahl Fenster verstecken

[/autoit]

Jan

janaiky

so ich bin fertig.
win7 ist super!

janaiky

Willkommen im Forum

Hey du bist 12 wie ich und programmierst in AutoIt seit du 11 bist auch wie ich!

janaiky

Versuchs mal so:

Spoiler anzeigen

[autoit]

;Tool für TMR Auslesen und Nullstellen der LKW-Waagen.
;Änderungen bitte eintragen
;Erstellung Version 1.0 Stand 20.04.2010 Sto AG Abt. TVAS Michael Blum

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

#include <GuiConstantsEx.au3>
#include <Color.au3>
#include <Constants.au3>
#include <Word.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
TCPStartup() ; TCP wird initialisiert
;~ local $IP1 = "10.102.42.254" ;IP Adresse Waage 1
;~ local $IP2 = "10.101.34.20" ;IP Adresse Waage 2
;~ local $Port1 = 10000 ;TCP Port der Waage 1
;~ local $Port2 = 10002 ;TCP Port der Waage 2
Local $IP1 = "10.103.42.172" ;IP Adresse Waage 1
Local $IP2 = "10." ;IP Adresse Waage 2
Local $Port1 = 8000 ;TCP Port der Waage 1
Local $Port2 = 10002 ;TCP Port der Waage 2
Local $Gewicht = "RN" ; Systec String für Gweichtswert lesen wenn Waage in Ruhe
Local $ZeroIt = "SZ" ; Systec String für Waage Nullstellen
Local $waage1 = 3 ;Adresse der Waageneinheit1 (Brückenwaage)
Local $waage2 = 1 ;Adresse der Waageneinheit2 ( Gebäude 18)
Global $Ende
Global $socket
Global $Message
Global $SHOCKET
Global $myIP
Global $receivedData

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

GUICreate("LKW Waagen Nullstellen", 700, 700)
GUISetState(@SW_SHOW)

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

GUISetOnEvent($GUI_EVENT_CLOSE, "onexit")

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

;GUICtrlCreateLabel("Waagenantwort:",40,200,600,300,1,1)
$Message = GUICtrlCreateList("Waagenantwort:", 40, 200, 600, 300, 1)
$W1Read = GUICtrlCreateButton("Waage 1 lesen", 40, 600, 110, 50)
GUICtrlSetOnEvent($W1Read, "WA1RD")
$W2Read = GUICtrlCreateButton("Waage 2 lesen", 160, 600, 110, 50)
GUICtrlSetOnEvent($W2Read, "WA2RD")
$W1Zero = GUICtrlCreateButton("Waage 1 Nullstellen", 280, 600, 110, 50)
GUICtrlSetOnEvent($W1Zero, "WA1ZR")
$W2Zero = GUICtrlCreateButton("Waage 2 Nullstellen", 400, 600, 110, 50)
GUICtrlSetOnEvent($W2Zero, "WA2ZR")

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

$Ende = GUICtrlCreateButton("Ende", 520, 600, 110, 50)
GUICtrlSetOnEvent($Ende, "Onexit")

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

;Verbindungen aufbauen
$socket = TCPConnect($IP1, $Port1)
If $socket = -1 Then ; Wenn $socket = -1 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") ; Fehlermeldung
EndIf
$socket2 = TCPConnect($IP2, $Port2)
If $socket2 = -1 Then ; Wenn $socket = -1 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") ; Fehlermeldung
EndIf

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

While 1
;sleep(2000)
WEnd

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

Func WA1RD()
$sendedBytes = TCPSend($socket, $Gewicht & $waage1)
If $sendedBytes = 0 Then ; Wenn der Rückgabewert von TCPSend(...) 0 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") ; Fehlermeldung
EndIf
While 1
$receivedData = TCPRecv($connectedSocket, $Port1) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
If $receivedData <> "" Then
MsgBox(64, "Nachricht empfangen!", "Es wurde eine Nachricht empfangen: " & $receivedData)
GUICtrlSetData($Message, $receivedData)
ExitLoop
EndIf
WEnd
EndFunc ;==>WA1RD

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

Func WA2RD()
$sendedBytes = TCPSend($socket2, $Gewicht & $waage2)
If $sendedBytes = 0 Then ; Wenn der Rückgabewert von TCPSend(...) 0 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") ; Fehlermeldung
EndIf
While 1
$receivedData = TCPRecv($connectedSocket2, $Port2) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
If $receivedData <> "" Then
MsgBox(64, "Nachricht empfangen!", "Es wurde eine Nachricht empfangen: " & $receivedData)
GUICtrlSetData($Message, $receivedData)
ExitLoop
EndIf
WEnd
EndFunc ;==>WA2RD

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

Func WA1ZR()
$sendedBytes = TCPSend($socket, $ZeroIt & $waage1)
If $sendedBytes = 0 Then ; Wenn der Rückgabewert von TCPSend(...) 0 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") ; Fehlermeldung
EndIf
While 1
$receivedData = TCPRecv($connectedSocket, $Port1) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
If $receivedData <> "" Then
MsgBox(64, "Nachricht empfangen!", "Es wurde eine Nachricht empfangen: " & $receivedData)
GUICtrlSetData($Message, $receivedData)
ExitLoop
EndIf
WEnd
EndFunc ;==>WA1ZR

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

Func onexit()
TCPShutdown()
Exit
EndFunc ;==>onexit

[/autoit]

Was ich geändert habe:
Richtige Logik (Verbindung wird am Anfang hergestellt)
Nur eine Funktion zum Beenden
Hab Tidy rüberlaufen lassen

janaiky

Hi Leute,
ich will mir in den nächsten Tagen Windows 7 installieren. Jetzt habe ich XP.
Ich hab mir das so vorgestellt:
1. Ich mache eine neue Partition für Win7 (will XP erstmal weiter nehmen)
2. Ich installiere Win7

Muss ich dabei noch was beachten (außer Daten sichern)?

janaiky

so müsse es gehen (bei mir jedenfalls):

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>

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

Global $ini = @ScriptDir & "\dvb-tools.ini" ;Pfad zur ini

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

$Form1 = GUICreate("Ini read to Listview - Beispiel", 700, 500, -1, -1)
$ListView1 = GUICtrlCreateListView("", 20, 20, 660, 350)
$hlistview = GUICtrlGetHandle($ListView1)
_GUICtrlListView_AddColumn($hlistview, "Key", 200)
_GUICtrlListView_AddColumn($hlistview, "Value", 450)

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

$Button2 = GUICtrlCreateButton("Iniread", 20, 420, 120, 33, 0)
$Button1 = GUICtrlCreateButton("Add", 220, 420, 120, 33, 0)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
_Initolistview($hlistview, $ini)
Case $Button1
_Add()
EndSwitch
WEnd

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

Func _Initolistview($hwnd, $path)
; nuts (http://www.autoit.de)
; $hwnd = Handle to the listview
; $path = ini path
Local $anames, $aread
If Not IsHWnd($hwnd) Then
SetError(1) ;not a handle -> @error = 1
Return
ElseIf Not FileExists($path) Then
SetError(2) ;ini not found -> @error = 2
Return
EndIf
$anames = IniReadSectionNames($path)
$counter = -1;_GUICtrlListView_GetItemCount($hwnd)
For $i = 1 To $anames[0]
$aread = IniReadSection($path, $anames[$i])
If @error Then
$counter += 1
_GUICtrlListView_EnableGroupView($hwnd)
_GUICtrlListView_InsertGroup($hwnd, -1, $i, $anames[$i])
_GUICtrlListView_AddItem($hwnd, "Kein Eintrag")
_GUICtrlListView_SetItemGroupID($hwnd, $counter, $i)
ContinueLoop
EndIf
_GUICtrlListView_EnableGroupView($hwnd)
_GUICtrlListView_InsertGroup($hwnd, -1, $i, $anames[$i])
For $x = 1 To $aread[0][0]
$counter += 1
_GUICtrlListView_AddItem($hwnd, $aread[$x][0])
_GUICtrlListView_AddSubItem($hwnd, $counter, $aread[$x][1], 1)
_GUICtrlListView_SetItemGroupID($hwnd, $counter, $i)
Next

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

Next
EndFunc ;==>_Initolistview

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

Func _Add()
#region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 431, 200, 192, 124)
$Input1 = GUICtrlCreateInput("", 40, 64, 113, 21)
$Input2 = GUICtrlCreateInput("", 192, 64, 177, 21)
$Label1 = GUICtrlCreateLabel("Key", 40, 32, 36, 17)
$Label2 = GUICtrlCreateLabel("Value", 192, 32, 36, 17)
$Button = GUICtrlCreateButton("Übernehmen", 140, 150, 120, 33, 0)
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form2)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
case $Button
local $count
_GUICtrlListView_AddItem($hlistview,GUICtrlRead($Input1))
local $count=_GUICtrlListView_GetItemCount($hlistview)-1
_GUICtrlListView_AddSubItem($hlistview,$count,GUICtrlRead($Input1),1)
_GUICtrlListView_SetItemGroupID($hlistview,$count,1)
IniWrite($ini, _GUICtrlListView_GetItemGroupID($hlistview, $count), GuiCtrlRead($Input1), GuiCtrlRead($Input2))
GUIDelete($Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_Add

[/autoit]

da muss aber noch ein fehler drinnen sein:
irgendwie liest er er die ini noch dem aktuallisieren falsch ein wenn man iniread macht. nur nach neustart des scripts geht es wieder

janaiky

Wenn du mit config eine ini-Datei meinst (verstehe ich so) dann:

[autoit]

IniWrite

[/autoit]

janaiky

ich hab ne kleine idee, kann morgen mal was versuchen

janaiky

Noch ein Vorschlag:
Man könnte doch mehrere Seiten bei den Hiscores machen, damit man z.B. in den Online Hiscores sieht, auf welchen Platz man ist

janaiky

Ich hab es mal versucht zu machen, bin aber gescheitert
Ich habs versucht mit GuiSetCursor und GuiCtrlSetCursor, ging aber nicht.
Außerderm hab ich versucht, ein Label über die Gui zu machen und den Cursor zu setzten, aber dann hatte ich zwei Cursor.

Da müssen die Profis ran

oder du musst halt mehrere normale Labels nehmen.

janaiky

Ich wollte ja gerade die online hiscores testen, aber ein problem:

wenn ich in der 6.9 scores aufrufe passiert das:

janaiky

DANKE
jetzt gehts und dem Programm steht nichts im wege

bei mir ist es noch nicht abgestürzt.
edit: ja jetzt ist es mal abgestürzt

janaiky

Das Problem ist:
Weil dauernd überprüft wird, ob etwas empfangen wurde und irgendwann nichts empfangen wurde, dann wird die Verbindung getrennt ($NewSocket wird überschrieben) und auf eine neue Verbindung gewartet.
(Wie tkausl schon sagte)

Versuch mal das:

Spoiler anzeigen

[autoit]

TCPStartup ()

$MainSocket = TCPListen("5.94.104.170","23000","10000")
$NewSocket = -1

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

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

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

While 1
$Recv = TCPRecv($NewSocket,"2048")
If @error Then ExitLoop

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

If $Recv <> "" Then
_FileWriteLog (@scriptDir&"/Log.log",$Recv)
EndIf
WEnd

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

TCPShutdown()

[/autoit]

janaiky

So habs jetzt eingebaut und mal auf meinem PC getestet, funktioniert jetzt:

Spoiler anzeigen

[autoit]

#include <string.au3>
#include <GUIConstants.au3>

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

Dim $input
Dim $output
Dim $level
Dim $passwort
Dim $file
Dim $CodeIt

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

$CodeIt = GUICreate("CodeIt", 300, 200, 200, 125)
$Button1 = GUICtrlCreateButton("Verschlüsseln", 100, 70, 100, 25, 0)
$Button2 = GUICtrlCreateButton("Entschlüsseln", 100, 100, 100, 25, 0)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUIDelete()
_Func1 ()
ExitLoop
Case $Button2
GuiDelete()
_Func2 ()
ExitLoop
EndSwitch
WEnd

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

Func _Func1 ()
$input = InputBox("Input", "Hier den zu verschlüßelnden Text eingeben.")
If $input = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Exit
EndIf

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

$level = InputBox("Level", "Auf welchem Level soll verschlüßelt werden? (1 - 5)")
If $level = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Exit
EndIf

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

If $level < 1 Then
MsgBox(0, "Fehler", "Level zu niedrig.")
Sleep(3000)
Exit
EndIf

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

If $level > 5 Then
MsgBox(0, "Fehler", "Level zu hoch.")
Sleep(3000)
Exit
EndIf

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

$passwort = InputBox("Passwort", "Mit welchem Passwort möchten Sie den Text sichern?")
If $passwort = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Exit
EndIf

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

$file = InputBox("Speichern unter", "Der verschlüsselte Text wird an Ihrem Default-Speicherplatz abgelegt (meist Desktop). Geben Sie bitte einen Namen für das Dokument ein und drücken Sie OK. Machen Sie dann bitte so lange keine Eingabe, bis das Notepad wieder geschloßen wurde.")
If $file = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Exit
EndIf

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

$output = _StringEncrypt(1, $input, $passwort, $level)

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

Run("notepad")
WinWaitActive("Unbenannt - Editor")
Send($output, 1)
WinClose("Unbenannt - Editor")
WinWaitActive("Editor", "&Speichern")
Send("!s")
WinWaitActive("Speichern unter", "&Speichern")
Send($file)
Send("!s")
WinWaitActive("Speichern unter", "&Speichern")
Send("!s")
EndFunc

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

Func _Func2 ()
$input = InputBox("Input", "Hier den zu entschlüßelnden Text eingeben.")
If $input = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Exit
EndIf

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

$level = InputBox("Level", "Auf welchem Level wurde der Text verschlüßelt")
If $level = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Exit
EndIf

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

If $level < 1 Then
MsgBox(0, "Fehler", "Level zu niedrig.")
Sleep(3000)
Exit
EndIf

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

If $level > 5 Then
MsgBox(0, "Fehler", "Level zu hoch.")
Sleep(3000)
Exit
EndIf

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

$passwort = InputBox("Passwort", "Wie lautet das Passort?", "", "*")
If $passwort = "" Then
MsgBox(0, "Fehler", "Keine Eingabe erfolgt.")
Sleep(3000)
Exit
EndIf

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

$output = _StringEncrypt(0, $input, $passwort, $level)

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

MsgBox(0, "Output", "Der entschlüßelte Text lautet: " & @CRLF & $output)

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

EndFunc
Exit

[/autoit]

janaiky

Das Zauberwort ist:

[autoit]

GuiDelete

[/autoit]

janaiky

Das mit den dlls stimmt.
Mit Bloodshed Dev-C++ kann man ganz leicht welche machen wenn man nur ein bisschen C kann.

janaiky

Nee, der alte war langsam... ich erklärs morgen nochmal genau.

muss ins bett

aber hier mein startmenü mit desktop im hintergrund:

janaiky

Wenn ihr alle eure Geschichten erzählt, dann ich auch :
Also Weihnachten 2005 hab ich einen Laptop bekommen. Dann hab ich angefangen mir Office beizubringen.
In der 4. Klasse war ich in der Computer-AG. Da hatten wir eine Programmiersoftware, die hieß Mediator.
Die wollte ich dann umbedingt haben und solange ich sie noch nicht hatte hab ich mir PowerPoint programmiert. (Geht wirklich ein bisschen)
(Mit Mediator programmiere ich immernoch ein bisschen, wenn ich Design ganz schnell brauch.)
Zu dieser Zeit war mein Laptop, der nicht der schnellste war, vollgemüllt. (Heute läuft er wieder, aber nicht so schnell)
Deswegen bekam ich Herbst 2008 einen Computer. Ich fing an Batch und VBS zu programmieren. Später stieß ich auf C und machte ein bisschen.
Vor ca. einem Jahr stieß ich auf AutoIt. Ja, das war meine Geschichte.

Ps: Mein Computer ist jetzt voller als der Laptop, aber noch nicht so lahm wie der Laptop (NUR 230 Programme)

janaiky

Herzlich Willkommen

Beiträge von janaiky

If ... Then ... EndIf

Probleme mit meinem Text Template Tool

Windows 7 installieren

Hallo

TCPConnect - bekomme keine Antwort zurück.

Windows 7 installieren

Config bearbeiten und Config bearbeiten

Config bearbeiten und Config bearbeiten

Obscufator

Doodle Jump für Pc

_GUICtrlRichEdit_Create ohne blinkender Cursor

Doodle Jump für Pc

Sprach-Streaming mit bass.dll

TCP/IP

Automatisches Schließen einer GUI, wenn nicht mehr benötigt.

Automatisches Schließen einer GUI, wenn nicht mehr benötigt.

Geschwindigkeit von scripten

Haaalllooo

Haaalllooo

Haloo