Beiträge von Goldy

Goldy

Auftraggeber FBI

Wollte das halt wissen weil es viele noobs gibt die einen Code einfach nehmen und diesen dann als ihren ausgeben.

Goldy

Meint ihr das es in einer AutoIT V4 < hehe

Sich das verbessern wird?

Weil Sicherheit sollte gewehrleistet werden

Goldy

Ist es den sehr leicht das bei AutoIt zu machen ?

Wäre es dann nicht sinnvoll seiten des Herstellers einen besseren Compiler (hoffe richtig) zu machen?

Oder einfach so machen das decompilen (hoffe wieder richtig) einfach net geht?

Goldy

Goldy

Hallo Leute , in einem anderen Forum wurde mir gerade das hier geschrieben :

Ist ja schön das du ne Scriptsprache lernst, aber solltest vielleicht mit dem releasen warten bis das Teil fertig ist. Außerdem solltest du im Kopf behalten das man Autoit Stubs wieder zu Scripten machen kann, heißt das dein ursprüngliches Script wieder zum Vorschein kommt.

Ist da was dran ?

Finde es nicht so toll wenn etwas einfach decompiled wird und als ein eigenes ausgeben wird wofür ich so lange gebraucht habe.....

MfG

Goldy

Goldy

Danke eukalyptus

Habe es bei mir , aber nun so eingefügt :

[autoit]

$sText = FileRead(@ScriptDir & '\notice.txt')
If @error Or Not $sText Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")

EndIf

[/autoit]

Damit das Programm an bleibt ;D

Nochmals vielen dank ;D

Goldy

Hey ;D

Habe mir zuerst die Hilfe angeschaut bin aber darus nicht schlau geworden ...

In der Hilfe steht das :

[autoit]

If $datei = -1 Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")
Exit
EndIf

[/autoit]

Ich habe es so :

[autoit]

$Your = GUICtrlCreateEdit("", 24, 88, 329, 169)
GUISetState()
$sText = FileRead(@ScriptDir & '\notice.txt')
GUICtrlSetData($Your, $sText)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If $sText = -1 Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")
Exit
EndIf

[/autoit]

Ich möchte jegendlich das wenn die notice.txt nicht geladen wird (aus welchen grund auch immer) halt die Fehler Meldung kommt.

Goldy

Goldy

Habe mir gerade gedacht , so schwer kann das doch garnet sein.

Und schwups es ging ;D

Danke nochmal Oscar ;D

Spoiler anzeigen

[autoit]

$Your = GUICtrlCreateEdit("", 24, 88, 257, 129)
GUISetState()
$sText = FileRead(@ScriptDir & '\notice.txt')
GUICtrlSetData($Your, $sText)
GUISetState(@SW_SHOW)

[/autoit]

Goldy

Also , mit Koda habe ich jetzt einen kasten mit Senkrechten und Waagerechten Scrollbalken in mein Fenstergesetzt (hoffe das war so gemeint)

Hier mal kurz mein Code :

Spoiler anzeigen

[autoit]

#NoTrayIcon
; =======================================================================
; Game Launcher
; Made by Goldy
; © 2010
;
; =======================================================================
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

; Code Anfang (Design)

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\koda\forms\form1.kxf
$Form1 = GUICreate("Local KalLauncher V0.2", 306, 281, 330, 424)
$Button1 = GUICtrlCreateButton("Exit", 208, 232, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Start", 16, 232, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Mini Kal", 24, 0, 263, 82)
GUICtrlSetFont(-1, 50, 800, 0, "Parry Hotter")
$Button4 = GUICtrlCreateButton("Credits", 112, 232, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Your = GUICtrlCreateEdit("", 24, 88, 257, 129)
GUICtrlSetData(-1, "Your")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$sText = FileRead(@ScriptDir & '\notice.txt') ; Datei lesen
GUICtrlSetData($hEdit, $sText) ; und in Edit-Control einfügen

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

Do
Until GUIGetMsg() = -3

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
Case $Button4
_credits()
Case $Button2
Shellexecute("engine.exe", "/load /config debug")

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

EndSwitch
WEnd

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

Func _credits()
MsgBox(64, "Credits", "Idea: Goldy" & @CRLF & "Design: Goldy" )
;~ #Region ### START Koda GUI section ### Form=
;~ $Form2 = GUICreate("Credits", 229, 126, 527, 617)
;~ $Label1 = GUICtrlCreateLabel("Idee:Goldy", 8, 16, 80, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ $Label2 = GUICtrlCreateLabel("Desing : Goldy", 8, 48, 106, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ $Label3 = GUICtrlCreateLabel("Update Funktion : hellboy3", 8, 80, 188, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ GUISetState(@SW_SHOW)
;~ #EndRegion ### END Koda GUI section ###

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

;~ While 1
;~ $nMsg = GUIGetMsg()
;~ Switch $nMsg
;~ Case $GUI_EVENT_CLOSE
;~ Exit

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

;~ EndSwitch
;~ WEnd

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

EndFunc ;==>_credits

[/autoit]

Wie man sieht muss nun noch :

[autoit]

$sText = FileRead(@ScriptDir & '\notice.txt') ; Datei lesen
GUICtrlSetData($hEdit, $sText) ; und in Edit-Control einfügen

[/autoit]

Eingesetzt werden.
Nur ich kenne mich nur damit aus wie man was neues öffnet wenn man einen Button klickt.

So deswegen kommt mir dann auch "Case" bissl unlogisch vor.

Habe auch inner Hilfe nachgeschaut bin aber nicht draus schlau geworden.

Goldy

Goldy

Hallo Leute

Ich mal wieder *g*

Kurze frage hoffentlich schnelle antwort

Und zwar möchte ich eine .txt file auslesen.
Diese ist im selben ordner wie das Programm.

Und in dem Programm soll dann ein Fenster sein wo der Inhalt angezeigt wird.

Ich habe nemlich wierklich 0 Plan wie das gehen soll.

PS: notice.txt

MfG

Goldy

Goldy

Vielen dank ideas2code
mit deinem Code funzt es nun ;D

Werde ich mir für spätere Projekte merken !!!!

MfG

Goldy

Goldy

Habe es mal so gemacht wie autoBert es geschrieben hat dann kommt :

"engine.exe/load/config debug" konnte nicht gefunden werden. Stellen Sie sicher, dass Sie den Namen korrekt eingegeben haben und wiederhilen Sie den Vorgang. Klicken Sie auf "Start" und anschließend auf "Suchen", um eine Datei zu suchen.

Das kommt als fehler.

Die .exe ist im selben Ordner wie mein Programm und so soll es auch sein.

Goldy

Meinst du :

[autoit]

Run ( "program" [, "workingdir" [, show_flag[, opt_flag ]]] )

[/autoit]

---

[autoit]

ShellExecute ( "filename" [, "parameters" [, "workingdir" [, "verb" [, showflag]]]] )

[/autoit]

Goldy

Das mit ShellExcute hatte ich auch schon hat aber nicht funktioniert.

Habe es mal so probiert geht aber auch nicht :

[autoit]

Run (engine.exe , /load /config debug)

[/autoit]

Goldy

Hallo leute ;D

Ich möchte das wenn ich auf einen Button klicke folgenes passiert :

@echo off
start engine.exe /load /config debug
exit /b
echo on

Wie mache ich das mit Auotit?

Goldy

So ich melde mich dann nochmals ;D

Ich habe von hellboy3 (vielen dank) diesen Code bekommen :

Spoiler anzeigen

[autoit]

Global $VersionsInfo = "http://goldy.square7.ch/test/Version.txt"
Global $Neueversion = "http://goldy.square7.ch/test/updates"
Global $ProgrammVersion = "1.1.2"

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

Func update()

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

$Ini = InetGet($VersionsInfo, @ScriptDir & "\Version.ini") ;Laed die Version.txt vom Webspace herunter und wandelt sie in Version.ini um.
If $Ini = 0 Then
MsgBox(0, "ERROR", "Es ist ein Fehler aufgetreten, bitte überprüfen Sie Ihre Internetverbindung!");Ueberprueft ob der Download erfolgt ist
Else
$Version = IniRead(@ScriptDir & "\Version.ini", "Version", "aktuelleVersion", "");Ließt Version.ini aus
If $Version = $ProgrammVersion Then ;Ueberprueft ob es eine neue Version gibt
MsgBox(0, "Kein Update", "Sie besitzen die aktuellste Version des Scriptes!")
FileDelete(@ScriptDir & "\Version.ini") ;loescht Version.ini
Else
$Update = MsgBox(4, "Update", "Es gibt eine aktuellere Version! Soll diese jetzt heruntergeladen werden?")
FileDelete(@ScriptDir & "\Version.ini")
If $Update = 6 Then
SplashTextOn("", "Downloading...", 150, 70)
$File = InetGet($Neueversion, "New_Script.exe") ;laed die neue version herunter
SplashOff()
If $File = 0 Then
MsgBox(0, "ERROR", "Es ist ein Fehler aufgetreten, bitte überprüfen Sie Ihre Internetverbindung!")
Else
MsgBox(0, "Download erfolgt", "Das Update wurde erfolgreich heruntergeladen!")
EndIf
EndIf
EndIf
EndIf
EndFunc ;==>update

[/autoit]

So , ich möchte nun das alle Dateien die hier drin sind : "http://goldy.square7.ch/test/updates" runtergeladen werden. (Ordner Struktur behalten und Überschreiben)
Ich habe eine .ini aufm Webspace mit dem Inhalt V1.0.0.0
Und das selbe im Ordner wo der Launcher drin ist. (man sollte auch den Pfad wechseln können)
Wenn man nun auf dem Webspace in die Datei V1.0.0.1 eingibt sollte der Updater das Checken und runterladen.

(Hoffe habe nichts vergessen *g*)

So , das hier ist nun meiner "Launcher" Code :

Spoiler anzeigen

[autoit]

#NoTrayIcon
; =======================================================================
; Game Launcher
; Made by Goldy
; © 2010
;
; =======================================================================
#Include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

; Code Anfang (Design)

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Simple Game Launcher ", 458, 280, 420, 295)
$Button1 = GUICtrlCreateButton("Exit", 368, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Start", 16, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Website", 104, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Game Launcher", 24, 0, 401, 163)
GUICtrlSetFont(-1, 50, 800, 0, "Parry Hotter")
$Button4 = GUICtrlCreateButton("Credits", 192, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Optionen", 280, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$ProgressBar = GUICtrlCreateProgress ( 16, 230, 425, 30)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
Case $Button3
ShellExecute("http://www.google.de")
Case $Button4
_credits()

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

EndSwitch
WEnd

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

Func _credits()
MsgBox(64,"Credits","Idee: Goldy" & @CRLF & "Design: Goldy" & @CRLF & "Update Funktion: hellboy3")
;~ #Region ### START Koda GUI section ### Form=
;~ $Form2 = GUICreate("Credits", 229, 126, 527, 617)
;~ $Label1 = GUICtrlCreateLabel("Idee:Goldy", 8, 16, 80, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ $Label2 = GUICtrlCreateLabel("Desing : Goldy", 8, 48, 106, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ $Label3 = GUICtrlCreateLabel("Update Funktion : hellboy3", 8, 80, 188, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ GUISetState(@SW_SHOW)
;~ #EndRegion ### END Koda GUI section ###

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

;~ While 1
;~ $nMsg = GUIGetMsg()
;~ Switch $nMsg
;~ Case $GUI_EVENT_CLOSE
;~ Exit

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

;~ EndSwitch
;~ WEnd

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

EndFunc

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

Dort habe ich nun folgenes Eingetragen :

[autoit]

$ProgressBar = GUICtrlCreateProgress ( 16, 230, 425, 30)

[/autoit]

Nun sollte wenn der Download läuft sich die Progress Bar logischer weise auch laufen , also man müsste die beiden Sachen verbinden

Ich bedanke mich an dieser stelle schon mal für jede Hilfe

MfG

Goldy

Goldy

Einfach die .exe Starten die später als Pfad ausgewählt wurde....

Goldy

Ok merke ich mir

Das Forum hier ist und bleibt halt die Nr.1 wenn man hilfe braucht ;D

Goldy

Ok , werde ich mal machen , war halt nur auf die schnelle

Btw, kann man nicht einfach den Standartbrowser (weis net ob es dafür einen Befehl gibt) reinschreiben/proggen ?

Weil , ist ja nicht nur für mich und wenn nur ich z.B. Google Chrom benutze , aber der andere nicht , wäre das Blöd

Goldy

Vielen dank habe das auch schon so gemacht ,
btw , darauf hätte ich auch selber kommen müssen

Naja , war mir halt nicht sicher deswegen gefragt

Wie kann ich es machen das, wenn man auf den Button klickt das er
eine Website öffnet ?

Also habe auf http://translation.autoit.de/onlinehilfe

nach http gesucht , aber habe nur was mit Proxy gefunden,
Website brachte auch keinen Erfolg ^.-

Goldy

Goldy

Hallo Leute ;D

Ich schreibe mal wieder ein Programm
Und wollte halt fragen ob ihr mal so über den Code ab und zu schauen könnt und mir sagen könntet
wo ich den Code bessere kürzer etc. machen kann ;D

Also hier mal der Anfang :
Den Exit Button habe ich bestimmt Komplizierter gelöst als es eigentlich ist

Spoiler anzeigen

[autoit]

#NoTrayIcon
; =======================================================================
; Game Launcher
; Made by Goldy
; © 2010
;
; =======================================================================
#Include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

; Code Anfang (Design)

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Game Launcher © by Goldy", 453, 260, 437, 472)
$Button1 = GUICtrlCreateButton("Exit", 312, 224, 129, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Start", 8, 224, 129, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Website", 160, 224, 129, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_exit()

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

EndSwitch
WEnd

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

Func _exit()
exit
EndFunc

[/autoit]

Beiträge von Goldy

Script wiederherstellen

Script wiederherstellen

Script wiederherstellen

Script wiederherstellen

If und Then

If und Then

.txt file auslesen und anzeigen.

.txt file auslesen und anzeigen.

.txt file auslesen und anzeigen.

Eine .exe starten

Eine .exe starten

Eine .exe starten

Eine .exe starten

Eine .exe starten

Code "sauberer" machen

Launcher

Code "sauberer" machen

Code "sauberer" machen

Code "sauberer" machen

Code "sauberer" machen