Beiträge von BugFix

Habs mal getestet - funktioniert bei mir tadellos.

Edit:
Hier mal eine Funktion um per nslookup den Provider abzufragen.

#include <INet.au3>
MsgBox(0, '', GetProvider(_GetIP() ) )

Func GetProvider($WAN_IP)
Local $pid = Run(@ComSpec & " /c " & 'nslookup ' & $WAN_IP, '', @SW_HIDE, 2)
Local $line, $var, $i
While 1
$line = StdoutRead($pid)
If @error Then ExitLoop
$var = StringSplit($line, @LF)
For $i = 1 To UBound($var) -1
If StringLeft($var[$i], 4) = 'Name' Then Return StringStripWS(StringTrimLeft($var[$i], 5), 3)
Next
Wend
Return 'Provider nicht feststellbar'
EndFunc

Manchmal möchte man ja verhindern, dass der User evtl. über den TaskManager ein Skript abschießt
Dafür kann man mit dieser Funktion einfach bei Skriptstart den TaskManager sperren und am Ende gibt man ihn wieder frei.

Scheeeen
Aber eines hatte ich vergessen, das Word-Objekt muß natürlich beendet werden, sonst hast du eine "Prozeßleiche" am laufen

Func WordVersion()
Local $objWord = ObjCreate("Word.Application")
If Not IsObj($objWord) Then Return 'Kein Word installiert!'
$objWord.Quit ; Word-Objekt schließen
Return $objWord.Version
EndFunc

Zitat

Die Pfade stehen dort drin..

Ich war in HKLM statt in HKCU gelandet.

so sollte es klappen:

Ich weiß nicht, wo Office die Informationen zu den Speicherorten ablegt. In der Registry habe ich keine Veränderung bemerkt, als ich mal den Speicherort verändert habe. Aber vielleicht steht das dann wieder in einem gaaaanz andren Pfad

Nicht über Registry, so ists einfacher:

MsgBox(0, 'Version MS Word', WordVersion())
Func WordVersion()
Local $objWord = ObjCreate("Word.Application")
If Not IsObj($objWord) Then Return 'Kein Word installiert!'
Return $objWord.Version
EndFunc

Kleiner Nachteil: Sollten auf dem Zielrechner mehrere Versionen installiert sein, ist nicht sicher, dass das Word-Objekt mit der aktuellen Version erstellt wird - somit ist auch die Versionsinfo nicht korrekt. Dann bleibt nur der Weg über die Registry.

Nette Idee

$DatumInput1 = ''
$DatumInput1 = GUICtrlRead($Input1)
If $DatumInput1 <> '' Then
GUICtrlSetData($Input2, $DatumInput1)
GUICtrlSetData($Input3, $DatumInput1)
GUICtrlSetData($Input4, $DatumInput1)
; .....usw.
EndIf

Da es um Listbox geht, in der Hilfe unter UDF -> GUIListBox-Management.
Als erstes wird eine Liste erstellt, also Create - wenn du diese Funktion anschaust, findest du schon alle Angaben.

ReDim $PDFfiles[ (UBound($PDFfiles) + 1) ][2]

Ist alles aus der Hilfe übernommen, das Gedöns drumherum weggelöscht und schon bleibt dieses schöne Bsp. übrig.

Löschen kannst du immer alles
Windows installiert auch nur sofort nach, z.B. notepad.exe - wenn du die löscht oder mit einer anderen Datei ersetzen willst, wird sofort das Original aus dem 'Hinterhalt' wieder drübergebügelt

Suchst du nicht eigentlich eher sowas: http://www.winfaq.de/faq_html/Conte…p?h=tip1510.htm ?

Hast du denn auch gelesen, welche Funktion der DLL das bewirken soll?
Ich kann in dieser DLL keine Funktion finden, die irgendwas mit CreateFolder zu tun hat.

AddUrlToFavorites
DllCanUnloadNow
DllGetClassObject
DllGetVersion
DllInstall
DllRegisterServer
DllRegisterWindowClasses
DllUnregisterServer
DoAddToFavDlg
DoAddToFavDlgW
DoFileDownload
DoFileDownloadEx
DoOrganizeFavDlg
DoOrganizeFavDlgW
DoPrivacyDlg
HlinkFindFrame
HlinkFrameNavigate
HlinkFrameNavigateNHL
IEWriteErrorLog
ImportPrivacySettings
SHAddSubscribeFavorite
OpenURL
SHGetIDispatchForFolder
SetQueryNetSessionCount
SetShellOfflineState
SoftwareUpdateMessageBox
URLQualifyA
URLQualifyW

Falls er das meint - die Control-ID wird doch nicht benötigt.
Ein CLASSNAME ist vorhanden und eine INSTANCE.
Einfach anstatt der ID, wie folgt einsetzen:
"[CLASS:Classname; INSTANCE:Nummer]"
Classname und Nummer der Instance aus dem Infotool.

Nur Fragezeichen - ich habe nicht die geringste Ahnung, was du willst.

Hiermit kannst du Doppelklick auswerten, die nicht benötigten Funktionen auskommentieren.
In der Funktion _ListDblClick() legst du dann fest, was passieren soll, also den markierten Eintrag auslesen und weiterverarbeiten.

Laß dir mal beim Schreibvorgang die Fehlerart ausgeben:

If _FileWriteFromArray($Path, $aFile, 1) = 1 Then
MsgBox(0, '', 'Ferddisch :-)')
Else
Switch @error
Case 1
MsgBox(0, '', 'Fehler beim Öffnen der Datei')
Case 2
MsgBox(0, '', 'Input ist kein Array ')
Case 3
MsgBox(0, '', 'Fehler beim Schreiben in die Datei')
EndSwitch
EndIf

Ob du " oder ' verwendest ist Geschmackssache. Nur nicht mixen
Wenn du in einem String Gänsefüßchen verwenden möchtest mußt du ihn mit Hochkomma einschließen (oder umgekehrt, wie du willst).
z.B. 'Das ist ja eine "tolle" Sache' <== So ist gewährleistet, dass es ein String bleibt.

Der Code ist soweit OK - aber vergiß call ganz schnell
Funktionsaufruf mit: abort()

#include <File.au3>

Global $Path = "xxx.list", $aFile
Global $append = 'C:\temp\'
$aFile = _FileReadToArray($Path, $aFile)
If Not IsArray $aFile Then Exit MsgBox(0, '', 'Datei konnte nicht gelesen werden!')
For $i = 1 To UBound($aFile) -1
If $aFile[$i] <> '' Then $aFile[$i] = $append & $aFile[$i]
Next
FileMove($Path, $Path & '.BAK', 1) ; bestehende Datei sichern
If _FileWriteFromArray($Path, $aFile, 1) = 1 Then
MsgBox(0, '', 'Ferddisch :-)')
Else
MsgBox(0, '', 'Fehler beim Rückschreiben der Datei')
EndIf