Also was ich meine ist, das nicht ein AutoIt Skript für ein ganzes Projekt zuständig ist, (weil irgendwann ist es ja total langsam wegen über 10.000 Zeilen)
sondern mehrere Skripte im Projekt sind.
Skript A ist das main Skript.
Skript B ist nur zuständig für WINHTTP
Skript C Updater
Hoffe habens verstanden
Hallo,
ist es möglich sowie bei lua mehrere AutoIt Dateien zu nutzen um mehr Struktur einzubauen?
Bzw. das eine Datei nur für ,,diesen" Sektor zuständig ist und die anderen Dateien für etwas anderes.
Und dann verbinden die Skripte.
Grüße
Meinst du so?
AutoIt#Region ;************ Includes ************ #Include <Array.au3> #EndRegion ;************ Includes ************ $aString = StringSplit("Apfel:Birne", ":") _ArrayDisplay($aString)
Danke es hat geklappt.
Hallo Community,
ich habe ein Problem und komme nicht weiter.
$String = StringRegExpReplace("Apfel:Birne", ":", " ")
MsgBox(0, "", $String)Ich möchte es irgendwie schaffen das ich z.B. Apfel in $Array[0] habe und Birne in $Array[1],
ist das möglich und wenn ja wie?
LG
Sezer.
Ein kleines Spiel, man kann selber Fragen erstellen, so viele wie man will und wenn man spielt wird Random eine Frage gestellt.
Menü:
If Not IsAdmin() Then
#RequireAdmin
If @error Then
MsgBox(16, "Wer wird Millionär Fehler", @error)
Exit
EndIf
EndIf
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
;Form1, Menü
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wer wird Millionär", 267, 43, 192, 124)
GUISetFont(10, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Fragen erstellen", 8, 8, 123, 25)
$Button2 = GUICtrlCreateButton("Spielen", 136, 8, 123, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Fragen erstellen
Case $Button1
Run(@ScriptDir & "\Wer wird Millionär Frage erstellen.exe")
Exit
;Spielen
Case $Button2
Run(@ScriptDir & "\Wer wird Millionär Spielen.exe")
Exit
EndSwitch
WEnd
Spielen:
If Not IsAdmin() Then
#RequireAdmin
If @error Then
MsgBox(16, "Wer wird Millionär Fehler", @error)
Exit
EndIf
EndIf
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
Global $RMAX = 1
Global $A = False, $B = False, $F = False
;Form1, Laden
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wer wird Millionär", 256, 89, 191, 121)
GUISetFont(10, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Ladet", 0, 0, 253, 84)
GUICtrlSetFont(-1, 50, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Form2, Spielen
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Wer wird Millionär", 598, 64, 191, 123)
GUISetFont(10, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Zeile 1", 8, 8, 584, 20)
$Button1 = GUICtrlCreateButton("A", 56, 32, 27, 25)
$Button2 = GUICtrlCreateButton("B", 488, 32, 27, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
Einstellung()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;A
Case $Button1
If $A = True Then
MsgBox(64, "Richtig", "Sie haben die Frage gelöst.")
Weiter()
ElseIf $B = True Then
MsgBox(16, "Verloren", "Sie haben leider verloren.")
Exit
Else
MsgBox(16, "Fehler", "Es ist ein unbekannter Fehler aufgetreten.")
Exit
EndIf
;B
Case $Button2
If $B = True Then
MsgBox(64, "Richtig", "Sie haben die Frage gelöst.")
Weiter()
ElseIf $A = True Then
MsgBox(16, "Verloren", "Sie haben leider verloren.")
Exit
Else
MsgBox(16, "Fehler", "Es ist ein unbekannter Fehler aufgetreten.")
Exit
EndIf
EndSwitch
WEnd
Func Einstellung()
[/autoit] [autoit][/autoit] [autoit]If Not FileExists(@ScriptDir & "\Fragen.ini") Then
_FileCreate(@ScriptDir & "\Fragen.ini")
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage0", "Wie heißt der ersteller des Programmes, A Sezer, B Baum")
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage1", "Wie alt ist der ersteller des Programmes, A 16, B 14")
IniWrite(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", "1")
EndIf
If Not FileExists(@ScriptDir & "\Antworten.ini") Then
_FileCreate(@ScriptDir & "\Antworten.ini")
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort0", "A")
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort1", "B")
EndIf
$RMAX = IniRead(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", "1")
$RandomZ = Random(0, $RMAX, 1)
$Frage = IniRead(@ScriptDir & "\Fragen.ini", "Fragen", "Frage" & $RandomZ, "Fehler")
$Antwort = IniRead(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort" & $RandomZ, "Fehler")
GUICtrlSetData($Label2, $Frage)
If $Antwort = "A" Then
$A = True
$B = False
$F = False
ElseIf $Antwort = "B" Then
$B = True
$A = False
$F = False
Else
$F = True
$A = False
$B = False
EndIf
GUISetState(@SW_SHOW, $Form2)
GUISetState(@SW_HIDE, $Form1)
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func Weiter()
Run(@ScriptDir & "\Wer wird Millionär Spielen.exe")
Exit
EndFunc
Frage erstellen:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
;Form1, Frage erstellen
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wer wird Millionär", 609, 132, 192, 124)
GUISetFont(10, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Frage:", 8, 8, 95, 20)
$Input1 = GUICtrlCreateInput("", 104, 8, 497, 24)
$Label2 = GUICtrlCreateLabel("(Beispiel: Wie heißt der ersteller des Programmes, A Sezer, B Baum?)", 104, 32, 495, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label3 = GUICtrlCreateLabel("Antwort:", 8, 56, 95, 20)
$Input2 = GUICtrlCreateInput("", 104, 56, 497, 24)
$Label4 = GUICtrlCreateLabel("(Beispiel: A oder B)", 104, 80, 493, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button1 = GUICtrlCreateButton("Frage erstellen", 0, 104, 603, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$RInput1 = GUICtrlRead($Input1)
If Not $RInput1 = "" Then
$RInput2 = GUICtrlRead($Input2)
If Not $RInput2 = "" Then
If Not FileExists(@ScriptDir & "\Fragen.ini") Then
_FileCreate(@ScriptDir & "\Fragen.ini")
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage0", "Wie heißt der ersteller des Programmes, A Sezer, B Baum")
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage1", "Wie alt ist der ersteller des Programmes, A 16, B 14")
IniWrite(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", "1")
EndIf
If Not FileExists(@ScriptDir & "\Antworten.ini") Then
_FileCreate(@ScriptDir & "\Antworten.ini")
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort0", "A")
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort1", "B")
EndIf
$RMAX = IniRead(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", "1")
$RMAX += 1
IniWrite(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", $RMAX)
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage" & $RMAX, $RInput1)
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort" & $RMAX, $RInput2)
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
MsgBox(64, "Wer wird Millionär Frage erstellt", "Sie haben eine Frage erstellt.")
Else
MsgBox(16, "Wer wird Millionär Fehler", "Sie müssen A oder B bei der Antwort schreiben.")
EndIf
Else
MsgBox(16, "Wer wird Millionär Fehler", "Sie müssen eine Frage stellen.")
EndIf
EndSwitch
WEnd
Und die wäre?
Filezilla Daten stehen in meinen script, ist kein Hack! Und ja es soll die Variablen verschlüsseln, das reicht
Hallo, hat jemand einen Obfucaster / Anti Decompiler?
Es wäre sehr hilfreich , bitte!
Da ist leider nichts.
Hallo, seid ich Autoit3Scite oder wie das heißt habe, erstellt AutoIt immer bei mein ScriptDir einen Backup Ordner mit meinen alten Script drin, das nervt voll immer es zu löschen weil ich das nicht brauche. Kann ich das irgendwie deaktivieren?
Wo sehe ich Scite4? Sehe nur Scite
;Edit: Ich habe SciTE4AutoIt3 gedownloaded jetzt funktionierts danke.
Hallo, ich bin neu in GDIPlus, in einen Video habe ich gesehen wenn er z.b. _GDIPlus_ImageLoadFromFile() schreibt werden ja unten drunter die Parameters angezeigt, sowie bei den anderen Befehlen, aber bei mir zeigt es nicht an. Könnt ihr helfen? Ich hab die neueste autoIt version.
GMX
Posteingangsserver: POP3: pop.gmx.net (bei SSL Port 995), IMAP: imap.gmx.net (bei SSL Port 993)
Postausgangsserver: mail.gmx.net (bei SSL Port 465)
Benutzername: GMX-Kundennummer oder GMX-E-Mail-Adresse
Besonderheiten: Verwendet SMTP-Authentifizierung oder "POP3 vor SMTP", je nachdem, wie Sie Ihren Account eingestellt haben.
SMTP steht auch über den alternativen Port 587 zur Verfügung.
Sollte es beim Anmelden Probleme geben, sollten Sie in jedem Fall beide Möglichkeiten für den Benutzernamen ausprobieren.
IMAP ist laut GMX nur in den Tarifen ProMail und TopMail verfügbar. Im Tarif FreeMail ist IMAP offiziell nicht verfügbar, aber es scheint bei vielen Konten trotzdem zu funktionieren (Stand: 03.03.2014).
Hier ist mein Keybinder, er besteht aus For Schleifen um Platz zu sparen.
Ihr könnt gerne Verbesserungsvorschläge äußern.
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Misc.au3>
Global $Form[250], $MenuItem[250], $Label[250], $Input[250], $R_F[250]
Dim $Timer
#Region ### START Koda GUI section ### Form=
$Form[0] = GUICreate("Simple Keybinder", 328, 380, 193, 132)
$MenuItem[0] = GUICtrlCreateMenu("Datei")
$MenuItem[1] = GUICtrlCreateMenu("About")
$MenuItem[2] = GUICtrlCreateMenuItem("Laden", $MenuItem[0])
$MenuItem[3] = GUICtrlCreateMenuItem("Speichern", $MenuItem[0])
$MenuItem[4] = GUICtrlCreateMenuItem("Leeren", $MenuItem[0])
$MenuItem[5] = GUICtrlCreateMenuItem("Coder", $MenuItem[1])
$Label[0] = GUICtrlCreateLabel("F1", 8, 8, 34, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[1] = GUICtrlCreateLabel("F2", 8, 40, 34, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[2] = GUICtrlCreateLabel("F3", 8, 72, 34, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[3] = GUICtrlCreateLabel("F4", 8, 104, 34, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[4] = GUICtrlCreateLabel("F5", 8, 136, 34, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[5] = GUICtrlCreateLabel("F6", 8, 168, 34, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[6] = GUICtrlCreateLabel("F7", 8, 200, 34, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[7] = GUICtrlCreateLabel("F8", 8, 232, 34, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[8] = GUICtrlCreateLabel("F9", 8, 264, 34, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[9] = GUICtrlCreateLabel("F10", 8, 296, 44, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label[10] = GUICtrlCreateLabel("F11", 8, 328, 44, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input[0] = GUICtrlCreateInput("", 40, 8, 265, 21)
$Input[1] = GUICtrlCreateInput("", 40, 40, 265, 21)
$Input[2] = GUICtrlCreateInput("", 40, 72, 265, 21)
$Input[3] = GUICtrlCreateInput("", 40, 104, 265, 21)
$Input[4] = GUICtrlCreateInput("", 40, 136, 265, 21)
$Input[5] = GUICtrlCreateInput("", 40, 168, 265, 21)
$Input[6] = GUICtrlCreateInput("", 40, 200, 265, 21)
$Input[7] = GUICtrlCreateInput("", 40, 232, 265, 21)
$Input[8] = GUICtrlCreateInput("", 40, 264, 265, 21)
$Input[9] = GUICtrlCreateInput("", 56, 296, 265, 21)
$Input[10] = GUICtrlCreateInput("", 56, 328, 265, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$dll = DllOpen("user32.dll")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem[2]
For $i = 0 to 10 Step +1
$R_F[$i] = IniRead(@ScriptDir & "\save.ini", "Text", "F[" & $i & "]", "NichtGefunden")
GUICtrlSetData($Input[$i], $R_F[$i])
Next
MsgBox(64, "Erfolgreich geladet!", "Sie haben erfoglreich geladet.")
Case $MenuItem[3]
For $i = 0 to 10 Step +1
$R_F[$i] = GUICtrlRead($Input[$i])
Next
_FileCreate(@ScriptDir & "\save.ini")
For $i = 0 to 10 Step +1
IniWrite(@ScriptDir & "\save.ini", "Text", "F[" & $i & "]", $R_F[$i])
Next
MsgBox(64, "Erfolgreich Gespeichert!", "Sie haben erfolgreich gespeichert.")
Case $MenuItem[4]
For $i = 0 to 10 Step +1
GUICtrlSetData($Input[$i], "")
Next
Case $MenuItem[5]
MsgBox(64, "Coder", "Der Coder dieses Keybinder´s ist: Sezer Kabak.")
EndSwitch
[/autoit] [autoit][/autoit] [autoit]TastenDrucks()
Timer()
WEnd
Func Timer()
If $Timer = true Then
Sleep(250)
$Timer = false
EndIf
EndFunc
Func TastenDrucks()
Timer()
If _IsPressed("70", $dll) Then ;F1
$Read70 = GUICtrlRead($Input[0])
Sleep(150)
Send($Read70)
$Timer = true
ElseIf _IsPressed("71", $dll) Then ;F2
$Read71 = GUICtrlRead($Input[1])
Sleep(150)
Send($Read71)
$Timer = true
ElseIf _IsPressed("72", $dll) Then ;F3
$Read72 = GUICtrlRead($Input[2])
Sleep(150)
Send($Read72)
$Timer = true
ElseIf _IsPressed("73", $dll) Then ;F4
$Read73 = GUICtrlRead($Input[3])
Sleep(150)
Send($Read73)
$Timer = true
ElseIf _IsPressed("74", $dll) Then ;F5
$Read74 = GUICtrlRead($Input[4])
Sleep(150)
Send($Read74)
$Timer = true
ElseIf _IsPressed("75", $dll) Then ;F6
$Read75 = GUICtrlRead($Input[5])
Sleep(150)
Send($Read75)
$Timer = true
ElseIf _IsPressed("76", $dll) Then ;F7
$Read76 = GUICtrlRead($Input[6])
Sleep(150)
Send($Read76)
$Timer = true
ElseIf _IsPressed("77", $dll) Then ;F8
$Read77 = GUICtrlRead($Input[7])
Sleep(150)
Send($Read77)
$Timer = true
ElseIf _IsPressed("78", $dll) Then ;F9
$Read78 = GUICtrlRead($Input[8])
Sleep(150)
Send($Read78)
$Timer = true
ElseIf _IsPressed("79", $dll) Then ;F10
$Read79 = GUICtrlRead($Input[9])
Sleep(150)
Send($Read79)
$Timer = true
ElseIf _IsPressed("7A", $dll) Then ;F11
$Read7a = GUICtrlRead($Input[10])
Sleep(150)
Send($Read7a)
$Timer = true
EndIf
EndFunc
Ich habe noch einen Fehler: Ich habe einen Ordner erstellt, Bilder sind drinnen, aber es zeigt einfach kein Bild an. (Die Bilder heißen 0.jpg, 1.jpg USW.)
[autoit]GUICtrlSetData($Pic[$i], @TempDir & "\images" & $i & ".jpg")
[/autoit]Bei "\images" wird das \ am ende nicht angezeigt: Echtform "\images\"
Damit ich es auch verstehe, was heißen die Zahlen am Ende: 32+(174* USW also + und Mal aber wieso
[autoit]$Controls[$j][0] = GUICtrlCreateLabel("Dateiname:", 16, 32+(174*($j-$i)), 154,34)
[/autoit]Weiß einer wie ich es lösen kann? Also es nimmt aus Filezilla eine Rar entpackt es und zählt die Bilder. Eine For Schleife sollte
mit GUICtrlSetData die Labels usw bearbeiten. Aber ich weiß nicht wie es geht.
#include <FTPEx.au3>
#include <Zip.au3>
;Form1 | Laden
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Profilbilder | LADEN", 301, 40, 192, 122)
GUISetBkColor(0x99B4D1)
$Label100 = GUICtrlCreateLabel("Bitte haben sie Geduld, ladet...", 8, 8, 291, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If Not FileExists(@ScriptDir & "\images") Then
DirCreate(@ScriptDir & "\images")
EndIf
If Not FileExists(@TempDir & "\images") Then
DirCreate(@TempDir & "\images")
EndIf
_FTP_FileGet($FTP_Connect, "Profilbilder.zip", @TempDir & "\images\Profilbilder.zip")
_Zip_UnzipAll(@TempDir & "\images\Profilbilder.zip", @TempDir & "\images")
$Bilder = _Zip_Count(@TempDir & "\images\Profilbilder.zip")
FileDelete(@TempDir & "\images\Profilbilder.zip")
;Form2 | Profilbilder P1
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Profilbilder", 354, 426, 192, 124)
GUISetBkColor(0x000000)
$Tab1 = GUICtrlCreateTab(8, 8, 337, 409)
GUICtrlCreateTabItem("Seite 1")
$Label1 = GUICtrlCreateLabel("Dateiname:", 16, 32, 154, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Größe:", 16, 200, 76, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Dateiname:", 184, 32, 146, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Größe:", 184, 200, 76, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel("Dateiname:", 16, 224, 154, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel("Größe:", 16, 392, 76, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel("Dateiname:", 184, 224, 154, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel("Größe:", 192, 392, 76, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Pic1 = GUICtrlCreatePic("", 16, 48, 150, 150)
$Pic2 = GUICtrlCreatePic("", 184, 48, 150, 150)
$Pic3 = GUICtrlCreatePic("", 16, 240, 150, 150)
$Pic4 = GUICtrlCreatePic("", 184, 240, 150, 150)
$Button1 = GUICtrlCreateButton("Download", 88, 200, 75, 17)
$Button2 = GUICtrlCreateButton("Download", 256, 200, 75, 17)
$Button3 = GUICtrlCreateButton("Download", 88, 392, 75, 17)
$Button4 = GUICtrlCreateButton("Download", 264, 392, 75, 17)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Du hast das mit IniWrite falsch gemacht
Hier ein Beispiel:
IniWrite("C:\Temp\myfile.ini", "section2", "key", "this is a new value")
[/autoit]Du musst schon angeben in welcher ini es schreiben soll