Beiträge von Nathax

Nathax

Hammer!

Nathax

Was genau meinst du mit "Delay beim Abspielen" ?

Nathax

Dann müssen diese halt angepasst werden. Lässt sich nichts machen.

Nathax

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")
;InputBox("Pfad zur AutoItSC.bin", "", StringTrimRight(@AutoItExe, 11)&"Aut2exe\AutoItSC.bin")
;InputBox("Pfad zur upx.exe", "", StringTrimRight(@AutoItExe, 11)&"Aut2exe\upx.exe")

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

;FileInstall("<Pfad zur Au2exe.exe>", @TempDir&"\Aut2exe.exe")
;FileInstall("<Pfad zur AutoItSC.bin>", @TempDir&"\AutoItSC.bin")
;FileInstall("<Pfad zur upx.exe>", @TempDir&"\upx.exe")

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

FileInstall("C:\Program Files (x86)\AutoIt3\Aut2exe\Aut2exe.exe", @TempDir&"\Aut2exe.exe")
FileInstall("C:\Program Files (x86)\AutoIt3\Aut2exe\AutoItSC.bin", @TempDir&"\AutoItSC.bin")
FileInstall("C:\Program Files (x86)\AutoIt3\Aut2exe\upx.exe", @TempDir&"\upx.exe")

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

$hGUI = GUICreate("Messagebox Generator", 200, 300)
$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)

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

ShellExecute(@TempDir&"\Aut2exe.exe", '/in "'&StringReplace(GUICtrlRead($hPathText), ".exe", ".au3")&'"')

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

While ProcessExists("Aut2exe.exe")
Sleep(50)
WEnd
FileDelete(StringReplace(GUICtrlRead($hPathText), ".exe", ".au3"))
EndSwitch
WEnd

[/autoit]

Nathax

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.

Nathax

Spoiler anzeigen

[autoit]

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

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

$Form1 = GUICreate("Form1", 389, 111, 254, 146, $GUI_SS_DEFAULT_GUI)

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

$Label2 = GUICtrlCreateLabel("Titel :", 8, 8, 36, 17)
$Titel = GUICtrlCreateInput("", 48, 8, 121, 21)

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

$Label1 = GUICtrlCreateLabel("Text :", 8, 32, 36, 17)
$Text = GUICtrlCreateInput("", 48, 32, 233, 21)

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

$aktiv = GUICtrlCreateCheckbox("Aktivieren", 176, 8, 97, 17)

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

$Erstellen = GUICtrlCreateButton("Erstellen", 8, 64, 99, 41)
GUICtrlSetState(-1, $GUI_DISABLE)

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

GUISetState(@SW_SHOW)

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

While 1
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
WEnd

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

Func _Erstellen()
MsgBox(0, GUICtrlRead($Titel), GUICtrlRead($Text))
EndFunc

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

Nathax

Wie genau meinst du das mit "Programm erstellen" und wozu die Checkbox "aktivieren"?

Edit:
Meinst du so?

Spoiler anzeigen

[autoit]

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

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

$Form1 = GUICreate("Form1", 389, 111, 254, 146, $GUI_SS_DEFAULT_GUI)

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

$Label2 = GUICtrlCreateLabel("Titel :", 8, 8, 36, 17)
$Titel = GUICtrlCreateInput("", 48, 8, 121, 21)

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

$Label1 = GUICtrlCreateLabel("Text :", 8, 32, 36, 17)
$Text = GUICtrlCreateInput("", 48, 32, 233, 21)

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

$aktiv = GUICtrlCreateCheckbox("Aktivieren", 176, 8, 97, 17)

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

$Erstellen = GUICtrlCreateButton("Erstellen", 8, 64, 99, 41)
GUICtrlSetState(-1, $GUI_DISABLE)

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

GUISetState(@SW_SHOW)

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

While 1
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
WEnd

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

Func _Erstellen()
MsgBox(0, GUICtrlRead($Titel), GUICtrlRead($Text))
EndFunc

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

Nathax

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.

Nathax

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.

Nathax

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.

Nathax

Sieht echt interessant aus.
Wäre mit grelleren und kräftigeren Farben bestimmt noch viel besser.
Was wäre mit anderen Shapes? Kreisen, Dreiecken?

Nathax

Könntest du nicht das Popup in deinem embedded IE öffnen, d.h. den Quelltext so zu manipulieren,
dass jeder Link mit dem Attribut

PHP

target="_self"

ausgestattet 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.

Nathax

Bau in dein Skript einfach ein paar mal ConsoleWrite ein und gucke dann, wo es nicht weitergeht.

Nathax

Ok, danke

Nathax

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.

Nathax

Sicher das du das lernen möchtest?!

Wikipedia:

Hello World!

Das folgende Programm gibt „Hello World!“ und einen Zeilenumbruch aus.

Code

++++++++++
 [
  >+++++++>++++++++++>+++>+<<<<-
 ]                     
 >++.                
 >+.                     
 +++++++.           '
 .                       
 +++.                   
 >++.                    
 <<+++++++++++++++.      
 >.                      
 +++.                    
 ------.                 
 --------.               
 >+.                     
 >.                      
 +++.

Alles anzeigen

Nathax

[autoit]

MsgBox(0,0, GetNumberOfCores())
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

[/autoit]

Nathax

Prüfe doch (Stichwort For-Schleife) die verschiedenen CPUs.

Code

select * 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?

Nathax

So müsste es klappen (geht für bis zu 70 Stk.):

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <Array.au3>

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

Global $language = ''
$spaltenNr = 0

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

$Form1 = GUICreate("Form1", 725, 443, 192, 124)
$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

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

$languageSplit = StringSplit($language, "|")

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

Dim $Checkbox[$languageSplit[0]]
Dim $CheckboxText[$languageSplit[0]]

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

For $i = 1 to $languageSplit[0]-1
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

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

$Button1 = GUICtrlCreateButton("Button1", 530, 400, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

While 1
$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

[/autoit]

Edit: Hier noch etwas eleganter. Du kannst die Reihenanzahl vordefinieren, und es gibt keine Spaltenbegrenzung:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <Array.au3>

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

Global $language = ''
$spaltenNr = 0
$reihenAnzahl = 20

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

$Form1 = GUICreate("Form1", 725, 443, 192, 124)
$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

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

$languageSplit = StringSplit($language, "|")

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

Dim $Checkbox[$languageSplit[0]]
Dim $CheckboxText[$languageSplit[0]]

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

For $i = 1 to $languageSplit[0]-1
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

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

$Button1 = GUICtrlCreateButton("Button1", 530, 400, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

While 1
$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

[/autoit]

Nathax

So?

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <Array.au3>

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

Global $language = ''

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

$Form1 = GUICreate("Form1", 625, 443, 192, 124)
$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

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

$languageSplit = StringSplit($language, "|")

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

Dim $Checkbox[$languageSplit[0]]
Dim $CheckboxText[$languageSplit[0]]

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

For $i = 1 to $languageSplit[0]-1
$Checkbox[$i] = GUICtrlCreateCheckbox($languageSplit[$i], 112, 20*$i, 97, 17)
$CheckboxText[$i] = $languageSplit[$i]
Next

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

$Button1 = GUICtrlCreateButton("Button1", 96, 160, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

;Global $string = "Das ist ein Test"
; Global $arrayLang = StringSplit($language, "|", 3)

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

While 1
$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

[/autoit]

Beiträge von Nathax

PhysicEngine 3.1

Autoit Ocarina?

Programm Ersteller

Programm Ersteller

Programm Ersteller

Programm Ersteller

Programm Ersteller

Dateiübertragungsskript funktioniert nur für einige Daten

EzMySql Daten lesen und Updaten

Smartphone

GDI+ Bildschirmschoner mit Rechtecken

IE embedded: Session wird beendet

LogFiles und mehr

Sehr schneller Rechner - erkennen von mehreren Prozessoren

Brainfuck - Anfängerhilfe

Brainfuck - Anfängerhilfe

Sehr schneller Rechner - erkennen von mehreren Prozessoren

Sehr schneller Rechner - erkennen von mehreren Prozessoren

Checkbox Spezielle Syntax

Checkbox Spezielle Syntax