Beiträge von Greenhorn

  • Mehrere icons einbinden...

    Aaaaaah, jetzt habe ich es auch gefunden..., in der SciTE4AutoIt Hilfe...

    Hätte mir auch gleich einfallen können...

    Viel Spaß Morgen, genieße den Tag !!!

    Bei uns in SH ist erst im Oktober der nächste Feiertag ! :weinen:


    Bis denne...

  • Mehrere icons einbinden...

    Vielen Dank Mega !!!!!!!!!!!!!!!!!!!


    Lieben Gruß
    Greenhorn

    Edit:

    Zitat

    Original von th.meger
    Hi,

    ja das geht. Du musst die Pfade zu den Icons in den Compilerangaben mitgeben. (Neuste Version!)

    So long,

    Mega

    P.S.: Bsp ist in der Hilfe!

    Konnte in der Hilfe nichts finden !!!
    Kannst Du mir vielleicht 'nen kleinen Schubs geben ?

  • Mehrere icons einbinden...

    Salve,

    ich habe da mal eine Frage...

    Ist es möglich mehrere Icons in eine AutoIt.exe einzubinden und zu nutzen ?

    Wenn es nicht über AutoIt geht und ich es nach Kompilierung mit ResHacker mache, kann ich dann die Icons im Programm nutzen ?

    Ich möchte ein eigenes Icon im Tray haben, jedoch muss ich es bisher mit FileInstall "mitschleppen".

    Es wäre schöner, wenn man es als Resource einbinden könnte...


    Gruß
    Greenhorn

  • Name der INet Verbindung auslesen...

    Moin,

    ich schreibe gerade ein kleines Wiedereinwahl-Skript für die Internetverbindung.

    Das wollen nun auch einige Bekannte von mir benutzen.

    Dazu habe ich eine .ini Abfrage erstellt um die Einwahldaten (Benutzername und Pw) zu ermitteln und zu speichern...

    Jetzt brauche ich aber noch den Namen der Internetverbindung, also Alice, Arcor2ooo, T-ComDSL oder wie sie auch immer genannt wird...

    Gibt es nun eine Möglichkeit den Namen der Standart INet Verbindung in/mit Windows zu ermitteln ?

    Skript...

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #include <GuiConstants.au3>
    #include <Process.au3>

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

    $Data = IniReadSectionNames("ReDial.ini")
    If @error Then
    FileInstall("Globe Disconnect.ico", @WorkingDir & "\Globe Disconnect.ico")
    FileInstall("Globe Connected.ico", @WorkingDir & "\Globe Connected.ico")
    MsgBox(4096, "ReDial - Error", "Keine Verbindungsdaten vorhanden!" & @CRLF & "Bitte tragen sie in das Dialogfenster Ihre Internet Zugangsdaten ein!")
    _Dialog()
    EndIf

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

    $INet = IniRead("ReDial.ini", "Data", "Verbindung", "Verbindung")
    $User = IniRead("ReDial.ini", "Data", "Benutzername", "Benutzername")
    $Pwd = IniRead("ReDial.ini", "Data", "Kennwort", "Kennwort")
    If $INet = "Verbindung" Or $User = "Benutzername" Or $Pwd = "Kennwort" Then
    MsgBox(4096, "ReDial - Error", "Keine Verbindungsdaten vorhanden!" & @CRLF & "Bitte tragen sie in das Dialogfenster Ihre Internet Zugangsdaten ein!")
    _Dialog()
    EndIf

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

    Opt("TrayMenuMode", 1)

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

    TraySetIcon("Globe Connected.ico")
    Sleep(3000)
    TraySetIcon("Globe Disconnect.ico")
    _RunDOS("c:/windows/system32/rasdial.exe " & $INet & " /disconnect") ; Hier muss der Name der Internetverbindung, z.B. Alice16ooo, eingefügt werden!
    Sleep(2500)
    _RunDOS("c:/windows/system32/rasdial.exe " & $INet & " " & $User & " " & $Pwd)
    Sleep(500)
    $Ping = Ping("www.AutoItScript.com", 250)
    If @error = 1 Then
    MsgBox(4096, "ReDial - Error", "Keine Verbindung hergestellt!" & @CRLF & "Bitte überprüfen Sie Ihre Internet Zugangsdaten!")
    NewDialog()
    EndIf
    TraySetIcon("Globe Connected.ico")
    Sleep(1000)
    Exit

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

    Func _Dialog()

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

    GUICreate("ReDial - Verbindungsdaten eingeben", 320, 240, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS), $WS_EX_ACCEPTFILES)

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

    $Group = GUICtrlCreateGroup(" Verbindungsdaten ", 20, 20, 280, 140)
    $INet = GUICtrlCreateInput("Verbindung", 40, 40, 240, 20)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    $User = GUICtrlCreateInput("Benutzername", 40, 80, 240, 20)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    $Pwd = GUICtrlCreateInput("Kennwort", 40, 120, 240, 20)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    $Button = GUICtrlCreateButton("OK", 120, 190, 80, 25)

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

    GUISetState()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $Button
    $INet = GUICtrlRead($INet)
    $User = GUICtrlRead($User)
    $Pwd = GUICtrlRead($Pwd)
    IniWrite("ReDial.ini", "Data", "Verbindung", $INet)
    IniWrite("ReDial.ini", "Data", "Benutzername", $User)
    IniWrite("ReDial.ini", "Data", "Kennwort", $Pwd)
    ExitLoop
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case Else
    ;;;
    EndSelect
    WEnd

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

    EndFunc ;==>Dialog

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

    Kann man über AutoIt nun den Namen der Standard Internetverbindung ermitteln ?


    Gruß
    Greenhorn

  • Temp Ordner leeren...

    @Dr. Galvany

    Unter xp !

    @All

    Vielen Dank für die prompte und erstklassige Unterstützung !!!

    Habe mir das wohl schwieriger/komplizierter vorgestellt, als es wirklich ist...
    Dachte mir halt nur eben so, weil beim manuellen löschen des %Temp% Ordners immer diese nervenden Popups kamen...

    Vielen Dank auch an dich trallala, gutes Skript !
    Werde es wohl gleich in mein imaginäres Progrämmchen einbauen.

    Also noch einmal ganz fett: 1ooo Dank an euch alle ! *überwältigt bin*


    Gruß
    Greenhorn

  • Temp Ordner leeren...

    Salute,

    ich möchte ein Skript schreiben, welches regelmäßig meinen Temp Ordner leert.

    So weit, so gut..., jetzt habe ich aber Dateien im Temp Ordner die sich nicht löschen lassen und die wohl auch noch gebraucht werden. Diese sollen nicht gelöscht werden.

    Wie unterdrücke ich nun die nervende Meldung "Die Datei xyz kann nicht gelöscht werden..." ?
    Denn wenn diese Meldung aufgetaucht ist bricht er den Löschvorgang ab.

    Also noch einmal im Klartext: Nicht löschbare Dateien/Ordner sollen übersprungen werden, alles andere soll gelöscht werden !


    Gruß
    Greenhorn

  • Virtuelle Registry/Dateisystem

    Moin GunFood,

    vielen Dank für den Link, aber Sandboxie kenne ich schon...

    Mir geht es darum so etwas selbst auf die Beine zu stellen, just for fun, und damit ich die Technik verstehe, die dahinter steckt.
    Vor allem bei der Geschichte mit der virtuellen Registry und dem virtuellem Filesystem.


    Gruß
    Greenhorn

  • Virtuelle Registry/Dateisystem

    Hi,

    ich hätte da mal 'ne Frage außerhalb von AutoIt (oder vielleicht auch nicht ?).

    Und zwar suche ich schon seit längerer Zeit nach Infos/Links wie man ein virtuelles Dateisystem erstellt, bzw. eine virtuelle Registry !
    Ich habe mir schon die Finger und Augen wund gegooooooooogelt und komme einfach nicht weiter !

    Hat jemand 'ne Ahnung wo man eventuell Hilfestellung dazu bekommt ???

    Außerdem würde ich wahnsinnig gern in Erfahrung bringen wie man eine "Sandbox" programmiert, dazu habe ich auch noch nichts gefunden...

    Wie gesagt, das ganze soll nicht mit AutoIt programmiert werden, sondern eher in C++ oder Assembler.

    Wäre über jeden Hinweis, bzw. Link sehr dankbar !


    Gruß
    Greenhorn

  • Winamp und Xfire

    Hi Phillipk,

    bin auch kein Profi-Coder, aber deinen Code verstehe ich nicht... :hm:

    Könntest Du den Code Zeile für Zeile kommentieren ?

    Spoiler anzeigen
    [autoit]

    ~ -
    AutoItSetOption("WinTitleMatchMode", 4)
    while 1
    sleep(1000)
    If WinExists("classname=Winamp v1.x") == 1 Then ; classname=Winamp v1.x ???
    $Fenster_Titel = WinGetTitle("classname=Winamp v1.x")
    $titel = StringSplit(""&$Fenster_Titel, "") ; (""&$Fenster_Titel, "") Warum die "" vor dem & ?
    $zahl = $titel[0]-11 ; $zahl = $titel[0]-11 Was soll das ergeben ? $title[0] ist ein Array, versuche es mit StringTrimRight und ohne Array
    ;Im nachfolgendem wird Auch am anfang die nummer abgezogen und das Wort wieder zusammengefuegt
    $titel[0] = 3 ; Das ergibt, dass $titel[0] den Wert 3 enthält und kein Wort...
    Dim $temp
    While $zahl > 0
    $temp = $temp&$titel[$titel[0]] ; $titel[$titel[0]] ???
    $titel[0] = $titel[0]+1
    $zahl = $zahl -1
    WEnd
    MsgBox(0, "", ""&$temp)
    EndIf
    MsgBox(0, "", ""&$Fenster_Titel) ; ""&$Fenster_Titel - "" zeigt nichts an, " " ein Leerzeichen
    $temp = ""
    WEnd

    [/autoit]

    Versuche doch mit dem Window Info Tool den Fenstertitel von Winamp zu ermitteln..., aber ich glaube das da nichts angezeigt wird, da Winamp kein eigentliches Fenster darstellt...

    Hast Du den Code getestet ? Eigentlich müsste es nur Fehlermeldungen hageln...
    Die Arrays brauchst Du nicht, geht auch nur mit Strings.
    Wenn Du beides mischt musst Du aufpassen, dass Du nichts durcheinander kriegst.


    Gruß
    Greenhorn

  • Dateien umbenennen

    Hi,

    Wenn ich das richtig sehe ist die Variable $xxx kein Array, also muss es heißen: MsgBox(0, "", $xxx) !?

    Spoiler anzeigen
    [autoit]

    #Include <File.au3>
    #Include <Array.au3>

    Dim $FileList
    $Pfad = "D:\Test\"
    $ersetzen = ""
    ;$neu = $array
    $Dateiart = "avi"

    $FileList = _FileListToArray($Pfad, $ersetzen & "*." & $Dateiart, 1)
    If @Error=1 Then
    MsgBox (0,"","Ordner nicht vorhanden")
    Exit
    EndIf
    If @Error=4 Then
    MsgBox (0,"","Keine Dateien vorhanden")
    Exit
    EndIf
    _ArrayDisplay($FileList,"$FileList")

    For $i = 1 To UBound($FileList)-1
    $xxx = FileGetTime($FileList[$i], 1)

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

    Msgbox(0, "", $FileList[$i])
    Msgbox(0, "", $xxx)
    Next

    [/autoit]

    Gruß
    Greenhorn

  • RUNDLL32.EXE - Problem !

    HI Leutz,

    ich bin's mal wieder... :rolleyes:

    Ich habe mir ein Script geschrieben um die Autostartreihenfolge festzulegen.

    Spoiler anzeigen
    [autoit]


    ShellExecuteWait("D:\Programme\AMD\Dual-Core Optimizer\amd_dc_opt.exe")
    ShellExecuteWait("C:\Programme\Gemeinsame Dateien\Logitech\khalshared\KHALMNPR.EXE")
    ShellExecuteWait("RUNDLL32.EXE C:\WINDOWS\system32\NvMcTray.dll,NvTaskbarInit")
    ShellExecuteWait("RUNDLL32.EXE C:\WINDOWS\system32\NvCpl.dll,NvStartup")
    ShellExecuteWait("SOUNDMAN.EXE")
    ShellExecuteWait("nwiz.exe /install")
    ShellExecuteWait("C:\Programme\Gemeinsame Dateien\Ahead\Lib\NeroCheck.exe")
    ShellExecuteWait("D:\Programme\Java\jre1.5.0_10\bin\jusched.exe")
    ShellExecuteWait("D:\Programme\VisualTooltip\VisualToolTip.exe")
    ShellExecuteWait("D:\Programme\Adobe\Acrobat 7.0\Distillr\Acrotray.exe")
    ShellExecuteWait("D:\Programme\Privoxy\privoxy.exe")
    ShellExecuteWait("D:\Programme\Kaspersky Lab\Kaspersky Internet Security 6.0\avp.exe")
    Exit

    [/autoit]

    Soweit klappt auch alles ganz gut, außer dass die 'RUNDLL32.EXE' Befehle nicht hinhauen...

    [Blockierte Grafik: http://xs314.xs.to/xs314/07171/ErrorPopup.png]
    [Blockierte Grafik: http://xs314.xs.to/xs314/07171/ErrorPopup-2.png]

    Wie muss ich RUNDLL32.EXE handlen ?!


    Gruß
    Greenhorn

  • TrayIcon - Links- Rechtsklick optionen

    Hi Mega,

    ja so ungefährt habe ich mir das auch schon gedacht, aber es erscheint beim Linksklick trotzdem das Menü (und das soll es nicht),wenn ich es so versuche ...

    Spoiler anzeigen
    [autoit]

    #Include <Constants.au3>
    Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.

    $settingsitem = TrayCreateMenu("Settings")
    $displayitem = TrayCreateItem("Display", $settingsitem)
    $printeritem = TrayCreateItem("Printer", $settingsitem)
    TrayCreateItem("")
    $aboutitem = TrayCreateItem("About")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Exit")

    TraySetState()

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $aboutitem
    MsgBox(64, "About:", "AutoIt3-Tray-sample")
    Case $msg = $exititem
    ExitLoop
    Case $msg = $TRAY_EVENT_PRIMARYUP ; So soll es eigentlich starten
    Run('notepad')
    EndSelect
    WEnd

    Exit

    [/autoit]

    Ich habe mir auch das hier angesehen...

    Spoiler anzeigen
    [autoit]

    #include <Constants.au3>
    #NoTrayIcon

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

    Opt("TrayOnEventMode",1)
    Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.

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

    $exit = TrayCreateItem("Exit")
    TrayItemSetOnEvent(-1,"ExitEvent")

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

    TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE,"SpecialEvent")
    TraySetOnEvent($TRAY_EVENT_SECONDARYUP,"SpecialEvent")

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

    TraySetState()

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

    While 1
    Sleep(10) ; Idle loop
    WEnd

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

    Exit

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

    ; Functions
    Func SpecialEvent()
    Select
    Case @TRAY_ID = $TRAY_EVENT_PRIMARYDOUBLE
    Msgbox(64,"SpecialEvent-Info","Primary mouse button double clicked.")
    Case @TRAY_ID = $TRAY_EVENT_SECONDARYUP
    Msgbox(64,"SpecialEvent-Info","Secondary mouse button clicked.")
    EndSelect
    EndFunc

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

    Func ExitEvent()
    Exit
    EndFunc

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


    ..., aber den Code verstehe ich nicht so ganz... :irre:
    Kommentare im Code wären ganz hilfreich. :rolleyes:

    Gruß