hier meine Sig ...
Beiträge von Schnuffel
-
-
das ist eine lokale Parameter-Datenübergabe an das CDO-Object
Erklärung ist schwierig.
Das sieht zwar aus wie eine Internetadresse, wird aber nicht so behandelt. -
was heist hier AutoIt'ler und nix Flash.
Ich find die Möglichkeit grundsätzlich gut.
Aber Dein Problem läßt sich vielleicht ganz einfach lösen:
[autoit]$gui = GUICreate("Flash-GUI", 100, 100, Default, Default, 0x80000000)
[/autoit]
$obj = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$test = GUICtrlCreateObj($obj, 0, 0, 100, 100)
With $obj
.Movie = @ScriptDir & "\test.swf" ; Pfad zur SWF
.wmode = "transparent" ; Transparenz was nicht funktioniert
EndWith
GUISetState()
WinSetTrans($gui,"",50)
Do
Until GUIGetMsg() = -3 ; Escape beendet -
dieser Thread sollte hilfreich sein...
http://www.autoit.de/index.php?page=Thread&postID=114285#post114285 -
häng doch mal bitte die Bilder mit an, sonst muss ich mir auch noch selber welche suchen ...
-
es gibt auch "leere" dll's.
Fliegt hier im Forum glaube ich auch irgendwo rum.
Wenn Du die nimmst, kannst Du für jedes Projekt die Sachen rein kopieren, die du brauchst.Erstellen kannst Du dll's mit AutoIt nicht.
-
das klingt danach, als wolltest Du den Bootsektor im Laufenden Windows löschen.
Ich glaube, dass wird nicht funktionieren ... -
nachdem mal die Frage aufkam, wie man eine Reihe von PC's so mal eben schnell durchpingen kann,
kam ich auf die Idee dieses kleine Prog zu schreiben.Vielleicht gibt es sowas ja schon (ziemlich sicher sogar...)
Egal, vielleicht kann es ja der Ein oder Andere brauchen.Die IP-Adressen müssen im ScriptDir in der Datei ip-adressen.txt eingetragen werden. ich hab mal ein Beispiel mit angehängt ...
Edit:
nachdem Sprenger120 das Script um eine on/off Checkbox für alle Einträge erweitert hat,
habe ich diese nur noch angepasst, damit sie auch logisch an ist, wenn alle Einträge an sind und off ist, wenn alle Einträge off sind.
Danke an Sprenger120 für die Erweiterung
gerne mehr -
ich schließe mich SeuBo an und sage: Zeile 41 + 46 ==> EndIf und der Tag ist Dein Freund
-
also ich bastle zur Zeit auch an einem Ping my IP's Prog rum.
Auch ich bin am Ping nicht vorbei gekommen.
Festzustellen wäre, dass der Ping an sich eine flotte Sache ist, wenn das Ziel erreichbar ist und auch antwortet.
Der Timeout läßt sich afaik nicht abkürzen, da intern so verankert. (1000ms)In meinem Script habe ich das so gemacht, dass ich explizit nur die Adressen anpinge, die auch vorhanden sind.
Dazu erstelle ich mir ein Array mit den IP-Adressen, die ich pingen will um zu sehen, ob vorhanden und wie schnell...Wenn eine IP-Adresse ausfällt leuchtet rot und wird für die nächste Ping Schleife rausgenommen, bis ich diese manuell wieder in das Array der anzupingenden integriere.
In meinem lokalen/VPN Netz habe ich lt. Timer Ping zeiten von ca. 16ms.
D.h. pro Sec/Durchlauf. ca. 60 Rechner pingen. Ich denke das sollte reichen um schnell zusehen wenn ein Rechner abkackt ... -
na dann ich auch noch ...
[autoit]#Include <Date.au3>
[/autoit]
Local $string = "11.04.2010 20:05"
$a = StringSplit($string,". :")
$date_formatted = StringFormat("%s/%s/%s %s:%s:00",$a[3],$a[2],$a[1],$a[4],$a[5])
MsgBox(0, 'Differenz', "Die Differenz beträgt: " & _DateDiff("n", $date_formatted, _NowCalcDate()&" "&_NowTime()) & " Minuten") -
schau Dir mal die Funktion _DateDiff an.
Damit solltest Du Dein Problem lösen können.
Musst halt Deinen String für die Funktion entsprechend formatieren... -
ich würde das so machen:
[autoit]MsgBox(0, '', "0xFF"&StringTrimLeft(Hex(3881263),2))
[/autoit] -
ändert das Icon eines beliebigen Ordners,
auch im Netzwerk (was Windows so eigentlich nicht vorsieht)
Wenn der Ordner nicht existiert, wird er erstellt.Beispiel zum Erstellen eines "versteckten" Ordners ist dabei
Spoiler anzeigen
[autoit]#include-once
[/autoit] [autoit][/autoit] [autoit]; #INDEX# =======================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Title .........: _FolderSetIcon
; AutoIt Version.: 3.0.1++
; Language.......: English
; Description....: Function that changes a Folder Icon.
; ===============================================================================================================================; #FUNCTION# ====================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Name...........: _FolderSetIcon()
; Description ...: Set a new Icon for an given Folder
; Syntax.........: _FolderSetIcon($FolderPath, $IconDll[, $IconIndex])
; Parameters ....: $FolderPath - the complete Path to Folder (if the folder not exists it will be created)
; $IconDll - The Path to an dll-file containig the Icon (when not set, then the Standard Folder-Icon from Shell32.dll is set)
; $IconIndex - Index of the Icon in the dll-file, default is 1
; Return values .: Success: - 1
; Failure: - 0
; @error - 1
; @Extended - 1 = given .dll-/.ico-File don't exist
; - 2 = can't create Folder
; - 3 = can't set attributes of the Folder (+S)
; - 4 = can't write in ini-Section of Desktop.ini
; - 5 = can't set attributes of Desktop.ini (+SH)
; Author ........: Schnuffel at autoit.de
; Modified.......:
; Remarks .......: no remarks
; Related .......:
; Link ..........:
; Example .......: Yes
; Example 1......: _FolderSetIcon("C:\new", @SystemDir & "\Shell32.dll", 23)
; changes the icon for the given Folder, if the folder not exists it will be created
;
; Example 2......: _FolderSetIcon(@ScriptDir & "\" & CHR(160), @SystemDir & "\Shell32.dll", 50)
; creates an Folder with "NoName" and "NoIcon", Foldername = CHR(160)
;
; Example 3......: _FolderSetIcon(@ScriptDir&"\" & "My New Folder",@WindowsDir & "\SetupIcon.ico")
; changes the icon for the given Folder, if the folder not exists it will be created. The given Icon can be an .ico File
; ===============================================================================================================================Func _FolderSetIcon($pFSI, $fFSI = "%SystemRoot%\system32\SHELL32.dll", $nIconFI = 0)
[/autoit]
Local $bFSIFC = False, $sFSIOD, $sFSIODHdl, $nFSIErr = 0, $pFSIDO = $pFSI & "\Desktop.ini"
If $fFSI = "%SystemRoot%\system32\SHELL32.dll" Then $nIconFI = 4
If StringRight($fFSI,3) = "ico" Then $nIconFI = 0
Do
If Not FileExists($fFSI) Then
$nFSIErr = 1
ExitLoop
EndIf
If Not FileExists($pFSI) Then
DirCreate($pFSI)
If @error Then
$nFSIErr = 2
ExitLoop
EndIf
$bFSIFC = True
Else
If FileExists($pFSIDO) Then $sFSIOD = FileRead($pFSIDO)
EndIf
FileSetAttrib($pFSI, "+S")
If @error Then
$nFSIErr = 3
ExitLoop
EndIf
Switch @OSVersion
Case "WIN_2008R2", "WIN_7", "WIN_2008", "WIN_VISTA"
IniWriteSection($pFSIDO, ".ShellClassInfo", "LocalizedResourceName=" & $fFSI & "," & $nIconFI)
If @error Then
$nFSIErr = 4
ExitLoop
EndIf
Case "WIN_2003", "WIN_XP", "WIN_XPe", "WIN_2000"
IniWriteSection($pFSIDO, ".ShellClassInfo", "IconFile=" & $fFSI & @LF & "IconIndex=" & $nIconFI)
If @error Then
$nFSIErr = 4
ExitLoop
EndIf
EndSwitch
FileSetAttrib($pFSIDO, "+SH")
If @error Then
$nFSIErr = 5
ExitLoop
EndIf
ExitLoop
Until 1
If $nFSIErr = 0 Then
Return 1
Else
If $bFSIFC = True Then
DirRemove($pFSI,1)
ElseIf $sFSIOD <> "" Then
$sFSIODHdl = FileOpen($pFSIDO,2)
FileWrite($sFSIODHdl, $sFSIOD)
FileClose($sFSIODHdl)
EndIf
Return SetError(1,$nFSIErr,0)
EndIf
EndFunc
Edit:
- Errorabfrage und Prüfung Betriebssystemversion eingebaut
- Example für einbinden einer .ico-Datei als Icon eingefügt
Edit2:
- FilePrüfung eingefügt, Errorhandling optimiert -
Zitat
ich möchte mit folgendem code, 2,3 oder auch 4 stellige zahlen finden und auslesen...
-
also ich würde das so machen:
[autoit]#include <Array.au3>
[/autoit][autoit][/autoit][autoit]
#include <file.au3>Global $ergebnis, $t, $rest[1]
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
_FileReadToArray("stanz.txt",$ergebnis)
For $i = 1 To UBound($ergebnis)-1
$t = StringSplit($ergebnis[$i],@TAB)
_ArrayAdd($rest,$t[1])
Next
$rest[0] = UBound($rest)-1
_ArrayDisplay($rest) -
@Lev,
da magst Du Recht haben, aber für die Problemstellung ist das eine gehbare Lösung.
Ich weiß ja nicht, warum Sie die FF.au3 einsetzen will.... -
ganz einfach:
Zitatganz oft ganz schnell hintereinander zb. w drückt
für "normales Arbeiten am PC braucht man das sicher nicht.
Und da dann nur noch unsinniges oder gar verbotenes übrig bleibt..... -
warum so kompliziert?
[autoit]If ProcessExists("firefox.exe") Then
[/autoit]
ShellExecute("Firefox.exe","-new-tab http://www.test.de")
Else
ShellExecute("Firefox.exe","-new-window http://www.test.de")
EndIf -
wenn Du "nur" versteckt meinst, dann so:
[autoit]$sFolderToCreate = "C:\versteckt"
[/autoit]
DirCreate($sFolderToCreate)
FileSetAttrib($sFolderToCreate,"+H")