Beiträge von RR04

RR04

Hi,

habe ich heute morgen für Atax schon gemacht. Im Beispiel sind Bild - und GUIgröße nur noch nicht abgestimmt.
[ gelöst ] GUISETCREATEPIC problem

RR04

Hi Atax !

Die Start und Exit Buttons habe ich angepasst !

RR04

Ja, auf 635x293 stellen !

RR04

Bei mir ist der Name der Bilddatei "gtao.jpg" ??
Für die Bildgröße schau Dir mal "Irfanview" genauer an.
Viel Spaß und Erfolg !

RR04

Hi,

in Post #8 habe ich Dir das Script angepasst.

Du mußt natürlich den richtigen Namen des Bildes angeben und auch deren Größe richtig anpassen !

Also ganz ruhig Fury und nicht so aufgeregt, aber jetzt geht es !
Nur noch die Bildgröße anpssen.

RR04

Kannst Du das Bild hochladen ?

RR04

Hi,

muß Dir nicht leid tuen. Jeder braucht mal Hilfe.

Ich habe das Script in Post #8 angepasst !

RR04

Hi, versuch es mal so, sollte es nicht funktionieren, dann schreibe wo Dein Bild genau liegt.

Spoiler anzeigen

[autoit]

; by Atax
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#cs

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

$pfad = FileExists("data.ini")
If $pfad = 1 Then
Sleep(200)
ElseIf $pfad = 0 Then
$pfad = InputBox("PFAD", "Geben Sie hier ihren Pfad zu GTA San Anreas an. Bitte ohne .exe")
IniWrite("data.ini", "Pfad", "Pfad", $pfad)
EndIf

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

$pfadlesen = IniRead("data.ini", "Pfad", "Pfad", "default")

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

#ce

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

$Form1 = GUICreate("GTA Starter", 635, 293, 187, 122)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\gtao.jpg", 0, 0, 635, 293, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))

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

;i Das Bild hatte einen falschen Namen und hat auch die falsche Größe.
; Die Größe mußt Du noch anpassen.
;i ! So sollte es funktionieren !

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

GUICtrlSetState(-1, $GUI_DISABLE)
$Start = GUICtrlCreateButton("Start", 72, 112, 137, 41, BitOR($WS_GROUP, $WS_CLIPSIBLINGS), $WS_EX_CLIENTEDGE)
$Exit = GUICtrlCreateButton("Exit", 248, 112, 137, 41, BitOR($WS_GROUP, $WS_CLIPSIBLINGS), $WS_EX_CLIENTEDGE)
$Label1 = GUICtrlCreateLabel("Start/Exit", 72, 88, 48, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Dies ist ein GTA SA:MP Start. Mit diesem Starter kann man problemlos den SA:MP starten.", 32, 16, 429, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("Tools", 480, 56, 30, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Button1 = GUICtrlCreateButton("GTAInside", 472, 96, 153, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("GTA Mod Installer", 472, 152, 153, 41, $WS_GROUP)
$Label4 = GUICtrlCreateLabel("Achtung! Der GTA Mod Installer muss im GTA San Andreas Verzeichnis installiert sein!", 472, 200, 175, 50)
GUICtrlSetColor(-1, 0xFF0000)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
Startsamp()
Case $Exit
exitsamp()
Case $Button1
inside()
;Case $mod
;gtamod()
EndSwitch
WEnd

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

Func startsamp()
userdata()
ShellExecute($pfadlesen & "samp.exe")
EndFunc ;==>startsamp

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

Func exitsamp()
Exit ("samp.exe")
EndFunc ;==>exitsamp

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

Func inside()
Run(@ScriptDir & "/GTAInside.htm")
EndFunc ;==>inside

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

Func userdata()
FileCopy($pfadlesen & "USERDATA.dat", @ScriptDir)
EndFunc ;==>userdata
; Ende

[/autoit]

Edit: Anpassung vorgenommen.

RR04

[autoit]

$Pic1 = GUICtrlCreatePic(@ProgramFilesDir & "GTA.gif", 630, 290, 180, 120, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
; es fehlt immernoch "\" - So ist es besser (siehe Greeks Beispiel) !
$Pic1 = GUICtrlCreatePic(@ProgramFilesDir & "\GTA.gif", 630, 290, 180, 120, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

[/autoit]

RR04

Hi,

die Codes habe ich Dir unten angehängt (siehe auch Hilfe)

RR04

... mit IniRead !

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

GUICreate("Franjobs combo")
$combo = GUICtrlCreateCombo("Herunterfahren", 10, 10)
GUICtrlSetData(-1, "Energie sparen|Neu starten", "Neu starten")
$Button = GUICtrlCreateButton("X", 210, 10, 20, 20)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button
_combo()
EndSwitch
WEnd

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

Func _combo()
IniWrite(@ScriptDir & "\franjobs.ini", "section", "key", GUICtrlRead($combo))
Switch GUICtrlRead($combo)
Case "Herunterfahren"
;Shutdown(1 + ;###########
Case "Neu starten"
;Shutdown(2) ;###########
EndSwitch
EndFunc ;==>_combo

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

$var = IniRead(@ScriptDir & "\franjobs.ini", "section", "key", "NichtGefunden")
MsgBox(0, "Ergebnis : ", $var)
#cs

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

Funktion ShutdownDer Herunterfahr-Code ist eine Kombination der folgenden Werte:
0 = Abmelden / Logoff
1 = Herunterfahren / Shutdown
2 = Neu Starten / Reboot
4 = Herunterfahren erzwingen / Force
8 = Strom abschalten / Power down
16= erzwingen falls das System hängt
32= Suspend
64= Schlafmodus / Hibernate

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

#ce

[/autoit]

RR04

Hier ein Beispiel:
Edit: Sorry, erst schreiben !

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

GUICreate("Franjobs combo")
$combo = GUICtrlCreateCombo("Herunterfahren", 10, 10)
GUICtrlSetData(-1, "Energie sparen|Neu starten", "Neu starten")
$Button = GUICtrlCreateButton("X", 210, 10, 20, 20)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button
_combo()
EndSwitch
WEnd

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

Func _combo()
IniWrite(@ScriptDir & "\franjobs.ini", "section", "key", GUICtrlRead($combo))
Switch GUICtrlRead($combo)
Case "Herunterfahren"
;Shutdown(1 + ;###########
Case "Neu starten"
;Shutdown(2) ;###########
EndSwitch
EndFunc ;==>_combo

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

$var = IniRead(@ScriptDir & "\franjobs.ini", "section", "key", "NichtGefunden")
MsgBox(0, "Ergebnis : ", $var)
#cs

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

Funktion ShutdownDer Herunterfahr-Code ist eine Kombination der folgenden Werte:
0 = Abmelden / Logoff
1 = Herunterfahren / Shutdown
2 = Neu Starten / Reboot
4 = Herunterfahren erzwingen / Force
8 = Strom abschalten / Power down
16= erzwingen falls das System hängt
32= Suspend
64= Schlafmodus / Hibernate

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

#ce

[/autoit]

RR04

Hi,
ich habe Dir mal etwas zusammengebaut. Ich hoffe es passt ?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Opt('MustDeclareVars', 1)

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

Global $combo
Global $Button

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

Example()

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

Func Example()
Local $msg
GUICreate("My GUI combo") ; Erstellt eine Dialogbox die zentriert dargestellt wird

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

$combo = GUICtrlCreateCombo("Herunterfahren", 10, 10) ; Erstellt das erste Item
GUICtrlSetData(-1, "Energie sparen|Neu starten", "Neu starten"); Fügt andere Items hinzu und setzt einen neuen Standard
$Button = GUICtrlCreateButton("X", 220, 10, 20, 20)

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

GUISetState()

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

; Die Schleife wiederholt sich, bis der Benutzer eine Beenden-Aktion auslöst
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button
_combo()
EndSwitch
WEnd
EndFunc ;==>Example

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

Func _combo()
Switch GUICtrlRead($combo)
Case "Herunterfahren"
Shutdown(1 +
Case "Neu starten"
Shutdown(2)
EndSwitch
EndFunc ;==>_combo

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

#cs

Funktion ShutdownDer Herunterfahr-Code ist eine Kombination der folgenden Werte:
0 = Abmelden / Logoff
1 = Herunterfahren / Shutdown
2 = Neu Starten / Reboot
4 = Herunterfahren erzwingen / Force
8 = Strom abschalten / Power down
16= erzwingen falls das System hängt
32= Suspend
64= Schlafmodus / Hibernate

#ce

[/autoit]

RR04

Hi Eistee,
etwas ähnliches habe ich auch vor einiger Zeit gebaut, vielleicht ist ja was für Dich dabei ?
Shutdown for Benjamin - SfB

Edit: zu 2. :

[autoit]

_Shut()
Func _Shut()
;_AnimButton($Form1, $Pic6)
;Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC herunterfahren ?" & @TAB)
If $var = 6 Then
MsgBox(0, " Shutdown", "Einen schönen Tag noch.", 3)
Shutdown(1)
EndIf
EndFunc ;==>_Shut

[/autoit]

RR04

Hi, oder auch so:

[autoit]

#include <GUIConstantsEx.au3>

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

GUICreate(" Uhrzeit")
$1 = GUICtrlCreateLabel("", 48, 104, 44, 17)
; "" kein Eintrag, da hier die Uhrzeit eingesetzt wird
GUISetState()

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

_a1(); Beginn der Funktion mit Start des Programms ! einmalig !
AdlibEnable("_a1", 1000); Start der Funktion ! alle 1000 ms !

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

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

Func _a1()
GUICtrlSetData($1, @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc ;==>a1
; Ende

[/autoit]

RR04

Hi,
Du hast den GuiOnEventMode eingeschaltet und zusammen mit MessageloopMode, aber nur eines ist möglich.
(Funktionen fehlen)

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#Region

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

#AutoIt3Wrapper_Icon=Icons\Script.ico
#EndRegion
Opt("GuiOnEventMode", 1);###################################################################################################
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)

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

Global $title = "Julscos Autoit Scipt ", $ar_setting[50][2]
Global $cmb_skill = "1|2|3|4|5|6|7|8", $cmb_key = "1|2|3|4|5|6|7|8|9"
Global $sel_pntr
Global $dbluse

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

;~ Lvl

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

Global $coll_arwin[4], $coll_winpid[4]
Global $coll_key[4], $coll_selwin[4], $coll_start[4], $coll_stop[4], $coll_wintitle[4]

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

;~ Window Settings

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

Global $winopt_arlist[1][2], $winopt_int, $winopt_aref = 0, $winopt_clist[1][2], $winopt_ctime[1][4], $winopt_ctoken = 0, $winopt_cinit[1]

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

#Region Gui Initialize

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

$main = GUICreate($title, 448, 463, @DesktopWidth / 2 - 250, @DesktopHeight / 2 - 250)

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

$tray = TrayCreateItem("Exit")

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

GUICtrlCreateTab(0, 0, 450, 465)

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

#Region Lvl
GUICtrlCreateTabItem("Lvl Bot")

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

For $i = 0 To 3
GUICtrlCreateLabel("Select F-Key For Attack", 20, 50 + ($i * 110), 160, 13)
$coll_wintitle[$i] = GUICtrlCreateLabel("No Window Selected", 220, 95 + ($i * 110), 110, 30)

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

$coll_key[$i] = GUICtrlCreateCombo("F-Key", 35, 70 + ($i * 110), 80, 25, 0x3)
$coll_selwin[$i] = GUICtrlCreateButton("Select Window", 220, 70 + ($i * 110), 85, 20)
$coll_start[$i] = GUICtrlCreateButton("Start", 350, 50 + ($i * 110), 70, 20)
$coll_stop[$i] = GUICtrlCreateButton("Stop", 350, 85 + ($i * 110), 70, 20)

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

GUICtrlSetData($coll_key[$i], $cmb_key)
GUICtrlSetState($coll_stop[$i], 128)
Next

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

#EndRegion Lvl

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

#Region Window Settings
GUICtrlCreateTabItem(" Window Settings")
GUICtrlCreateGroup("Settings", 10, 23, 430, 430)

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

$winopt_list = GUICtrlCreateList("", 40, 90, 170, 150)
$winopt_refresh = GUICtrlCreateButton("Refresh", 260, 110, 70, 20) ;#######################################################
GUICtrlSetOnEvent(-1, "_WinOptRefresh");###################################################################################
$winopt_rename = GUICtrlCreateButton("Rename", 340, 110, 70, 20)
$winopt_hide = GUICtrlCreateButton("Hide", 260, 145, 70, 20)
$winopt_show = GUICtrlCreateButton("Show", 340, 145, 70, 20)
$winopt_kill = GUICtrlCreateButton("Kill", 260, 180, 70, 20)
$winopt_jump = GUICtrlCreateButton("Jump To", 340, 180, 70, 20)
$winopt_closetime = GUICtrlCreateButton("Close On Time", 295, 215, 80, 20)
$winopt_ctlist = GUICtrlCreateList("", 40, 270, 170, 150)
GUICtrlCreateLabel("Next Window To Close:", 230, 280, 130, 20)
$winopt_cwindis = GUICtrlCreateLabel("", 230, 300, 130, 20)
GUICtrlCreateLabel("Time Left:", 230, 340, 50, 20)
$winopt_cwintimer = GUICtrlCreateLabel("00:00:00", 310, 340, 70, 20)
$winopt_ctstop = GUICtrlCreateButton("Remove", 260, 390, 70, 20)

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

GUICtrlSetOnEvent($winopt_rename, "_Rename")
GUICtrlSetOnEvent($winopt_hide, "_Hide")
GUICtrlSetOnEvent($winopt_show, "_Show")
GUICtrlSetOnEvent($winopt_kill, "_Kill")
GUICtrlSetOnEvent($winopt_jump, "_JumpTo")
GUICtrlSetOnEvent($winopt_closetime, "_WinOptCTime")

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

#EndRegion Window Settings

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

GUISetState(@SW_SHOW, $main)
Global $gui_pid = WinGetProcess($main)

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

#EndRegion Gui Initialize

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

While 1
Sleep(100)
;$nMsg = GUIGetMsg();#################################################################################################
;Switch $nMsg
;Case $GUI_EVENT_CLOSE
;Exit
;EndSwitch
WEnd

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

Func _WinOptRefresh()
MsgBox(0, "Test", "Nur zum Testen !" & @TAB);#########################################################################
EndFunc

[/autoit]

Viel Erfolg !

RR04

Hallo und herzlich Willkommen !

Hier mal ein Beispiel für eine GUI:

[autoit]

#include <GUIConstants.au3>

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

#region - GUI Create
GUICreate('Julscos GUI')
$Button = GUICtrlCreateButton("Beenden", 10, 10, 75, 22)
GUISetState()
#endregion

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

#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button
Exit
;Case $msg =
;Case $msg =
;Case $msg =
;Case $msg =
EndSelect
WEnd
#endregion

[/autoit]

Vielleicht kannst Du Dein Script zeigen ?
Edit: Ich habe Dir noch einen Button eingebaut.

RR04

Für Euch entdeckt !

In der Extraausgabe der C´t Programmieren befindet sich ein Beitrag über fünf Seiten zu AutoIt. Ebenso wird Softwareschutz und Lizenzierung angesprochen, wie auch andere Programmiersprachen kurz vorgestellt werden.

Hier der Link:
http://www.heise.de/kiosk/special/ct/09/05/

RR04

Hi,

SfBv2002_2009-07-04.zip ist eine Beispiel-Datei, könnte man auch Beispiel.zip nennen.

$unzip = '7za x -aoa -oSfBv2002_2009-07-04\ SfBv2002_2009-07-04.zip'
RunWait(@ComSpec & ' /c ' & $unzip, @ScriptDir & '\', @SW_HIDE) ;ist der Aufruf von 7zip zum entpacken

RR04

Hi,
ich habs Dir mal zusammengebaut !

[autoit]

#cs
i Das Archiv SfBv2002_2009-07-04.zip muss die ganzen Dateien enthalten, die später im 'SfBv2002_2009-07-04' landen sollen
i 7za.exe muss sich beim kompilieren im gleichen Verzeichnis wie das Script befinden
#ce
FileInstall('SfBv2002_2009-07-04.zip', @ScriptDir & '\SfBv2002_2009-07-04.zip')
FileInstall('7za.exe', @ScriptDir & '\7za.exe')

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

$unzip = '7za x -aoa -oSfBv2002_2009-07-04\ SfBv2002_2009-07-04.zip'
RunWait(@ComSpec & ' /c ' & $unzip, @ScriptDir & '\', @SW_HIDE) ; Aufruf von 7z zum entpacken
#cs
i Nach dem entpacken liegen alle Dateien aus dem ZIP-Archiv (SfBv2002_2009-07-04.zip) im Verzeichnis: SfBv2002_2009-07-04 welches sich im Scriptverzeichnis befindet
#ce
FileDelete(@ScriptDir & '\SfBv2002_2009-07-04.zip')
FileDelete(@ScriptDir & '\7za.exe')
; Ende

[/autoit]

Siehe auch Anhang.
Viel Erfolg !

Beiträge von RR04

Desktop Hintergrundbild setzen (Jpg, nicht bmp)

GUISETCREATEPIC problem

GUISETCREATEPIC problem

GUISETCREATEPIC problem

GUISETCREATEPIC problem

GUISETCREATEPIC problem

GUISETCREATEPIC problem

GUISETCREATEPIC problem

GUISETCREATEPIC problem

Shutdown

Iniread geht nicht!!

Shutdown

Shutdown

Ein paar kleine fragen zu meiner Sidebar inbezug auf Slider, Shutdown, und Desktopgrösse

label sekündlich aktualisieren wegen Uhr ?

GUI Fenster schliest

GUI Fenster schliest

AutoIt in der C´t

FileInstall

FileInstall