Beiträge von Tweaky

  • Variablen einer inputbox, einer anderen Variable zuweisen

    Meinst du es so?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ComboConstants.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <ButtonConstants.au3>
    #include <ListBoxConstants.au3>
    #include <TabConstants.au3>
    #include <EditConstants.au3>
    #include <DateTimeConstants.au3>
    #include <SliderConstants.au3>
    #include <TreeViewConstants.au3>
    #include <ProgressConstants.au3>
    #include <AVIConstants.au3>
    #include <UpDownConstants.au3>
    #include<Array.au3>
    #include<File.au3>
    #include <WinAPI.au3>
    #include <IE.au3>
    #include-once
    #NoTrayIcon

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

    Dim $cancel, $ok, $i, $Password, $Loginname
    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\administrator\desktop\skripts\grafik\ogame_001.kxf
    $Form1_1 = GUICreate("Ogame_logger", 267, 189, 229, 168)
    $Group1 = GUICtrlCreateGroup("Ogame_logger", 0, 0, 265, 185)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Loginname = GUICtrlCreateLabel("Loginname", 6, 48, 71, 20)
    $inout1 = GUICtrlCreateInput("asdc", 120, 48, 121, 24)
    GUICtrlSetCursor(-1, 5)
    $Password = GUICtrlCreateLabel("Password", 8, 96, 64, 20)
    $inout2 = GUICtrlCreateInput("", 120, 96, 121, 24)
    GUICtrlSetTip(-1, "")
    GUICtrlSetCursor(-1, 5)
    $ok = GUICtrlCreateButton("OK", 144, 136, 97, 33, 0)
    $cancel = GUICtrlCreateButton("Abbrechen", 16, 136, 97, 33, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $ok
    _OK()
    Case $cancel
    _cancel()
    EndSwitch
    WEnd

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

    Func _OK()

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

    $user = GUICtrlRead($inout1)

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

    $pass = GUICtrlRead($inout2)

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

    BlockInput(0)

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

    MsgBox(0, "Loginname", $user)

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

    BlockInput(0)

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

    WinKill("Ogame_logger")
    EndFunc ;==>_OK

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

    Func _cancel()
    Exit
    EndFunc ;==>_cancel

    [/autoit]

    Wenn nicht, mußt du dein Problem ein bisschen genauer erklären :D

  • PC Fernwartung

    wenn möglich komplett ohne Software.
    Wenn dies nicht gehen würde, eben Software ohne Installation.

    Und wichtig:
    Mein Gegenüber sollte nicht viel mache müssen, sonst scheiter die Fernwartung schon daran :thumbdown:

  • _FileListToArray bzw. ToCombo

    Hi,
    du muß die Liste mit txt-Dateien per For ... Next Schleife in das Combo schreiben

    Spoiler anzeigen
    [autoit]

    #include<File.au3>
    #include<GUIConstantsEx.au3>
    #include<Array.au3>
    $y = 0

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

    $Liste = _FileListToArray("C:\windows\", "*.txt", 1)
    $l = $Liste[0]
    ;~ _ArrayDisplay($Liste)
    GUICreate("Meine GUI-combo") ; erstellt ein GUI-Fenster welches mittig ausgerichtet wird
    $Combo2 = GUICtrlCreateCombo("Wählen", 216, 56, 97, 25)

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

    GUISetState(@SW_SHOW)

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

    For $i = 1 to UBound($Liste) -1
    GUICtrlSetData($Combo2, $Liste[$i])
    Next

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

    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

    [/autoit]

  • PC Fernwartung

    Danke erstmal,
    eine Mögliochkeit ohne Software wäre mir natürlich am liebsten :D
    Von dem her sieht Gun-Foods Seite am besten aus.

    Wie ist diese von der Bedienung her?

  • PC Fernwartung

    Hi,
    da ich ein paar Bekannte habe, bei denen ich ab und zu was am PC einstellen muß, habe ich mir überlegt, ob ich da was per Fernwartung machen kann.

    Kennt sich einer damit aus?
    Welche kostenlose Software würdet ihr empfehlen?
    Oder geht dies mit AutoIt?

    Also jetzt seid ihr dran :D

  • @OSBuild welche Antworten möglich??

    Hi,
    bei diesem Script kommt auf einem Laptop eine Fehlermeldung

    Spoiler anzeigen
    [autoit]

    ; Erstellt von AutoIt Scriptomatic
    $wbemFlagReturnImmediately=0x10
    $wbemFlagForwardOnly=0x20
    $colItems=""
    $strComputer="localhost"
    $Output=""
    ;~ $Output&="Computer: " &$strComputer & @CRLF
    ;~ $Output&="==========================================" & @CRLF
    $objWMIService=ObjGet("winmgmts:\\" &$strComputer &"\root\CIMV2")
    $colItems=$objWMIService.ExecQuery("SELECT * FROM Win32_SystemEnclosure", "WQL", _
    $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
    For $objItem In $colItems
    ;~ $Output&="AudibleAlarm: " &$objItem.AudibleAlarm & @CRLF
    ;~ $Output&="BreachDescription: " &$objItem.BreachDescription & @CRLF
    ;~ $Output&="CableManagementStrategy: " &$objItem.CableManagementStrategy & @CRLF
    ;~ $Output&="Caption: " &$objItem.Caption & @CRLF
    $strChassisTypes=$objItem.ChassisTypes(0)
    $Output&=$strChassisTypes
    ;~ $Output&="CreationClassName: " &$objItem.CreationClassName & @CRLF
    ;~ $Output&="CurrentRequiredOrProduced: " &$objItem.CurrentRequiredOrProduced & @CRLF
    ;~ $Output&="Depth: " &$objItem.Depth & @CRLF
    ;~ $Output&="Description: " &$objItem.Description & @CRLF
    ;~ $Output&="HeatGeneration: " &$objItem.HeatGeneration & @CRLF
    ;~ $Output&="Height: " &$objItem.Height & @CRLF
    ;~ $Output&="HotSwappable: " &$objItem.HotSwappable & @CRLF
    ;~ $Output&="InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
    ;~ $Output&="LockPresent: " &$objItem.LockPresent & @CRLF
    ;~ $Output&="Manufacturer: " &$objItem.Manufacturer & @CRLF
    ;~ $Output&="Model: " &$objItem.Model & @CRLF
    ;~ $Output&="Name: " &$objItem.Name & @CRLF
    ;~ $Output&="NumberOfPowerCords: " &$objItem.NumberOfPowerCords & @CRLF
    ;~ $Output&="OtherIdentifyingInfo: " &$objItem.OtherIdentifyingInfo & @CRLF
    ;~ $Output&="PartNumber: " &$objItem.PartNumber & @CRLF
    ;~ $Output&="PoweredOn: " &$objItem.PoweredOn & @CRLF
    ;~ $Output&="Removable: " &$objItem.Removable & @CRLF
    ;~ $Output&="Replaceable: " &$objItem.Replaceable & @CRLF
    ;~ $Output&="SecurityBreach: " &$objItem.SecurityBreach & @CRLF
    ;~ $Output&="SecurityStatus: " &$objItem.SecurityStatus & @CRLF
    ;~ $Output&="SerialNumber: " &$objItem.SerialNumber & @CRLF
    ;~ $strServiceDescriptions=$objItem.ServiceDescriptions(0)
    ;~ $Output&="ServiceDescriptions: " &$strServiceDescriptions & @CRLF
    ;~ $strServicePhilosophy=$objItem.ServicePhilosophy(0)
    ;~ $Output&="ServicePhilosophy: " &$strServicePhilosophy & @CRLF
    ;~ $Output&="SKU: " &$objItem.SKU & @CRLF
    ;~ $Output&="SMBIOSAssetTag: " &$objItem.SMBIOSAssetTag & @CRLF
    ;~ $Output&="Status: " &$objItem.Status & @CRLF
    ;~ $Output&="Tag: " &$objItem.Tag & @CRLF
    ;~ $strTypeDescriptions=$objItem.TypeDescriptions(0)
    ;~ $Output&="TypeDescriptions: " &$strTypeDescriptions & @CRLF
    ;~ $Output&="Version: " &$objItem.Version & @CRLF
    ;~ $Output&="VisibleAlarm: " &$objItem.VisibleAlarm & @CRLF
    ;~ $Output&="Weight: " &$objItem.Weight & @CRLF
    ;~ $Output&="Width: " &$objItem.Width & @CRLF
    If Msgbox(1, "", $Output)=2 then ExitLoop
    $Output=""
    Next
    Else
    Msgbox(0, "WMI-Ausgabe","Keine WMI-Objekte gefunden für Klasse: " & "Win32_SystemEnclosure")
    Endif

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

    Func WMIDateStringToDate($dtmDate)
    Return (StringMid($dtmDate, 5, 2) &"/" &StringMid($dtmDate, 7, 2) &"/" &StringLeft($dtmDate, 4) & " " &StringMid($dtmDate, 9, 2) &":" &StringMid($dtmDate, 11, 2) &":" &StringMid($dtmDate,13, 2))
    EndFunc

    [/autoit]

    dies ist die Fehlermeldung:

    Zitat

    C:\PC-Typ.au3 (10) : ==> Variable must be of type "Object".:
    $colItems=$objWMIService.ExecQuery("SELECT * FROM Win32_SystemEnclosure", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    $colItems=$objWMIService^ ERROR

  • komplette Hilfe zu 3.2.10.0 online und zum übersetzen bereit

    Hi,
    es wäre nett, wenn noch jemand (es dürfen auch mehrere sein :D ) sich am übersetzen beteiligen würde.
    Neben mir übersetzt momentam nur Schnuffel (danke !!! :) ) sehr fleißig.
    Nur mit 2 Mann kann man keine Funktion in den Status "fertig" befördern.

    Deshalb helft bitte mit. Es kommt jedem zu gute.
    PS: Auch Neulinge dürfen helfen. Am Anfang kann man auch reviewen, was manchen vielleicht einfacher fällt :thumbup:

  • Hotkeyset auf Variable

    Hi,
    und auch das geht ... :P

    [autoit]

    $var = "afunction"

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

    HotKeySet("{a}", $var)
    Sleep(10000)
    Func afunction()
    MsgBox(0, "", "es geht doch")
    EndFunc ;==>afunction

    [/autoit]

  • Hotkeyset auf Variable

    doch es geht

    [autoit]

    $var = "{ESC}"

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

    HotKeySet($var, "_func")

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

    Sleep(10000)

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

    Func _func()
    MsgBox(0, "", "es geht doch")
    EndFunc ;==>_func

    [/autoit]

  • MsgBox + Button(s)

    Hi,
    sol sollte es gehen
    Funktionen werden immer so aufgerufen _namederfunktion()

    Spoiler anzeigen
    [autoit]

    _Start()
    _Pixel()

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

    Func _Start()
    Run("C:\Programme\Mozilla Firefox 3 Beta 5\firefox.exe")
    Sleep(5000)
    MouseMove(950, 60)
    MouseClick('left')
    Send('{BACKSPACE}')
    Send('Storm the House')
    Send('{ENTER}')
    Sleep(2000)
    MouseMove(200, 351)
    MouseClick('left')
    Sleep(3000)
    MouseMove(1010, 170)
    MouseDown('left')
    MouseMove(1010, 230)
    MouseUp('left')
    MouseMove(700, 560)
    MouseClick('left')
    EndFunc ;==>_Start

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

    Func _Pixel()
    While 1
    $pos = PixelSearch(347, 510, 753, 633, 0xCCCCCC, 10)
    If Not @error Then MouseClick('left', $pos[0], $pos[1], 2, 1)
    WEnd
    EndFunc ;==>_Pixel

    [/autoit]

  • Rapid Share - Hapyy Hour auslesen

    Hi,
    habs mal probiert, allerdings ungetestet

    Spoiler anzeigen
    [autoit]

    $status = 0

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

    While 1
    $begin = TimerInit()
    Sleep(5000)
    If TimerDiff($begin) >= 5000 And TimerDiff($begin) <= 5010 Then
    hh()
    EndIf
    WEnd

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

    Func hh()
    $a = _INetGetSourcePost(FileRead(@DesktopDir & "\url.txt"), " ")
    $a = StringRegExp($a[1], '<form action="(.*?)" method="post">', 3)
    $a = _INetGetSourcePost($a[0], "dl.start=Free")
    If StringInStr($a[1], "You have reached the limit for Free users.") And $status <> 1 Then
    TrayTip("", "Limit erreicht." & @CRLF & "Reconnect nötig!", 2)
    Sleep(3000)
    TrayTip()
    $status = 1
    EndIf
    If StringInStr($a[1], " <h2>It’s Happy Hour!</h2>") And $status <> 2 Then
    $status = 2
    $HH = ""
    TrayTip("Rapidshare", "Happy Hour " & $HH & "aktiv", 3)
    Sleep(3000)
    TrayTip()
    ElseIf $status <> 3 Then
    $status = 3
    $HH = "nicht "
    TrayTip("Rapidshare", "Happy Hour " & $HH & "aktiv", 3)
    Sleep(3000)
    TrayTip()
    EndIf
    EndFunc ;==>hh

    [/autoit]