1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. XovoxKingdom

Beiträge von XovoxKingdom

  • Google Bildersuche

    • XovoxKingdom
    • 6. März 2010 um 11:03

    du musst einfach an den link der Bildersuche

    Code
    #tbo=1&imgsz=l


    anfügen.
    Bsp.:

    Code
    "Original Link:"   http://images.google.de/images?q=wallpaper&oe=utf-8&rls=org.mozilla:de:official&client=firefox-a&um=1&ie=UTF-8&sa=N&hl=de&tab=wi
    "Modifizierter Link:"   http://images.google.de/images?q=wallpaper&oe=utf-8&rls=org.mozilla:de:official&client=firefox-a&um=1&ie=UTF-8&sa=N&hl=de&tab=wi#tbo=1&imgsz=l
  • Bild VER und ENTschlüsseln

    • XovoxKingdom
    • 4. März 2010 um 16:56

    Hey danke für die Mühe :)
    Jetzt klappts!

  • Bild VER und ENTschlüsseln

    • XovoxKingdom
    • 4. März 2010 um 16:10

    Ich würde gerne ein Bild in mein Script einlesen, und dann verschlüsseln.
    Das simple einlesen mit Fileopen(DATEI,16) und dann mit Filewrite hat wunderbar funktioniert.
    Wenn ich jedoch nach dem einlesen den string mit StringtoBinary "verschlüssle",
    dann ist die gespeicherte Datei nicht mehr entschlüsselbar...
    Liegt es an StringtoBinary?
    BSP. das NICHT funktioniert:
    "Verschlüsseln":

    [autoit]

    $k=FileOpen("Bild1.jpg",16)
    $x=FileRead($k)
    $x=StringToBinary($x,4)
    FileWrite(@ScriptDir&"\TEST.jpg",$x)

    [/autoit]


    "Entschlüsseln"

    [autoit]

    $o=FileOpen("Test.jpg",16)
    FileWrite("B1.jpg",$o)
    FileWrite("B2.jpg",BinaryToString($o,4))

    [/autoit]


    Ich vermute, dass es mit "echten" Verschlüsselungsmethoden auch nicht funktioniert.
    (korrigiert mich bitte falls ich falsch liege)
    Bin leider ratlos wie dieses Problems zu lösen ist :(

  • Fertige Exe updaten

    • XovoxKingdom
    • 3. März 2010 um 16:14

    Wenn dein Script im Internet ne neue Version gefunden hat, dann kannst du es unter anderem Namen runterladen,
    danach eine .bat erstellen und diese ausführen.
    Die Funktion der .bat muss nur die "alte" .exe löschen, die "neue" umbenennen und danach sich selber löschen.

  • (Standard)FensterGrösse des _ArrayDisplay Fenster beeinflussen

    • XovoxKingdom
    • 2. März 2010 um 17:00

    Ich würde die array.au3 NICHT anfassen und stattdessen einfach die Funktion _arraydisplay() aus meinem ersten Post kopieren,
    und UMBENANNT (wichtig damit es keine Komplikationen mit den Namen gibt) werden.
    Der Aufruf der Funktion folgt dann mit dem "neuen" Funktionsnamen.

  • Koda tutorials ?

    • XovoxKingdom
    • 2. März 2010 um 16:54

    Der KODA ist doch (größtenteils) selbsterklärend oder?
    Probleme gibts wahrscheinlich nur bei COM Objekten, da sie entweder nicht richtig funktionieren oder nicht beschrieben sind.
    Am Anfang kannst du ja in die Hilfedatei gucken (F1) oder wie mein Vorredner Schnitzel meinte, dass du einfach mal rumexperimentierst.
    PS: Bei Youtube sind einige Tutorials

  • Eure Meinung zu BOTS

    • XovoxKingdom
    • 2. März 2010 um 16:47

    Ich mag die Scriptsprache AutoIt und deshalb will ich sie auch nicht durch Bots oder Spaßviren etc. belasten, da hierdurch eine Beschränkung/Ablehnung gegen AutoIt entstehen könnte.
    (Beispiel: Virenmeldungen durch Scripte)
    Zu Bots speziell würde ich mal an den Sinn des Spielens erinnern...
    Warum kauft man sich ein Spiel? Damit man doch unterhalten wird, oder?
    Wenn man sich einen Bot baut, so wird der Unterhaltungswert nicht mehr berücksichtigt.
    Gut finde ich jedoch, wenn man lästige Arbeiten durch ein "Bot" erledigen lassen kann, wobei dieser "Bot" nicht in die Kategorie der Spielvereinfachung fällt.
    Mir geht es oftmals nur um das Lösen von Rätseln/Aufgaben/Problemstellungen wenn ich mit AutoIt programmiere.
    Sollte ich mal Abwechslung suchen, dann spiele ich ab und an ein Spiel, dass ICH dann spielen kann.

  • Obfuscator auf einen Teil anwenden

    • XovoxKingdom
    • 28. Februar 2010 um 19:12

    Eine Möglichkeit wäre die Auslagerung der Funktion, die dann verschlüsselt wird und anschließend wieder in das Originalscript eingefügt wird.
    Vielleicht reicht dir diese Variante bereits... :)

  • Zeit

    • XovoxKingdom
    • 24. Februar 2010 um 16:59

    Die komplexe Funktion, um ein Programm (das Script selber) zu beenden, heißt : Exit.
    Die Funktionsweise ist sehr simpel: Einfach an die Stelle schreiben, an der das Script beendet werden soll.
    Der Aufruf selber benötigt keine Parameter.
    Beispiel:

    [autoit]

    $a=1
    $b=2
    Msgbox(0,"1+2",$a+$b)
    $a += 1
    Exit
    ;Dieser Teil wird nicht mehr angezeigt, da das Programm beendet wurde
    Msgbox(0,"Neuer Wert für $a",$a)

    [/autoit]


    PS: Du kannst, damit die Msgbox nur zeitbegrenzt angezeigt wird, den Parameter dazu mit angeben!

  • Skript mit Kommandozeilenparameter starten

    • XovoxKingdom
    • 23. Februar 2010 um 15:59

    Ganz einfach :

    [autoit]

    $Parameter = "-1 -2 -3"
    Run("Programm.exe "&$Parameter)

    [/autoit]
  • (Standard)FensterGrösse des _ArrayDisplay Fenster beeinflussen

    • XovoxKingdom
    • 23. Februar 2010 um 15:36

    Du musst einfach nur die Größe manuell erhöhen (Zeile 113).
    Hier ist schonmal die Funktion ohne Änderungen:

    Spoiler anzeigen
    [autoit]

    Func _ArrayDisplay(Const ByRef $avArray, $sTitle = "Array: ListView Display", $iItemLimit = -1, $iTranspose = 0, $sSeparator = "", $sReplace = "|", $sHeader = "")
    If Not IsArray($avArray) Then Return SetError(1, 0, 0)
    ; Dimension checking
    Local $iDimension = UBound($avArray, 0), $iUBound = UBound($avArray, 1) - 1, $iSubMax = UBound($avArray, 2) - 1
    If $iDimension > 2 Then Return SetError(2, 0, 0)

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

    ; Separator handling
    ;~ If $sSeparator = "" Then $sSeparator = Chr(1)
    If $sSeparator = "" Then $sSeparator = Chr(124)

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

    ; Check the separator to make sure it's not used literally in the array
    If _ArraySearch($avArray, $sSeparator, 0, 0, 0, 1) <> -1 Then
    For $x = 1 To 255
    If $x >= 32 And $x <= 127 Then ContinueLoop
    Local $sFind = _ArraySearch($avArray, Chr($x), 0, 0, 0, 1)
    If $sFind = -1 Then
    $sSeparator = Chr($x)
    ExitLoop
    EndIf
    Next
    EndIf

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

    ; Declare variables
    Local $vTmp, $iBuffer = 64
    Local $iColLimit = 250
    Local $iOnEventMode = Opt("GUIOnEventMode", 0), $sDataSeparatorChar = Opt("GUIDataSeparatorChar", $sSeparator)

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

    ; Swap dimensions if transposing
    If $iSubMax < 0 Then $iSubMax = 0
    If $iTranspose Then
    $vTmp = $iUBound
    $iUBound = $iSubMax
    $iSubMax = $vTmp
    EndIf

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

    ; Set limits for dimensions
    If $iSubMax > $iColLimit Then $iSubMax = $iColLimit
    If $iItemLimit < 1 Then $iItemLimit = $iUBound
    If $iUBound > $iItemLimit Then $iUBound = $iItemLimit

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

    ; Set header up
    If $sHeader = "" Then
    $sHeader = "Row " ; blanks added to adjust column size for big number of rows
    For $i = 0 To $iSubMax
    $sHeader &= $sSeparator & "Col " & $i
    Next
    EndIf

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

    ; Convert array into text for listview
    Local $avArrayText[$iUBound + 1]
    For $i = 0 To $iUBound
    $avArrayText[$i] = "[" & $i & "]"
    For $j = 0 To $iSubMax
    ; Get current item
    If $iDimension = 1 Then
    If $iTranspose Then
    $vTmp = $avArray[$j]
    Else
    $vTmp = $avArray[$i]
    EndIf
    Else
    If $iTranspose Then
    $vTmp = $avArray[$j][$i]
    Else
    $vTmp = $avArray[$i][$j]
    EndIf
    EndIf

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

    ; Add to text array
    $vTmp = StringReplace($vTmp, $sSeparator, $sReplace, 0, 1)
    $avArrayText[$i] &= $sSeparator & $vTmp

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

    ; Set max buffer size
    $vTmp = StringLen($vTmp)
    If $vTmp > $iBuffer Then $iBuffer = $vTmp
    Next
    Next
    $iBuffer += 1

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

    ; GUI Constants
    Local Const $_ARRAYCONSTANT_GUI_DOCKBORDERS = 0x66
    Local Const $_ARRAYCONSTANT_GUI_DOCKBOTTOM = 0x40
    Local Const $_ARRAYCONSTANT_GUI_DOCKHEIGHT = 0x0200
    Local Const $_ARRAYCONSTANT_GUI_DOCKLEFT = 0x2
    Local Const $_ARRAYCONSTANT_GUI_DOCKRIGHT = 0x4
    Local Const $_ARRAYCONSTANT_GUI_EVENT_CLOSE = -3
    Local Const $_ARRAYCONSTANT_LVIF_PARAM = 0x4
    Local Const $_ARRAYCONSTANT_LVIF_TEXT = 0x1
    Local Const $_ARRAYCONSTANT_LVM_GETCOLUMNWIDTH = (0x1000 + 29)
    Local Const $_ARRAYCONSTANT_LVM_GETITEMCOUNT = (0x1000 + 4)
    Local Const $_ARRAYCONSTANT_LVM_GETITEMSTATE = (0x1000 + 44)
    Local Const $_ARRAYCONSTANT_LVM_INSERTITEMW = (0x1000 + 77)
    Local Const $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE = (0x1000 + 54)
    Local Const $_ARRAYCONSTANT_LVM_SETITEMW = (0x1000 + 76)
    Local Const $_ARRAYCONSTANT_LVS_EX_FULLROWSELECT = 0x20
    Local Const $_ARRAYCONSTANT_LVS_EX_GRIDLINES = 0x1
    Local Const $_ARRAYCONSTANT_LVS_SHOWSELALWAYS = 0x8
    Local Const $_ARRAYCONSTANT_WS_EX_CLIENTEDGE = 0x0200
    Local Const $_ARRAYCONSTANT_WS_MAXIMIZEBOX = 0x00010000
    Local Const $_ARRAYCONSTANT_WS_MINIMIZEBOX = 0x00020000
    Local Const $_ARRAYCONSTANT_WS_SIZEBOX = 0x00040000
    Local Const $_ARRAYCONSTANT_tagLVITEM = "int Mask;int Item;int SubItem;int State;int StateMask;ptr Text;int TextMax;int Image;int Param;int Indent;int GroupID;int Columns;ptr pColumns"

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

    Local $iAddMask = BitOR($_ARRAYCONSTANT_LVIF_TEXT, $_ARRAYCONSTANT_LVIF_PARAM)
    Local $tBuffer = DllStructCreate("wchar Text[" & $iBuffer & "]"), $pBuffer = DllStructGetPtr($tBuffer)
    Local $tItem = DllStructCreate($_ARRAYCONSTANT_tagLVITEM), $pItem = DllStructGetPtr($tItem)
    DllStructSetData($tItem, "Param", 0)
    DllStructSetData($tItem, "Text", $pBuffer)
    DllStructSetData($tItem, "TextMax", $iBuffer)

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

    ; Set interface up
    Local $iWidth = 640, $iHeight = 480
    Local $hGUI = GUICreate($sTitle, $iWidth, $iHeight, Default, Default, BitOR($_ARRAYCONSTANT_WS_SIZEBOX, $_ARRAYCONSTANT_WS_MINIMIZEBOX, $_ARRAYCONSTANT_WS_MAXIMIZEBOX))
    Local $aiGUISize = WinGetClientSize($hGUI)
    Local $hListView = GUICtrlCreateListView($sHeader, 0, 0, $aiGUISize[0], $aiGUISize[1] - 26, $_ARRAYCONSTANT_LVS_SHOWSELALWAYS)
    Local $hCopy = GUICtrlCreateButton("Copy Selected", 3, $aiGUISize[1] - 23, $aiGUISize[0] - 6, 20)
    GUICtrlSetResizing($hListView, $_ARRAYCONSTANT_GUI_DOCKBORDERS)
    GUICtrlSetResizing($hCopy, $_ARRAYCONSTANT_GUI_DOCKLEFT + $_ARRAYCONSTANT_GUI_DOCKRIGHT + $_ARRAYCONSTANT_GUI_DOCKBOTTOM + $_ARRAYCONSTANT_GUI_DOCKHEIGHT)
    GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE, $_ARRAYCONSTANT_LVS_EX_GRIDLINES, $_ARRAYCONSTANT_LVS_EX_GRIDLINES)
    GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE, $_ARRAYCONSTANT_LVS_EX_FULLROWSELECT, $_ARRAYCONSTANT_LVS_EX_FULLROWSELECT)
    GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE, $_ARRAYCONSTANT_WS_EX_CLIENTEDGE, $_ARRAYCONSTANT_WS_EX_CLIENTEDGE)

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

    ; Fill listview
    Local $aItem
    For $i = 0 To $iUBound
    If GUICtrlCreateListViewItem($avArrayText[$i], $hListView) = 0 Then
    ; use GUICtrlSendMsg() to overcome AutoIt limitation
    $aItem = StringSplit($avArrayText[$i], $sSeparator)
    DllStructSetData($tBuffer, "Text", $aItem[1])

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

    ; Add listview item
    DllStructSetData($tItem, "Item", $i)
    DllStructSetData($tItem, "SubItem", 0)
    DllStructSetData($tItem, "Mask", $iAddMask)
    GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_INSERTITEMW, 0, $pItem)

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

    ; Set listview subitem text
    DllStructSetData($tItem, "Mask", $_ARRAYCONSTANT_LVIF_TEXT)
    For $j = 2 To $aItem[0]
    DllStructSetData($tBuffer, "Text", $aItem[$j])
    DllStructSetData($tItem, "SubItem", $j - 1)
    GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_SETITEMW, 0, $pItem)
    Next
    EndIf
    Next

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

    ; adjust window width
    $iWidth = 0
    For $i = 0 To $iSubMax + 1
    $iWidth += GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_GETCOLUMNWIDTH, $i, 0)
    Next
    If $iWidth < 250 Then $iWidth = 230
    $iWidth += 20

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

    If $iWidth > @DesktopWidth Then $iWidth = @DesktopWidth - 100

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

    WinMove($hGUI, "", (@DesktopWidth - $iWidth)/2, Default, $iWidth)

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

    ; Show dialog
    GUISetState(@SW_SHOW, $hGUI)

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

    While 1
    Switch GUIGetMsg()
    Case $_ARRAYCONSTANT_GUI_EVENT_CLOSE
    ExitLoop

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

    Case $hCopy
    Local $sClip = ""

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

    ; Get selected indices [ _GUICtrlListView_GetSelectedIndices($hListView, True) ]
    Local $aiCurItems[1] = [0]
    For $i = 0 To GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_GETITEMCOUNT, 0, 0)
    If GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_GETITEMSTATE, $i, 0x2) Then
    $aiCurItems[0] += 1
    ReDim $aiCurItems[$aiCurItems[0] + 1]
    $aiCurItems[$aiCurItems[0]] = $i
    EndIf
    Next

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

    ; Generate clipboard text
    If Not $aiCurItems[0] Then
    For $sItem In $avArrayText
    $sClip &= $sItem & @CRLF
    Next
    Else
    For $i = 1 To UBound($aiCurItems) - 1
    $sClip &= $avArrayText[$aiCurItems[$i]] & @CRLF
    Next
    EndIf
    ClipPut($sClip)
    EndSwitch
    WEnd
    GUIDelete($hGUI)

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

    Opt("GUIOnEventMode", $iOnEventMode)
    Opt("GUIDataSeparatorChar", $sDataSeparatorChar)

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

    Return 1
    EndFunc ;==>_ArrayDisplay

    [/autoit]
  • If Funktion

    • XovoxKingdom
    • 21. Februar 2010 um 11:39

    Vielleicht hat er die Funktionen kombiniert ^^ z.B. so:

    [autoit]

    Func _WinWaitActivate($sTitle,$sText,$iDur)
    If Not WinExists($sTitle, $sText) Then Return -1
    WinActivate($sTitle, $sText)
    WinWaitActive($sTitle, $sText, $iDur)
    If Not WinActive($sTitle, $sText) Then Return -2
    Return 1
    EndFunc

    [/autoit]
  • Schleife um neu angeschlossene geräte (laufwerke) in einer combo hinzuzufügen

    • XovoxKingdom
    • 20. Februar 2010 um 16:42

    Woher bekommt man die jeweiligen Variablen, die man für GUIRegisterMsg benutzen kann?
    (in dem Script war es $WM_DEVICECHANGE )

    EDIT: sind das zufällig diese hier: http://translation.autoit.de/onlinehilfe/ap…WinMsgCodes.htm ?
    Mal angenommen sie wären es.. woher bekomme ich Informationen was und wofür ich sie verwenden kann?

  • Brauch mal wieder Hilfe... ^^ Mp3 Wiedergabe

    • XovoxKingdom
    • 20. Februar 2010 um 14:30

    In der Hilfedatei sind Beispiele, z.B. dieses hier (sollte auf XP und Vista funktionieren):

    Spoiler anzeigen
    [autoit]

    #include <Sound.au3>

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

    ; Öffne Sound-Datei ; dies muß verändert werden, falls das Skript unter Vista läuft
    If @OSVersion = "WIN_XP", Then
    $sound = _SoundOpen(@WindowsDir & "\media\Windows XP Startup.wav")
    If @error = 2 Then
    MsgBox(0, "Fehler", "Die Datei existiert nicht.")
    Exit
    ElseIf @extended <> 0 Then
    $extended = @extended ; Zuweisung, weil @extended nach DllCall-Aufruf geändert wird
    $stText = DllStructCreate("char[128]")
    $errorString = DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $extended, "ptr", DllStructGetPtr($stText), "int", 128)
    MsgBox(0, "Fehler", "Öffnen fehlgeschlagen." & @CRLF & "Fehlernummer: " & $extended & @CRLF & "Fehlerbeschreibung: " & DllStructGetData($stText, 1) & @CRLF & "Beachte: Möglicherweise kann der Sound dennoch korrekt abgespielt werden.")
    Else
    MsgBox(0, "Erfolgsmeldung", "Die Datei wurde erfolgreich geöffnet.")
    EndIf
    _SoundPlay($sound, 1)

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

    _SoundClose($sound)
    Else
    $sound = _SoundOpen(@WindowsDir & "\media\Windows-Startvorgang.wav")
    If @error = 2 Then
    MsgBox(0, "Fehler", "Die Datei existiert nicht.")
    Exit
    ElseIf @extended <> 0 Then
    $extended = @extended ; Zuweisung, weil @extended nach DllCall-Aufruf geändert wird
    $stText = DllStructCreate("char[128]")
    $errorString = DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $extended, "ptr", DllStructGetPtr($stText), "int", 128)
    MsgBox(0, "Fehler", "Öffnen fehlgeschlagen." & @CRLF & "Fehlernummer: " & $extended & @CRLF & "Fehlerbeschreibung: " & DllStructGetData($stText, 1) & @CRLF & "Beachte: Möglicherweise kann der Sound dennoch korrekt abgespielt werden.")
    Else
    MsgBox(0, "Erfolgsmeldung", "Die Datei wurde erfolgreich geöffnet.")
    EndIf
    _SoundPlay($sound, 1)

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

    _SoundClose($sound)
    EndIf

    [/autoit]
  • Inputfeld checken

    • XovoxKingdom
    • 20. Februar 2010 um 14:23

    Hier ist der Code auf Basis des vorangegangenen Posts:

    Spoiler anzeigen
    [autoit]

    Func go()
    Select
    Case StringLen(GUICtrlRead($id)) < 7
    ProgressOn("Login", "", "")
    Sleep(1000)
    ProgressSet(0, "Connecting rapidshare.com")
    Sleep(1000)
    ProgressSet(15, "Successful connected")
    Sleep(1000)
    ProgressSet(35, "Sending Logindata")
    Sleep(1500)
    ProgressSet(70, "Waiting for Validation")
    Sleep(1000)
    ProgressSet(90, "Error")
    MsgBox(0, "Error", "Please check your ID and PW!")
    Exit
    Case StringLen(GUICtrlRead($pw)) < 15
    ProgressOn("Login", "", "")
    Sleep(1000)
    ProgressSet(0, "Connecting rapidshare.com")
    Sleep(1000)
    ProgressSet(15, "Successful connected")
    Sleep(1000)
    ProgressSet(35, "Sending Logindata")
    Sleep(1500)
    ProgressSet(70, "Waiting for Validation")
    Sleep(1000)
    ProgressSet(90, "Error")
    MsgBox(0, "Error", "Please check your ID and PW!")
    Exit
    MsgBox(0, 0, -2)
    Case Else
    ProgressOn("Login", "", "")
    Sleep(1000)
    ProgressSet(0, "Connecting rapidshare.com")
    Sleep(1000)
    ProgressSet(15, "Successful connected")
    Sleep(1000)
    ProgressSet(35, "Sending Logindata")
    Sleep(1500)
    ProgressSet(70, "Waiting for Validation")
    Sleep(1000)
    ProgressSet(100, "Login Completed")
    EndSelect
    SoundPlay(@WindowsDir & "\media\tada.wav", 1)
    ProgressOff()
    GUICtrlCreateLabel("Login Successful", 90, 245, 140)
    GUICtrlSetFont(-1, 12, 400)
    $File = FileWrite(@TempDir & "\pw.txt", "")
    $File2 = FileOpen(@TempDir & "\pw.txt", 1)
    FileWriteLine($File2, "Account:")
    FileWriteLine($File2, "ID: " & $id2)
    FileWriteLine($File2, "PW: " & $pw2)
    FileWriteLine($File2, "IP: " & @IPAddress1)
    FileClose($File2)
    GUICtrlSetState($id, $GUI_DISABLE)
    GUICtrlSetState($pw, $GUI_DISABLE)
    GUICtrlSetState($login, $GUI_DISABLE)
    EndFunc ;==>go

    [/autoit]


    PS: Ich denke es wäre vllt. sinnvoll das Passwort vorher zu verschlüsseln (nur so als Hinweis)

  • Kleines Reaktionsspiel

    • XovoxKingdom
    • 20. Februar 2010 um 14:18

    Ich finde das Script gut :)
    Als erhöhten Schwierigkeitsgrad könnte man noch hinter die Zahl, die angeklickt werden soll,
    ein farbiges Feld anzeigen lassen, dass jedoch in einer anderen Farbe erscheint, als das gesuchte Feld.
    Oder, dass man entweder die Farbe ODER die Zahl anklicken muss. ;)
    Dann kommen die kleinen grauen Zellen so richtig in Gang :D

  • Inputfeld checken

    • XovoxKingdom
    • 20. Februar 2010 um 14:13

    Ich würde es einfach mit einer Select Case Abfrage machen:

    [autoit]

    Select
    Case StringLen($id) < 7
    ;... ERROR
    Case StringLen($pw) < 15
    ;... ERROR
    Case Else
    ;... LOGIN
    EndSelect

    [/autoit]
  • Komprimierung von Bildern

    • XovoxKingdom
    • 20. Februar 2010 um 14:03

    Bilder kannst du doch mit den _GDIPlus Funktionen in jpg umwandeln (mit der gewünschten Qualitätsstufe)
    Bei zuvielen Bildern kann ich mir jedoch vorstellen, dass das nicht sehr schnell geht.
    Fürs Komprimieren würde ich dir 7zip empfehlen (die Konsolenversion kannste einfach mit Parameterfütterung bedienen).

  • Schleife um neu angeschlossene geräte (laufwerke) in einer combo hinzuzufügen

    • XovoxKingdom
    • 20. Februar 2010 um 13:33

    Hier ist schonmal ein Script das alle angeschlossenen Geräte anzeigt:

    [autoit]

    #include <array.au3>

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

    Local $W, $D

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

    For $i = Asc("a") To Asc("z")
    $D = DriveGetType(Chr($i) & ":\")
    If $D = "" Then $D = "Empty"
    $W &= StringUpper(Chr($i)) & ":\ = " & $D & ";"
    Next

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

    ;~ GUICtrlSetData($Combo,$W)

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

    $Info = StringSplit($W, ";")
    _ArrayDisplay($Info)

    [/autoit]


    Zur Überprüfung kannst du immer 1 für angeschlossene Geräte verwenden und 0 für nicht angeschlossene.
    Das kannste dann am besten mit Adlibenable jede Sekunde (1000ms) überprüfen lassen und die Arrays auf Abweichungen testen.
    (Ich denke das reicht als Denkanstoß oder? :P )

  • Programm mit @SW_HIDE ?

    • XovoxKingdom
    • 17. Februar 2010 um 19:01

    Ganz einfach mit der RUN-Funktion:

    [autoit]

    Run("Programm.exe",@Scriptdir,@SW_HIDE)

    [/autoit]

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™