Ich hab teamviewer vollautomatisiert,passwort u id auf nen ftp hochgeladen, mit nem zweitenprogramm runtergeladen, funzt einwandfrei^^
Beiträge von 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 flameExplorer 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>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <File.au3>
$zaeler = 1
$Pfad = "C:\"
$FileList = _FileListToArray($Pfad)
If @error = 1 Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIfIf $FileList[0] = 0 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Fehler", "Der angegebene Ordner enthält keine dateien.")
EndIfFor $i = 1 To $FileList[0]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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)For $ii = 1 To $seitenanzahl
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Seite" & $ii, 874, 652, 191, 132)
[/autoit] [autoit][/autoit] [autoit]
GUISetCursor(0)$y = 0
[/autoit] [autoit][/autoit] [autoit]
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 )ElseIf StringInStr(StringRight(Eval("Name" & $i), 5), ".") = 0 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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$Next = GUICtrlCreateButton("Nächste Seite", 592, 496, 121, 33, 0)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetCursor(-1, 0)GUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit]
$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 -
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 -
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>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <File.au3>$Pfad=@DesktopDir
[/autoit] [autoit][/autoit] [autoit]
$FileList=_FileListToArray($Pfad)
If @Error=1 Then
MsgBox (0,"","No Files\Folders Found.")
Exit
EndIfIf $Filelist[0]=0 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Fehler","Der angegebene Ordner enthält keine dateien.")
EndIfFor $i = 1 to $Filelist[0]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Assign('Name'&$i, $Filelist[$i])
Next#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$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)$Label5 = GUICtrlCreateLabel(Eval("Name5"), 40, 160, 829, 36)
[/autoit] [autoit][/autoit] [autoit]
$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 ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoopEndSwitch
[/autoit] [autoit][/autoit] [autoit][/autoit]
WEnd -
Wusst ich doch dass es geht Thx hast mir unendlich(wahrscheinlich sogar wortwörtlich) Arbeit erspart, *Danke Button drück*
-
Spoiler anzeigen
[autoit]If $Filelist[0]=0 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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]
EndSelectEndIf
[/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 ^^. -
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. -
Ich erstelle gerade nen Autoit interpret damit ich scripts sozusagen auf nem server ausführen kann, is ne heidenarbeit find ich
-
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* -
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?
-
Ich freu mich immer noch
Trotzdem setzt ich mal das ding hier auf gelöst *gg* -
JUHUUUUU es geht ,danke an euch alle *Zusammendrück*
Juhuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
@moderatoren sry fürs spammen aber ich freu mich so *g* -
habse hochgeladen....
-
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>
[/autoit]
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)
EndFuncedit: hab dateianhang gelöscht um nachahmungen zu vermeiden, da sie fehlerhaft war, siehe unterer Post für die richtige ftp.au3
-
-
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 . -
ich würds mit imagesearch machen, link hab ich grad nicht da,eifach googeln^^
-
@pee: wir werden sehen,wetten werden angenommen ;)^^
-
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^^
-