Beiträge von Mario2323

Mario2323

genau auf blodas.kilu.de/files/
und update txt nur auf blodas.kilu.de/

also sehen beide links so aus

link 1. blodas.kilu.de/files/Hallo.exe
link 2. blodas.kilu.de/update.txt

Mario2323

Was soll denn das
$Button1 = GUICtrlCreateButton("Test", 300, 360, 90, 30) darin?#

die txt würd so aussehen:

Code

0.1.2
Hallo.au3

aber ich wwürd immer nur ausführbare datein nehmen

Code

0.1.2
Hallo.exe

und wenn dann ne neue version rauskommt:

Code

0.1.3
Hallo.exe

Mario2323

also

1. wenn ftp server ist dann einfach anstatt http:// einfach ftp:// angeben.

2. in der txt steht in der ersten zeile die version nummer(dreistellig) und in der zweiten zeile steht der datei name.
wenn du jetzt ein Update bringst und der Client(Prog) ist z.B. noch 1.9.5 änderst du die version nummer in der txt
in die aktuelle version ab

jetzt passe ich den script für dich an.

Spoiler anzeigen

[autoit]

InetGet("http://www.blodas.kilu.de/update.txt",@TempDir & "\update.txt", 1, 0) ; das programm lädt die update.txt, wo die datei version drin steht
$file = FileOpen(@TempDir & "\update.txt", 0); öffen der datei
$line = FileReadLine($file, 1);speicher zeile 1 in variable
$line2= FileReadLine($file, 2);speicher zeile 2 in variable
If $line = $ver Then ; wenn programm version gleich der txt dann
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
FileClose($file);txtdatei schließen
FileDelete(@TempDir & "\update.txt");txt datei lösen
Else ; sonst
MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!");informiert das update vorhanden ist
$fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?"); fragt ob updaten will
If $fg = 6 Then ; Wenn ja/YES geklickt worden ist dann
InetGet("http://www.blodas.kilu.de/files/" & $line2, $line2, 1, 0) ;hole aktuelle datei (mit dem namen $line2)
FileClose($file);schliest datei
FileDelete(@TempDir & "\update.txt");löscht datei
Exit 0
EndIf
EndIf

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

du brauchst also insgesamt eine txt datei und ein ordner files, wo du die aktuellen programme reintust.

Edit:

Zitat

Wer geht schon in die ini-Datei und sucht nach der Version und ändert sie xD .. naja

Ich XD

Mario2323

Spoiler anzeigen

[autoit]

Dim $ver = "1.3.9"
InetGet("http://test/update.txt",@TempDir & "\update.txt", 1, 0)
$file = FileOpen(@TempDir & "\update.txt", 0)
$line = FileReadLine($file, 1)
$line2= FileReadLine($file, 2)
If $line = $ver Then
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
FileClose($file)
FileDelete(@TempDir & "\update.txt")
Else
MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!")
$fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?")
If $fg = 6 Then
InetGet("http://test/files/" & $line2, $line2, 1, 0) ; ANPASSEN
FileClose($file)
FileDelete(@TempDir & "\update.txt")
Exit 0
EndIf
EndIf

[/autoit]

und txt sieht so aus.

Code

1.4.0 ;anpassen
mytool.exe

Mario2323

Drücke im Editor F1... oh ein Wunder! Was fürn Wunder ist das??? Die Hilfe. yeeeeeeeeeeeeeaaaaaaaaaaaaaaar

Mario2323

gui vor der anmeldung doch .. wer den nvidia treiber drauf hat und die grafikkarte nicht mit strom versorgt krieg eine warn anzeige und wenn man bei der anmeldung etwas wartest erscheint es

Mario2323

weil ich momentan nicht an mein eigenen pc bin^^ also fehlt mir die Entwicklungsumgebung

Mario2323

geht das auch nur mit bildern?

Mario2323

Hallo Leutz.

Mich beschäftigt schon seit langem die frage, wie man mit Bildern einen Down(Maus ist nicht drauf), Rollover(Maus fährt drüber) und Click(Mouse klickt den Button) macht.

Ich habe mir schon verschiedene Möglichkeiten überlegt, aber keine hat bisher geklappt.

Wäre Dankbar über eure Hilfe.

Mario2323

Mario2323

ja wenn man nicht zu große hat.

Spoiler anzeigen

[autoit]

Dim $bilder = "http://test.de/bilder/"
Dim $bild1 = "banner2.gif"
Dim $Savebild1 = @TempDir & "\banner2.gif"
InetGet($bilder & $bild1, $Savebild1, 1)
$pic1 = GUICtrlCreatePic(@TempDir & "\banner2.gif")

[/autoit]

Mario2323

ja les doch die hilfe durch.

naja gib dir mal ein einfachen code:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 330, 352, 193, 125)
$Klick = GUICtrlCreateButton("Klick", 72, 248, 201, 25, $BS_DEFPUSHBUTTON)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 88, 56, 177, 17)
GUISetState(@SW_SHOW)

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

$Form2 = GUICreate("Form2", 331, 353, 193, 125)
$label = GUICtrlCreateLabel("bn", 100, 100, 200,50)

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

While 1
$msg = GUIGetMsg(1)
Select
Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $Form1
Exit
Case $msg[0] = $Klick And $msg[1] = $Form1
$ck = GUICtrlRead($Checkbox1)
If $ck = 1 Then
GUICtrlSetData($label, "Checkbox wurde makiert")
Else
GUICtrlSetData($label, "Checkbox wurde nicht makiert")
EndIf
GUISetState(@SW_SHOW, $form2)
Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $Form2
GUISetState(@SW_HIDE,$Form2)
EndSelect
WEnd

[/autoit]

Mario2323

und dann auf der größe vom gui

Mario2323

der rote button am rand mit einem X drauf eines fensters nennt man closebutton also kann man daraus ableiten das dieser gemein ist

Mario2323

ein tipp. um den editor vor neugierigen augen zu schützen, ist es ratsam diesen zu obfucaten.

und was ganz nervig ist, ist das der close button nicht funktionukelt

Mario2323

genau aber gehen wir davon aus, dass das keine betas sind

Mario2323

der beste weg ist immer noch der:

Spoiler anzeigen

[autoit]

Dim $ver = "1.3.9"
InetGet("http://irgendwas/update.txt",@TempDir & "\update.txt", 1, 0)
$file = FileOpen(@TempDir & "\update.txt", 0)
$line = FileReadLine($file, 1)
$line2= FileReadLine($file, 2)
If $line = $ver Then
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
FileClose($file)
FileDelete(@TempDir & "\update.txt")
Else
MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!")
$fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?")
If $fg = 6 Then
InetGet("http://irgendwas/files/" & $line2, $line2, 1, 0) ; ANPASSEN
FileClose($file)
FileDelete(@TempDir & "\update.txt")
Exit 0
EndIf
EndIf

[/autoit]

Dann muss in der txt Datei noch was stehen

Code

1.8.3 z.B. und line2 Dateiname. z.B. mytool.exe

Gruß Mario2323

Mario2323

Spoiler anzeigen

[autoit]

opt("trayoneventmode","1")

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

$close=traycreateitem("Beenden");
trayitemsetonevent($close,"beenden");

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

if fileexists("running") then
msgbox("0","Fehler","Das Programm wird bereits ausgeführt. Mehrere Instanzen sind nicht möglich.")
else
fileopen("running","1")
endif

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

While 1
sleep(10)
WEnd

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

func beenden()
msgbox("0","Test","Test")
endfunc

[/autoit]

Mario2323

wenn du uns den script zeigst können wir helfen

Mario2323

HTML

<html>
 <body leftmargin="0" rightmargin="0" topmargin="0" marginwidth="0"
 marginheight="0">


  Normaler Text<br>


  </body>
 </html>

quelle: http://www.planethtml.de/html/115.shtml

Mario2323

aber ohne continuecase setzt er das immer wieder um von 1 auf 0

Beiträge von Mario2323

Updatefunktion^^

Updatefunktion^^

Updatefunktion^^

Updatefunktion^^

Durch drücken einer taste 2mal Pfeiltaste nach rechts drücken lassen..

Beim Start Startet Programm

Rollover Button aus Bildern?

Rollover Button aus Bildern?

Rollover Button aus Bildern?

bild aus dem internet

Zwei GUIs

Hintergrundbild bei GUI

AutoIt Editor

AutoIt Editor

Online Update für eigenes Programm

Online Update für eigenes Programm

autoit soll sich nicht automatisch beenden

autoit soll sich nicht automatisch beenden

IE FilmFenster öffnen

Gibt es Control Pixelsearch und wo lieg in mein Script der Fehler?