Beiträge von Nathax
-
-
Was genau meinst du mit "Delay beim Abspielen" ?
-
Dann müssen diese halt angepasst werden. Lässt sich nichts machen.
-
Ggf. Dateipfade abändern.
Spoiler anzeigen
[autoit]#include <EditConstants.au3>
[/autoit] [autoit][/autoit] [autoit];InputBox("Pfad zur Au2exe.exe", "", StringTrimRight(@AutoItExe, 11)&"Aut2exe\Aut2exe.exe")
[/autoit] [autoit][/autoit] [autoit]
;InputBox("Pfad zur AutoItSC.bin", "", StringTrimRight(@AutoItExe, 11)&"Aut2exe\AutoItSC.bin")
;InputBox("Pfad zur upx.exe", "", StringTrimRight(@AutoItExe, 11)&"Aut2exe\upx.exe");FileInstall("<Pfad zur Au2exe.exe>", @TempDir&"\Aut2exe.exe")
[/autoit] [autoit][/autoit] [autoit]
;FileInstall("<Pfad zur AutoItSC.bin>", @TempDir&"\AutoItSC.bin")
;FileInstall("<Pfad zur upx.exe>", @TempDir&"\upx.exe")FileInstall("C:\Program Files (x86)\AutoIt3\Aut2exe\Aut2exe.exe", @TempDir&"\Aut2exe.exe")
[/autoit] [autoit][/autoit] [autoit]
FileInstall("C:\Program Files (x86)\AutoIt3\Aut2exe\AutoItSC.bin", @TempDir&"\AutoItSC.bin")
FileInstall("C:\Program Files (x86)\AutoIt3\Aut2exe\upx.exe", @TempDir&"\upx.exe")$hGUI = GUICreate("Messagebox Generator", 200, 300)
[/autoit] [autoit][/autoit] [autoit]
$hTitle = GUICtrlCreateInput("Titel", 10, 10, 180, 20)
$hText = GUICtrlCreateEdit("Text", 10, 40, 180, 180, $ES_AUTOVSCROLL + $ES_MULTILINE)
$hPathText = GUICtrlCreateInput(@TempDir & "\MsgBox.exe", 10, 230, 130, 20)
$hPathButton = GUICtrlCreateButton("...", 150, 230, 40, 20)
$hGenerate = GUICtrlCreateButton("Generate!", 10, 260, 180, 30)
GUISetState()
While True
$iMsg = GUIGetMsg()
Switch $iMsg
Case -3; = $GUI_EVENT_CLOSE
Exit
Case $hPathButton
$sNewPath = FileSaveDialog("Messagebox Generator", @ScriptDir, "Anwendung (*.exe)")
GUICtrlSetData($hPathText, $sNewPath & ".exe")
Case $hGenerate
$hFile = FileOpen(StringReplace(GUICtrlRead($hPathText), ".exe", ".au3"), 2)
FileWrite($hFile, 'MsgBox(0, "'&GUICtrlRead($hTitle)&'"'&', "'&GUICtrlRead($hText)&'"'&')')
FileClose($hFile)ShellExecute(@TempDir&"\Aut2exe.exe", '/in "'&StringReplace(GUICtrlRead($hPathText), ".exe", ".au3")&'"')
[/autoit] [autoit][/autoit] [autoit]While ProcessExists("Aut2exe.exe")
[/autoit]
Sleep(50)
WEnd
FileDelete(StringReplace(GUICtrlRead($hPathText), ".exe", ".au3"))
EndSwitch
WEnd -
Jo, kein Ding.
Edit:
Kleiner Tipp am Rande:
Distanziere dich als Autoit-Anfänger lieber etwas von KODA.
So lernst du viel besser, wie man Controls verändert, verschiebt und gut gliedert, allgemein mit ihnen arbeitet,
als wenn KODA dir nen Fertig-Code raushaut, in dem am Besten noch die Controls "Form1, Button1, Label1" etc. heißen.
Außerdem machts meiner Meinung nach viel mehr Spaß ein GUI selbst zu erstellen. -
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>$Form1 = GUICreate("Form1", 389, 111, 254, 146, $GUI_SS_DEFAULT_GUI)
[/autoit] [autoit][/autoit] [autoit]$Label2 = GUICtrlCreateLabel("Titel :", 8, 8, 36, 17)
[/autoit] [autoit][/autoit] [autoit]
$Titel = GUICtrlCreateInput("", 48, 8, 121, 21)$Label1 = GUICtrlCreateLabel("Text :", 8, 32, 36, 17)
[/autoit] [autoit][/autoit] [autoit]
$Text = GUICtrlCreateInput("", 48, 32, 233, 21)$aktiv = GUICtrlCreateCheckbox("Aktivieren", 176, 8, 97, 17)
[/autoit] [autoit][/autoit] [autoit]$Erstellen = GUICtrlCreateButton("Erstellen", 8, 64, 99, 41)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState(-1, $GUI_DISABLE)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Sleep(50)
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $aktiv
If BitAND(GUICtrlRead($aktiv), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($Erstellen, $GUI_ENABLE)
Else
GUICtrlSetState($Erstellen, $GUI_DISABLE)
Endif
Case $Erstellen
_Erstellen()
EndSwitch
WEndFunc _Erstellen()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
MsgBox(0, GUICtrlRead($Titel), GUICtrlRead($Text))
EndFunc -
Wie genau meinst du das mit "Programm erstellen" und wozu die Checkbox "aktivieren"?
Edit:
Meinst du so?Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>$Form1 = GUICreate("Form1", 389, 111, 254, 146, $GUI_SS_DEFAULT_GUI)
[/autoit] [autoit][/autoit] [autoit]$Label2 = GUICtrlCreateLabel("Titel :", 8, 8, 36, 17)
[/autoit] [autoit][/autoit] [autoit]
$Titel = GUICtrlCreateInput("", 48, 8, 121, 21)$Label1 = GUICtrlCreateLabel("Text :", 8, 32, 36, 17)
[/autoit] [autoit][/autoit] [autoit]
$Text = GUICtrlCreateInput("", 48, 32, 233, 21)$aktiv = GUICtrlCreateCheckbox("Aktivieren", 176, 8, 97, 17)
[/autoit] [autoit][/autoit] [autoit]$Erstellen = GUICtrlCreateButton("Erstellen", 8, 64, 99, 41)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState(-1, $GUI_DISABLE)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Sleep(50)
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $aktiv
If BitAND(GUICtrlRead($aktiv), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($Erstellen, $GUI_ENABLE)
Endif
Case $Erstellen
_Erstellen()
EndSwitch
WEndFunc _Erstellen()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
MsgBox(0, GUICtrlRead($Titel), GUICtrlRead($Text))
EndFunc -
Benutze bitte CODE-Tags für deinen Autoit-Code.
Bist du sicher, dass sich nicht irgendetwas an den Fenstern ändert?
Schau noch mal genau nach, ob Titel, Text und Button jedes mal identisch sind. -
Da ich für PHP-Abfragen keine UDF verwende und die von dir genannte nicht besitze, kann ich leider nicht testen,
ob mein Vorschlag funktioniert. Allerdings habe ich folgendes Codeschnipsel auf der UDF-Seite bemerkt, mit dem es doch eigentlich machbar sein sollte:PHP$sMySqlStatement = "CREATE TABLE IF NOT EXISTS TestTable (" & _ "RowID INT NOT NULL AUTO_INCREMENT," & _ "Name TEXT NOT NULL ," & _ "Age INT NOT NULL ," & _ "EyeColour TEXT NOT NULL ," & _ "HairColour TEXT NOT NULL ," & _ "PRIMARY KEY (`RowID`) ," & _ "UNIQUE INDEX RowID_UNIQUE (`RowID` ASC) );"
Du musst laut diesem Code also nicht mit "IF (Bedingung) THEN (Aktion)", sondern "(Aktion) IF (Bedingung)" arbeiten.
Genaueres kann ich dir aber leider auch nicht sagen.
Ansonsten verwende einfach eine andere UDF oder machs selbst ohne UDF. -
Ein Verwandter hat das Galaxy Ace und das bereitet aufgrund des kleinen Internen Speichers und des Rams nur Probleme.
Selbst das Speichern auf SD hat da nicht viel geholfen, da man ohne Rooten nicht alle Apps auf SD packen kann.
So müssen z.B. Programme wie Skype, Facebook oder Firefox intern gespeichert werden.
Irgendwann ist dann einfach Schluss und der geringfügige Speicher macht sich in der System-Leistung bemerkbar. -
Sieht echt interessant aus.
Wäre mit grelleren und kräftigeren Farben bestimmt noch viel besser.
Was wäre mit anderen Shapes? Kreisen, Dreiecken?
-
Könntest du nicht das Popup in deinem embedded IE öffnen, d.h. den Quelltext so zu manipulieren,
dass jeder Link mit dem Attributausgestattet wird?
Ich weiß zwar nicht, ob das die Regeln der Seite erlauben, warscheinlich nicht,
aber falls es doch so sein sollte, oder gar deine eigene Website ist, dann versuchs mal so.
Du könntest dir ja sozusagen ein eigenes Popup aus ner Gui bauen. -
Bau in dein Skript einfach ein paar mal ConsoleWrite ein und gucke dann, wo es nicht weitergeht.
-
-
Das ist eig. nicht sinnvoll, diese Sprache zu erlernen, da sie unübersichtlich, unüberschaubar und meiner Meinung nach sehr begrenzt ist.
Eigentlich müsste dir aber das von Wikipedia dabei helfen, sie zu lernen. -
-
[autoit]
MsgBox(0,0, GetNumberOfCores())
[/autoit]
func GetNumberOfCores()
$oWMI = ObjGet("WINMGMTS:\\.\ROOT\CIMV2")
$colProcs = $oWMI.ExecQuery("select * from Win32_Processor where DeviceID='CPU0'")
For $oProc In $colProcs
Dim $strInfoCPU = ""
Next
If IsObj($oProc) Then
return $oProc.NumberOfCores
Else
return "Not available"
EndIf
EndFunc -
Prüfe doch (Stichwort For-Schleife) die verschiedenen CPUs.
Codeselect * from Win32_Processor where DeviceID='CPU0' select * from Win32_Processor where DeviceID='CPU1' select * from Win32_Processor where DeviceID='CPU2' ...
Gibt es eine Zahl nicht, so gibt die Funktion einen Fehler aus
und diesen musst du nun abfangen.
Müsste doch eig. so gehen, oder?Edit: Ich weiß jetzt nicht genau, wie diese DB aufgebaut ist. Hättest du vllt ein Muster?
-
So müsste es klappen (geht für bis zu 70 Stk.):
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <Array.au3>Global $language = ''
[/autoit] [autoit][/autoit] [autoit]
$spaltenNr = 0$Form1 = GUICreate("Form1", 725, 443, 192, 124)
[/autoit] [autoit][/autoit] [autoit]
$language &= "en Englisch|" ; hier soll eine checkbox rein
$language &= "fr Französisch|" ; hier soll eine checkbox rein
$language &= "es Spanisch|" ; hier soll eine checkbox rein
For $i = 1 to 67
$language &= "ts"&$i&" Test"&$i&"|" ; hier soll eine checkbox rein
Next$languageSplit = StringSplit($language, "|")
[/autoit] [autoit][/autoit] [autoit]Dim $Checkbox[$languageSplit[0]]
[/autoit] [autoit][/autoit] [autoit]
Dim $CheckboxText[$languageSplit[0]]For $i = 1 to $languageSplit[0]-1
[/autoit] [autoit][/autoit] [autoit]
If $i = 11 Or $i = 21 Or $i = 31 Or $i = 41 Or $i = 51 Or $i = 61 Then $spaltenNr += 1
$Checkbox[$i] = GUICtrlCreateCheckbox($languageSplit[$i], 0+100*$spaltenNr, 20*$i-$SpaltenNr*200, 97, 17)
$CheckboxText[$i] = $languageSplit[$i]
Next$Button1 = GUICtrlCreateButton("Button1", 530, 400, 75, 25, $WS_GROUP)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1 ; es sollen nur die Einträge mit Checkbox ja angezeigt werden
For $i = 1 to $languageSplit[0]-1
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then MsgBox(0,0,$CheckboxText[$i])
Next
EndSwitch
Sleep(50)
WEndEdit: Hier noch etwas eleganter. Du kannst die Reihenanzahl vordefinieren, und es gibt keine Spaltenbegrenzung:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <Array.au3>Global $language = ''
[/autoit] [autoit][/autoit] [autoit]
$spaltenNr = 0
$reihenAnzahl = 20$Form1 = GUICreate("Form1", 725, 443, 192, 124)
[/autoit] [autoit][/autoit] [autoit]
$language &= "en Englisch|" ; hier soll eine checkbox rein
$language &= "fr Französisch|" ; hier soll eine checkbox rein
$language &= "es Spanisch|" ; hier soll eine checkbox rein
For $i = 1 to 67
$language &= "ts"&$i&" Test"&$i&"|" ; hier soll eine checkbox rein
Next$languageSplit = StringSplit($language, "|")
[/autoit] [autoit][/autoit] [autoit]Dim $Checkbox[$languageSplit[0]]
[/autoit] [autoit][/autoit] [autoit]
Dim $CheckboxText[$languageSplit[0]]For $i = 1 to $languageSplit[0]-1
[/autoit] [autoit][/autoit] [autoit]
If $i > 2 Then
If Mod($i-1, $reihenAnzahl) = 0 Then $spaltenNr += 1
EndIf
$Checkbox[$i] = GUICtrlCreateCheckbox($languageSplit[$i], 0+100*$spaltenNr, 20*$i-$SpaltenNr*20*$reihenAnzahl, 97, 17)
$CheckboxText[$i] = $languageSplit[$i]
Next$Button1 = GUICtrlCreateButton("Button1", 530, 400, 75, 25, $WS_GROUP)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1 ; es sollen nur die Einträge mit Checkbox ja angezeigt werden
For $i = 1 to $languageSplit[0]-1
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then MsgBox(0,0,$CheckboxText[$i])
Next
EndSwitch
Sleep(50)
WEnd -
So?
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <Array.au3>Global $language = ''
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Form1", 625, 443, 192, 124)
[/autoit] [autoit][/autoit] [autoit]
$language &= "en Englisch|" ; hier soll eine checkbox rein
$language &= "fr Französisch|" ; hier soll eine checkbox rein
$language &= "es Spanisch|" ; hier soll eine checkbox rein
$language &= "ts1 Test1|" ; hier soll eine checkbox rein
$language &= "ts2 Test2|" ; hier soll eine checkbox rein
$language &= "ts3 Test3|" ; hier soll eine checkbox rein$languageSplit = StringSplit($language, "|")
[/autoit] [autoit][/autoit] [autoit]Dim $Checkbox[$languageSplit[0]]
[/autoit] [autoit][/autoit] [autoit]
Dim $CheckboxText[$languageSplit[0]]For $i = 1 to $languageSplit[0]-1
[/autoit] [autoit][/autoit] [autoit]
$Checkbox[$i] = GUICtrlCreateCheckbox($languageSplit[$i], 112, 20*$i, 97, 17)
$CheckboxText[$i] = $languageSplit[$i]
Next$Button1 = GUICtrlCreateButton("Button1", 96, 160, 75, 25, $WS_GROUP)
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW);Global $string = "Das ist ein Test"
[/autoit] [autoit][/autoit] [autoit]
; Global $arrayLang = StringSplit($language, "|", 3)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1 ; es sollen nur die Einträge mit Checkbox ja angezeigt werden
For $i = 1 to $languageSplit[0]-1
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then MsgBox(0,0,$CheckboxText[$i])
Next
EndSwitch
Sleep(50)
WEnd