12-10-2006, 22:17
|
|
\dev\null
|
|
חבר מתאריך: 08.11.02
הודעות: 11,379
|
|
בעיקרון אתה יכול להעביר הקבצים שמכילים את הקבצים
C:\Documents and Settings\%username%\Application Data\Microsoft\MSN Messenger\1838530080\
אצלך המספר יהיה שונה כנראה,
אבל זה המיקום לחפש את הקבצים שלך
אני דווקא כתבתי תוכנית קטנה ב-VBS שתזין את כל הקבצים אוטומטית חזרה במסנגר
השיטה עקומה אומנה, כי היא מבוססת על SNEDKEY ולא עיבוד פיזי של קבצים
ויש לפעמים בעיות איתה, אבל היא עושה את העבודה בפסיק מהזמן שיקח לך להזין אותם ידנית
קוד:
Dim FolderPath
FolderPath = InputBox("Enter Full Path i.e: H:\temp\", "Enter Path ...", FolderPath) 'Or any path
msgbox FolderPath
Set oWS = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(FolderPath)
Set objFolder_Contain = objFolder.Files
Dim objFSO
Dim objFolder
Dim objFolder_Contain
Dim foundFile
Dim Crate_Folder_Named
Dim strFilename
Dim sefty
sefty = 0
For Each foundFile In objFolder_Contain
sefty = sefty + 1
strFilename = Left(foundFile.name,Len(foundFile.name)-4)
if Len(strfilename) >= 7 then
'msgbox "Filename to long: " & strfilename
strfilename = mid(strfilename,1,6)
end if
'WScript.Echo strFilename '&chr(10)&chr(13) Debug
oWS.AppActivate "My Emoticons"
oWS.Sendkeys "%C" ' ALT+C
oWS.Sendkeys "%F" ' ALT+F
oWS.Sendkeys foundFile ' Full path
oWS.SendKeys "~" ' ENTER
oWS.SendKeys ";" & strFilename
oWS.SendKeys "~"
WScript.Sleep (200)
if sefty = 10 then
Response = MsgBox("Continue ?", vbYesNo, "My Title")
if Response = 6 then
sefty = 0
else
EXIT FOR
end if
end if
Next
Set objFSO = Nothing
נ.ב - הקבצים בתיקיה אולי בעלי סיומת מוזרה, אבל הם אותם קבצים בדיוק מהמקור
תאלץ להעתיק אותם ולשנות להם את השם
נ.ב - התוכנית שלי מזינה את הקבצים לפי חיתוח השם עד ל-6 תווים ואז מוסיפה תו התחלה ";"
אלה הדרישות שלי שהיו לי , כי לא רציתי ליצור התנגשויות או סתם להשתמש באיקונים בלי צורך
נערך לאחרונה ע"י The IceMan בתאריך 12-10-2006 בשעה 22:20.
|