Beiträge von Turbolocke

Turbolocke

Ich hab teamviewer vollautomatisiert,passwort u id auf nen ftp hochgeladen, mit nem zweitenprogramm runtergeladen, funzt einwandfrei^^

Turbolocke

Ich bin im moment dabei, eine Exploreralternative zu schreiben.
Was das nützt?
Beisspielsweise kann man damit ein Remoteprogramm basteln,ohne Bilder von einem anderen pc zu übertragen.( Mach ich ,wenn das hier fertig ^^)
Naja, Dank der Nachhilfe von Funkey und GTAspider im Kürzen ;)(Nachhilfe) hab ich es soweit gebracht, dass buttons die icons der Dateien anzeigen.
Hier werde ich nun regelmäßig meine Fortschritte Posten.
Konstruktive Kritik ist durchaus erwünscht, jedoch bitte ohne flame

Explorer version 0.000000001
Buggs:

Spoiler anzeigen

Der nächste Seite button ist nicht immer anwählbar.

To Do

Spoiler anzeigen

Buttons mit den Bildern "verlinken"

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
$zaeler = 1
$Pfad = "C:\"
$FileList = _FileListToArray($Pfad)
If @error = 1 Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf

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

If $FileList[0] = 0 Then
MsgBox(0, "Fehler", "Der angegebene Ordner enthält keine dateien.")
EndIf

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

For $i = 1 To $FileList[0]
Assign('Name' & $i, $FileList[$i])
Next
;Berechnet anzahl benötigter Seiten:
If $FileList[0] / 15 < Int($FileList[0] / 15) Then
$seitenanzahl = Int($FileList[0] / 15)

Else
$seitenanzahl = Int($FileList[0] / 15) + 1

EndIf
MsgBox(0, $FileList[0], $seitenanzahl)

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

For $ii = 1 To $seitenanzahl

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

$Form1 = GUICreate("Seite" & $ii, 874, 652, 191, 132)
GUISetCursor(0)

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

$y = 0
For $i = $zaeler To $zaeler + 15
Assign("Button" & $i, GUICtrlCreateButton("", 0, $y, 36, 36, $BS_ICON))
If StringRight(Eval("Name" & $i), 4) = ".lnk" Then
$aIcon = FileGetShortcut($Pfad & "\" & Eval("Name" & $i))
GUICtrlSetImage(-1, $aIcon[4], $aIcon[5])
ElseIf StringRight(Eval("Name" & $i), 4) = ".exe" Then ; Bild der exedatei sollte angenommen werden
GUICtrlSetImage(-1, $Pfad & "/" & Eval("Name" & $i), 0)
ElseIf StringRight(Eval("Name" & $i), 4) = ".bmp" Then ;Bild der bildatei sollte angenommen werden
GUICtrlSetImage(-1, $Pfad & "/" & Eval("Name" & $i), 0)
ElseIf StringRight(Eval("Name" & $i), 4) = ".jpg" Then
GUICtrlSetImage(-1, $Pfad & "/" & Eval("Name" & $i), 0)
ElseIf Eval("Name" & $i) ="" Then
GUICtrlSetState (Eval("Button"&$i), $GUI_HIDE )

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

ElseIf StringInStr(StringRight(Eval("Name" & $i), 5), ".") = 0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 5)
Else
GUICtrlSetImage(-1, _FileGetIcon($Pfad & "/" & Eval("Name" & $i)), 1)
EndIf
GUICtrlSetCursor(-1, 0)
Assign("Label" & $i, GUICtrlCreateLabel(Eval("Name" & $i), 40, $y, 829, 36))
$y += 40
Next

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

$Next = GUICtrlCreateButton("Nächste Seite", 592, 496, 121, 33, 0)
GUICtrlSetCursor(-1, 0)

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

GUISetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Next
GUIDelete($Form1)
$zaeler = $zaeler + 15
ExitLoop

EndSwitch
WEnd
Next
;_Filegeticon gibt den Pfad zu der ausführenden Exedatei zurück, als paramter muss noch die der iconindex 1 angegeben werden.
Func _FileGetIcon($szFile)
Local $arTemp, $sExt, $arPath
$arTemp = StringSplit($szFile, '.')
$sExt = '.' & $arTemp[$arTemp[0]]
If StringLower($sExt) = '.exe' Then Return $szFile
$arPath = StringRegExp(RegRead("HKCR\" & RegRead("HKCR\" & $sExt, "") & "\shell\open\command", ""), "(.*)(?i)exe", 2)
If IsArray($arPath) Then
Return StringReplace($arPath[0], '"', '')
Else
;unknown...
Return "shell32.dll"
EndIf
EndFunc ;==>_FileGetIcon

[/autoit]

Turbolocke

Ja das wollt ich morgen kürzen^^ hab iim moment noch zuviel intus um autoit anzuschauen, das zeug was ungekürzt war war vorher schon geschrieben^^
Aber thx spider , weerd mich bemühen in Zukunft ordentlich zu kürzen

Turbolocke

So,habs es jetzt geschafft ein verzeichnis graphisch darzustellen.
Im moment mehr schlecht als recht, aber eagal ^^.
Werds jetzt noch weiter ausbauen, freue mich aber über tipps und anregungen.
edit: Werde es demnächst so umstellen, das ich die endungen erkenne und dann eine fallunterscheidung macht.

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>

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

$Pfad=@DesktopDir
$FileList=_FileListToArray($Pfad)
If @Error=1 Then
MsgBox (0,"","No Files\Folders Found.")
Exit
EndIf

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

If $Filelist[0]=0 Then
MsgBox(0,"Fehler","Der angegebene Ordner enthält keine dateien.")
EndIf

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

For $i = 1 to $Filelist[0]
Assign('Name'&$i, $Filelist[$i])
Next

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 874, 652, 191, 132)
GUISetCursor (0)
$Button1 = GUICtrlCreateButton("", 0, 0, 36, 36, $BS_ICON)
If StringInStr(Eval("Name1"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name1"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("", 0, 40, 36, 36, $BS_ICON)
If StringInStr(Eval("Name2"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name2"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("", 0, 80, 36, 36, $BS_ICON)
If StringInStr(Eval("Name3"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name3"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("", 0, 120, 36, 36, $BS_ICON)
If StringInStr(Eval("Name4"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name4"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("", 0, 160, 36, 36, $BS_ICON)
If StringInStr(Eval("Name5"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name5"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button6 = GUICtrlCreateButton("", 0, 200, 36, 36, $BS_ICON)
If StringInStr(Eval("Name6"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name6"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button7 = GUICtrlCreateButton("", 0, 240, 36, 36, $BS_ICON)
If StringInStr(Eval("Name7"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name7"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button8 = GUICtrlCreateButton("", 0, 280, 36, 36, $BS_ICON)
If StringInStr(Eval("Name8"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name8"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button9 = GUICtrlCreateButton("", 0, 320, 36, 36, $BS_ICON)
If StringInStr(Eval("Name9"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name9"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button10 = GUICtrlCreateButton("", 0, 360, 36, 36, $BS_ICON)
If StringInStr(Eval("Name10"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name10"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button11 = GUICtrlCreateButton("", 0, 400, 36, 36, $BS_ICON)
If StringInStr(Eval("Name11"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name11"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Button12 = GUICtrlCreateButton("", 0, 440, 36, 36, $BS_ICON)
If StringInStr(Eval("Name12"), ".")=0 Then
GUICtrlSetImage(-1, "C:\WINDOWS\system32\SHELL32.dll", 4)
Else
GUICtrlSetImage(-1, $Pfad&"/"&Eval("Name12"), 0)
EndIf
GUICtrlSetCursor (-1, 0)
$Next = GUICtrlCreateButton("Nächste Seite", 592, 496, 121, 33, 0)
GUICtrlSetCursor (-1, 0)
$Label1 = GUICtrlCreateLabel(Eval("Name1"), 40, 0, 829, 36)
$Label2 = GUICtrlCreateLabel(Eval("Name2"), 40, 40, 829, 36)
$Label3 = GUICtrlCreateLabel(Eval("Name3"), 40, 80, 829, 36)
$Label4 = GUICtrlCreateLabel(Eval("Name4"), 40, 120, 829, 36)

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

$Label5 = GUICtrlCreateLabel(Eval("Name5"), 40, 160, 829, 36)
$Label6 = GUICtrlCreateLabel(Eval("Name6"), 40, 200, 829, 36)
$Label7 = GUICtrlCreateLabel(Eval("Name7"), 40, 240, 829, 36)
$Label8 = GUICtrlCreateLabel(Eval("Name8"), 40, 280, 829, 36)
$Label9 = GUICtrlCreateLabel(Eval("Name9"), 40, 320, 829, 36)
$Label10 = GUICtrlCreateLabel(Eval("Name10"), 40, 360, 829, 36)
$Label11 = GUICtrlCreateLabel(Eval("Name11"), 40, 400, 829, 36)
$Label12 = GUICtrlCreateLabel(Eval("Name12"), 40, 440, 829, 36)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop

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

EndSwitch
WEnd

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

Turbolocke

Wusst ich doch dass es geht Thx hast mir unendlich(wahrscheinlich sogar wortwörtlich) Arbeit erspart, *Danke Button drück*

Turbolocke

Spoiler anzeigen

[autoit]

If $Filelist[0]=0 Then
MsgBox(0,"Fehler","Der angegebene Ordner enthält keine dateien.")
Else
Case $Filelist[0]=2
$Name1= $Filelist[1]
$Name2= ""
$Name3= ""
$Name4= ""
$Name5= ""
$Name6= ""
$Name7= ""
$Name8= ""
$Name9= ""
$Name10= ""
$Name11= ""
$Name12=""
Case $Filelist[0]=2
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= ""
$Name4= ""
$Name5= ""
$Name6= ""
$Name7= ""
$Name8= ""
$Name9= ""
$Name10= ""
$Name11= ""
$Name12=""
Case $Filelist[0]=3
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= ""
$Name5= ""
$Name6= ""
$Name7= ""
$Name8= ""
$Name9= ""
$Name10= ""
$Name11= ""
$Name12=""
Case $Filelist[0]=4
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= $Filelist[4]
$Name5= ""
$Name6= ""
$Name7= ""
$Name8= ""
$Name9= ""
$Name10= ""
$Name11= ""
$Name12=""
Case $Filelist[0]=5
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= $Filelist[4]
$Name5= $Filelist[5]
$Name6= ""
$Name7= ""
$Name8= ""
$Name9= ""
$Name10= ""
$Name11= ""
$Name12=""
Case $Filelist[0]=6
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= $Filelist[4]
$Name5= $Filelist[5]
$Name6= $Filelist[6]
$Name7= ""
$Name8= ""
$Name9= ""
$Name10= ""
$Name11= ""
$Name12=""
Case $Filelist[0]=7
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= $Filelist[4]
$Name5= $Filelist[5]
$Name6= $Filelist[6]
$Name7= ""
$Name8= ""
$Name9= ""
$Name10= ""
$Name11= ""
$Name12=""
Case $Filelist[0]=8
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= $Filelist[4]
$Name5= $Filelist[5]
$Name6= $Filelist[6]
$Name7= $Filelist[7]
$Name8= $Filelist[8]
$Name9= ""
$Name10=""
$Name11=""
$Name12=""
Case $Filelist[0]=9
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= $Filelist[4]
$Name5= $Filelist[5]
$Name6= $Filelist[6]
$Name7= $Filelist[7]
$Name8= $Filelist[8]
$Name9= $Filelist[9]
$Name10= ""
$Name11= ""
$Name12=""
Select
Case $Filelist[0]=10
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= $Filelist[4]
$Name5= $Filelist[5]
$Name6= $Filelist[6]
$Name7= $Filelist[7]
$Name8= $Filelist[8]
$Name9= $Filelist[9]
$Name10= $Filelist[10]
$Name11=""
$Name12=""

Case $Filelist[0]=11
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= $Filelist[4]
$Name5= $Filelist[5]
$Name6= $Filelist[6]
$Name7= $Filelist[7]
$Name8= $Filelist[8]
$Name9= $Filelist[9]
$Name10= $Filelist[10]
$Name11= $Filelist[11]
$Name12=""

Case $Filelist[0]=12
$Name1= $Filelist[1]
$Name2= $Filelist[2]
$Name3= $Filelist[3]
$Name4= $Filelist[4]
$Name5= $Filelist[5]
$Name6= $Filelist[6]
$Name7= $Filelist[7]
$Name8= $Filelist[8]
$Name9= $Filelist[9]
$Name10= $Filelist[10]
$Name11= $Filelist[11]
$Name12= $Filelist[12]
EndSelect

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

EndIf

[/autoit]

Ich habs jetzt ca. 2.5 stunden durchprobiert,und komm einfach nicht drauf wie ich das teil hier kürzen kann ohne eine arrayerror zu bekommen.
Is bis jetzt auch das erste mal das ich mich mit arrays auseinandersetzte.....
Ich möchte die ordner,die sich in einem verzeichniss befinden graphisch anzeigen,und dass sol natürlich universell anwendbar sein und nicht nur bei 12 bzw weniger ^^.

Turbolocke

naja ne art fernsteuerung, du drückst meinen interpret doppelt, der schaut auf nem ftp server in ner textdatei ,ob und in welcher reihe autoitcode vorkommt
z.b msgbox. hab bis jetzt aber nur die standartsachen interpretieren lassen, da ich das ja nur speziell für die Fernsteurung machen will.

Turbolocke

Ich erstelle gerade nen Autoit interpret damit ich scripts sozusagen auf nem server ausführen kann, is ne heidenarbeit find ich

Turbolocke

frag google
ne spaß ka ich hasse den tag, da kann man so viel falsch machen, und am ende ist die liebe trotzdem sauer *gg*
ich empfehl dir, ( morgen nicht dafür ist es zu kalt), mal nen romantischen tag einzulegen ruderboot oder so kennst ja das schnulzige zeug. n gutschein dafür da freut sie sich garantiert *gg*

Turbolocke

Idee ist sehr gut, jedoch unglücklich formuliert, ich denk das lag nicht in der absicht, also schwamm drüber würd ich sagen oder?

Turbolocke

Ich freu mich immer noch
Trotzdem setzt ich mal das ding hier auf gelöst *gg*

Turbolocke

JUHUUUUU es geht ,danke an euch alle *Zusammendrück*
Juhuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
@moderatoren sry fürs spammen aber ich freu mich so *g*

Turbolocke

habse hochgeladen....

Turbolocke

Ich möchte auf einem Ftp server logs hochladen lassen, um Buggs etc in meinen bisherigen Programmen zu erkennen, die auf einem fremden Rechner laufen( Zustimmung natürlich eingeholt).
Ich hab deshalb zu Testzwecken einen account bei funpic erstellt und ein "Hochladscript" erstellt.
Soweit so gut. Fehler : geht nicht^^
Nach etwa 3 stunden google, bordsuche englisches Forum hab ich mir filezilla geladen und getestet obich überhaupt was hochladen kann. mit filezilla gings....
warum gehts hier nicht ?

Spoiler anzeigen

[autoit]

#include <ftp.au3>
FTP_PUT()
Func FTP_PUT()
$server = 'xxxx'
$username = 'xxx'
$pass = 'xxx'
$UPLOADFILE= "c:\Temp.log"
$FTPFILENAME= "Temp.log"

$Open = _FTPOpen('FTP')
$Conn = _FTPConnect($Open, $server, $username, $pass,21,1,0,0)
$Ftpp = _FtpPutFile($Conn, $UPLOADFILE, $FTPFILENAME)
$Ftpc = _FTPClose($Open)
MsgBox(0,"",$open)
MsgBox(0,"",$Conn)
MsgBox(0,"",$Ftpp)
MsgBox(0,"",$Ftpc)
EndFunc

[/autoit]

edit: hab dateianhang gelöscht um nachahmungen zu vermeiden, da sie fehlerhaft war, siehe unterer Post für die richtige ftp.au3

Turbolocke

welche hilfe?^^

Turbolocke

nein, da es mir zu buggy ist. Es würde nur Pcs schrotten ;).
Wenn du den Bootskin ändern willst, empfehl ich dir tune up utilities als demo zb .

Turbolocke

ich würds mit imagesearch machen, link hab ich grad nicht da,eifach googeln^^

Turbolocke

@pee: wir werden sehen,wetten werden angenommen ;)^^

Turbolocke

Ich weiß leider nicht mehr von wem ich das hab, aber es war aus dem forum hier.

ein danke an den Autor^^

edit: Funkey hat den Link^^

Turbolocke

kennst du google? schreib dll rein,drück enter, und schau dir den ersten eintrag an( wikipedia....)

Beiträge von Turbolocke

Bitmap bzw. Pc vernsteuern

Explorer Alternative

kann man das skript kürzen?

kann man das skript kürzen?

kann man das skript kürzen?

kann man das skript kürzen?

Eigene Sprache entwickeln :D

Eigene Sprache entwickeln :D

Ideen Valentinstag

Projekt-Idee: AutoIt for the win!

Dateien auf Ftp server hochladen

Dateien auf Ftp server hochladen

Dateien auf Ftp server hochladen

Dateien auf Ftp server hochladen

Hat jemand lust diese Hilfe zu übersetzen?

Startbildschirm ändern( Bitte testen, bei mir gehts prima)

Bilderkennung

r1fLeX verabschiedet sich

Hintergrundbild

DLL-Download Seite / Suche DLL um aus JPG's ein Panoramabild zu machen