Beiträge von Jam00

Jam00

Das sollte über PHP gehen, hier geht es um sowas ähnliches.
Vieleicht kann man die PHP so umbauen das man sie mit autoit benutzen kann

Jam00

Ja, ich hatte vor meinen PC dafür zu benutzen, also als FTP-Server.
Aber ich hab das noch nicht hinbekommen, irgendwie geht das als nicht, ich selber von meinem pc aus kann dann zwar auf den ftp-ordner zugreifen über die adresse, aber wenn ich die anderen geben geht es nicht.

Und dann ist mir noch eingefallen, dass das eig keinen sinn hat mit meinem PC weil mein interet ständig zusammenbricht

Jam00

Du müsstest das Clipboart Ständig überprüfen und jedesmal wenn ein neuer eintrag kommt den Alten Speichern und in einer ListView oder sowas anzeigen, wo man ihn per doppelklick wieder ins Clipboard kopieren könnte

Jam00

Um genaueres zu sagen müsstest du mal die Vokabeln.txt uploaden, denn es ist ein Falscher Prameter bei StringSplit denke ich, kannst ja mal so versuchen, sonst poste einfach auch mal die Vokabeln.txt

Spoiler anzeigen

[autoit]

#comments-start

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

Vokabeltrainer Version 1
Französisch

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

#comments-end

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

#include "file.au3"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Dim $arvocs
Dim $allvocs
Dim $voc

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

;Vokabeln auslesen
_FileReadToArray (@scriptdir & "\vokabeln.txt", $arvocs)
$allvocs = UBound ($arvocs) -1
;Vokabeln auslesen Ende

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

;ToolTip
$random = Random (1, $allvocs, 1)
$voc = $arvocs[$random]
$voc = StringSplit ($voc, "=")

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

;ToolTip Ende

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

;GUI

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

$Form1 = GUICreate("Vokabeltester", 633, 454, 192, 124)
$Vokabeleingabe = GUICtrlCreateInput("Vokabeleingabe", 56, 80, 209, 21)
$Fertig = GUICtrlCreateButton("Fertig!!!", 56, 240, 209, 97, $WS_GROUP)
GUISetState (@sw_show)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 423, 383, 145, 57, $WS_GROUP)
$frage= GUICtrlCreateInput($voc[1], 56, 176, 209, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Leo = GUICtrlCreateButton("Übersetzung", 240, 384, 145, 57, $WS_GROUP)
$Informationen = GUICtrlCreateButton("Informationen", 55, 383, 145, 57, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Gib hier die Übersetzung ein:", 64, 56, 140, 17)
GUISetState (@sw_show)
;Gui Ende

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

#include <IE.au3>

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

;Warten aufs ausfüllen
While 1
$bla = GUIGetMsg()
switch $bla
Case $Fertig
_next()
Case $Abbrechen
Exit
Case $Leo
_IECreate("http://dict.leo.org/frde?lang=de&lp=frde", 0, 1, 0 )
Case $Informationen
MsgBox(0,"Informationen","Idee: YYYYYYY" & @CRLF & "Entwickelt: XXXXXX")
EndSwitch
WEnd
;Warten Ende

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

;Schleife, die die nächste Vokabel erstellt
Func _next()

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

GUICtrlSetData ($Vokabeleingabe, "")
$Loesung = GUICtrlCreateInput("Richtig ist: " & $voc[2], 56, 130, 209, 21)
Sleep (2000)
$arvocs[$random] = ""
$random = Random (1, $allvocs, 1)
$voc = $arvocs[$random]
$voc = StringSplit ($voc, "=")
If $voc[1] = "" Then
_next()
EndIf
$L = GUICtrlCreateInput($voc[1], 56, 176, 209, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetData($Loesung,"Lösung")
EndFunc
;Schleife Ende

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

Edit BugFix: persönliche Angaben entfernt

Jam00

Is ja der hammer, geile sach, großes lob von mri echt cool

Jam00

Vieleicht hilft dir das weiter, hab ich mal gemacht, ist noch nicht fertig aber es geht schon:

Sender

[autoit]

Do
$IP = InputBox("IP", "Gib die IP ein")
If @error Then Exit
Until $IP <> ""
If Not Ping($IP) Then Exit MsgBox(16, "Error", "Diese IP ist nicht Online")
$File = FileOpenDialog("Wähle die Datei aus", @DesktopDir, "Alle Dateien (*.*)")
$Name = StringTrimLeft($File, StringInStr($File, "\", 0, -1))
$Read = FileRead($File)
TCPStartup()
$Con = TCPConnect($IP, 80)
If $Con = -1 Then Exit MsgBox(16, "Error", "Konnte keinen Server auf dieser IP finden")
$Size = FileGetSize($File)
TCPSend($Con, "Datei|" & $Name & "|" & $Size)
Do
$recv = TCPRecv($Con, 2048)
If $recv = "0" Then Exit MsgBox(16, "Error", "Der Partner hat die Datei nicht angenommen!")
Sleep(100)
Until $recv = "1"
$SizeOld = $Size
ProgressOn("Dateiübertragung", "Die Datei wird übertragen", "0%", Default, Default, 18)
Do
$x = TCPSend($Con, $Read)
If @error Then ExitLoop
$Size -= $x
ProgressSet($Size / $SizeOld * 100, $Size / $SizeOld * 100 & "%")
Sleep(100)
$Read = StringTrimLeft($Read, $x)
Do
Sleep(10)
Until TCPRecv($Con, 2048) = "1"
Until StringLen($Read) < 1
TCPSend($Con, "ENDE")
ProgressOff()
TCPShutdown()
MsgBox(64, "Fertig", "Die Datei wurde komplett übertragen")

[/autoit]

Empfänger

[autoit]

#include <INet.au3>
TCPStartup ()
$TCP = TCPListen (_GetIP(),80)
Do
$Con = TCPAccept ($TCP)
Until $Con <> -1
$Split = StringSplit (_Recv (),"|")
If $Split[1] = "Datei" Then
If MsgBox (1,"Dateisendung","Ihnen wird die Datei " & $Split[2] & " gesendet") = 1 Then
$File = FileSaveDialog ("Wählen sie den Speicherort und Namen",@DesktopDir,"(*." & StringTrimLeft ($Split[2],StringInStr ($Split[2],".",0,-1)) & ")",Default,$Split[2])
TCPSend ($Con,"1")
ProgressOn ("Dateiübertragung","Die Datei wird übertragen","0%",Default,Default,18)
$SizeAdd = 0
While 1
$recv = _Recv()
If $recv = "ENDE" Then
Exit MsgBox (64,"Feritg","Die Datei wurde komplett übertragen!")
Else
$SizeAdd += StringLen ($recv)
ProgressSet ($SizeAdd / $Split[3] *100,Round ($SizeAdd / $Split[3] *100,2) & "%")
FileWrite ($File,$recv)
$recv = ""
TCPSend ($Con,"1")
EndIf
Wend
Else
TCPSend ($Con,"0")
EndIf
EndIf
Func _Recv ()
Local $recvf
Do
$recvf = TCPRecv ($Con,1024)
Sleep (10)
Until $recvf <> ""
Return $recvf
EndFunc

[/autoit]

Jam00

Hallo,

Ich hab eine Frage zu 256*256 JPG-Bildern.
Ein freund hat mich gefragt ob ich ihm ein programm schreiben könnte was ihm ganz viele Bilder hintereinander aufreiht und das dann in eine Bilddatei Speichert so: Bild1|Bild2|Bild3 undsoweiter

Danke im voraus

Jam00

Gut, so geht es, müsste man dann noch ein bischen umbauen, damit er es mri automatisch aus calc ausliest und dann reinschreibt, aber das lohn den aufwand nicht, wollte eig nur wissen ob es direckt in exel möglch ist, abertrozdem danke

Jam00

Ich glaube kaum, probier es einfach aus

Jam00

So:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <Misc.au3>
#include <GuiEdit.au3>

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

Global $hWnd

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

HotKeySet("{ENTER}","pressed")

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

Global $Konsole = _Konsol_Create("Konsole","Test")
;=================================================================================================
; Function: _Konsol_Create
; Varibles: $title = Titel der Konsole
; $text = Text des Labels
; Author: SB
;=================================================================================================
Func _Konsol_Create($title,$text)
Local $dll = DllOpen("user32.dll")
Dim $hWnd[3]
$hWnd[0] = GUICreate($title,500,300)
GUISEtBkColor(0x000000)
$hWnd[1] = GUICtrlCreateEdit("",0,0,500,300,BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL,0x08000000), 0)
GUICtrlSETBKColor(-1,0x000000)
GUICTrlSETColor(-1,0xDCDCDC)
GUICtrlSEtFont(-1,10,400,17,"Georgia")
$hWnd[2] = GUICtrlCreateInput ("",0,0,483,20,$ES_AUTOHSCROLL,0)
GUICtrlSETBKColor(-1,0x000000)
GUICTrlSETColor(-1,0xDCDCDC)
GUICtrlSEtFont(-1,10,400,17,"Georgia")
GUISetState(@SW_SHOW)
While 1
Switch GUIGETMSG()
Case -3
GUISetState(@SW_HIDE,$hWnd[0])
Exitloop
EndSwitch
WEnd
Return $hWnd
EndFunc
Func pressed()
Dim $Befehle[5]
$Befehle[0] = "time"
$Befehle[1] = "date"
$Befehle[2] = "ip"
$Befehle[3] = "pcname"
$Befehle[4] = "username"
$text = GUICTrlREad($hWnd[2])
$read = GUICTrlREad($hWnd[1])
GUICtrlSetData ($hWnd[2],"")
IF $text = "" Then
GUICtrlSetData($hWnd[1],$read & @CRLF & @CRLF&" "& "Bitte Text Eingeben"& @CRLF& @Crlf )
Endif
If $text = $Befehle[0] Or $text = $Befehle[0] & "" Or $text = $Befehle[0] & " " Then
GUICtrlSetData($hWnd[1],$read & $text & @CRLF & " " & @Hour & ":" & @Min & @CRLF & @Crlf )
Endif
If $text = $Befehle[1] Or $text = $Befehle[1] & "" Or $text = $Befehle[1] & " " Then
GUICtrlSetData($hWnd[1],$read & $text & @CRLF & " " & @MDAY & ":" & @Mon & ":"& @Year & @CRLF & @Crlf )
Endif
If $text = $Befehle[2] Or $text = $Befehle[2] & "" Or $text = $Befehle[2] & " " Then
GUICtrlSetData($hWnd[1],$read & $text & @CRLF & " " & @IPAddress1 & @CRLF & @Crlf )
Endif
If $text = $Befehle[3] Or $text = $Befehle[3] & "" Or $text = $Befehle[3] & " " Then
GUICtrlSetData($hWnd[1],$read & $text & @CRLF & " " & @ComputerName & @CRLF & @Crlf )
Endif
If $text = $Befehle[4] Or $text = $Befehle[4] & "" Or $text = $Befehle[4] & " " Then
GUICtrlSetData($hWnd[1],$read & $text & @CRLF & " " & @Username & @CRLF & @Crlf )
Endif
$Pos = _GUICtrlEdit_PosFromChar ($hWnd[1],_GUICtrlEdit_GetTextLen($hWnd[1]) -1)
GUICtrlSetPos ($hWnd[2],0,$Pos[1]+16)
EndFunc

[/autoit]

Jam00

Ja, also eine grafische auflösung, also das er mir das ausklammert

Jam00

Hast du beim Posten irgendwie einen Fehler gemacht, weil das ist ja nur müll

Jam00

Ich habe mal eine frage zu Calc (währe auch nicht schlimm wenn die lösung von Exel ist) und zwar möchte ich das er mir z.B folgendes ausklammert:
(x+y)²
und da soll dann
x²+xy+yx+y² rauskommen.

Weiß jemand ob das geht und wenn ja wie?

Jam00

Danke,
aber irgendwie geht das noch nicht so ganz, wenn ich die Datei auswähle und dann upload klicke kommt "Seite nicht gefunden!" und die Datei kann ich nirgends auf dem FTP finden

Jam00

Ja kann ich bestätigen, hab die version, die schon an die Firmen ausgeliefert wurde

Jam00

Gibt es denn garkeine lösung?

Jam00

Sieht doch ganz gut, aus, überwache gerad dieses Therad mal sehen obs geht

EDIT:
Ging irgendwie noch nicht so richtig, mache nochmal enen post

Jam00

Stiimt, machs einfach so

Spoiler anzeigen

[autoit]

$Ini = @ScriptDir & "\Dreck.ini"
$Sections = IniReadSectionNames ($Ini)
$Text = ""
For $1 = 1 To $Sections[0]
$Read = IniReadSection ($Ini,$Sections[$1])
$Text &= " " & $Read[Random (1,$Read[0][0] +1)][1]
Next
MsgBox (0,"",$Text)

[/autoit]

Jam00

Von welchem script jetzt?

Jam00

Ich hab keine ahnung ob das für dieses Forum möglich ist, aber bei lo-net2 z.B. gibt es so einen Client den man sich auf dem Pc instalieren kann und dann wird man immer über neue nachrichten informit usw. Dann brauch man das nicht ständig aktualiesieren und nachguck, da bekomm man dann eine einen TryTip

Das währe doch schön für das forum, das man dann z.B. ein Thema auswählen kann wo man dann immer eine MsgBox bekommt, wenn eine neue nachricht in dem Thema ist usw.

Ich wollte mal fragen ob das möglich ist oder/und ob das jemand kann oder ob es das schon irgendwie gibt

Beiträge von Jam00

File Upload

FTP-Upload

ClipBoard Manager v5.5

AutoIt als karteikarten ersetzer

SuperMario Gameplay und Download

Screen-Capture von Client an Server

Bilder aneinander reien

Exel bzw. Calc frage

Parameter als Dateiname für Notepad

Bestimmter Text in Edit unlöschbar

Exel bzw. Calc frage

AutoIt als karteikarten ersetzer

Exel bzw. Calc frage

FTP-Upload

OSVersion-Kennung von Windows7

Script hängt sich auf beim Datei Senden auf

autoit.de Client

Dreckgenerator

Dreckgenerator

autoit.de Client