Beiträge von Alina

  • Daten mit in *.exe reinpacken (z.B. bilder, ...)

    Hallo @m3hm3t.

    Habe mir mal Dein Beispiel angeschaut. Erst einmal DANKE.

    Dann habe ich es getestet und wie folgt umgebaut/verändert:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

    GUICreate("Beispiel", 300, 200)
    GUICtrlCreateLabel("Das ist ein Beispiel, das zeigt wie man Musik mit ein bindet.", 10, 10)
    FileInstall("C:\test\alarm.wav", "C:\tteesstt\alarm.wav")

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

    SoundSetWaveVolume(50) ; Lautstärke auf 50%
    SoundPlay("C:\tteesstt\alarm.wav", 1) ; Datei die abgespielt werden soll

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

    GUISetState(@SW_SHOW)

    [/autoit]

    Wichtig:
    In Zeile 8 ist die 1 (Zahl) wichtig, denn dann wird der Sound komplett abgespielt. Machst Du es nicht, wird der Sound nur so lange abgespielt, wie keine weiteren Schritte erfolgen. Habe ich der Hilfe entnommen und gleich eingearbeitet.
    Statt die 1 eine 0 und der Sound wird weiter abgespielt während das Script läuft. Habe aber festgestellt, wenn das Script beendet ist, das dann auch der Sound aufhört. Hier weiß ich nicht, wie man es machen muß, das beim Scriptende dieser erst beendet wird, wenn der Spund abgespielt ist. Hier sind die Profis gefragt.

    Aber wieder eine schöne Sache, die man sicherlich an veinigen Stellen mit einbauen kann.

    Gruss, Lina.

  • Geiz ist geil.

    Ich werde es morgen aus dem Büro testen und dann rückmeldung geben. Hoffe das morgen kein Alzheimer durchs Büro schleicht ;)

    Gruss, Lina.

    Edit 13.10.07
    Letzter Sourcecode wurde getestet. Fax ging raus, jedoch ist beim Verlauf noch kein Eintrag nach dem absenden und auch nicht nach erneutem starten.

    Verschoben nach Scripte, da aus "TALK" nun doch mehr gewurden ist.

  • Mein erstes Login ins INet

    Hallo.

    Nachdem ich mich ja gefragt habe, wie man die Logindaten automatisch in die Formularfelder der Internetdarstellung schreibt, habe ich mir mal eine Lsg. von BugFix angesehen und dann überlegt, wie er das macht.
    Irgendwie sollte das was mit dem Quelltext der Seite zu tun haben, wo die Daten eingetragen werden sollen. Also Quelltext ausdrucken und schauen, was davon in irgendeiner Form von BugFix mal ganz fix genommen wurde. Und was sah ich da? Die Daten die mit name=" ......" im Onlinequelltext abgefragt werden, werden von BugFix übernommen. Das kann ich auch. ;)

    Hier mein Loginscript für mein Kundenlogin, jedoch ohne die Emailadresse und Passwort. Habe pro Buchstabe/Zahl ein "x" gestezt.

    Zeile 9 verstehe ich nicht bzw. nicht was diese Zeile macht oder wozu sie da ist.

    Spoiler anzeigen
    [autoit]

    #include <ie.au3>

    $url = "http://www.versatel.de"
    $user = "xxxxxxxxx@foni.net"
    $passwort = "xxxxxxxxxxxxxxxxxxxxxxxxx"


    $oIE = _IECreate($url)
    $oForm = _IEFormGetCollection($oIE,1)
    $ouser = _IEFormElementGetObjByName($oForm,"loginname")
    $opasswort = _IEFormElementGetObjByName($oForm,"password")

    _IEFormElementSetValue($ouser, $user)
    _IEFormElementSetValue($opasswort, $passwort)

    _IEFormSubmit($oForm)

    [/autoit]

    Ja, von den "Alten Hasen" lernt man doch sooooooo viel. Damit meine ich nicht nur BugFix, sondern auch gaaaaaanz viele andere, die hier schon Stammies sind.

    Gruss, Lina.

  • Login_bewerkstelligen

    Hallo Flockes-Ungeduld.

    Du mußt eindeutig viel ruhiger werden. Antworten kommen nicht immer über Nacht. Ab und an muß auch jemand da sein, der einen helfen kann und dann gibt es wiederum die Probleme deren Lsg. etwas längern dauern.

    Geduld ist etwas gaaaanz wichtiges. Du schickst doch auch keinen Brief per Post AG spääääääät ABENDS weg und fragst morgens nach, wann er endlich da ist.

    Nein, Spaß bei Seite. Warte bisschen ab, dann wird Dir auch geholfen.

    Ich selber frage mich auch immer, wie BugFix heraus bekommt, wie das funktioniert mit dem, was man abfragen muß. Habe dafür noch keine Lsg. gefunden und warte mal auf eine "Erklärung für B(l)ond" ;)

    Gruss, Lina.

  • Geiz ist geil.

    Bug, bist Du nicht gerade damit angefangen? :D :D :D

    Muß gleich erst einmal hier einigen sagen was ab geht. Die sind doch schon wieder nicht ausreichend beschäftigt. Sitzen auf dem Balkon und warten das sie was zu tun bekommen. Nicht das die noch für minimal 24 Arbeit haben. Aber nein, man darf erst einmal sagen, was wichtig ist und das langsam mal wieder weiter gearbeitet wird. grrrrrr

    LG, Lina.

  • Geiz ist geil.

    Hallo BugFix.

    Ja, wir automatisieren ja alles, aber wir erstellen doch dann auch brav die GUI dazu, oder?
    Und die Email ist ja auch nicht zwingend notwenig. Habe gerade mal ein Ascii-Bild an das Hauptbüro übersendet. LOL

    LG, Lina.

  • Installationsscript

    Was verändert ist kannst Du doch durch abgleichen der beiden Scourcecodes sehen. Tools dafür gibt es im Netz (google nach "Datei vergleichen").

    Ansonsten versuche es mal mit:
    FileInstall("$software1,"c:\temp\"); statt Run($software,"c:\temp\")

    und beim zweiten Softwarepaket dann:
    FileInstall("$software2,"c:\temp\"); statt Run($software,"c:\temp\")

    Langsam kommt man vllt. mal eine Lsg. entgegen.

    Frage mich gerade, wieso Du nicht den IOM 3 nutzt? Hast Du dir den mal angesehen? Sehenswert, besonders weil man daraus viel lernen kann und es Dir vllt. auch bei diesem Problem helfen könnte.

    Gruss, Lina.

    edit: Fehler behoben

  • Installationsscript

    Vielleicht klappt es ja so?

    Spoiler anzeigen
    [autoit]

    #cs----------------------------------------------------
    Version 1.0 Installation von GhostScript und FreePDF
    09.10.2007
    #ce----------------------------------------------------
    #include <GUIConstants.au3>

    Local $install_title = "Softwareinstallation"
    Local $admin = "admin"
    Local $pwd = "pw"
    Local $software_titel = "FreePDF 3.24"
    Local $software1 = "gs854w32.exe"
    Local $software2 = "FreePDFXP3.24.EXE"

    ;GUI - Installationsabfrage
    $installGUI = GUICreate($install_title, 255, 70, -1, -1, BitOR($WS_CAPTION, $WS_SYSMENU));title,width,height..
    GUICtrlCreateLabel("Installation von "& $software_titel, 20, 11, 235, 20);text,left,top,width,height
    $b_install = GUICtrlCreateButton("installieren", 30, 40, 75, 23, BitOR($GUI_SS_DEFAULT_BUTTON, $BS_DEFPUSHBUTTON));Buttom text,left,top,width,height
    $b_abbruch = GUICtrlCreateButton("abbrechen", 120, 40, 75, 23, BitOR($GUI_SS_DEFAULT_BUTTON, $BS_DEFPUSHBUTTON));Buttom text,left,top,width,height
    GUICtrlSetState(-1, $GUI_FOCUS)
    GUISetState (@SW_SHOW,$installGUI)
    ;-----------------------------------
    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()

    Select
    case $msg = $b_install
    copy1_files($software1)
    copy2_files($software2)
    install_ghost($software1)
    install_freepdf($software2)
    delete1_files($software1)
    delete2_files($software2)
    MsgBox(0,$install_title,"Die Installation ist beendet. Bitte den Rechner neustarten!!",5)
    WinClose($install_title) ;schließen des Hauptinstallationsfensters

    case $msg = $b_abbruch
    Exit
    EndSelect
    Wend

    Func copy1_files($software1)
    SplashTextOn($install_title,"Dateien werden kopiert. Bitte warten.") ;title,text,width of pix,height of pix,x pos,y pos,option=o title,top,center
    FileCopy($software1,"c:\temp\",9) ;Flag 9= 1+8 erstellt Dir und überschreibt File
    SplashOff()
    EndFunc

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

    Func copy2_files($software2)
    SplashTextOn($install_title,"Dateien werden kopiert. Bitte warten.") ;title,text,width of pix,height of pix,x pos,y pos,option=o title,top,center
    FileCopy($software2,"c:\temp\",9) ;Flag 9= 1+8 erstellt Dir und überschreibt File
    SplashOff()
    EndFunc

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

    Func delete1_files($software1)
    FileDelete("C:\temp\"& $software1)
    EndFunc

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

    Func delete2_files($software2)
    FileDelete("C:\temp\"& $software2)
    EndFunc

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

    Func install_ghost($software1)
    ;GUISetState(@SW_DISABLE, $installGUI)
    RunAsSet($admin, @Computername, $pwd) ;Adminrechte geben
    Run($software1,"c:\temp\")
    RunAsSet() ;Adminrechte nehmen

    AutoItSetOption("WinTitleMatchMode", 2) ;Mode geändert - sucht nach irgendeiner Übereinstimmung
    If WinWaitActive("gs854w32.exe","",3) Then
    ControlClick("gs854w32.exe","",1,"&Setup") ;setup ausführen
    If WinWaitActive("AFPL") Then
    ControlCommand("AFPL","All Users","Button3","Check","") ;für alle User installieren
    ;Installation beginnen
    ControlClick("AFPL","",1004,"This install")
    ;Installation ist beendet - das Iconfenster lässt sich irgendwie nicht schließEndFunc
    WinWaitClose("AFPL") ;schließen des Installationsfensters
    EndIf
    Else
    MsgBox(0,"Error","Das benötigte Fenster ist nicht vorhanden.")
    Exit
    EndIf
    EndFunc

    Func install_freepdf($software2)
    AutoItSetOption("WinTitleMatchMode", 2) ;Mode geändert - sucht nach irgendeiner Übereinstimmung

    RunAsSet($admin, @Computername, $pwd) ;Adminrechte geben
    Run($software2,"c:\temp\")
    RunAsSet() ;Adminrechte nehmen

    If WinWaitActive("FreePDF XP 3.24") Then
    ControlClick("FreePDF XP 3.24","",7,"&Setup") ;Setup ausführen
    If WinWaitActive("FreePDF XP 3.24","&End") Then
    ControlClick("FreePDF XP 3.24","",4,"&End") ;Setup/Installation beenden
    EndIf
    EndIf
    EndFunc

    [/autoit]


    Zeile 8 & 9 na klar anpassen !!!

    Wenn es nicht funktioniert:
    Was macht das Script bzw. bis wo hin wird es ausgeführt? Werden die Dateien kopiert oder ist das schon nicht gegeben?
    Wenn kopiert wird, installiert er die erste Software und wenn nicht, bekommst Du eine Fehlermeldung?

    Nicht böse sein, aber ich versuche gerade das ganze zu durchdenken, da ich beide Softwarepakete hier nicht vorliegen habe und es somit ja auch nicht testen kann.

    Gruss, Lina.

  • Installationsscript

    hallo sunghost.

    hast du mal versucht, nach zeile 30, 31 und 32 eine Pause einzufügen.

    kann mir vorstellen, das sich vllt. das Script verschluckt, wenn die Schritt zu schnell nacheinander aufgerufen werden.

    in zeile 9 und 10 ist das der lokale admin? wenn ja okay.

    ansonsten mal die zeile "RunAsSet() ;Adminrechte nehmen" weiter ans Ende der Funktion schieben.

    ansonsten wird sicherlich nochd er eine oder andere heute über den beitrag stoßen und helfen.

    gruss, lina.

  • Installationsscript

    Ich habe mir das ganze mal durchgelesen und frage mich gerade folgendes.
    Es gibt ja einmal den Admin auf dem Server und einmal den lokalen Admin auf dem Client. Kann es sein, das dort der Fehler leigt? Habe zwar nicht so viel Ahnung von Adminrechte, aber dennoch weiß ich ja, das es lokale Admin's gibt und dann halt den Admin auf einem Server.

    Ansonsten, wenn ich total falsch liege, einfach den Beitrag wieder löschen.

    Gruß, Lina.

  • Sorry

    Hallo alle zusammen.

    Sorry wenn ich derzeitig wenig hier bin, aber ich habe sehr sehr viel zu tun und komme kaum noch dazu etwas privat zu machen. Hoffe mal, das es in 2 - 3 Wochen besser wird, denn ich möchte gerne am Ball bleiben und ich versuche jeden Tag hier rein zu schauen, nur die Arbeit geschlägt mich fast.

    Also nicht böse sein und wenn was ist, ich stehe gerne zur Verfügung.

    GLG, Lina.

  • Millisekunden ermitteln und ausdrücken...

    Hallo Argonaut.

    Also wenn Du nun mit den Zeiten bzw. den Zeitunterschieden arbeiten möchtest, dann schreibe die Zeiten jeweils in eine Dateizeile und lese diese dann wieder aus. Das ganze meine ich ist am einfachsten, wenn Du alles in eine INI-Datei schreibst und aus der wiederum auch ausließt. Aber ich weiß nicht genau, ob Du eigenjtlich mit den Zeitunterschieden arbeiten möchtest.

    Gruß, Lina.