Also wie gesagt, soll nur verknüfnung kopiert werden. und nicht herstellt. möglich?
danke in voraus
Möglich mit filecopy() von exe datei den verknüfnung irgendwohin zu kopieren?
-
- [ offen ]
-
Antoschka2 -
4. Juli 2010 um 17:47 -
Geschlossen -
Erledigt
-
-
Hiermit:
[autoit]FileCreateShortcut
[/autoit] -
Willst du die Verknüpfungen zu einer EXE aufgelistet haben oder wie?
@PokerFace
Lesen
Denken
Posten -
Mal nicht so vorlaut..
Man kann sich ja mal irren Burak
Würdest du lesen und dann denken, wüsstest du was er will.Naja egal.
Wenn du nur die Verknüpfung kopieren willst, dann reicht es, wenn du FileCopy verwendest.
Verknüpfungen haben die Endung : .ink
Also zum Beispiel Firefox:
Firefox.ink -
vielen danke. schon gelöst. jetzt kriege ich immer beim windows start mit verknüfnung immer fehlermeldung, da steht irgendwas von line 3487 error und sowas
aber wenn ich nachher den verknüfnung selber starte, funktioniert alles wunderbar -
Wie heißt denn die Fehlermeldung?
Vielleicht können wir dir auch dabei helfen. -
hier ist screenshot:
-
Mach mal Global und der Variablenname in Zeile 3847. (Am Anfang des Programms.)
-
Mach mal Global und der Variablenname in Zeile 3847. (Am Anfang des Programms.)
mmmh. Könnten sie bitte bisschen genauer erklären. Verstehe nicht was sie meinen. danke
-
Was gibt es da noch zu erklären?
Kannst du mir mal sagen bei welchen Variablennamen in Zeile 3847 ein Error ensteht? Entsprechend kann ich dir sagen wass du an den Anfang schreiben musst, erfolg ist nicht garantiert, es kann sein das die Variable im Ablauf des Skript deklariert werden soll, es aber nicht wird. Dann kann Global auch nicht das ersetzt was du an der Stelle, als der Variablenname deklariert wird, willst.
Oder gib mir den Code.
MfG
-
Das ist jetzt doch ein EXE datei. wenn ich das jetzt als .TXT ablese, sehe ich nur hieroglyfe. und wenn ich den als autoit skript lese, gibts keine line 3456.
[autoit]
ich verstehe das irgendwie nicht, weil er nur beim autostart das fehler anzeigt und sonst kann ich normal starten.
hier ist originnele skript:#Include <StaticConstants.au3>
[/autoit][autoit][/autoit][autoit]
#Include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <Date.au3>
#NoTrayIcon
HotKeySet("+!i", "exitProg")
AdlibRegister("UpdateTime", 100)Global $IDC_PICTURE, $IDC_EXIT, $MainGUI, $iDiffold
[/autoit][autoit][/autoit][autoit]
Local $Width = 306$MainGUI = GUICreate("timer", _
[/autoit][autoit][/autoit][autoit]
$Width, 236, @DesktopWidth - $Width, 0, _
$WS_POPUP, BitOR ($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))$IDC_PICTURE = GUICtrlCreatePic(@ScriptDir & "\lll.gif", _
[/autoit][autoit][/autoit][autoit]
0, 0, 0, 0, _
BitOR ($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS), _
$GUI_WS_EX_PARENTDRAG)$IDC_EXIT = GUICtrlCreateButton("X", 0, 0, 0, 0)
[/autoit][autoit][/autoit][autoit]
GUICtrlSetState ($IDC_EXIT, $GUI_ONTOP)$IDC_TIME = GUICtrlCreateLabel("", 60, 216, 190, 15)
[/autoit][autoit][/autoit][autoit]
GUICtrlSetFont($IDC_TIME, 10, 500, 0, "Harlow Solid Italic")
GUICtrlSetColor($IDC_TIME, 0xC71585);
GUICtrlSetBkColor($IDC_TIME, 0x000000)GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]While TRUE
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
Switch GUIGetMsg()
Case $IDC_EXIT
Exit
EndSwitch
WEndFunc ExitProg()
[/autoit][autoit][/autoit][autoit]
Exit 0
EndFuncFunc UpdateTime()
[/autoit][autoit][/autoit][autoit]
$iDiffnew = _DateDiff('s', '2010/06/12 00:03:00', _NowCalc())
If $iDiffold <> $iDiffnew Then
Guictrlsetdata($IDC_TIME, _SecondsToDateTime($iDiffnew))
$iDiffold = $iDiffnew
EndIf
EndFuncFunc _SecondsToDateTime($iSeconds, $iLang = 1)
[/autoit]
If $iLang < 0 Or $iLang > 1 Then $iLang = 0
Local $sOut = '', $bCheck = False, $bNegative = False, $aDiv[5] = [2592000, 86400, 3600, 60, 1]
Local $aFormat[5][2] = [['M', 'M.'],['Tage', 'D.'],['Stunden', 'H.'],['Minuten', 'Min.'],['Sekunden', 'Sec.']]
If $iSeconds = 0 Then Return '0 ' & $aFormat[4][$iLang]
If $iSeconds < 0 Then
$bNegative = True
$iSeconds = Abs($iSeconds)
EndIf
For $i = 0 To 4
If ($iSeconds >= $aDiv[$i]) Or $bCheck Then
$sOut &= Int($iSeconds / $aDiv[$i]) & ' '
If Int($iSeconds / $aDiv[$i]) = 1 Then
$sOut &= StringTrimRight($aFormat[$i][$iLang], 1) & ', '
Else
$sOut &= $aFormat[$i][$iLang] & ', '
EndIf
$bCheck = True
EndIf
$iSeconds = Mod($iSeconds, $aDiv[$i])
Next
If $bNegative Then $sOut = ' - ' & $sOut
Return StringTrimRight($sOut, 2)
EndFunc