Beiträge von Jam00

Jam00

Wie jetzt, kommt nichts in die ListView?
Oder meinst du es wird nicht umbenannt?
Du muss dann den Text eingeben, der ersetzt werden soll, und dann den Text mit dem der Text ersetzt werden soll!
Also, angenommen die datei heist "Neu.txt" so, dann gibst du bei "Zu ersetzender Text" z.B. "Neu" ein und bei Ersetzen mit "Alt". Dann klcikst du auf Beispiel anzeigen, guckst ob es stimmt, und dann kannst du ersetzen anklciken, dann werden die Dateien Umbenannt

Jam00

Upsa^^
Ähm, was ist wenn du eine Datei hinzufügst?

Jam00

@mumu
An deiner Stelle fürde ich erstmal ein Grundlagen Tutorial durchmachen, aber nicht nur sowas wie "Hello Word"

Jam00

Und auserdem wenn ich richtig verstehe was du machen willst muss du dir nur mal mein Programm angucken!
Und etwas aus dem Internet runterladen geht so:

Spoiler anzeigen

[autoit]

$Link = ""
$Speicher = StringSplit ($Link,"/")
$Byte = InetGetSize ($Link)
$Save = @ScriptDir & "\" & $Speicher[$Speicher[0]]
InetGet ($Link,$Save,1,1)
ProgressOn ( "0%","Download","",Default,Default,16)
$ProzentOld = ""
Do
$Prozent = Round (@InetGetBytesRead / $Byte * 100,0)
If $ProzentOld <> $Prozent Then
ProgressSet ($Prozent,$Prozent)
$ProzentOld = $Prozent
EndIf
Until @InetGetActive = 0
ProgressOff()

[/autoit]

Jam00

Hmm...stimmt vieleicht mit deiner Internetverbindung was nicht?
Geht doch mal in die CMD und gib da Ping https://autoit.de/www.google.de ein und guck ob das geht! Eigentlich sollten es dann ja 0% Verlust sein!
Man kann das Script natürlich auch so Schreiben, aber das mach keinen Unterscheid, glaub ich!

[autoit]

_waitinetconnect()

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

Func _waitinetconnect()
Do
Sleep(100)
Until Ping ("www.google.de")
EndFunc ;==>_waitinetconnect

[/autoit]

Jam00

Hier, ich hatte mal ein Programm geschreiben, kanst du dir ja mal angucken! Ich hab es bis jetzt noch nicht Gepostet, weil ich nicht wusste das es jemanden interesiert^^

Jam00

Ich hab für meine Schwester mal einen kleines Programm geschreiben, denn sie läd sich als Videos aus YouTube, und dann Stand da bei über 100 Titeln immer YouTube vor, und sie hat mich gefragt wie sie das alles auf einmal wegbekommt, da hab ich ihr gesagt das ich ihr ein Programm schreiben kann, gesagt Getan
Man kann damit so viele Datein auf einmal auswählen wie man will, und bei denen dann Einen Text ersetzen lassen, durch nichts oder was anderes, mit Beispiel in einer ListView.

Spoiler anzeigen

[autoit]

#include <GuiListView.au3>
#include <Array.au3>
$INI = @ScriptDir & "\Konfig.ini"
#region ### START Koda GUI section ### Form=
$FORM1 = GUICreate("Datei-Umbenner", 515, 476, 282, 277, 0x00040000)
$LISTVIEW1 = GUICtrlCreateListView("Dateiname|Neuer Name|Pfad", 2, 2, 510, 326)
GUICtrlSendMsg(-1, 4126, 0, 150)
GUICtrlSendMsg(-1, 4126, 1, 150)
GUICtrlSendMsg(-1, 4126, 2, 200)
$INPUT1 = GUICtrlCreateInput(IniRead ($INI,"FileOpen","IN1",""), 2, 358, 509, 21)
$BUTTON1 = GUICtrlCreateButton("Hinzufügen", 436, 330, 75, 25, 0)
$BUTTON2 = GUICtrlCreateButton("Entfernen", 361, 330, 75, 25, 0)
$LABEL1 = GUICtrlCreateLabel("Zu ersetzender Text:", 2, 340, 102, 17)
$BUTTON3 = GUICtrlCreateButton("Ersetzen", 436, 422, 75, 25, 0)
$INPUT2 = GUICtrlCreateInput(IniRead ($INI,"FileOpen","IN2",""), 3, 400, 509, 21)
$LABEL2 = GUICtrlCreateLabel("Ersetzen mit:", 3, 382, 64, 17)
$BUTTON4 = GUICtrlCreateButton("Liste Leeren", 286, 330, 75, 25, 0)
$BUTTON5 = GUICtrlCreateButton("Beispiel anzeigen", 336, 422, 100, 25, 0)
$Check = GUICtrlCreateRadio ("Dateien",20,425)
GUICtrlSetState (-1,1)
GUICtrlCreateRadio ("Ordner",80,425)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=
GUIRegisterMsg(0x0024, "MY_WM_GETMINMAXINFO")
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case -3
Exit
Case $BUTTON4
_GUICTRLLISTVIEW_DELETEALLITEMS($LISTVIEW1)
Case $BUTTON2
_GUICTRLLISTVIEW_DELETEITEMSSELECTED($LISTVIEW1)
Case $BUTTON1
_HINZUFUEGEN()
Case $BUTTON5
_BEISPIEL()
Case $BUTTON3
_UMBENENNEN()
EndSwitch
WEnd

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

Func _HINZUFUEGEN()
If GUICtrlRead ($Check) = 1 Then
$FILE = FileOpenDialog("Dateiauswahl", IniRead($INI, "FileOpen", "Pfad", ""), "Alle (*.*)", 4)
If @error Then Return
$SFILE = StringSplit($FILE, "|")
If $SFILE[0] > 1 Then
IniWrite($INI, "FileOpen", "Pfad", $SFILE[1])
If $SFILE[0] > 0 Then
For $1 = 2 To $SFILE[0]
GUICtrlCreateListViewItem($SFILE[$1] & "||" & $SFILE[1], $LISTVIEW1)
Next
EndIf
Else
$SFILE = StringSplit($FILE, "\")
$Pfad1 = StringLeft ($FILE,StringLen ($FILE) - StringLen ($SFILE[$SFILE[0]]))
GUICtrlCreateListViewItem($SFILE[$SFILE[0]] & "||" & $Pfad1, $LISTVIEW1)
IniWrite($INI, "FileOpen", "Pfad", $Pfad1)
EndIf
Else
$Ordner = FileSelectFolder ("Ordnerauswahl",Default,0,IniRead ($INI,"FileOpen","Pfad",@DesktopDir))
If @error Then Return
$Filter = InputBox ("Dateiendung","Gib die Dateiendung an" & @CRLF & "Beispiel: *.mp3",IniRead ($INI,"FileOpen","Filter","*.mp3"))
If @error Then Return
IniWrite ($INI,"FileOpen","Filter",$Filter)
$First = FileFindFirstFile ($Ordner & "\" & $Filter)
While 1
$FILE = FileFindNextFile($First)
If @error Then ExitLoop
$SFILE = StringSplit ($FILE,"\")
$Pfad = StringLeft ($FILE,StringLen ($FILE) - StringLen ($SFILE[$SFILE[0]]) -1)
GUICtrlCreateListViewItem($SFILE[$SFILE[0]] & "||" & $Pfad, $LISTVIEW1)
Wend
EndIf
EndFunc

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

Func _BEISPIEL()
$TEXT = GUICtrlRead($INPUT1)
$ER = GUICtrlRead($INPUT2)
IniWrite ($INI,"FileOpen","IN1",$TEXT)
IniWrite ($INI,"FileOpen","IN2",$ER)
For $1 = 0 To _GUICTRLLISTVIEW_GETITEMCOUNT($LISTVIEW1)
_GUICTRLLISTVIEW_SETITEMTEXT($LISTVIEW1, $1, StringReplace(_GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 0), $TEXT, $ER), 1)
Next
EndFunc

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

Func _UMBENENNEN()
_BEISPIEL()
For $1 = 0 To _GUICTRLLISTVIEW_GETITEMCOUNT($LISTVIEW1)
FileMove(_GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 2) & "\" & _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 0), _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 2) & "\" & _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 1))
Next
_GUICTRLLISTVIEW_DELETEALLITEMS($LISTVIEW1)
EndFunc

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

Func MY_WM_GETMINMAXINFO($HWND, $MSG, $WPARAM, $LPARAM)
If $HWND = $FORM1 Then
Local $MINMAXINFO = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $LPARAM)
DllStructSetData($MINMAXINFO, 7, 515)
DllStructSetData($MINMAXINFO, 8, 476)
EndIf
EndFunc

[/autoit]

Jam00

@satinez
Wo ist denn das Script?

Jam00

Hey, das ist klasse!

Jam00

Oscar
Aber 100%
Sonst hätte ich auch 3 Scripte nicht mehr, die hat mir ein Virus geplättet, aber ich hatte sie Gepostet

Jam00

Spoiler anzeigen

[autoit]

HotKeySet("{0}", "Taste0")
HotKeySet("{Pause}","Quit")

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

TogglePause()

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

func Taste0()
HotKeySet("{0}")
$i = 0
if $i = 0 then
send("{0}")
$i = 1
Else
send("{#}")
$i = 0
EndIf
EndFunc

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

Func TogglePause()
ToolTip('Skript pausiert',0,0)
HotKeySet("{0}", "Taste0")
While 1
sleep(100)
WEnd
EndFunc

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

func Quit()
Exit
EndFunc

[/autoit]

Jam00

Hier guck dir meinen Chat mal an:

Jam00

Okay, aber anders geht das nicht?

Jam00

Wie kann man die Hintergrundfarbe eines Tabs ändern?
Ich hab es einfach so Probiert:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 481, 239, 193, 125)
$Tab1 = GUICtrlCreateTab(2, 2, 473, 233)
GUICtrlSetBkColor (-1,0x0000FF)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

Case $Tab1
EndSwitch
WEnd

[/autoit]

Aber das gehts nicht, hat jemand eine Idee?

Jam00

Cool, danke BugFix!
Könnte ja auch mal jemad der Übersetzer der Hilfen in die Hilfe schreiben!
kann ich die *.chm eigentlich bearbeiten?

Jam00

So vieleicht?

Spoiler anzeigen

[autoit]

Func Form2Minimize()
If $Einstellung_Minimieren = 1 Then
If $Einstellung_Tray = 1 Then
MsgBox(0, "", "")
GUISetState (@SW_HIDE,$Form2) ; Warum funzt das net?
EndIf
EndIf
EndFunc ;==>Form2Minimize

[/autoit]

Jam00

Hallo, mir ist gerade aufgefallen das es bei _IsPressed in der Hilfe nicht die Tasten ö/ä/ü gibt! Gibt es die wirklich nicht, oder stehen die nur nicht in der Hilfe?

Jam00

So ist das Problem, das nix mehr da ist:

Spoiler anzeigen

[autoit]

#NoTrayIcon

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

#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

HotKeySet ( "{ESC}", "_ende" )

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

_GDIPlus_Startup()

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

$hGui=GUICreate ( "Sonne", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED,$WS_EX_TRANSPARENT,$WS_EX_TOOLWINDOW))
$hWnd = WinGetHandle("Sonne")
GUISetState ()

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

$hGraphic=_GDIPlus_GraphicsCreateFromHWND( $hwnd )
$Pinsel=_GDIPlus_PenCreate ( 0xFFFFFF00, 10, 2 )
_GDIPlus_GraphicsDrawArc ( $hGraphic, @DesktopWidth/1.1, -5, 170, 170, 0, 260, $Pinsel )

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

While 1
WEnd

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

Func _ende()
_GDIPlus_PenDispose ( $Pinsel )
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_Shutdown()
Exit
EndFunc

[/autoit]

Jam00

Alina
Ich wusste garnicht das Spammer gesetzeswiedrig sind
Dann haben sich aber schon viele per Batch-Datei strafbar gemacht^^

Jam00

Auszug aus den Forumregeln:

Zitat

Folgende Inhalte sind nicht erwünscht oder gar komplett verboten. Das Team behält es sich ausdrücklich vor, die Umsetzung der Regeln je nach Schweregrad zu verwarnen, zu löschen oder gar komplett zu sperren.

- Tools, um Nachrichten unerwünscht oft zu versenden (Spamming-Tools)

Beiträge von Jam00

Datei-Umbenner

Datei-Umbenner

Maus script gesucht!

ListView

Desktop Radio 3.9

ListView

Datei-Umbenner

MUMBLE - Fenster ansprechen

Inputbox

Wer kann mir mein Skipt zurück holen?

Simplen Parameter übergeben

TCP - IP Chat

Tap-BkColor

Tap-BkColor

Wo sind ö/ä/ü bei _IsPressed?

$WS_EX_Toolwindow will nicht bzw. ins Tray minimieren?

Wo sind ö/ä/ü bei _IsPressed?

Gui nur manchmal transparent

F1 + F2?!

F1 + F2?!