if FileExist("http........ Ist Autoit in der lage?

Ich versuche eine möglichkeit zu finden das ein autoit program sich neustartet sobald er auf einem server eine gewisse datei sieht. versucht habe ich das mit Inetget. aber das stresst den Computer und ist somit nicht effektiv.
ich weiß leider nicht wie ich das angehen soll und da meine Geburtstag heute ist muss ich mich jetzt auf eine Feier vorbereiten. Vielleicht mag hier jemand das denken für mich übernehmen oder mir zumindestend eine idee liefern. ich wäre euch sehr Verbunden.

Das ist das Testscript. Das script darf auch kaum Prozessor Zeit wegnehmen. Stoße ich mit dem Wunsch an autoits grenzen?

#include <INet.au3>


Global $7zurl = "http://127.0.0.1"
While 1
   sleep(2)
If NOT(_INetGetSource($7zurl) = "") Then
	Local $internet = "1"
 Else
	Local $internet = "0"
 EndIf


$iTime = TimerInit()
if $internet = "1" Then
InetGet($7zurl & "/strings/lappen/1.txt", @ScriptDir & "1.txt")
EndIf
if FileExists(@Scriptdir & "1.txt") Then
Run(@ScriptFullPath)
sleep(1)
Exit
EndIf
$TimeEnd = Round(TimerDiff($iTime) / 1000, 3)


;MsgBox(0, 'Finished ', 'Time: ' & $TimeEnd & ' seconds and Internet Connection is ' & $internet)
WEnd

falls es bei euch vorkommt das das script sich zig mal neustartet hämmert in die CMD "TaskKill /F /IM Autoit.exe /T".

Zitat von alpines

Alles Gute zum Geburtstag

Du kannst doch nicht nur 2ms sleepen und immer die Seite neu pollen, das belastet doch die CPU extrem!
Ich hab das ganze mal verschönert und ein paar Verbesserungen hinzugefügt. Wofür der Timer genau ist, weiß ich allerdings nicht.
Ich weiß auch nicht warum du das ganze mit _InetGetSource machst, weil du doch direkt die Datei laden kannst?

Außerdem startet er das Script jedes Mal neu wenn er die Datei laden kann, also musst du serverseitig die Datei nach dem Download löschen oder verändern bzw. kennzeichnen.

Ich danke sehr für deine Glückwünsche c:
Dein gif sieht super Freundlich aus.

Ya nunja es ist halt nur ein script zum testen gewesen. Der timer soll mir ansagen wie hoch die Verzögerung in der Kompletierung der While schleife ist. Ich Halte mir programmiersprachen interessant indem ich etwas halblegales code. Ich habe mich an einem Keylogger in autoit versucht und bemerkt das es doch einige Probleme gibt, die nicht immer einfach zu lösen sind. So habe ich in meiner Frühen Jugend batch und vbs gelernt. Da die tasten anschläge manchmal kurz nacheinander erfolgen darf nicht viel zeit vergehen und das konnte ich am besten mit dem Timer messen.

_Inetgetsource benutze ich um herauszufinden ob die verbindung zu dem server vorhanden ist oder nicht. so kann ich den Code halt kürzen in dem mancher code erst garnicht ausgeführt wird.

ich danke dir vielmals und schaue mal wie sich die veränderung auswirkt.

PS: viele akzeptieren es nicht wenn man sich mit diesem wissen füttert. Ich hoffe allerdings das ich hier keine ablehung deshalb erfahre.

EDIT:

also gelöst habe ich das defizit mit dem ständigen neustarten so.

#include <INet.au3>
	local $text = "0"
	if FileExists(@Scriptdir & "\1.txt") Then
    FileDelete(@ScriptDir & "\1.txt")
	Local $text = "1"
	EndIf
    Global $7zurl = "http://127.0.0.1"
    While Sleep(30)
    	$tmr =	TimerInit()
		if $text = "0" Then
    	If _INetGetSource($7zurl) <> "" Then
    		InetGet($7zurl & "/strings/lappen/1.txt", @ScriptDir & "\1.txt", 1) ;1 = FORCE_RELOAD
		 EndIf
	    EndIf
    	If FileExists(@ScriptDir & "\1.txt") Then
    		ShellExecute(@ScriptFullPath)
    		Exit
    	EndIf
    	$TimeEnd = Round(TimerDiff($tmr) / 1000, 3)
    	;MsgBox(0, 'Finished ', 'Time: ' & $TimeEnd & ' seconds')
    WEnd

das hat mir zwar nicht wirklich geholfen, aber ich hab ne idee... ich denke ich schreibe einen Counter der also nach so und so vielen schleifen nach der 1.txt schaut

EDIT:

war garnicht mal so schwer. also meine Lösung ist diese

#include <INet.au3>
	local $text = "0"
	if FileExists(@Scriptdir & "\1.txt") Then
    FileDelete(@ScriptDir & "\1.txt")
	Local $text = "1"
	EndIf
    Global $7zurl = "http://127.0.0.1"
	$icount = "0"
    While Sleep(30)
       $iCount = $iCount + 1
    	$tmr =	TimerInit()
		if $icount = "200" Then
		   $icount = "0"
		if $text = "0" Then
    	If _INetGetSource($7zurl) <> "" Then
    		InetGet($7zurl & "/strings/lappen/1.txt", @ScriptDir & "\1.txt", 1)
		 EndIf
	  EndIf
	  endif


    	If FileExists(@ScriptDir & "\1.txt") Then
    		ShellExecute(@ScriptFullPath)
    		Exit
    	EndIf
    	$TimeEnd = Round(TimerDiff($tmr) / 1000, 3)
    	;MsgBox(0, 'Finished ', 'Time: ' & $TimeEnd & ' seconds')
    WEnd

oh ya meine formatierung ist fürn Müll, aber irgendwie mach ich da gerne mein eigenes Ding o:
Ich sehe irgendwie die ordnung im Chaos und deshalb komm ich nicht wirklich durcheinander.
Sollte ich also vorhaben den ganzen code zuveröffentlichen sollte ich wohl eine Bessere Formatierung wählen.

Ping würde sicher funktionieren, aber das werde ich erst umsetzen sobald ich den code nocheinmal komplett durcharbeite.

Die Foren Regeln sind mir sehr bewusst. Ich nutze das für mich und an meinen Computern, bis es vielleicht tatsächlich mal notwendig wird etwas in erfahrung zu bringen. Aber dazu sollte diese Person schon grundlegende ethische werte verachten um mir einen Grund zu liefern.
Schlussendlich werde ich aber nicht beweisen können das ich das hier für mich behalte, also kann ich nur mein Wort geben.

Nein die 15sek abfrage macht nicht viel sinn. Da das Script an dem ich eben arbeite eine riesige While schleife besitzt. Dort wird nur 1ms gewartet und die Prozessor Auslastung liegt bei 1% im Durchschnitt.

ohh ich wusste tatsächlich nicht das autoit diese untergrenze hat. Vielleicht garnicht mal so schlecht das zu wissen.

Also dann ich danke dir trotzdem für deine Netten antworten und schaue Nach dem aufstehen mal nach Tidy.

Zitat von alpines

STRG+T in SciTE drücken und schwups hast du den Script getidyed.

Tidy ist tatsächlich genau das richtige für mich, für mich faulpelz der den arbeitsplatz nicht ordentlich hält

Und damit schließe ich den Thread hier jetzt c: