Alles Gute zum Geburtstag blubbstar! 
Beiträge von funkey
-
-
Hallo Leute!
Ich war gestern das zweite Mal Klettersteig! Ich kann nur sagen einfach toll! Die Aussicht ist berauschend! Jetzt gehe ich gleich wieder mit meinen Freunden (einen schwierigeren)!Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Macht das sonst auch noch jemand hier?
Grüße funkey
EDIT: Link hinzugefügt: Königsjodler
-
Such mal nach zip udf oder zip.au3 in google. Da gibt es einiges.
Hier ein Beispiel: Meine ZIP UDF -
Ich kenne schon 2 andere portable Versionen, aber deine schaut ganz gelungen aus (vom dem her was enthalten ist).
Ich teste das mal wenn ich wieder mehr Zeit habe.
Frage: Funktioniert das ganze auch, wenn man kein Admin ist? -
Hier ein Beispiel mit dem Explorer
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GuiListView.au3>$h = ControlGetHandle('Arbeitsplatz', '', 'SysListView321')
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlListView_GetHeader($h)$iAnzCol = _GUICtrlListView_GetColumnCount($h)
[/autoit] [autoit][/autoit] [autoit]
$iAnzahl = _GUICtrlListView_GetItemCount($h)
Local $msg, $array[$iAnzahl+1][$iAnzCol]For $i = 0 To $iAnzCol -1
[/autoit] [autoit][/autoit] [autoit]
$msg = _GUICtrlListView_GetColumn($h, $i)
$array[0][$i] = $msg[5]
NextFor $i = 0 To $iAnzahl - 1
[/autoit] [autoit][/autoit] [autoit]$a = _GUICtrlListView_GetItemTextArray($h, $i)
[/autoit] [autoit][/autoit] [autoit]
For $j = 1 To $a[0]
$array[$i+1][$j - 1] = $a[$j]
Next
Next_ArrayDisplay($array)
[/autoit] -
Dann weiß ich nicht mehr weiter. Mit anderen Dateitypen funktioniert es perfekt, nur bei 'Media-Dateien' funktioniert es anscheinend nicht so wie gewollt.
-
Tausch mal eine Zeile in der Funktion aus:
Das
[autoit]RegWrite("HKCR\" & $sTypeName & "\shell\open\command", "", "REG_SZ", $sAppName & " -cal %1")
[/autoit]ersetzen durch
das
[autoit]RegWrite("HKCR\" & $sTypeName & "\shell\play\command", "", "REG_SZ", '"' & $sAppName & '" "' & '%1"')
[/autoit] -
Sollte eigentlich so irgendwie aussehen:
[autoit]_RegisterFileType('mp3', 'RegTest', 'C:\AudioPlayer.exe')
[/autoit] -
Xenobiologist : Das funktioniert auch bei fremden Gui's
-
-
Sen: Dann schau dir doch seine restlichen Posts an! Schauen für mich alle aus, als ob da mit unserer Hilfe ein Bot gebaut würde!
-
Du kannst es auch "neutral" programmieren
Spoiler anzeigen
[autoit]#include <INet.au3>
[/autoit] [autoit][/autoit] [autoit]Local $aForenID[36] = [ _
[/autoit] [autoit][/autoit] [autoit]
2, _ ;Autoit 3 - Hilfe und Unterstützung
39, _ ;Autoit 3 - Hilfe und Unterstützung - Datenbanken
34, _ ;Autoit 3 - Hilfe und Unterstützung - Bot-Coding
3, _ ;Autoit 3 - Skripte
36, _ ;Autoit 3 - Skripte - Wettbewerbe
7, _ ;Autoit 3 - Projekte
18, _ ;Autoit 3 - Projekte - Galenda
24, _ ;Autoit 3 - Projekte - n00b-Projekt
31, _ ;Autoit 3 - Projekte - IDEs
32, _ ;Autoit 3 - Projekte - Firefox-Automatisierung
48, _ ;Autoit 3 - Projekte - Super Mario
8, _ ;Autoit 3 - Filebase
23, _ ;Autoit 3 - Entwickler
38, _ ;Autoit 3 - Entwickler - Datenbankzugriff
35, _ ;Autoit 3 - Jobbörse
22, _ ;Übersetzung der Hilfe-Datei ins Deutsche - Allgemeines
46, _ ;Übersetzung der Hilfe-Datei ins Deutsche - Bugs
47, _ ;Übersetzung der Hilfe-Datei ins Deutsche - Fragen/Anregungen
41, _ ;Install-O-Matic - IOM 4
42, _ ;Install-O-Matic - IOM 4 - Bugs
44, _ ;Install-O-Matic - IOM 4 - Installationsskripte
43, _ ;Install-O-Matic - IOM 4 - Vorschläge
29, _ ;Install-O-Matic - IOM 3 - Installationsskripte
30, _ ;Install-O-Matic - IOM 3 - Fragen & Kritik
13, _ ;Install-O-Matic - IOM 2 - Bug-Report
14, _ ;Install-O-Matic - IOM 2 - Kritik
15, _ ;Install-O-Matic - IOM 2 - Installationsskripte
5, _ ;Sonstiges - News
11, _ ;Sonstiges - News - News Archiv
6, _ ;Sonstiges - Testforum
9, _ ;Sonstiges - Uservorstellung
16, _ ;Sonstiges - Filebasefreischaltung
17, _ ;Sonstiges - Hangman
25, _ ;Sonstiges - Talk
10, _ ;Sonstiges - Off-Topic
33] ;Sonstiges - Off-Topic - JavaLocal $url1 = 'http://www.autoit.de/index.php?page=Board&boardID=', $url2 = '&action=markAsRead'
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To UBound($aForenID) -1
[/autoit]
TrayTip('Bitte warten', 'Forum '&$aForenID[$i]&' wird als gelesen gekennzeichnet!', 5, 1)
_INetGetSource($url1 & $aForenID[$i] & $url2)
Next -
Was willst du am Ende erreichen?
Hast du auch die Forenregeln gelesen? Ist das für einen Bot? Hast du bereits ein Skript? Dann bitte mitposten.Außerdem: War da eine Frage im ersten Post? für mich war das nur eine Feststellung, deswegen auch der Post von Lenny
-
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>$Form1 = GUICreate("test", 291, 156, 397, 362)
[/autoit] [autoit][/autoit] [autoit]
$Group1 = GUICtrlCreateGroup("Farbe in HEX", 16, 56, 113, 81)
$Label2 = GUICtrlCreateLabel("#", 32, 72, 11, 17)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$farbe = GUICtrlCreateLabel("FFFFFF", 40, 72, 40, 17)
GUICtrlSetBkColor(-1, 0xC0DCC0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Farbe", 152, 56, 113, 81)
$Label3 = GUICtrlCreateLabel(" ", 168, 72, 85, 49, $WS_BORDER)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)Local $Pos_old[2], $pos, $col, $col_old, $nMsg
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit]
$pos = MouseGetPos()
If $pos[0] <> $Pos_old[0] Or $pos[1] <> $Pos_old[1] Then
$col = PixelGetColor($pos[0], $pos[1])
If $col <> $col_old Then
GUICtrlSetData($farbe, Hex($col, 6))
GUICtrlSetBkColor($Label3, $col)
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$Pos_old = $pos
$col_old = $col
WEnd -
-
Wieso StringSplit?
[autoit]$text = '\\server\share\order1\dummy.txt'
[/autoit]
MsgBox(0, "", StringLeft($text, StringInStr($text, '\', 0, -1))) -
OK, Greek, überredet
Hab im Beispiel die Schriftart geändert. Danke für das Lob, aber man könnte es sicher noch verbessern --> Der Abstand zwischen den Buchstaben beim Farbwechsel passt nicht immer ganz genau
-
Hast du die Version 3.3.0.0 installiert?
-
Du könntest es so machen:
Spoiler anzeigen
[autoit]Func ShellExecuteAs($username, $domain, $password,$logon_flags, $filename, $Param = '', $Workdir = '', $Verb = '', $Showflag = '')
[/autoit] [autoit][/autoit] [autoit][/autoit]
RunAs($username, $domain, $password, $logon_flags, @AutoItExe & ' /AutoIt3ExecuteLine "ShellExecute(''' & $filename & ''',''' & $Param & ''',''' & $Workdir & ''',''' & $Verb & ''',' & $Showflag &')"')
EndFunc ;==>ShellExecuteAsGefunden im französchischen Forum
Nicht getestet! -
Dafür gibt es doch den Registry-Eintrag: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce
Das Skript dort eintragen und neustarten