Beiträge von autoBert

**autoBert**

Hallo mipez,

hier einmal ein Beispiel wie man URLs in einer Combo (mit Hilfe einer INI) verwalten kann:

Spoiler anzeigen

[autoit]

;#include <GuiComboBox.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

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

#include <File.au3>

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

Const $sElect = "bitte eine URL auswählen"
Global $URL

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

If Not FileExists(@ScriptDir & "\URL.INI") Then
$sData = "AutoIt=http://www.autoit.de" & @LF & "Der Thread=http://www.autoit.de/index.php?page=Thread&postID=122400#post122400" & @LF & "AutoIt V3=http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
IniWriteSection(@ScriptDir & "\URL.INI", "URLs", $sData)
EndIf

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

$hGui = GUICreate("Combobox mit INI ", 300, 160, 302, 218)
$hcboProg = GUICtrlCreateCombo($sElect, 8, 8, 200, 25)
$hbtnAdd = GUICtrlCreateButton("&Hinzufügen", 213,
$hlblURL = GUICtrlCreateLabel("", 8, 35, 200, 50)
$list1 = IniReadSection(@ScriptDir & "\URL.INI", "URLs")
ConsoleWrite($list1 & @CRLF)
For $i = 1 To $list1[0][0]
GUICtrlSetData($hcboProg, $list1[$i][0])
Next
$hbtnOpen = GUICtrlCreateButton("&Öffnen", 8, 85)
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hbtnAdd
$write1 = InputBox("URL", "Bitte eine gülzige eingeben")
If $write1 <> "" Then
$write2 = InputBox("URL verwalten unter", "Bitte Kurzbegriff eingeben")
If $write2 <> "" Then IniWrite(@ScriptDir & "\URL.INI", "URLs", $write2, $write1)
GUICtrlSetData($hcboProg, $write2, $write2)
EndIf
show_Selection()
Case $hcboProg
show_Selection()
Case $hbtnOpen
;hier $URL öffnen
ConsoleWrite($URL & @CRLF)
EndSwitch
WEnd

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

Func show_Selection()
If GUICtrlRead($hcboProg) = $sElect Then
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUICtrlSetData($hlblURL, "")
Else
GUICtrlSetState($hbtnOpen, $GUI_ENABLE)
$Prog = GUICtrlRead($hcboProg)
ConsoleWrite("ausgewählt: " & $Prog & @CRLF)
$URL = IniRead(@ScriptDir & "\URL.INI", "URLs", $Prog, "")
GUICtrlSetData($hlblURL, $URL)
EndIf
EndFunc ;==>show_Selection

[/autoit]

viel Spass damit,

mfg (Auto)Bert

**autoBert**

Hallo descent,

da GuiGetMsg() 0 zurückliefert, solange kein Ereignis vorliegt und die ganzen Variablen welche später die ID enthalten auch noch 0 sind, wird zwangsläufig der Case Zweig für den 1. Button ausgeführt. Einfachste Lösung: an aller 1. Stelle case 0 einfügen:

Spoiler anzeigen

[autoit]

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

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

Global $iniName, $iniPW, $Button1, $Button2, $Button3, $Button4, $Button5, $Button6, $ButtonSpeichern, $Input1, $Input2, $Form1

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

Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)

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

$infoitem = TrayCreateItem("Login")
TrayItemSetOnEvent(-1,"Login")

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

TrayCreateItem("")

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

$infoitem = TrayCreateItem("Einstellungen")
TrayItemSetOnEvent(-1,"Einstellungen")

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

TrayCreateItem("")

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

$infoitem = TrayCreateItem("Schnellleiste zeigen")
TrayItemSetOnEvent(-1,"Schnellleiste")

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

TrayCreateItem("")

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

$exititem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1,"ExitScript")
TraySetState()

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

$iniName = iniread("config.ini","Login","Name","Defaul")
$iniPW = iniread("config.ini","Login","PW","Defaul")

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case 0
;nothingToDo
Case $GUI_EVENT_CLOSE
GUISetState(@SW_Hide)
Case $Button1
_Link1()
Case $Button2
_Link2()
Case $Button3
_Link3()
Case $Button4
_Link4()
Case $Button5
_Link5()
Case $Button6
_Link6()
Case $ButtonSpeichern
_speichern()
EndSwitch
WEnd

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

Func Login()
_FFStart("Loginhomepage")
_FFSetValue($iniName, "user", "name")
_FFSetValue($iniPW , "password", "name")
EndFunc

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

Func Einstellungen()
$Form2 = GUICreate("Einstellungen", 138, 194, 320, 203)
$Input1 = GUICtrlCreateInput("", 8, 64, 121, 21)
$Input2 = GUICtrlCreateInput("", 8, 120, 121, 21,"*")
$Label1 = GUICtrlCreateLabel("Benutzername", 8, 40, 100, 17)
$Label2 = GUICtrlCreateLabel("Passwort", 8, 96, 100, 17)
$ButtonSpeichern = GUICtrlCreateButton("Speichern", 8, 160, 75, 25, 0)
GUISetFont (12,400)
$Label3 = GUICtrlCreateLabel("Einstellungen", 8, 8, 100, 20)
GUISetState(@SW_SHOW)
EndFunc

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

Func _speichern()
$Name=GUICtrlRead($Input1)
$PW=GUICtrlRead($Input2)
IniWrite("Config.ini", "login", "name", $Name)
IniWrite("Config.ini", "login", "pw", $PW)
EndFunc

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

Func _Link1()
_FFOpenUrl("http://www.google.de")
EndFunc

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

Func _Link2()
_FFOpenUrl("")
EndFunc

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

Func _Link3()
_FFOpenUrl("")
EndFunc

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

func _Link4()
_FFOpenUrl("")
EndFunc

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

Func _Link5()
_FFOpenUrl("")
EndFunc

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

Func _link6()
_FFOpenUrl("")
EndFunc

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

Func ExitScript()
Exit
EndFunc

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

Func Schnellleiste()
$Form1 = GUICreate("Schnellleiste", 578, 74, 192, 124)
$Button1 = GUICtrlCreateButton("Google", 8, 24, 75, 25, 0)
$Button2 = GUICtrlCreateButton("", 104, 24, 75, 25, 0)
$Button3 = GUICtrlCreateButton("", 200, 24, 75, 25, 0)
$Button4 = GUICtrlCreateButton("", 296, 24, 75, 25, 0)
$Button5 = GUICtrlCreateButton("", 392, 24, 75, 25, 0)
$Button6 = GUICtrlCreateButton("", 488, 24, 75, 25, 0)
GUISetState(@SW_SHOW)
WinSetOnTop("Schnellleiste","", 1)
EndFunc

[/autoit]

ungetestet da ich FF-Automation nicht installiert habe.

2. Möglichkeit: du erstellst alle GUIS am Anfang versteckt und zeigst sie bei Bedarf.
3. Möglichkeit: alles in OnEvent-Mode umschreiben, da kann so etwas nicht passieren

mfg (Auto)Bert

**autoBert**

Hallo UEZ,

ja alle mir bekannten mit AutoIt geskripteten Downloader funktionieren seit dem neuen Design von YouTube nicht mehr, da der Quelltext der YouTube-Seite verändert worden ist und dadurch Titeltext und die Download-URL nicht mehr gefunden werden.
Bei meinen Analyen(-Versuchen) finde ich zwar den Titeltext, aber nicht die eigentliche Download-URL. Wenn ich diese auch wieder finde, gibt es ein Update.
Ich habe einen in C++ geschriebenen Downloader gefunden (ClipGrab auf http://clipgrab.de), der auch nach der Änderung noch funktioniert. Kann aber kein C++, daher ist der dazu downloadbare Sourcecode für mich leider (noch) nutzlos,

mfg (Auto)Bert

**autoBert**

Zitat von ProblemUser

Hey,
ich möchte nun mein Script in einer Schleife laufen lassen eig. nur eine Bestimmte Zeit lang aber erst mal das jetztige Problem lösen.
Das man While benutzt um etwas immer wieder zu tun weiß ich.
Nun ich weiß auch das man eine Schleife nicht in einer Schleife benutzten kann bzw. es würe funktionieren aber die Letzte Funktion würde nie enden.
BSP:
[autoit]

While 1
MsgBox(0, "Test1", "Hallo Welt1!")
While 1
MsgBox(0, "Test2", "Hallo Welt!2")
WEnd
WEnd
[/autoit]

Die erste Schleife wird beendet, die zweite nicht. Das kann man eig. auch ohne Programmierkenntnisse wissen.

Alles anzeigen

Falsch, die 1. Schleife wird gestartet es wird 1 mal Hallo Welt1! ausgegeben, danach startet die 2. Schleife es wird immer wieder Hallo Welt!2 ausgegeben. Da diese Schleife nie beendet wird, kommt es auch nie mehr zu einem weiteren Durchlauf der 1. Schleife, diese ist auch noch nicht beendet.

Zitat von ProblemUser

Gibt es eine Mögichkeit ein Script z.b. Dieses:
[autoit]

While 1
MsgBox(0, "Test1", "Hallo Welt1!")
WEnd
While 1
MsgBox(0, "Test2", "Hallo Welt!2")
WEnd
[/autoit]

In eine Schleife zu packen? Am besten für eine betimmte Zeit. In der Hilfe fand ich dazu nichts!

Alles anzeigen

Schau dir TimerInit und TimerDiff in der Hilfe an. Vorsichtshalber solltest du dir auch die Forenregeln durchlesen,

mfg (Auto)Bert

**autoBert**

Hallo Nimos,

Meine Kristallkugel ist defekt, aber der Author hat einen bestimmten Fall nicht berücksichtigt und dieser tritt bei dir ein (Hardwareausstattung, z.B. kein CD-Laufwerk),
Du solltest dem Author eine Nachricht mit der Fehlerbeschreibung zukommenlassen und ihn um ein Update bitten, anders ist es nicht lösbar

mfg (Auto)Bert

**autoBert**

Zitat von tkausl

Ich frage mich nur warum das Decompilen verboten ist, aber von den Programmierern von autoit eine exe2Aut beigelegt wird.. .

Dieser funktioniert aber ab nur bis 3.2.5.1 danach nicht mehr. Bis dahin war es anscheinend noch erlaubt.

Zitat von name22

Ich finde bei meiner AutoIt Installation keine exe2aut und soweit ich weiß wird decompilen seit langem nicht mehr unterstützt.

dann schau einmal in Ordner Extras\Exe2Aut

Zitat von Hilfe Struktur des Installationsverzeichnisses

Exe2Aut\ Enthält einen Decompiler für Exe-Dateien, die mit einer AutoIt-Version vor 3.2.5.1 kompiliert wurden.

mfg (Auto)Bert

**autoBert**

Zitat von black_skorpi

das "decompilen" von autoit ist/war schon immer schwer, das weiß jeder, da alles decompilen schwer ist... es gibt eine möglickeit, sachen zu decompilen.... diese nutzen spezielle programme, die die komplette funktion durchlaufen lassen und dies in assembler aufschreiben... ich hoffe du kannst assembler wenn es dir wirklich wichtig ist) sonst wie gesagt, nachmachen
wenn du das nicht kannst/keine lust hast, dann vergiss es

decompilen ist nicht erlaubt, siehe

Zitat von Hilfe Lizenz

..
Reverse engineering. You may not reverse engineer or disassemble the SOFTWARE PRODUCT or compiled scripts that were created with the SOFTWARE PRODUCT.
...

mfg (Auto)Bert

**autoBert**

Zitat von Fränkische Nachrichten Ausgabe Tauberbischofsheim vom 01.04.2010

– ANZEIGE –
Grüne Welle
per Fernbedienung
FOR.UM Software GmbH Grünsfeld entwickelt revolutionäres
Computerprogramm zur Fernsteuerung von Ampelanlagen

Jeder kann ein Lied davon singen.
Man hat es eilig, will von A
nach B und in regelmäßigen Abständen
landet man vor einer roten
Ampel. Dieser Ärger wird für viele
Autofahrer bald ein Ende haben
dank der neuen Erfindung der
FOR.UM Software GmbH aus
Grünsfeld. Die Softwarespezialisten
haben ein Computerprogramm
entwickelt, das mittels eines USBInfrarot-
Senders nahezu alle handelsüblichen
Fernsteuerungen so
umprogrammiert, dass diese anschließend
Ampelanlagen an Straßen
steuern können. Kaum vorstellbar,
aber so einfach wie genial
funktioniert der Einsatz im Straßenverkehr:
Steht man an einer roten
Ampel, muss der Fahrer das
Fenster herunterkurbeln, die Fernbedienung
direkt auf die Ampel
richten, eine beliebige Taste drükken
und schon schaltet die Ampel
von rot auf grün. Damit es durch
das Umschalten nicht zu Unfällen
kommt, wir per Internet sichergestellt,
dass immer nur eine Fahrtrichtung
auf grün schaltet. Wird die
umprogrammierte Fernbedienung
von zwei Fahrern aus unterschiedlichen
Fahrtrichtungen verwendet,
wird zuerst die Ampel des Fahrers
auf grün geschaltet, der die Fernbedienung
zuerst betätigt hat. Die
FOR.UM Software GmbH hat das
System mit Fernbedienungen unterschiedlichster
Hersteller ausgiebig
getestet und dabei festgestellt,
dass manche Fernbedienungen sogar
eine Reichweite von bis zu 20
Metern aufweisen. Da der Gesetzgeber
keine Normen für einen Eingriff
in Ampelanlagen vorgesehen
hat, kann das System von jedem
Autofahrer eingesetzt werden –
und das ohne Zulassung. Das Programm
inklusive USB-Infrarot-
Sender ist ab sofort lieferbar und
kann zum Paketpreis von Euro
59,90 unter der Faxnummer
09346-922450 direkt bei der
FOR.UM Software GmbH bestellt
werden.
Aufgrund der großen Nachfrage
arbeitet die Entwicklungsabteilung
des Softwareunternehmens derzeit
bereits mit Hochdruck an einer
Programmerweiterung, die auch
die Öffnung von Bahnschranken
ermöglichen soll. Und das nach
dem gleichen Prinzip. Steht man
vor einer geschlossenen Bahnschranke,
heißt es auch hier zukünftig
Fenster herunterkurbeln,
Fernbedienung auf die Lichtsignale
der Schranke richten, beliebige Taste
drücken und schon ist der Weg
frei. Herannahende Züge erhalten
bei Betätigen der Fernbedienung
ein Signal und müssen stehen bleiben.
Falls ein Zug bereits das Signal
überfahren hat, sorgt ein Sicherheitsmechanismus
dafür, dass die
Schranke geschlossen bleibt. Ab
wann die Programm-Erweiterung
erhältlich ist, hängt von den Testergebnissen
ab, da erhebliche Sicherheitsaspekte
berücksichtigt werden
müssen. Laut Aussagen von
Andreas Jouaux, Geschäftsführer
der FOR.UM Software GmbH, ist
die Markteinführung für Mitte des
Jahres geplant und auch realistisch

Alles anzeigen

mfg (Auto)Bert

**autoBert**

http://translation.autoit.de/onlinehilfe/functions/FileCopy.htm

**autoBert**

Zitat von clezZ

Der Vorteil an den Binärdaten ist halt, dass du nicht immer schauen musst wo das Bild gerade ist, sondern das Bild in Form von Binärdaten in deinem Skript gespeichert ist, dass heißt: du kannst das Bild löschen, und dein Programm würde trotzdem noch funktionieren.

//Edit: Warum löscht du deine Beiträge???

Bei FileInstall legst du 1. wo das Ursprungbild liegt und wohin es bei jedem Aufruf hinkopiert wird, dadurch auch Löschen durch DAU möglich, wird beim nächsten Programmstart wieder kopiert. Wenn FileInstall mit Flag 1 (überschreiben) aufgerufen wird, darf der DAU auch den Bildinhalt ändern, es nützt ihm nur nichts,

mfg (Auto)Bert

**autoBert**

Zitat von WORLD-KILLER

soll das heisen ich bin etwa dumm?
autoit webbrowser is doch nioch nie hiergewesen

schau mal hier:

[ gelöst ] Input Box...
[ gelöst ] Seite einfügen
[ offen ] Druckbutton in Internet-Browser erstellen und Fenster Größe ändern
[ offen ] gui größe verändern

alles INet-Explorer von 353 Post's laut SuFu, gabs also doch schon einmal,

mfg (Auto)Bert

**autoBert**

hier das angepasste Skript für die Lösung mit FileInstall:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
HotKeySet("{F2}", "_Exit")

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

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

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

FileInstall("C:\Users\Public\Pictures\Sample Pictures\Wüstenlandschaft.jpg",@ScriptDir & "\Wüste.jpg",1)
#Region ### START Koda GUI section ### Form=
$Autoeinlogger = GUICreate("Autoeinlogger", 510, 266, 192, 114)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Wüste.jpg", 0, 0, 513, 265, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$Button_SchuelerVZ = GUICtrlCreateButton("SchuelerVZ", 168, 16, 177, 33, 0)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Button_StudiVZ = GUICtrlCreateButton("StudiVZ", 168, 64, 177, 33, 0)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Button_MeinVZ = GUICtrlCreateButton("MeinVZ", 168, 112, 177, 33, 0)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Button_MySpace = GUICtrlCreateButton("MySpace", 168, 160, 177, 33, 0)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Button_Lokalisten = GUICtrlCreateButton("Lokalisten", 168, 208, 177, 33, 0)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Menu_Datei = GUICtrlCreateMenu("&Datei")
$Submenu_Info = GUICtrlCreateMenuItem("Info", $Menu_Datei)
$Submenu_Beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
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]

Case $Submenu_Info
Msgbox(64,"Info","Test")
Case $Submenu_Beenden
Exit
Case $Button_SchuelerVZ
$ID = InputBox ( "ID" , "Anmeldename" )
$PW = InputBox ( "PW" , "Passwort" , "" , "*" )
ShellExecute ( "http://www.schuelervz.net/Login" )
WinWaitActive("schuelerVZ | Einloggen")
Sleep(5000)
MouseMove ( 446, 279 )
Sleep (1000)
MouseClick ( "left" )
Sleep (1000)
Send ( $ID )
Sleep (1000)
MouseMove ( 456, 315 )
Sleep (1000)
MouseClick ( "left" )
Send ( $PW )
Sleep (2000)
Send ( "{enter}" )
Case $Button_StudiVZ
$ID = InputBox("ID", "Anmeldename")
$PW = InputBox("PW", "Passwort", "","*")
ShellExecute ( "http://www.studivz.net/Login" )
WinWaitActive("studiVZ | Einloggen")
Sleep(5000)
MouseMove ( 446, 279 )
Sleep (1000)
MouseClick ( "left" )
Sleep (1000)
Send ( $ID )
Sleep (1000)
MouseMove ( 456, 315 )
Sleep (1000)
MouseClick ( "left" )
Send ( $PW )
Sleep (2000)
Send ( "{enter}" )
Case $Button_MeinVZ
$ID = InputBox("ID", "Anmeldename")
$PW = InputBox("PW", "Passwort", "","*")
ShellExecute ( "http://www.meinvz.net/Login" )
WinWaitActive("meinVZ | Einloggen")
Sleep(5000)
MouseMove ( 446, 279 )
Sleep (1000)
MouseClick ( "left" )
Sleep (1000)
Send ( $ID )
Sleep (1000)
MouseMove ( 456, 315 )
Sleep (1000)
MouseClick ( "left" )
Send ( $PW )
Sleep (2000)
Send ( "{enter}" )
Case $Button_MySpace
$ID = InputBox("ID", "Anmeldename")
$PW = InputBox("PW", "Passwort", "","*")
ShellExecute ( "http://www.myspace.com" )
WinWaitActive("MySpace: Musik, Videos, Games und mehr")
Sleep(5000)
MouseMove ( 918, 546 )
Sleep (1000)
MouseClick ( "left" )
Sleep (1000)
Send ( $ID )
Sleep (1000)
MouseMove ( 929, 580 )
Sleep (1000)
MouseClick ( "left" )
Send ( $PW )
Sleep (2000)
Send ( "{enter}" )
Case $Button_Lokalisten
$ID = InputBox("ID", "Anmeldename")
$PW = InputBox("PW", "Passwort", "","*")
ShellExecute ( "http://www.lokalisten.de" )
WinWaitActive("lokalisten community: meine, deine- unsere freunde!")
Sleep(5000)
MouseMove ( 550, 209 )
Sleep (1000)
MouseClick ( "left" )
Sleep (1000)
Send ( $ID )
Sleep (1000)
MouseMove ( 742, 209 )
Sleep (1000)
MouseClick ( "left" )
Send ( $PW )
Sleep (2000)
Send ( "{enter}" )
EndSwitch
WEnd

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

Func _Exit()
Exit
EndFunc

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo SonyMan,

Da habe ich doch tatsächlich vergessen die func aufzrufen,sorry war vorhin anscheinend abgelenkt. Hier das geänderte Skript:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

$Version = ('V:X:30:2:E');Robotic Version Info Command
$Calibration = ('C:X:30:2:E');Calibration Command
$Load = ('I:X:30:2:E');Get Input (load) Command
$Unload = ('A:X:30:2:E');Unload the Drive Comman

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

Global $iCount = 1
Global $sCom, $funktion

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

#region ### START Koda GUI section ###
$Form1 = GUICreate("Setup", 539, 366, 222, 245)
$Path = GUICtrlCreateInput("Path", 40, 64, 153, 25)
$Browse = GUICtrlCreateButton("Browse", 208, 64, 65, 25, 0)
$Drive = GUICtrlCreateCombo("Drive", 336, 64, 153, 25)
$Comport = GUICtrlCreateCombo("COM", 40, 120, 153, 25)
$Radio_Full = GUICtrlCreateRadio("Full", 48, 240, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio_Menu = GUICtrlCreateRadio("Menu", 48, 176, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio_Main = GUICtrlCreateRadio("Main", 48, 208, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$OK = GUICtrlCreateButton("OK", 296, 280, 105, 41, 0)
$Anzahl = GUICtrlCreateInput("1", 336, 120, 153, 21)
$Time = GUICtrlCreateInput("25", 336, 176, 153, 21)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 128, 280, 105, 41, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

GUICtrlSetData($Drive, _GetDrives())
$sCom = ""
For $i = 1 To 20
$sCom &= $i & "|"
Next
GUICtrlSetData($Comport, $sCom)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Abbrechen
Exit
Case $Browse
GUICtrlSetData($Path, FileSelectFolder("Pfad auswählen", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"))
Case $Radio_Full
$sFunktion = "/FULL"
Case $Radio_Menu
$sFunktion = "/MENU"
Case $Radio_Main
$sFunktion = "/MAIN"
Case $OK
Global $sDrive = GUICtrlRead($Drive)
Global $sPath = GUICtrlRead($Path)
Global $sComport = GUICtrlRead($Comport)
Global $iAnzahl = GUICtrlRead($Anzahl)
Global $iTime = GUICtrlRead($Time)
doIt()
EndSwitch
WEnd

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

Func _GetDrives()
$sCD_Drives = ""
$aDrives = DriveGetDrive("CDROM")
If IsArray($aDrives) Then
For $i = 1 To $aDrives[0]
$sCD_Drives &= StringUpper($aDrives[$i]) & "|"
Next
EndIf
Return $sCD_Drives
EndFunc ;==>_GetDrives

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

Func doIt()
ConsoleWrite("doIT" & @CRLF)

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

RunWait('load.exe --comport=' & $Comport & ' --drive=' & $Drive & ' --command=' & $Version & '')
Sleep(1000)
RunWait('load.exe --comport=' & $Comport & ' --drive=' & $Drive & ' --command=' & $Calibration & '')
Sleep(1000)
RunWait('load.exe --comport=' & $Comport & ' --drive=' & $Drive & ' --open --command=' & $Load & ' --ifcommandfailortimeoutskip=failedload --set=loaderrors:0:robot --skip=trayanddiscin --label=failedload --skip=loadmorediscs --label=loadmorediscs --notify="You can cancel the batch with Abort. Hit Retry only after you load more discs on the spindle and CLEAR REJECTS. Hit Ignore if the disc loaded correctly.":"Load may have failed for drive {drive} on port {comport}.":2 --set=rc:{notifyreturncode} --ifsetskip=rc:3:shutdown --ifsetskip=rc:4:resetloaderrors --ifsetskip=rc:5:trayanddiscin --skip=failedload --label=resetloaderrors --set=loaderrors:0:robot --rejectsreset --skip=doreset --label=trayanddiscin --closeblind --sleep=' & $Time & ' --unbindtodrive --comportrelease --label=successexit --exit=0 ')
Sleep(2000)
ToolTip("Disk" & $iCount)
RunWait('auto.exe ' & $Drive & ' ' & $Path & ' ' & $funktion & ' /GUI')
Sleep(3000)
CDTray($Drive, "open")
Sleep(1000)

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

While True
$status = DriveStatus($Drive)
If ($status = "NOTREADY") Then
If $iCount < $Anzahl Then
_next()
$iCount += 1
ToolTip("Disc" & $iCount)
Else
RunWait('load.exe --comport=' & $Comport & ' --drive=' & $Drive & ' --open --command=' & $Unload & ' --close --ifcommandfailortimeoutskip=failedexit --comportrelease --skip=successexit --label=failedexit --notify="Problem with robot on port {comport} for drive {drive}, shutting down..." --set=shutdown:yes:robot --skip=shutdown --exit=0 --label=successexit --exit=0 --label=shutdown --set=needsreset:yes:robot --messagefile={passerrorsback} --message="[cancel batch]" --exit')
Sleep(1000)
RunWait('load.exe --comport=' & $Comport & ' --drive=' & $Drive & ' --command=' & $Calibration & '')
Sleep(1000)
MsgBox(4096, "Programminfo", "FERTIG!" & @CRLF & "BYE BYE...", 10)
Sleep(1000)
ExitLoop
EndIf
EndIf
Sleep(1000)
WEnd
EndFunc ;==>doIt

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

Func _next()
RunWait('load.exe --comport=' & $Comport & ' --drive=' & $Drive & ' --open --command=' & $Unload & ' --ifcommandfailortimeoutskip=failedexit --comportrelease --skip=successexit --label=failedexit --notify="Problem with robot on port {comport} for drive {drive}, shutting down..." --set=shutdown:yes:robot --skip=shutdown --exit=0 --label=successexit --exit=0 --label=shutdown --set=needsreset:yes:robot --messagefile={passerrorsback} --message="[cancel batch]" --exit')
RunWait('load.exe --comport=' & $Comport & ' --drive=' & $Drive & ' --command=' & $Load & ' --ifcommandfailortimeoutskip=failedload --set=loaderrors:0:robot --skip=trayanddiscin --label=failedload --skip=loadmorediscs --label=loadmorediscs --notify="You can cancel the batch with Abort. Hit Retry only after you load more discs on the spindle and CLEAR REJECTS. Hit Ignore if the disc loaded correctly.":"Load may have failed for drive {drive} on port {comport}.":2 --set=rc:{notifyreturncode} --ifsetskip=rc:3:shutdown --ifsetskip=rc:4:resetloaderrors --ifsetskip=rc:5:trayanddiscin --skip=failedload --label=resetloaderrors --set=loaderrors:0:robot --rejectsreset --skip=doreset --label=trayanddiscin --closeblind --sleep=' & $Time & ' --unbindtodrive --comportrelease --label=successexit --exit=0')
Sleep(2000)
RunWait('auto.exe ' & $Drive & ' ' & $Path & ' ' & $funktion & ' [/BATCH]')
Sleep(3000)
CDTray($Drive, "open")
Sleep(1000)
EndFunc ;==>_next

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

Func _exit()
Exit
EndFunc ;==>_exit

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo JuraX,

teste einmal folgendes:

[autoit]

#region ComandLine
;_ArrayDisplay($CmdLine)
If $CmdLine[0] = 1 Then
$file = $CmdLine[1]
;MsgBox(0, "", $CmdLine[1])
$MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, 0)
_BASS_ChannelPlay($MusicHandle, 0)
$playing_state = 1
ElseIf $CmdLine[0] >= 2 Then
$ARRPLAY = $CmdLine
$playing_state = 1
If $titelnummer > $CmdLine[0] + 1 Then $titelnummer = $CmdLine[0] - 1
$MusicHandle = _BASS_StreamCreateFile(False, $ARRPLAY[$titelnummer + 1], 0, 0, 0)
_BASS_ChannelPlay($MusicHandle, 0)
EndIf
#endregion ComandLine

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo crocojunk,

Zitat von crocojunk

du kannst sie von einer exe wieder ins au3.zurüdck machen lassen da wirst du dann auch sehen das es kein virus ist.

dies ist verboten siehe

Zitat von Hilfe zu Software Licence

Reverse engineering. You may not reverse engineer or disassemble the SOFTWARE PRODUCT or compiled scripts that were created with the SOFTWARE PRODUCT

mfg (Auto)Bert

**autoBert**

Hallo Bulli,

poste doch bitte das Skript,

mfg (Auto)Bert

**autoBert**

Hallo SonyMan,

mache eine func daraus und rufe diese auf:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#region ### START Koda GUI section ###
$Form1 = GUICreate("Setup", 539, 366, 222, 245)
$Path = GUICtrlCreateInput("Path", 40, 64, 153, 25)
$Browse = GUICtrlCreateButton("Browse", 208, 64, 65, 25, 0)
$Drive = GUICtrlCreateCombo("Drive", 336, 64, 153, 25)
$Comport = GUICtrlCreateCombo("COM", 40, 120, 153, 25)
$Radio_Full = GUICtrlCreateRadio("Full", 48, 240, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio_Menu = GUICtrlCreateRadio("Menu", 48, 176, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio_Main = GUICtrlCreateRadio("Main", 48, 208, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$OK = GUICtrlCreateButton("OK", 296, 280, 105, 41, 0)
$Anzahl = GUICtrlCreateInput("1", 336, 120, 153, 21)
$Time = GUICtrlCreateInput("25", 336, 176, 153, 21)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 128, 280, 105, 41, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

GUICtrlSetData($Drive, _GetDrives())
$sCom = ""
For $i = 1 To 20
$sCom &= $i & "|"
GUICtrlSetData($Comport, $sCom)
Next

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Abbrechen
Exit
Case $Browse
GUICtrlSetData($Path, FileSelectFolder("Pfad auswählen", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"))
Case $Radio_Full
$sFunktion = "/FULL"
Case $Radio_Menu
$sFunktion = "/MENU"
Case $Radio_Main
$sFunktion = "/MAIN"
Case $OK
Global $sDrive = GUICtrlRead($Drive)
Global $sPath = GUICtrlRead($Path)
Global $sComport = GUICtrlRead($Comport)
Global $iAnzahl = GUICtrlRead($Anzahl)
Global $iTime = GUICtrlRead($Time)

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

EndSwitch
WEnd

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

Func _GetDrives()
$sCD_Drives = ""
$aDrives = DriveGetDrive("CDROM")

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

For $i = 1 To $aDrives[0]
$sCD_Drives &= StringUpper($aDrives[$i]) & "|"
Next

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

Return $sCD_Drives
EndFunc ;==>_GetDrives

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

func doIt()
$Version = ('V:X:30:2:E');Robotic Version Info Command
$Calibration = ('C:X:30:2:E');Calibration Command
$Load = ('I:X:30:2:E');Get Input (load) Command
$Unload = ('A:X:30:2:E');Unload the Drive Command
Global $iCount = 1
Global $sCom, $funktion

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

RunWait('load.exe --comport='&$Comport&' --drive='&$Drive&' --command='&$Version&'')
sleep(1000)
RunWait('load.exe --comport='&$Comport&' --drive='&$Drive&' --command='&$Calibration&'')
sleep(1000)
RunWait('load.exe --comport='&$Comport&' --drive='&$Drive&' --open --command='&$Load&' --ifcommandfailortimeoutskip=failedload --set=loaderrors:0:robot --skip=trayanddiscin --label=failedload --skip=loadmorediscs --label=loadmorediscs --notify="You can cancel the batch with Abort. Hit Retry only after you load more discs on the spindle and CLEAR REJECTS. Hit Ignore if the disc loaded correctly.":"Load may have failed for drive {drive} on port {comport}.":2 --set=rc:{notifyreturncode} --ifsetskip=rc:3:shutdown --ifsetskip=rc:4:resetloaderrors --ifsetskip=rc:5:trayanddiscin --skip=failedload --label=resetloaderrors --set=loaderrors:0:robot --rejectsreset --skip=doreset --label=trayanddiscin --closeblind --sleep='&$Time&' --unbindtodrive --comportrelease --label=successexit --exit=0 ')
Sleep(2000)
ToolTip("Disk" &$iCount)
Runwait('auto.exe '&$Drive&' '&$Path&' '&$funktion&' /GUI')
sleep(3000)
CDTray($drive,"open")
sleep(1000)
While True
$status=DriveStatus($Drive)
If ($status = "NOTREADY") Then
If $iCount < $Anzahl Then
_next()
$iCount += 1
ToolTip("Disc" &$iCount)
Else
Ru
;Originalpost war unvollständig also ungeetestet
endfunc

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo crocojunk,

und wo ist der Source zu haha.exe und sound.exe

mfg (Auto)Bert

**autoBert**

Hallo MrB,

poste doch bitte das aktuelle komplette Skript,

mfg (Auto)Bert

**autoBert**

Hallo Fetzia,

[autoit]

MsgBox(0, "", BinaryToString(INetRead('https://addons.mozilla.org/de/firefox/addon/3829',2+16)))

[/autoit]

evtl. auch nur mit 16 erfolgreich,

Zitat von Bemerkungen zu InetRead deutsche Hilfe

Normalerweise erzwingt AutoIt eine Verbindung bevor der Download gestartet wird. DFÜ-Benutzer werden aufgefordert online zu gehen oder sich in das Modem einzuwählen (abhängig davon, wie das System konfiguriert ist). Die Option 16 verhindert dieses Verhalten. Dieses Verhalten abzuschalten kann sinnvoll sein für dauerhafte Verbindungen (Breitband, LAN). Außerdem ist es auch erforderlich um bestimmte Probleme in Windows Vista und Windows 7 zu umgehen.

mfg (Auto)Bert

Beiträge von autoBert

Hilfe bei Combobox und unendlich Werte in .ini

Hilfe bei Buttonfehler

JaYT-DwiMP3-P (YT-Downloader) Version 0.8.7.1

While in While oder andere Lösung?!

Error: Subscript used with non-Array variable.

Error: Subscript used with non-Array variable.

Error: Subscript used with non-Array variable.

April April

Datein in ein Verzeichnis kopieren mit Autoit klappt nicht

Problem mit GUICtrlCreatePic

AUTOIT Webbrowser

Problem mit GUICtrlCreatePic

Button Funktion /GUI

Array fehler

Minigame Quiz

über Run eine verknüpfung starten?

Button Funktion /GUI

Minigame Quiz

Mal wieder ListView Probleme

_InetGetSource Problem