im forum oda was?? also ich hab üba 8000 icons die teils auch modern sind, ich könnte die icons liefern
Beiträge von GtaSpider
-
-
Hallo!
ich hab mal ne kleine(oder auch etwas größere) frage..
wie kann man die CPU Temparatur auslehsen.. also mit obj oder am besten mit dll dateien oder... gibt es da überhaupt eine lösung?? wäre jdnfalls toll danke schonmal im voraus! -
Also ich habe eine Exe die ich als screensaver haben möchte(z.B.: D:\001.exe ) die kopier ich jetzt in den Ordner "%windir%\System32\*.scr also im
%windir%=C:\Windowsim beispiel: Von "D:\001.exe"zu"C:\Windos\System32\001.scr"
Funktioniert perfekt -
soweit ich weiß wird die datei im sys ordner gespeichert, heißt sam.* und wenn windows laüft nich zu öffnen.. aber guck mal bei google unter sam Password da sollte man was finden.. will kein link nennen wobei ich net glaub das das wirklich illegal is..
-
hat mich auch gewundet?!?tja peethebee weis halt sehr viel
-
Danke *Thumbs Up*
Edit
:)) COOL hier bin ich "Mitglied" geworden und im Windows-unattended "advanced member" :)) das waren zwei tolle tage :)) -
danke!, aba war wirklich net was ich gesucht hab.. ich hab nich danach gesucht wie man den ausschaltet sonder wann er an is sozusagen..
-
moin!
so meine frage: ich will ein bestimmtes Programm öffnen sobald der Screensaver aktiviert wird, also sobald z.b. 2 minuten lang nichts gemacht worden ist soll er ein Programm starten! wie kann ich jetzt herausfinden ob in den 2 min nichts(also keine maus bewegt, keine taste gedrückt, kein fenster sich öffnet,usw..)passiert ist?schonmal danke für mögliche antworten :]
-
nich schlecht :THUMBS UP:
aber: getmac hattes du doch lassen können oder?? bei mir zeigt er z.B. die mac an und dann noch ein kasten dahinter! ausserdem ist die Revision falsch.. die null kommt eigentlich am anfang weg..
sonst aber echt supi!! -
herzlichen glückwunsch! schaff ich auch ürgendwann! würde mich aba auch mal interresieren also mit dem click.. guck noch mal ein bisschen im intrernet..
-
tut mir leit...-_- aber: selbst ist der mann!
-
im offiziellen forum hab ich das gefunden: http://www.autoitscript.com/forum/index.php?showtopic=20406 großen respekt an den autor!guck einfach mal rein
-
Na!
Das ligt daran dass, wenn ein falscher name bearbeitet wird $nr = -5 ist bzw -4 -3 -2 -1
Also z.B.:
Merkel|Angelia|34
da fehlt doch was..da sind nämlich nur 3 angegebne und wenn das so ist gibt es auch logischer weise einen fehler, denn das würde dann so aussehen:
aRecords[-5]...
Beispiel wie mann es lösen könnte:Ganzer code:
C
Alles anzeigen#include <file.au3> #include <Array.au3> #include <GUIConstants.au3> dim $aRecords, $x, $listview $file = "Adressbuch.csv" GUICreate("Telefonlisten",530,300, 100,200,-1,$WS_EX_ACCEPTFILES) $listview = GUICtrlCreateListView ("Name |Vorname |Telefon|Schnurlos|Handy ",10,10,500,230) $bearbeiten = GUICtrlCreateButton("Bearbeiten",10,250,80,20) $speichern = GUICtrlCreateButton("Datei speichern",100,250,80,20) $anlegen = GUICtrlCreateButton("Datensatz anlegen",190,250,100,20) GUISetState() If Not _FileReadToArray($file, $aRecords) Then MsgBox(4096,"Error", " Error reading log to Array error:" & @error) Exit EndIf For $x = 1 to $aRecords[0] GUICtrlCreateListViewItem($aRecords[$x],$listview) Next func bearbeiten() $markiert = GUICtrlRead($listview) $nr = $markiert - 5 If $nr < 6 Then MsgBox(16,"","Invalid Name") Return EndIf MsgBox(0,"","Name:" & $aRecords[$nr]) $input = InputBox("Bearbeiten","Datensatz kann jetzt bearbeitet werden",$aRecords[$nr]) _ArrayDelete( $aRecords,$nr) _ArrayInsert( $aRecords,$nr,$input) GUICtrlDelete($listview) sleep(50) $listview = GUICtrlCreateListView ("Name |Vorname |Telefon|Schnurlos|Handy ",10,10,500,230);,$LVS_SORTDESCENDING) For $x = 1 to $aRecords[0] GUICtrlCreateListViewItem($aRecords[$x],$listview) Next EndFunc Func speichern() FileOpen($file,2 ) For $x = 1 to $aRecords[0] FileWriteLine($file,$aRecords[$x]) FileClose($file) Next EndFunc While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop case $msg = $bearbeiten bearbeiten() case $msg = $speichern speichern() Case Else ;~ ;;; EndSelect WEnd
-
guck ma hier, hier hab ich auch was geschrieben:
http://autoit.aufwaerts.de/thread.php?threadid=95&sid= -
JUHU!!man kann jetzt auch ab ersten beitrag dateien anhängen also ist das hier total überflüssig
-
Hallo!
Mein Programm Pingt alle Computer an die im Netz und an sind. Wer also sowas braucht hier das Skript(die nbtstat.exe gibts in der Zip genauo wie die Pingall.exe(aber brauchst du nur wenn du kein Xp hast))
*EDIT [22.01.06]* Neue Version!
- Verwendet RemoteDesktop
- Reastart(Wiederhol) funktion
- Wenn _iptoname(...) = "" Dann $iptoname = "No Name"*EDIT [26.01.06]* Neue Version!
- Verwendet Mac Adresse
- Reastart(Wiederhol) funktion(bug wurde entfernt)
- Kopieren(kopiert den Wert)*EDIT [3.2.06]* Neue Version
-_IpToName wurde verbessert!
-"Öffnen" damit kann man die momentane IP im ie seheh(z.B.:Router)
-Die Prozentangabe stimmt!
-Besseres auswählen der Pings!*EDIT [11.2.06]* Neue Version
-"Öffnen" unterstützt FireFox und Datei Explorer!
-IpRange wurde verbessert dank dem UDF von gafrost!
-Alle Texte auf deutsch!*EDIT [12.2.06]* Neue Version
-Doppelcklick ist das gleiche wie wenn man unten auf Öffnen drückt
-DateiExplorer kann nun die Freigegebenden Dateien des ausgewählten Pc anzeigen
-"Öffnen" unterstützt auch nur IE!
-IpRange wurde verbessert da man jetzt auch auf enter oder W drücken kann
-Standard mit D*EDIT [2.9.08]* Neue Version
-Funktioniert nun mit AutoIt 3.2.12.1 oder höher.
-Abbrechen wurde neu bezeichnet.Source und Exe in der ZIP. Ist unsauber programmier, weiss ich wohl. Aber hab vor 2 Jahren damit angefangen und hab jetzt nur schnell für die Aktuelle Version PingAll quick'n'dirty umgeschrieben Danke an FranzP für den tipp!
Mfg Spider
-
Wandelt eine IP in einen Namen um! Du gibst z.B.: 192.168.0.1 ein und rauskommt z.B.:SERVER-01
Code
Alles anzeigenFunc _IpToName($ip) $outread = "ERROR: Kann Programm NbtStat.exe nicht finden!" Ping($ip,50) If @error Then MsgBox(16,"Ping error","Die adresse "&$ip&" konnte nich gefunden werden, stellen Sie sicher das der Rechner online ist!") Exit EndIf $run = Run(@ComSpec&" /c nbtstat -a "&$ip, @SystemDir, @SW_HIDE, 6) Sleep(500) $stdoutread = StdoutRead($run) If Not @error = -1 Then $outread=$stdoutread $stderrRead = StderrRead($run) If Not @error = -1 Then $outread = $stderrRead $ss = StringSplit($outread,@CRLF) If $ss[0] < 23 Then $outread = "(No Name Available)" Else $outread = $ss[23] $outread = StringReplace($outread,Chr(129),"ü") $outread = StringReplace($outread,Chr(154),"Ü") $outread = StringReplace($outread,Chr(142),"Ä") $outread = StringReplace($outread,Chr(132),"ä") $outread = StringReplace($outread,Chr(153),"Ö") $outread = StringReplace($outread,Chr(148),"ö") $outreadlen = StringLen(" LAN-Verbindung:Knoten-IP-Adresse: [] Bereichskennung: [] NetBIOS-Namentabelle des Remotecomputers Name Typ Status --------------------------------------------- ")+StringLen($ip) $outread = StringTrimLeft($outread,4) $outread = StringSplit($outread," ") $outread = $outread[1] $outread = StringReplace($outread," ","",0) EndIf Return $outread EndFunc
Mfg Max
-
ja, genau!! die lösung heißt nbtstat.exe! Ich hab auch ein UDF Geschrieben:
Code
Alles anzeigenFunc _IpToName($ip) $outread = "ERROR: Kann Programm NbtStat.exe nicht finden!" Ping($ip,50) If @error Then MsgBox(16,"Ping error","Die adresse "&$ip&" konnte nich gefunden werden, stellen Sie sicher das der Rechner online ist!") Exit EndIf $run = Run(@ComSpec&" /c nbtstat -a "&$ip, @SystemDir, @SW_HIDE, 6) Sleep(500) $stdoutread = StdoutRead($run) If Not @error = -1 Then $outread=$stdoutread $stderrRead = StderrRead($run) If Not @error = -1 Then $outread = $stderrRead $ss = StringSplit($outread,@CRLF) If $ss[0] < 23 Then $outread = "(No Name Available)" Else $outread = $ss[23] $outread = StringReplace($outread,Chr(129),"ü") $outread = StringReplace($outread,Chr(154),"Ü") $outread = StringReplace($outread,Chr(142),"Ä") $outread = StringReplace($outread,Chr(132),"ä") $outread = StringReplace($outread,Chr(153),"Ö") $outread = StringReplace($outread,Chr(148),"ö") $outreadlen = StringLen(" LAN-Verbindung:Knoten-IP-Adresse: [] Bereichskennung: [] NetBIOS-Namentabelle des Remotecomputers Name Typ Status --------------------------------------------- ")+StringLen($ip) $outread = StringTrimLeft($outread,4) $outread = StringSplit($outread," ") $outread = $outread[1] $outread = StringReplace($outread," ","",0) EndIf Return $outread EndFunc
kann ich ja mal hier auf die datenbank packen!
-
hallo! Hier habe ich mal wider ein Programm geschrieben mit dem mann:
-Ornder löschen kann, wo aber nicht die Ordner sondern nur alle unterordner gelöscht werden, aber bevor die unterordner gelöscht werden, werden alle unter(unter(unter(usw..)))dateien entfernt!
-mit dem man alle dateien aus einem Ordner löschen kann, aber ohne die Unter(unter(usw..))Ordner zu löschen sondern halt nur die dateien!naja hier das skript:
C
Alles anzeigen#include <file.au3> #include <GUIConstants.au3> $dir = 0 $Form1 = GUICreate("Delete Dir's", 534, 230, 194, 125) $lab = GUICtrlCreateLabel("Warte auf eingabeaufforderungen...", 0, 192, 533, 27) $Progress1 = GUICtrlCreateProgress(0, 168, 534, 17) GUICtrlSetColor(-1, 0xC5E7F6) $Avi1 = GUICtrlCreateAvi("shell32.dll", 164, 0, 0, 304, 60) $Radio1 = GUICtrlCreateRadio("Alle Ordner Löschen", 0, 64, 121, 17) $Radio2 = GUICtrlCreateRadio("Nur Dateien Lösche(Ordnerstrucktur bleibt)", 0, 80, 233, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Ordner1 = GUICtrlCreateInput(FileGetLongName(@TempDir), 304, 16, 193, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Ordner1", 304, 0, 42, 17) $Button1 = GUICtrlCreateButton("..", 496, 16, 27, 25) $Checkbox1 = GUICtrlCreateCheckbox("Aktiviert", 360, 0, 97, 15) GUICtrlSetState(-1, $GUI_CHECKED) $ordner2 = GUICtrlCreateInput("", 304, 56, 193, 21, -1, $WS_EX_CLIENTEDGE) $drive ="" $ss = StringSplit(@TempDir,"") For $for = 1 To $ss[0]-1 $drive = $drive & $ss[$for] &"" Next $drive = $drive & "Temporary Internet Files" GUICtrlSetData($ordner2,FileGetLongName($drive)) GUICtrlCreateLabel("Ordner2", 304, 40, 44, 17) $Button2 = GUICtrlCreateButton("..", 496, 56, 27, 25) $Checkbox2 = GUICtrlCreateCheckbox("Aktiviert", 360, 40, 97, 15) GUICtrlSetState(-1, $GUI_CHECKED) $Ordner3 = GUICtrlCreateInput("", 304, 96, 193, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Ordner3", 304, 80, 42, 17) $Button3 = GUICtrlCreateButton("..", 496, 96, 27, 25) $Checkbox3 = GUICtrlCreateCheckbox("Aktiviert", 360, 80, 97, 15) $start = GUICtrlCreateButton("Start >", 0, 104, 299, 57) GUICtrlSetFont(-1, 20, 400, 0, "Arial Black") GUISetState(@SW_SHOW) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button1 $fsf = FileSelectFolder("Ordner 1","") If @error Then ContinueLoop GUICtrlSetData($Ordner1,$fsf) Case $msg = $Button2 $fsf = FileSelectFolder("Ordner 2","") If @error Then ContinueLoop GUICtrlSetData($Ordner2,$fsf) Case $msg = $Button3 $fsf = FileSelectFolder("Ordner 3","") If @error Then ContinueLoop GUICtrlSetData($Ordner3,$fsf) Case $msg = $start If GUICtrlRead($Radio1) = $GUI_CHECKED Then $dir = 1 GUICtrlSetState($start,$GUI_DISABLE) If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then If StringLeft(GUICtrlRead($Ordner1),StringLen(@WindowsDir)) = @WindowsDir Then If MsgBox(52,"Windows?","Der Ordner"&@CR&GUICtrlRead($Ordner1)&@Cr&"ist im Windows Ordner! Wollen Sie ihn wirklich löschen?") = 7 Then GUICtrlSetState($start,$GUI_ENABLE) ContinueLoop EndIf EndIf If not FileExists(GUICtrlRead($Ordner1)) Then MsgBox(48,"!!","Der Ordner"&@CR&GUICtrlRead($Ordner1)&@Cr&"wurde nicht gefunden!") GUICtrlSetState($start,$GUI_ENABLE) ContinueLoop EndIf Global $FOLDERS_TO_SEARCH_IN[2] = [1, GUICtrlRead($Ordner1)] Global $DRIVE_SIZE = DirGetSize(GUICtrlRead($Ordner1), 1) Global $FILES_SCANNED = 0 Global $LAST_PROGRESS_DATA = 0 Global $NEW_PROGRESS_DATA = 0 ScanFolders() EndIf If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then If StringLeft(GUICtrlRead($Ordner2),StringLen(@WindowsDir)) = @WindowsDir Then If MsgBox(52,"Windows?","Der Ordner"&@CR&GUICtrlRead($Ordner2)&@Cr&"ist im Windows Ordner! Wollen Sie ihn wirklich löschen?") = 7 Then GUICtrlSetState($start,$GUI_ENABLE) ContinueLoop EndIf EndIf If not FileExists(GUICtrlRead($Ordner2)) Then MsgBox(48,"!!","Der Ordner"&@CR&GUICtrlRead($Ordner3)&@Cr&"wurde nicht gefunden!") GUICtrlSetState($start,$GUI_ENABLE) ContinueLoop EndIf Global $FOLDERS_TO_SEARCH_IN[2] = [1, GUICtrlRead($Ordner2)] Global $DRIVE_SIZE = DirGetSize(GUICtrlRead($Ordner2), 1) Global $FILES_SCANNED = 0 Global $LAST_PROGRESS_DATA = 0 Global $NEW_PROGRESS_DATA = 0 ScanFolders() EndIf If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then If StringLeft(GUICtrlRead($Ordner3),StringLen(@WindowsDir)) = @WindowsDir Then If MsgBox(52,"Windows?","Der Ordner"&@CR&GUICtrlRead($Ordner3)&@Cr&"ist im Windows Ordner! Wollen Sie ihn wirklich löschen?") = 7 Then GUICtrlSetState($start,$GUI_ENABLE) ContinueLoop EndIf EndIf If not FileExists(GUICtrlRead($Ordner3)) Then MsgBox(48,"!!","Der Ordner"&@CR&GUICtrlRead($Ordner3)&@Cr&"wurde nicht gefunden!") GUICtrlSetState($start,$GUI_ENABLE) ContinueLoop EndIf Global $FOLDERS_TO_SEARCH_IN[2] = [1, GUICtrlRead($Ordner3)] Global $DRIVE_SIZE = DirGetSize(GUICtrlRead($Ordner3), 1) Global $FILES_SCANNED = 0 Global $LAST_PROGRESS_DATA = 0 Global $NEW_PROGRESS_DATA = 0 ScanFolders() EndIf GUICtrlSetState($start,$GUI_ENABLE) EndSelect WEnd Exit Func ScanFolders() GUICtrlSetState ($Avi1, 1) Local $i = 1 Local $No_Delete Local $hSearch Local $ERROR Local $sCurrentFile Local $aFileTime Local $aShortcutTarget Do $hSearch = FileFindFirstFile($FOLDERS_TO_SEARCH_IN[$i] & "\*.*") $ERROR = 0 Do $sCurrentFile = FileFindNextFile($hSearch) If @error Then $ERROR = 1 Else GUICtrlSetData($lab,$FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile&"("&$NEW_PROGRESS_DATA&"%)") If StringInStr(FileGetAttrib($FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile), "D") Then If $dir = 1 Then DirRemove( $FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile) $FOLDERS_TO_SEARCH_IN[0] += 1 ReDim $FOLDERS_TO_SEARCH_IN[$FOLDERS_TO_SEARCH_IN[0] + 1] $FOLDERS_TO_SEARCH_IN[$FOLDERS_TO_SEARCH_IN[0]] = $FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile Else FileSetAttrib($FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile,"-RH") _FileCreate($FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile) FileDelete($FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile) If FileExists($FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile) Then $No_Delete = $No_Delete & $FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile & @CR ;~ MsgBox(0,"",$FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile) Sleep(10) $FILES_SCANNED += 1 EndIf $NEW_PROGRESS_DATA = Ceiling(($FILES_SCANNED / $DRIVE_SIZE[1]) * 100) If $NEW_PROGRESS_DATA > $LAST_PROGRESS_DATA Then GUICtrlSetData($Progress1,$NEW_PROGRESS_DATA) $LAST_PROGRESS_DATA = $NEW_PROGRESS_DATA EndIf EndIf Until $ERROR FileClose($hSearch) $i += 1 Until $i > $FOLDERS_TO_SEARCH_IN[0] GUICtrlSetState ($Avi1, 0) GUICtrlSetData($lab,$FOLDERS_TO_SEARCH_IN[$i-1] & "" & $sCurrentFile&"("&$NEW_PROGRESS_DATA&"%)") If Not $No_Delete = "" Then MsgBox(48,"Programm Verwendet? (timeout:5)","Diese dateien konnten nicht Gelöscht werden, überprüfen Sie ob ein Programm darauf zugreift:"&@CR&$No_Delete,5) EndFunc
-
danke werde es mal probieren..