Beiträge von Lololo124

@Understood:
danke dir ich werde versuchen die Funktion Regread einzubauen.

Hi @ all,
ich habe mir einen Autostart Manager gebaut der Dateien in den Autostart ordner kopiert und wieder löschen kann...
die im Autostart vorhandenen Dateien werden in einer ListView angezeigt.
Edit:
Version 0.2
Was ist Neu?:

• Neues Design
• Programm muss nicht neu Gestartet werden um den Autostart zu Aktuallisieren

Anmerkung:
Bug immernoch vorhanden

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include<File.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Autostart Manager", 481, 447, 192, 124)
$Button1 = GUICtrlCreateButton("Auswählen", 40, 48, 59, 17, 0)
$Input1 = GUICtrlCreateInput("", 104, 48, 121, 21)
$Button2 = GUICtrlCreateButton("In Autostart Kopieren", 104, 80, 115, 25, 0)
$Group1 = GUICtrlCreateGroup("In Autostart einfügen", 32, 16, 209, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("Auswählen", 256, 48, 59, 17, 0)
$Input2 = GUICtrlCreateInput("", 320, 48, 121, 21)
$Button4 = GUICtrlCreateButton("Aus Autostart entfernen", 320, 80, 123, 25, 0)
$Group2 = GUICtrlCreateGroup("Aus Atostart entfernen", 248, 16, 201, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$List1 = GUICtrlCreateListView("Programm ", 128, 144, 241, 231)
$files = _FileListToArray(@UserProfileDir&"\Startmenü\Programme\Autostart")
For $i = 1 To UBound($files)-1
GUICtrlCreateListViewItem($files[$i], $List1)
Next
$Group3 = GUICtrlCreateGroup("Dateien im Autostart", 96, 120, 289, 265)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$FOD1=FileOpenDialog("Suchen...","","Anwendungen(*.exe)")
GuiCtrlSetData($Input1,$FOD1)
Case $Button2
FileCreateShortcut(GuiCtrlRead($FOD1)&".exe",@StartupDir&"\"&$FOD1&".lnk")
MsgBox(0,"Erfolg","Die Datei wurde erfolgreich in den Autostart kopiert. Um alle Dateien anzeigen zu lassen muss der Autostart Manager neu gestartet werden.")
Case $Button3
$FOD2=FileOpenDialog("Suchen...",@StartupDir,"Verknüpfungen(*.lnk)")
GuiCtrlSetData($Input2,$FOD2)
Case $Button4
FileDelete($FOD2&"\.lnk")
MsgBox(0,"Erfolg","Die Datei wurde erfolgreich aus dem Autostart Ordner Entfernt.Damit der Eintrag der Datei verschwindet muss der Autostart Manager neu gestartet werden.")


EndSwitch
WEnd

[/autoit]

Bekannte Bugs:

• Datei aus Autostart löschen funktioniert nicht(in arbeit)

To Do:

• Bugs entfernen

Gruß Roggazzz
Click Ctrl-C to copy. (hides when lost focus)

Edit: Habs selbst gelöst musste nur die Includes einfügen danke an alle

Gruß Roggazzz
P.S. Alina nein das ist der name meiner mutter da ich ihren pc benutze weil mein Laptop spinnt...

sorry ich hab die übersehen

Click Ctrl-C to copy. (hides when lost focus)

danke jetzt habe ich ein anderes problem....
ich will das Angeklickte Item mit einem Button löschen aber es geht nicht..
hier der Code:

[autoit]

Case $Button5
$test= _GUICtrlListView_GetItemChecked($List1,1)
FileDelete($test)
_GUICtrlListView_DeleteItem($test,1)

[/autoit]

ich habe es mit GetitemChecked und mit Getitem versucht....

Hi @ all,
Ich würde gerne wissen wie man Dateien aus einem Verzeichnis in eine Listview schreibt(Ohne Pfad und Endung).
Neben dem anderen Programm("Script ohne AutoIT Compilen") versuche ich für mich einen Autostart manager zu schreiben und ich würde gerne die Dateien(Wie oben genannt ohne pfad und endung) in einer Listview anzeigen lassen.
nur wie stelle ich das an?
Hier mal der Code aus Koda mit der GUI:

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Autostart Manager", 481, 447, 192, 124)
$Button1 = GUICtrlCreateButton("Auswählen", 40, 48, 59, 17, 0)
$Input1 = GUICtrlCreateInput("", 104, 48, 121, 21)
$Button2 = GUICtrlCreateButton("In Autostart Kopieren", 104, 80, 115, 25, 0)
$Group1 = GUICtrlCreateGroup("In Autostart einfügen", 32, 16, 209, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("Auswählen", 256, 48, 59, 17, 0)
$Input2 = GUICtrlCreateInput("", 320, 48, 121, 21)
$Button4 = GUICtrlCreateButton("Aus Autostart entfernen", 320, 80, 123, 25, 0)
$Group2 = GUICtrlCreateGroup("Aus Atostart entfernen", 248, 16, 201, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$List1 = GUICtrlCreateListView("", 128, 144, 241, 214)
$Group3 = GUICtrlCreateGroup("Dateien im Autostart", 96, 120, 289, 265)
GUICtrlCreateGroup("", -99, -99, 1, 1)
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]

Click Ctrl-C to copy. (hides when lost focus)
Click Ctrl-C to copy. (hides when lost focus)

Ich hab des jetzt mal ohne ini file auf mich angepasst...
ich bekomme aber einen Error beim Compilen das ein include fehlt.... warum?

hier der code:

[autoit]

Func _Compile()
$Dialog=FileSaveDialog("Speichern...",@DesktopDIr,"Anwendungen(*.exe)")
FileWrite(@Tempdir&"\launcher.au3",GuiCtrlread($Edit1))
Run("C:\Scripts\Aut2Exe\Aut2Exe.exe /in " & @Tempdir&"\launcher.au3")

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

DirRemove("C:\Scripts\Aut2Exe")
EndFunc ;_Compile
Func _CreateDirs()
If Not FileExists ("C:\Scripts\Aut2Exe\Icons") Then
DirCreate("C:\Scripts\Aut2Exe\Icons")
FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\Aut2exe.exe", "C:\Scripts\Aut2Exe\Aut2exe.exe")
FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\Aut2exe_x64.exe", "C:\Scripts\Aut2Exe\Aut2exe_x64.exe")
FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\Aut2exeA.exe", "C:\Scripts\Aut2Exe\Aut2exeA.exe")
FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\AutoItASC.bin", "C:\Scripts\Aut2Exe\AutoItASC.bin")
FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\AutoItSC.bin", "C:\Scripts\Aut2Exe\AutoItSC.bin")
FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\AutoItSC_x64.bin", "C:\Scripts\Aut2Exe\AutoItSC_x64.bin")
FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\upx.exe", "C:\Scripts\Aut2Exe\upx.exe")
FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\Icons\Setup03.ico", "C:\Scripts\Aut2Exe\Icons\SETUP03.ICO")


EndIf
EndFunc

[/autoit]

achso, okay kann mir wer jetzt erstmal mit dem compilen helfen?

peethebee :
könntest du mir sagen wie ich das mit inis anstellen soll? also was da rein muss?

ichn finde nur in der englischen hilfe etwas und mein englisch ist nicht gerade das beste.
wie benutze ich die Comando Lines?
ich hab hier mal ein bsp. Script:

[autoit]

$Auttoexe=FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\Aut2exe.exe","")
$UPX=FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\upx.exe","")
$BIN=FileInstall("C:\Dokumente und Einstellungen\Sylvia\Eigene Dateien\AutoIt3\Aut2Exe\AutoItSC_x64.bin","")
#include-once <$Auttoexe>
#include-once <$UPX>
#include-once <$BIN>

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

/in @ScriptDir&"\Explorer".au3 /out @ScriptDir&"\Explorer".exe

[/autoit]

Gruß ROggazzz

hi @ all,
ich habe ein programm geschrieben mit dem man einen Launcher für ein spiel erstellen kann.
Es ist ganz simpel:
Man gibt die benötigten daten ein klickt auf "Erstellen" und dann wird der Code generiert.
jetzt meine frage:
wie kann man das AutoIT Script ohne AutoIT in eine .exe umwandeln?
MfG Roggazzz

zu 1.
schau mal in der hilfe nach StringEncrypt oder _StringEncrypt (weis nicht so genau)

zu 2.
Bei Textdateien geht das mit filewrite soweit ich weiß weis aber nicht ob das mit bilder geht.

zu 3.
mit fileinstall kannst du eine dateie (bsp. test.txt) in das script installieren
und beim start des programms oder ausführen eines buttons die datei in einen anderen ordner des Programmbenutzers installieren(schau mal in der hilfe wen du dies noch nicht getan hast)

zu 4.
schau mal bei googel anch "Nullsoft scriptabel install system" oder nach "Inno Setup"
damit kannst du soetwas machen bei fragen dazu schreib mir einfach ne pm

Gruß Roggazzz

Click Ctrl-C to copy. (hides when lost focus)

super spaßiges spiel und die icons sind auch schön.
muss ich meinem kleinen neffen zeigen.
edit:
neffen? omg so at bin ich nioch ganret meine kleinen couseng
xD

Click Ctrl-C to copy. (hides when lost focus)
Click Ctrl-C to copy. (hides when lost focus)

Hi @ all,
Ich wollte wissen wie man den Input zum Internetadressen(z.b. http://www.wasweisich.de/) eingeben von Firefox in einem Label ausgeben kann.
Gruß ROggazzz

Hi @ all,
Ich habe mal ein Skript gemacht das den Leuten mit
Programmen im betastadium zuhilfe sein kann.
Das Script holt sich keys aus dem Netz
liest einen dieser keys mit FileReadline und erfragt nach diesem key mit einer InputBox.
Der Einzige Nachteil:
Wen man z.B 5 Keys machen will muss man das Script 5 Verschiedene male Compilieren da jedes programm einen eigenen Key bekommt.

Nun zum Code:

[autoit]

$IniRead=IniRead(@ScriptDIr&"\settings.ini","Keys","Schlüssel","notloaded");Liest die Ini bei start des programms. Steht nichts in der Ini so wird "notloaded" eingeschrieben.
$Schluesselload=INetGet("http://keyhost.pytalhost.com/Keys.txt",@TempDir&"\keys.txt");Ladet sich die Keys(Schlüssel) für das Programm aus dem Internet und speichert sie im Temp(orären) ordner.
$Schluesselopen=FileOpen(@TempDir&"\keys.txt",0);Die Datei wird Geöffnet und bekommt Leserechte(0)
$SchluesselRead=FileReadLine($SchluesselOpen,2);Die Zeile Zwei aus der Datei wird gelesen(somit key zwei)
#Region GUI
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 120, 112, 75, 25, 0)
If $IniRead="notloaded"Then
GUISetState(@SW_Hide,$Form1);Versteckt die GUI wen notloaded aktiv ist
ElseIF $IniRead=$SchluesselRead Then
GuiSetState(@SW_SHow,$Form1);Wen der key in der ini steht wird die gui sichtbar
EndIF
#EndRegion ### END Koda GUI section ###
#EndRegion GUI

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

If $IniRead="notloaded" Then;Checkt ob "notloaded" oder ein Orginal Key vorhanden ist.
$Check=InputBox("Key eingabe","Gib bitte deinen 14 Stelligen Code ein");Wen "notloaded" eingeschrieben wurde öffnet sich eine Box die den Schlüssel aus Zeile zwei der keys.txt braucht.
If $Check=$SchluesselRead Then;Checkt ob der Key in der InputBox($Check) mit dem aus Zeile Zwei der keys.txt($FileRead) Übereinstimmt.
MsgBox(0,"Erfolg","Erfolg. Du kannst das Programm jetzt ohne Probleme Nutzen");Wen Ja öffnet sich eine MSGBox
IniWrite(@ScriptDir&"\settings.ini","Keys","Schlüssel",$Check);Der Code wird in die Ini Geschrieben
GuiSetState(@SW_SHow,$Form1);Lässt die GUI Erscheinen
Else
MsgBox(0,"Fehler","Du hast den Falschen Code eingegeben")
IniWrite(@ScriptDir&"\settings.ini","Keys","Schlüssel","notloaded")
Exit
EndIf
EndIF
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

Die keys die ich Verwende in diesem Beispiel lauten

W7DHQ2N4LOX0Y5
H4FT734ZM9BEC3
Z3NWP7X1YD12V1
R4N6CTR9MKL1ZQ
M4RT6UVN9Q1WP0
Den Key H4FT734ZM9BEC3 ist der Key den ich im Beispiel verwende.

Zum Aufbau der Keys Noch etwas:

• Der Key kann auch länger oder kürzer als 14 zeichen sein nur sölltet ihr die InputBox dann auch anpasen
• In der Text datei muss Pro Key eine Zeile angelegt werden.

Gruß Roggazzz

Hi @ all,
ich versuche gerade ein programm zu schreiben das einen AutoIT Code aus dem Internet downloadet und ihn dann je nach eingaben im input auch anpasst.
Das downloaden und anzeigen in einem edit schaffe ich nur das StringReplace will nicht gehen. Hier der Code:

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 607, 185, 68)
$Edit1 = GUICtrlCreateEdit("", 8, 112, 609, 489)
GUICtrlSetData(-1,"Seas"&@CRLF&"Seas" )
$Input1 = GUICtrlCreateInput("", 16, 32, 121, 21)
$Label1 = GUICtrlCreateLabel("Servermainpage", 16, 8, 81, 17)
GUICtrlCreateInput("", 160, 32, 121, 21)
$Label2 = GUICtrlCreateLabel("Accountpage:", 160, 8, 71, 17)
GUICtrlCreateInput("", 304, 32, 121, 21)
$Label3 = GUICtrlCreateLabel("Forum:", 304, 8, 36, 17)
GUICtrlCreateInput("", 448, 32, 121, 21)
$Label4 = GUICtrlCreateLabel("Realmlist: (Mit Set Realmlis)", 448, 8, 133, 17)
$Button1 = GUICtrlCreateButton("Code erzeugen", 256, 56, 91, 25, 0)
$Label5 = GUICtrlCreateLabel("AutoIT Code: ", 264, 88, 70, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BUtton1
$Load=InetGet("http://hostingtotal.ho.funpic.de/upload/files/may/launcher.txt",@TempDir&"\launcher.txt")
$File2=FileOpen(@TempDir&"\launcher.txt",0)
GuiCtrlSetData($Edit1,FileRead($File2))
StringReplace($Edit1,"http://uwcrew.eu",GuiCtrlRead($Input1))

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

EndSwitch
WEnd

[/autoit]

Was mache ich Falsch?
Habe bei StringReplace auch

[autoit]

GuiCtrlRead($Edit1)

[/autoit]

versucht.
Gruß Roggazzz

danke
Click Ctrl-C to copy. (hides when lost focus)

Hi @ all,
gibt es eine möglichkeit zu schauen ob ein Ordner existiert?
soetwas wie DirExists("blablablub") gibts ja nich.
gruß Roggazzz

Click Ctrl-C to copy. (hides when lost focus)

okay ich versuche die teile daraus mal etwas füpr mich umzubauen

Click Ctrl-C to copy. (hides when lost focus)

etwas das ich später abspielen kann

Click Ctrl-C to copy. (hides when lost focus)