משהו מכיר איזה שהיא תוכנה שעושה את הפעולה הזאת ?
שתכניס אוטומטית את כל התמונות שיש לי למסנגר לבד ?

מצאתי תוכנה אחת, שלא עבדה, ועוד אחת שהיא במקביל SPYWARE

עד אז בנתיים גנבתי את הרעיון מהתוכנה השניה שהיא SPY
היא השתמשה בפונקציה של SENDKEY

אז כתבתי משהו ב-VBS למי שמעוניין או לא חשב על זה עדין
נ.ב - דורש שחלון ההזנה של האיקונים יהיה פתוח
משם הוא כבר עושה את העבודה אוטומטי כמעט לגמרי
נתקלתי רק בבעיה כאשר הוא לא מצליח לכניס תמונה מסויימת בגלל תאימות

קוד PHP:

 Dim FolderPath 
FolderPath = "C:\Emoticons\I Like\"

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 

    
    'InputBox("Enter Full Path i.e: H:\temp\", "Enter Path ...", FolderPath) 'Or any path

    For Each foundFile In objFolder_Contain
        strFilename = Left(foundFile.name,Len(foundFile.name)-4)
        'WScript.Echo strFilename '&chr(10)&chr(13)
        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 (100)
    Next
    Set objFSO = Nothing