Beiträge von Dr.Galvany

Dr.Galvany

so noch eine andere kleine frage zu dem proggi.

gibt es eine darstellungs aktuallisierungs "funktion" taste?

bs. es ist so geschrieben:

Code

$1 = 0
$2 = 0
While 1
While $1 =1
bababab
ExitLoop
WEnd
While $2 = 1
bababab
ExitLoop
WEnd
ExitLoop
WEnd

Alles anzeigen

ich möchte es aber dann so wie es soll bzw. übersichtlicher ist:

Code

$1 = 0
$2 = 0
While 1
	While $1 = 1
		bababab
		ExitLoop
	WEnd
	While $2 = 1
		bababab
		ExitLoop
	WEnd
	ExitLoop
WEnd

Alles anzeigen

Dr.Galvany

erst mal vielen dank peethebee

so das kapiere ich aber nicht so recht.

das mußt du mir anfänger mal etwas genauer erklären.
das sollte doch gehen oder wo ist mein denkfehler?

Code

MsgBox(0,"lol","und?")


AdlibEnable("myadlib")
;...
Exit


Func myadlib()
    If WinActive("lol") Then
       MsgBox(0,"ups","es geht")
    EndIf
EndFunc

Alles anzeigen

hier mal die deutsche erklärung dazu:
Da drinnen steht aber, das das Hauptscript dann auch angehalten wird.

Zitat

Funktionsreferenz
AdlibEnable
--------------------------------------------------------------------------------

Ermöglicht die Adlib Funktion.

AdlibEnable ( "Funktion" [, Zeit] )

Parameter

Funktion Der Name der adlib Funktion die aufgrufen werden soll.
time [optional] Wie häufig die Funktion in millisekunden aufgerufen werden soll. Standard ist 250 ms.

Rückgabewert

None.

Bemerkungen

Jede 250 ms (oder Zeit ms) wird die spezifizierte "Funktion" aufgerufen--normalerweise um auf unerwartete Fehlern zu prüfen. Z.B. könnten sie adlib in einem Script benutzen, um ein Fehler-Fenster zu öffnen, wenn ein unvorhersehbarer Fehler auftritt.
Die adlib Funktion sollte einfach gehalten werden, da sie häufig aufgerufen wird und währendessen das Hauptscript pausiert. Auch der Zeitparameter sollte sorgfältig verwendet werden, um unnötige CPU-Last zu vermeiden.

Beispiel

AdlibEnable("myadlib")
;...
Exit

Func myadlib()
If WinActive("Error") Then
;...
EndIf
EndFunc

Alles anzeigen

Dr.Galvany

alles klaro, danke

Dr.Galvany

also es geht bei mir, habe beim speichern der datei, den ordner davor vergessen und dadurch ging es erst nicht.
aber mal was anderes dazu, ist das so richtig?

Code

$Ftpc = _FTPClose($Open)

oder muß es so sein?

Code

$Ftpc = _FTPClose('egal was hier steht')

Dr.Galvany

ich habe mir gerade das FTP.au3 geladen.
komme aber nicht so recht klar.
kannst du mir mal kurz erklären was ich machen muß.
ich habe die drei sachen erstellt.

Code

$s_ServerName = "192.168.001.28"
$s_Username = "Admin"
$s_Password = "xxx"

aber wo muß ich angeben welche datein er hochladen soll?

Dr.Galvany

da fällt mir gerade was ein
mal schaun ob ich das bis zum wochenende irgend wie auf die beine bekomme :]

Dr.Galvany

gibt es eine möglichkeit, das man die daten wo man über ein AutoIt script sendet bzw émpfängt, das man das angezeigt bekommt?
oder den gesamten netzwerk taffic so in der richtung.

Dr.Galvany

an einer firewall kanns bei mir nicht liegen, da ich keine drauf habe
es geht in meinem netzwerk nicht unter meinen PC'S so wie nicht zu einen Virtuellen.
Ach wegen Vieren und Würmchen und die kleinen troja's mache ich mir keine sorgen, die sollen nur kommen dann werden sie ihr wunder erleben

Dr.Galvany

bei mir will es auch nicht, egal auf welchen rechner.

[Blockierte Grafik: http://img133.imageshack.us/img133/294/200627031913010md.jpg]

Dr.Galvany

ich kapier es einfach nicht und bekomme es nicht hin.

Code

; BINARY FILE TEST SENDER


#Include<String.au3>


Global Const $TCP_PORT = 3333


Dim $nSocketSend = -1
Dim $file = ""




TCPStartup()


$file = FileOpenDialog("Datei zum Senden","","All Files (*.*)")
If @error Then Exit


$pc = InputBox("Empfänger Adresse",@LF & "IP Adresse oder DynDNS Name" & @LF & @LF & "DynDNS mit (\) beginnen!!","","", 200,175)
If $pc = "" Then Exit
If StringLeft($pc,1) = "" Then
    $pc = TCPNameToIP(StringTrimLeft($pc,1))
EndIf


$socket = TCPConnect($pc,$TCP_PORT)
If $socket = -1 Then
	msgbox(16,"Fehler","Kann Server nicht ereichen") ;von mir
	Exit
EndIf


$n = FileGetSize($file)


$buffer = StringTrimLeft($file,StringInStr($file,"",0,-1)) & "," & $n & "," & FileRead($file)


While StringLen($buffer)
    $x = TCPSend($socket,$buffer)
    If @error Then ExitLoop
    $n -= $x
    $buffer = StringTrimLeft($buffer,$x)
WEnd




$FILEOPEN = FileOpen($FILE, 0)
$te = _StringToHex(FileRead($FILEOPEN, 2048))


$i = 0
While $i = $te
		ProgressOn("Aktuell","Prozent test")
		sleep(100)
        $i = $te * 99.9 / $te
        Sleep(100)
        ProgressSet($i,"","")
        ProgressOff()
WEnd




While 1
    If TCPRecv($socket,2048) <> "" Then ExitLoop
    If @error Then ExitLoop
WEnd

Alles anzeigen

Dr.Galvany

ich habe mir dieses Script "vom englischen Forum" für mich angebast.
Es geht auch super und weil es so gut geht, würde ich noch gerne eine fortschritsanzeige mit einbauen "TrayTip"
ich komme aber irgend wie nicht klar damit.
ich hänge noch mal ein weiteres script mit an, wo diese wunderschön geht, aber ich schaffe es nicht die zu zu ändern das die hier in diesen geht.

Code

; Das ist das wo ich benutze.


Global Const $TCP_PORT = 3333


Dim $nSocketSend = -1
Dim $file = ""


TCPStartup()


$file = FileOpenDialog("Datei zum Senden","","All Files (*.*)")
If @error Then Exit


$pc = InputBox("Empfänger Adresse",@LF & "IP Adresse oder DynDNS Name" & @LF & @LF & "DynDNS mit (\) beginnen!!",@IPAddress1,"", 200,175)
If $pc = "" Then Exit
If StringLeft($pc,1) = "" Then
    $pc = TCPNameToIP(StringTrimLeft($pc,1))
EndIf


$socket = TCPConnect($pc,$TCP_PORT)
If $socket = -1 Then Exit


$n = FileGetSize($file)


$buffer = StringTrimLeft($file,StringInStr($file,"",0,-1)) & "," & $n & "," & FileRead($file)


While StringLen($buffer)
    $x = TCPSend($socket,$buffer)
    If @error Then ExitLoop
    $n -= $x
    $buffer = StringTrimLeft($buffer,$x)
WEnd


While 1
    If TCPRecv($socket,2048) <> "" Then ExitLoop
    If @error Then ExitLoop
WEnd

Alles anzeigen

hier ist das wunderschöne "TrayTip" drinnen.

Code

opt("TrayIconDebug", 1)
#Include<String.au3>
$FILE = FileOpenDialog("Choose File", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "All Files(*.*)", 3)
If $FILE = "" Then Exit 0
$NAME = StringSplit($FILE, "")
$NAME = $NAME[$NAME[0]]
$SIZE = FileGetSize($FILE)
$NR_PARTI = Int($SIZE / 2048)
$NR_PARTI = $NR_PARTI & "~"& ($SIZE- ($NR_PARTI * 2048))
$NR = StringSplit($NR_PARTI, "~")
$IP = InputBox(" ", "SERVER IP:", @IPAddress1, "", 120, 80)
$PORT = 58789
TcpStartUp ()
$CONNECT = TcpConnect ($IP, $PORT)
If $CONNECT = -1 Then Message("Connection failed!")
Sleep(333)
TcpSend ($CONNECT, $NAME)
Do
	Sleep(1)
	$CONFIRM = TcpRecv ($CONNECT, 512)
Until $CONFIRM = "Name_Ok!"
TcpSend ($CONNECT, $NR_PARTI)
Do
	Sleep(1)
	$CONFIRM = TcpRecv ($CONNECT, 512)
Until $CONFIRM = "Nr_Parti_Ok!"
$FILEOPEN = FileOpen($FILE, 0)
Sleep(2500)
For $INDEX = 1 To $NR[1]
	Do
		Sleep(1)
		$SEND = TCPSend ($CONNECT, _StringToHex (FileRead($FILEOPEN, 2048)))
	Until $SEND > 0 And @error = 0
	TrayTip("", Round(($INDEX * 99.9) / $NR[1], 1) & "% done!", 1)
	Do
		Sleep(1)
		$RECV = TCPRecv ($CONNECT, 512)
	Until $RECV = $INDEX
Next
If $NR[2] > 0 Then
	Do
		Sleep(1)
		$SEND = TCPSend ($CONNECT, _StringToHex (FileRead($FILEOPEN, $NR[2])))
	Until $SEND > 0 And @error = 0
	Do
		Sleep(1)
		$RECV = TCPRecv ($CONNECT, 512)
	Until $RECV = $NR[2]
EndIf
FileClose($FILEOPEN)
Exit 0
Func Message($MESSAGE)
	MsgBox(64 + 262144, "", $MESSAGE, 3)
	Exit 0
EndFunc   ;==>Message

Alles anzeigen

also das hier:

Code

For $INDEX = 1 To $NR[1]
	Do
		Sleep(1)
		$SEND = TCPSend ($CONNECT, _StringToHex (FileRead($FILEOPEN, 2048)))
	Until $SEND > 0 And @error = 0
	TrayTip("", Round(($INDEX * 99.9) / $NR[1], 1) & "% done!", 1)
	Do
		Sleep(1)
		$RECV = TCPRecv ($CONNECT, 512)
	Until $RECV = $INDEX
Next

Alles anzeigen

Dr.Galvany

hehe, ja es geht!
es liegt nur an der beta!
das "scite" wird überhaupt nicht benötigt.

warum macht ihr so viel mit dieser beta?
leiegt es daran das die mehr kann oder hat das noch andere gründe?

Dr.Galvany

so, habe das jetzt drauf, aber was muß ich da machen?
kommt die gleiche meldung

Dr.Galvany

lol, ich habe das hier http://www.drweb.de/htmltools/scite.shtml runder geladen, kein wunder das ich nicht klar kam

@Nuffilein805
danke

Dr.Galvany

hi, ist mir ja schon fast peinlich, aber wie muß ich "scite" benutzen (kann nur sehr schlecht englisch)
ich wollte das nicht in den anderen bereich schreiben, weil es ja nicht's mit den script zu tun hat.
ich brauche es für hier http://autoit.aufwaerts.de/thread.php?threadid=205&sid=

Dr.Galvany

hallo, bei mir kommt bei allen scripten der fehler "TcpStartUp ()".
habe ich was übersehen?

Dr.Galvany

hehe wolke

ja genau das war mein fehler!!!
es ist keine reg sondern eine schalter übergabe zur exe

Dr.Galvany

ja aber der "run" geht ja auch nicht.

Dr.Galvany

hallo, bräuchte mal wieder eine kleine info von euch.
warum gehen diese beiden sachen nicht?
ist doch von der schreibweise richtig.

Code

;???


$prog = "test.exe"


FileInstall($prog, @TempDir & "")


     run(@TempDir & "" & $prog & "/S")

Dr.Galvany

aha
muß ich morgen mal schaun ob ich das kann.

Beiträge von Dr.Galvany

scite

AdlibEnable

Ftp.au3

Ftp.au3

Ftp.au3

netzwerkgeschwindigkeit

netzwerkgeschwindigkeit

Chat über TCP/IP Prof.

Chat über TCP/IP Prof.

TrayTip

TrayTip

über Internet datei kopieren

über Internet datei kopieren

scite

scite

über Internet datei kopieren

Array frage

Array frage

Array frage

ich hänge fest.