Beiträge von Alina

  • Anfängerfrage: Benutzeranlegen mit AutoIt

    Benutzer anlegen Teil 1: siehe Posting Nr. 6

    Daten aus einer Exceldatei lesen (Tabellenblatt 1) geht so:

    Spoiler anzeigen
    [autoit]


    #include<Excel.au3>

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

    $sFilePath1 = "F:\Test1.xls" ; Dateiquelle
    $oExcel = _ExcelBookOpen($sFilePath1); Datei öffen

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

    $sCellValue_A1 = _ExcelReadCell($oExcel, 1, 1)
    MsgBox(0, "", "In A1 steht: " & @CRLF & $sCellValue_A1)

    $sCellValue_B1 = _ExcelReadCell($oExcel, 1, 2)
    MsgBox(0, "", "In B1 steht: " & @CRLF & $sCellValue_B1)

    $sCellValue_A2 = _ExcelReadCell($oExcel, 2, 1)
    MsgBox(0, "", "In A2 steht: " & @CRLF & $sCellValue_A2)

    $sCellValue_B2 = _ExcelReadCell($oExcel, 2, 2)
    MsgBox(0, "", "In B2 steht: " & @CRLF & $sCellValue_B2)

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

    _ExcelBookClose($oExcel, 1) ; Datei schließen

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

    Wenn Fragen dazu gibt, einfach nachfragen. ;)

  • Anfängerfrage: Benutzeranlegen mit AutoIt

    Evtl. hilft Dir das:

    Mit Adminrechte:

    Spoiler anzeigen
    [autoit]


    _NetUser('John', 'passwort123'); 1. User/in
    _NetUser('Jane', 'password123'); 2. User/in

    Func _NetUser($name, $password = '', $groupname = 'Administratoren', $autologon = 0); Mit Admin-Rechte
    Local $key
    If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $name) Then
    RunWait(@ComSpec & ' /c ' & _
    'Net User ' & $name & ' ' & $password & ' /add &&' & _
    'Net LocalGroup ' & $groupname & ' ' & $name & ' /add &' & _
    'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)
    If $autologon Then
    $key = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'
    RegWrite($key, 'DefaultUserName', 'Reg_sz', $name)
    RegWrite($key, 'DefaultPassword', 'Reg_sz', $password)
    RegWrite($key, 'AutoAdminLogon', 'Reg_sz', 1)
    EndIf
    EndIf
    EndFunc

    [/autoit]


    Ohne Adminrechte:

    Spoiler anzeigen
    [autoit]


    _NetUser('Userin', 'passwort123')
    _NetUser('User', 'password123')

    Func _NetUser($name, $password = '', $groupname = 'Administrators', $autologon = 0)
    Local $key
    If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $name) Then
    RunWait(@ComSpec & ' /c ' & _
    'Net User ' & $name & ' ' & $password & ' /add &&' & _
    'Net LocalGroup ' & $groupname & ' ' & $name & ' /add &' & _
    'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)
    If $autologon Then
    $key = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'
    RegWrite($key, 'DefaultUserName', 'Reg_sz', $name)
    RegWrite($key, 'DefaultPassword', 'Reg_sz', $password)
    RegWrite($key, 'AutoAdminLogon', 'Reg_sz', 1)
    EndIf
    EndIf
    EndFunc

    [/autoit]

  • Ping Pong

    Also das Spiel gefällt mir soweit.

    Zu bemängeln hätte ich nur, das beim Rundenstart die "Kugel" zu schnell ist, da sie ja vom Mittelpunkt aus startet.

    Anregungen:
    - Starkugel um 25% langsamer machen bis sie das erste mal "getroffen" wurde.
    - Spielabbruch z. B. mit Esc. einbauen

  • Wie viel Stunden Musik (mp3) habe ich?

    Also wenn ich meine ganzen MP3's zusammen zähle, würde ich auf paar Monate kommen.

    Zahlreiche DVD's voller MP3 Dateien von zahlreichen Radiosendern, dazu eine große Sammlung Lieblingsmusik und dann noch die Musik, die ich für Nichten und Neffen und andere Familienmitglieder auf dem PC habe, da würde ich nie zur Ruhe kommen, diese alle zu hören. ;)

  • Rekursive Dateisuche per Objekt

    Also wenn Du die Suchreihenfolge wie folgt änderst bekommst Du das richtige Ergebnissssss. ;)

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    Global $aToSearch[2][2] = [['222222.jar','E:'],['111111.exe','E:|F:']]
    Global $aPath[2], $aFound[1] = [0]

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

    For $i = 0 To UBound($aToSearch) -1
    If StringInStr($aToSearch[$i][1], '|') Then
    $aPath = StringSplit($aToSearch[$i][1], '|')
    Else
    $aPath[1] = $aToSearch[$i][1]
    EndIf
    For $j = 1 To UBound($aPath) -1
    If $aFound[UBound($aFound)-1] Then ReDim $aFound[UBound($aFound)+1]
    $aFound[UBound($aFound)-1] = _SearchTreeForFile($aPath[$j], $aToSearch[$i][0])
    Next
    Next
    If $aFound[0] Then
    _ArrayDisplay($aFound, 'Ergebnis Dateisuche')
    Else
    MsgBox(0, 'Dateisuche', 'Keine der Dateien wurde in den angegebenen Pfaden gefunden.')
    EndIf

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

    ;===============================================================================
    ; Function Name: _SearchTreeForFile($sRootPath, $sFileName)
    ; Description:: Dateisuche in einem Pfad und allen Unterpfaden
    ; Parameter(s): $sRootPath Startpfad der Suche
    ; $sFileName Name der gesuchten Datei
    ; Return Value(s): gefunden Pfad der gesuchten Datei
    ; n. gefunden 0
    ; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
    ;===============================================================================
    Func _SearchTreeForFile($sRootPath, $sFileName)
    If StringRight($sRootPath, 1) <> '\' Then $sRootPath &= '\'
    Local $sOutputPathBuffer = ''
    Local $aRet = DllCall("imagehlp", 'long', 'SearchTreeForFile', 'str', _
    $sRootPath, 'str', $sFileName, 'str', $sOutputPathBuffer)
    If $aRet[0] = 1 Then
    Return $aRet[3]
    Else
    Return 0
    EndIf
    EndFunc ;==>_SearchTreeForFile

    [/autoit]

  • Pizzatimer

    Oscar schrieb: "Gut geeignet zum Tee kochen oder Pizza backen."

    Also ich liebe ja Tea und am liebsten den englischen und den genau 3:30 Minuten gezogen.
    Pizza? Meine Lieblingspizza ist die Salami mit extra Hackfleisch, Krabben, Hühnerbruststreifen und Girosstücke. Gibt es beim Pizza-Mann leider nicht fertig und so muß ich immer selber machen. Aber schwarz wird bei mir nie eine Pizza, wenn ich die duftet so lecker wenn sie fertig ist, das ich dann lieber noch etwas vor dem Backofen stehe und schaue bis sie schön goldbraun ist. Gut denn der Backofen nicht unter den Herdplatten ist, sondern auf Brusthöhe.

    Aber der Timer ist gut, denn damit kann man ja auch auf andere Sachen die noch am Tag laufen aufmerksam gemacht werden.

  • Neuling

    superpati

    Erst einmal "Herzlich Willkommen".

    Also "betreutes programmieren" odeer doch "betreutes wohnen"? :rofl: Also als Zivi (Zuvieldienstleistender) bekommt man sicherlich beides ;)
    Aber SPASS bei Seite. Ich meine und da bin ich mir sicher, das man Dir hier immer gerne helfen wird, wenn Du Geduld mit bringst. Wenn es mal etwas längert dauert, dann einfach ein Snickers knabbern oder nimmste eine Krankenschwester (siehe: "Krankenhaus am Alex"). LOL. Nein, es ich wichtig das Du Geduld hast, denn ab und an dauert es etwas, bis man eine Lsg. findet.

  • Problem mit nem Script

    Vorschlag:
    Nicht den PC ohne Vorwarnung herunter fahren. Eine MsgBox z. B. 10 Minuten zuvor mit dem Text "Die maximale Nutzungsdauer am PC ist in 10 Minuten erreicht. Der PC wird dann herunter gefahren." wäre freundlicher für den Anwender.

    Bsp.:

    Spoiler anzeigen
    [autoit]


    MsgBox(0,"Warnmeldung","Die maximale Nutzungsdauer am PC ist in 10 Minuten erreicht. Der PC wird dann herunter gefahren.")

    [/autoit]

  • Idee fürs forum

    Das Idee ist ganz gut, aber ein persönliches DANKE find eich immer besser, da es, wie gesagt PERSÖNLICH ist und nicht einfach mals schnell ein Button gedrückt wird. Dazu kann man seinen DANK auch ein paar nette Wort zufügen.

    Aber ich gebe Dir RECHT, das Forum ist sehr sehr gut und ich finde auch, das die Gemeinschaft sehr gut ist. Hier werden alle User/innen gleich behandelt und auf evtl. Regelverstöße freundlichst hingewiesen. Einige User müssen gerade am Anfang noch lernen, das sie freundlich sein sollten, wenn sie sich denn mal im schriftlichen Tonfall etwas auf der falschen Seite bewegen, aber dennoch lernen sie es meistens.

    Von meiner Seite bekommt dieses Forum 10 von 10 Sternen ;)

  • AutoIt ein VIRUS??????

    Wenn es bezüglich AV-Programme Probleme gibt, dann schreibt doch die Hersteller an.

    Vor längerer Zeit war mal das Problem, das Norton-AV die AU3-Dateien als Virus angesehen hat. Ich habe dann in den Staaten beim Hersteller angerufen, einen netten Mann am Telefon gehabt und keine vier Stunden später bereits eine E-Mail, das ich ein Update machen möchte (so wie immer) und dann sei der Fehler behoben. Und siehe da, es war wieder okay. Okay, solche Telefonate na klar von der Arbeit aus, da das immer etwas dauert, bis die einen mal an die richtige Abt. durchstellen, aber dafür super schnell gelöst.

    Also, nicht so schüchtern, die "SupportlerInnen" beissssen nicht und ihr hört mal eine andere Stimme als die aus dem PC ;) LOL

  • Ideen Valentinstag

    Mehr oder was war denn eigentlich "Valentin"?
    Sicherlich der Geschäftsführer von "Floristika Int." oder so. ;)

    Also einen lieben Menschen schenke ich grundsätzlich auch nichts an diesem Tag, sondern viel lieber mal spontan.

    Tage die mir nichts bedeuten:
    - Valentinstag
    - Ostern
    - Geb.- Tag.
    - Tag der Deutschen Einheit
    - Weihnachten

    Diese Tage sind doch eh nur Tage, wo andere versuchen Geld zu machen. Soll nicht heißen das es zum Geb.- Tag oder Weihnachten keine Geschenke von mir gibt, aber ich möchte keine haben. Sollen die Menschen, wenn sie Geld los werden möchtes es dann lieber spenden. Da wissen sie dann, das sie ihr Geld auch los sind ;)

  • Manage USB-Drives per devcon.exe

    Hallo BugFix.

    Ich bekomme folgende Fehlermeldung beim Versuch die GUI zu öffnen:

    Spoiler anzeigen
    [autoit]


    C:\AHL\Laptop\ManageUSB.au3 (158) : ==> Subscript used with non-Array variable.:
    $aDrive[UBound($aDrive)-1][1] = _GetUSBCaption($pref[0])
    $aDrive[UBound($aDrive)-1][1] = _GetUSBCaption($pref^ ERROR

    [/autoit]


    $path_Devcon wurde na klar angepaßt ;)

    LG,
    Lina.