| Single Post |
Topic: Распаковка mime, uue, b64 |
| Author |
Message |
Andrey_A
|
 Posted: Wed Oct 13, 2010 20:32 Post subject: |
 |
|
Идея очень интересная и актуальная, но ни один из предложенных скриптов не хотел срабатывать, пришлось методом тыка искать что не так, в итоге с этим куском заработало, может кому пригодится:
кусок между строками F.Close и Set F = fso.GetFile(TempFile)
| Code: | TCS.Pause = 300
TCS.SendCommand ("cm_RereadSource")
TCS.SetTextToClip(TempFile)
TCS.SendCommand "cm_LoadSelectionFromClip", True
TCS.SendKeystroke "{Down}"
TCS.SendCommand "cm_UnpackFiles"
TCS.Pause = 120
TCS.SendKeystroke "{BS}"
TCS.Pause = 120
TCS.SendKeystroke "{Enter}" |
строка TCS.SendKeystroke "{Down}" позволяет распаковывать в пустой папке |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
