Beiträge von bernd670

  • 2d-Array

    Hallo,

    es kommt jetzt darauf an was du genau willst, hast du die Position und willst wissen was dort für ein Buchstabe/Zeichen/Zahl steht oder hast du ein Buchstaben/Zeichen/Zahl und willst wissen an welcher Positon es steht.

  • 2d-Array

    Hallo,

    Alina schreib einfach noch

    [autoit]

    $array = StringSplit(FileRead("<Dateiname>"),@CRLF,3)

    [/autoit]

    vor den Code von BugFix und ersetze <Dateinamen> durch den Dateinamen der Datei dann sollte es gehen.

    Edit:
    die Zeile 5 in BugFix Code enthält noch einen kleine Fehler, die 4 muss durch eine 5 ersetzt werden.

  • erkennen ob system mit wake on lan gestartet wurde

    Hallo,

    ich glaube nicht das man, innerhalb des Betriebsystems, abfragen kann wie der Rechner gestartet wurde. Dem Betriebsystem ist wohl ziemlich egal wie der Rechner gestartet wurde. Auch dem Rechner ist wahrscheinlich ziemlich egal ob er über den Einschaltknopf, die Netzwerkkarte oder über sonst ein Einschaltsignal gestartet wurde.

  • Größen der Form deffinieren

    Hallo,

    Größenänderung vom Fenster geht mit WinMove und vom Control mit GuiCtrlSetPos!

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    $LOL = _IECreateEmbedded()

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

    Global $input

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

    $breite = 350
    $hoehe = 350

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

    $AFFE = GUICreate("Mini Browser",$breite,$hoehe)
    $IECtrl = GUICtrlCreateObj($LOL,0,0,$breite,$hoehe)
    GUISETSTATE(@SW_SHOW)

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

    _IENavigate($LOL, @SCriptDir & "/Mini.htm")

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

    HotKeySet("{F7}","_breite50")
    Hotkeyset("{F8}","_Hoehe50")

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

    Func _breite50()
    $aWGP = WinGetPos($AFFE)
    WinMove($AFFE, "", $aWGP[0], $aWGP[1], $aWGP[2] + 50, $aWGP[3])
    $aWGCS = WinGetClientSize($AFFE)
    GUICtrlSetPos($IECtrl,0,0,$aWGCS[0], $aWGCS[1])
    EndFunc

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

    Func _Hoehe50()
    $aWGP = WinGetPos($AFFE)
    WinMove($AFFE, "", $aWGP[0], $aWGP[1], $aWGP[2], $aWGP[3] + 50)
    $aWGCS = WinGetClientSize($AFFE)
    GUICtrlSetPos($IECtrl,0,0,$aWGCS[0], $aWGCS[1])
    Endfunc

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

    While 1
    Sleep(100)
    WEnd

    [/autoit]

  • Probleme mit einer lib.dll

    Hallo,

    mt der Dateiendung ist es wohl eher C#.

    Ruf mal die Connect-Funktion so auf:

    [autoit]

    $Connect = DllCall("C:\Users\mikromaxx\Downloads\KLib\KLib.dll","none","Connect","int","2") ; DE = 0, AT = 1, CH = 2, MFC = 3, Nothing = 4

    [/autoit]


    Enum sind in C und wahrscheinlich auch in C# vom Type int und bedeutet das der 1. Variablen der Wert 0, der 2. Variablen der Wert 1 usw. zugewiesen wird.

  • Chat

    Hallo,

    hast du es schon mal mit suchen probiert? Wenn ich hier im Forum als Suchbegriff die Wörter "tcp" und "chat" benutze bekomme ca. 350 Antworten!
    Da ist doch bestimmt was dabei was dir beim Start hilft, oder!

  • Erkennen ob USB-Gerät angeschlossen ist

    Hallo,

    Hier noch zwei Möglichkeiten die aktiven USB-Geräte bzw. USB-Massenspeicher-Geräte auszulesen:

    auslesen mit WMI
    [autoit]


    #include <Array.au3>

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

    Const $wbemFlagReturnImmediately = 0x10
    Const $wbemFlagForwardOnly = 0x20

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

    Local $szComputer = "."
    Local $colItems = ""
    Local $objWMIService = ObjGet("winmgmts:\\" & $szComputer & "\root\CIMV2")
    Local $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_USBControllerDevice', "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

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

    Local $aActiveDevices = "", $aActiveUSBStorDevices = ""
    Local $szActiveDevices = "", $szActiveUSBStorDevices = ""

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

    ; Aktive USB-Geräte auslesen
    If IsObj($colItems) Then
    For $objItem In $colItems
    ; alle USB-Geräte
    $aRegExp = StringRegExp($objItem.Dependent, "(?i).*=""(USB.*\\\\.*)""", 1)
    If IsArray($aRegExp) Then
    If $szActiveDevices <> "" Then $szActiveDevices &= @CRLF
    $szActiveDevices &= $aRegExp[0]
    EndIf
    ; nur USB-Massenspeicher
    $aRegExp = StringRegExp($objItem.Dependent, "(?i).*=""(USBSTOR\\\\.*)""", 1)
    If IsArray($aRegExp) Then
    If $szActiveUSBStorDevices <> "" Then $szActiveUSBStorDevices &= @CRLF
    $szActiveUSBStorDevices &= $aRegExp[0]
    EndIf
    Next
    EndIf

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

    $aActiveDevices = StringSplit($szActiveDevices, @CRLF, 1)
    _ArrayDisplay($aActiveDevices, "aktive USB-Geräte")

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

    $aActiveUSBStorDevices = StringSplit($szActiveUSBStorDevices, @CRLF, 1)
    _ArrayDisplay($aActiveUSBStorDevices, "aktive USB-Massenspeicher")

    [/autoit]
    auslesen mit DEVCON.EXE
    [autoit]


    #include <Array.au3>
    #include <Constants.au3>

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

    Local $szComputer = "."
    Local $aActiveDevices = "", $aActiveUSBStorDevices = ""

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

    ; Aktive USB-Geräte auslesen
    $PID = Run(".\devcon.exe -m:\\" & $szComputer & " find @USB*", "", @SW_HIDE, $STDOUT_CHILD)
    $szStdOut = ""

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

    While 1
    $szStdOut &= StdoutRead($PID)
    If @error Then ExitLoop
    Sleep(100)
    WEnd

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

    $aActiveDevices = StringRegExp($szStdOut, "(?i)(USB.*\\\S*)\s*:", 3) ; alle aktiven USB-Geräte
    $aActiveUSBStorDevices = StringRegExp($szStdOut, "(?i)(USBSTOR\\\S*)\s*:", 3) ; alle aktiven USB-Massenspeicher-Geräte

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

    _ArrayDisplay($aActiveDevices, "aktive USB-Geräte")
    _ArrayDisplay($aActiveUSBStorDevices, "aktive USB-Massenspeicher")

    [/autoit]


    Die DEVCON.EXE muss im gleichen Verzeichnis vorhanden sein.

  • FReigabe von USB Laufwerken

    Hallo,

    probiers mal so:

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    #include <WindowsConstants.au3>
    #include <Constants.au3>
    #include <GUIConstantsEx.au3>

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

    ; http://msdn.microsoft.com/en-us/library/aa363480(VS.85).aspx
    Const $DBT_DEVICEARRIVAL = 0x8000 ; A device or piece of media has been inserted and is now available.
    Const $DBT_DEVICEREMOVECOMPLETE = 0x8004 ; A device or piece of media has been removed.

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

    If _Singleton(@ScriptName, 1) = 0 Then Exit
    Dim $StatusCurrentRemoveabledevices[50]
    Dim $StatusRemoveabledevices[50]

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

    Global $Removeabledevices = DriveGetDrive("ALL")
    Global $CurrentRemoveabledevices
    For $i = 1 To $Removeabledevices[0]
    $StatusRemoveabledevices[$i] = DriveStatus($Removeabledevices[$i])
    Next

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

    Global Const $WM_DEVICECHANGE = 0x0219

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

    GUICreate("USB-Netzwerk-Deaktivierer")
    GUIRegisterMsg($WM_DEVICECHANGE, 'MY_WM_DEVICECHANGE')

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

    While 1
    Sleep(500)
    WEnd

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

    Func MY_WM_DEVICECHANGE($hWnd, $Msg, $wParam, $lParam)
    If ($wParam = $DBT_DEVICEARRIVAL) Or ($wParam = $DBT_DEVICEREMOVECOMPLETE) Then
    $CurrentRemoveabledevices = DriveGetDrive("ALL")
    If $CurrentRemoveabledevices[0] > $Removeabledevices[0] Then ;Laufwerk hinzugefügt
    MsgBox(4096, "Hinzugefügt", "1 Stufe")
    For $i = 1 To $CurrentRemoveabledevices[0]
    If $CurrentRemoveabledevices[$i] <> $Removeabledevices[$i] Then
    $StatusCurrentRemoveabledevices[$i] = DriveStatus($CurrentRemoveabledevices[$i])
    If $StatusCurrentRemoveabledevices[$i] = "READY" Then
    MsgBox(4096, "Hinzugefügt", "Buchstabe " & $CurrentRemoveabledevices[$i])
    ExitLoop
    EndIf
    EndIf
    Next
    $Removeabledevices = $CurrentRemoveabledevices
    For $i = 1 To $Removeabledevices[0]
    $StatusRemoveabledevices[$i] = DriveStatus($Removeabledevices[$i])
    Next
    ElseIf $CurrentRemoveabledevices[0] < $Removeabledevices[0] Then ;Laufwerk wurde abgesteckt
    MsgBox(4096, $i, "Abgesteckt")
    $Removeabledevices = $CurrentRemoveabledevices
    EndIf
    EndIf

    Return $GUI_RUNDEFMSG
    EndFunc ;==>MY_WM_DEVICECHANGE

    [/autoit]

  • Schlafen bis...

    Hallo,

    ich hab so was mal gebraucht um die Rechner jeden abend um 22:55 herunterzufahren. Vllt. nutzt es ja als Denkanstoß!

    Spoiler anzeigen
    [autoit]

    While 1
    ;~ TimeTicks berechnen bis 22:50 Uhr, wenns nach 22:50 Uhr ist wird gewartet bis es 00:00 Uhr ist!
    Do
    Sleep(60000)
    $StartTicks = _TimeToTicks(@HOUR, @MIN, @SEC)
    $EndTicks = _TimeToTicks("22", "50", "00")
    Until $EndTicks > $StartTicks

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

    ; schlafen bis 22:50 Uhr
    Sleep($EndTicks - $StartTicks)

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

    ;~ Warnmeldung ausgeben das in 5 Minuten der Rechner heruntergefahren wird
    MsgBox(16 + 4096 + 262144, "Shutdown", "In 5 Min. wird der Rechner heruntergefahren!", 20)
    Sleep(300000) ; 5 Minuten Gnadenfrist

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

    ; Shutdown + Power Down + Force + Force if hung
    Shutdown(29)
    WEnd

    [/autoit]

  • Verständnissproblem mit Run(@ComSpec & " /c "

    Hallo,

    einfach mal die Hilfe zu For aufmerksam (fettgedrucktes) lesen!

    aus der For-Hilfe

    Du darfst also, wenn Du den Befehl direkt in der Befehlszeile eingibst, bei den Variablen nur ein %-Zeichen benutzen.

    So sollte es funktinieren!

    [autoit]

    Run(@ComSpec & " /c " & 'for /D %i in ("d:\test\jh0100*.*") do rd /S /Q "%i"', "", @SW_HIDE)

    [/autoit]

  • Neu laden per Traymenu!?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Sound.au3>

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

    Global $open_tray, $About_tray, $Lizenz_tray, $exit_tray, $mguu

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

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

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

    $open_tray = TrayCreateItem("Neu [F3]")
    TrayItemSetOnEvent(-1, "Nload")
    ;$Alarm_tray = TrayCreateItem ("Alarm")
    ;TrayItemSetOnEvent (-1, "Alarm")
    $About_tray = TrayCreateItem("About [F1]")
    TrayItemSetOnEvent(-1, "About")
    $Lizenz_tray = TrayCreateItem("Lizenz [F2]")
    TrayItemSetOnEvent(-1, "Lizenz")
    TrayCreateItem("")
    $exit_tray = TrayCreateItem("Exit [Alt+F4]")
    TrayItemSetOnEvent(-1, "Set_Exit")

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

    TraySetState()

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

    HotKeySet("{F1}", "About")
    HotKeySet("{F2}", "Lizenz")
    HotKeySet("{F3}", "Nload")
    HotKeySet("!" & "{F4}", "Set_Exit")

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

    $mguu = GUICreate("Mal ganz unter uns", 225, 120)
    GUICtrlCreateLabel("Hast du eigentlich einen kleinen P****?", 20, 30)
    $ja = GUICtrlCreateButton("Ja", 50, 70, 50, 25)
    GUICtrlSetCursor(-1, 0)
    $nein = GUICtrlCreateButton("Nein", 120, 70, 50, 25)
    GUICtrlSetCursor(-1, 0)

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Set_Exit()
    ;~ GUIDelete($mguu)
    ;~ MsgBox(0, "Info", "Hab ich`s doch gewusst!")
    ;~ Exit
    $msg = GUIGetMsg()
    Case $msg = $ja
    GUISetState(@SW_HIDE)
    MsgBox(0, "Info", "Hab ich`s doch gewusst!")
    Case $msg = $nein
    GUICtrlSetState($nein, $GUI_HIDE)
    EndSelect
    WEnd

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

    Func Nload()
    GUICtrlSetState($nein, $GUI_SHOW)
    GUISetState()
    EndFunc ;==>Nload

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

    Func About()
    MsgBox(64, "About", "team2way")
    EndFunc ;==>About

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

    Func Lizenz()
    MsgBox(0, "Lizenz", "hier die lizenz")
    EndFunc ;==>Lizenz

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

    Func Set_Exit()
    HotKeySet("{F1}")
    HotKeySet("{F2}")
    HotKeySet("{F3}")
    HotKeySet("!" & "{F4}")
    MsgBox(0, "Info", "Hab ich`s doch gewusst!")
    Exit
    EndFunc ;==>Set_Exit

    [/autoit]

  • PrimA - der Primzahlengenerator

    Hallo,

    IsPrime ist denoch schneller!

    Quellcode
    [autoit]

    Local $zahl, $start, $time, $sumFunc1 = 0, $sumFunc2 = 0, $sumFunc3 = 0
    For $i = 1 To 200
    ConsoleWrite($i & @TAB)
    $zahl = Random(10, 100000000, 1)
    ConsoleWrite($zahl & @CRLF)
    $start = TimerInit()
    ConsoleWrite('_primzahlcheck:' & @TAB & @TAB & _primzahlcheck($zahl) & @TAB)
    $time = TimerDiff($start)
    ConsoleWrite($time & @CRLF)
    $sumFunc1 += $time
    $start = TimerInit()
    ConsoleWrite('_GetPrimeFactors:' & @TAB & _GetPrimeFactors($zahl, True) & @TAB )
    $time = TimerDiff($start)
    ConsoleWrite($time & @CRLF)
    $sumFunc2 += $time
    $start = TimerInit()
    ConsoleWrite('IsPrime:' & @TAB & @TAB & IsPrime($zahl) & @TAB)
    $time = TimerDiff($start)
    ConsoleWrite($time & @CRLF)
    $sumFunc3 += $time
    Next
    ConsoleWrite(@CRLF & 'Durchscnitt Func _primzahlcheck:' & @TAB & $sumFunc1/200 & @CRLF)
    ConsoleWrite('Durchscnitt Func _GetPrimeFactors:' & @TAB & $sumFunc2/200 & @CRLF)
    ConsoleWrite('Durchscnitt Func IsPrime:' & @TAB & @TAB & $sumFunc3/200 & @CRLF)

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

    Func _primzahlcheck($input_zahl)
    $teiler = 2
    $return = True
    While $teiler <= Sqrt($input_zahl)
    $rest = Mod($input_zahl,$teiler)
    If $rest = 0 Then
    $return = False
    EndIf
    $teiler = $teiler + 1
    WEnd
    Return $return
    EndFunc

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

    Func _GetPrimeFactors($n, $bPrime=False)
    Local $F = ObjCreate("System.Collections.ArrayList")
    While Mod($n,2) == 0
    If $bPrime Then Return False
    $F.add(2)
    $n = $n/2
    WEnd
    While Mod($n,3) == 0
    If $bPrime Then Return False
    $F.add(3)
    $n = $n/3
    WEnd
    Local $t = 5
    Local $diff = 2
    While $t*$t <= $n
    While Mod($n,$t) == 0
    If $bPrime Then Return False
    $F.add($t)
    $n = $n/$t
    WEnd
    $t = $t + $diff
    $diff = 6 - $diff
    WEnd
    If $n > 1 Then $F.add($n)
    If $bPrime Then
    If $F.Count > 1 Then
    Return False
    Else
    Return True
    EndIf
    EndIf
    Local $out = ''
    For $element In $F
    $out &= $element & ','
    Next
    Return StringTrimRight($out, 1)
    EndFunc

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

    Func IsPrime($iValue)
    $maxTest = Sqrt($iValue)
    For $i = 2 To $maxTest
    If Mod($iValue, $i) = 0 Then Return False
    Next
    Return True
    EndFunc ;==>IsPrime

    [/autoit]
    Ergebnis