Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Реализация кавычек / 5 сообщений из 5, страница 1 из 1
13.11.2006, 21:01
    #34125263
Kifir
Kifir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Реализация кавычек
Есть код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim objShell
    Dim CommandLine
Set maincopy = CreateObject("Scripting.FileSystemObject")
maincopy.DeleteFile "C:/1.txt"
wscript.sleep  3000 
    
    Set objShell = CreateObject("Wscript.Shell")
    CommandLine = "taskkill /f /im Wscript.exe"
    objShell.Run CommandLine,  0 , True
Необходимо Создать на диске С файл 123.vbs и записать туда
Вся проблема состоит в кавычках типа ""
Помогите сделать код наподобии следующего

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub cmd_Click()
Dim r As Long
Open App.Path + "\123.vbs" For Append As # 1 
        Print # 1 , "Dim objShell"
        Print # 1 , "Dim CommandLine"
        Print # 1 , "Set maincopy = CreateObject("  +    """     & "Scripting."   +   "FileSystemO"   &  "bject"            & "")" ' вот как раз тут у меня стопор...
        Print # 1 , "wscript.sleep 3000"
        Print # 1 , "maincopy.DeleteFile " + App.Path + App.EXEName + ".exe"
        Print # 1 , "Set objShell = CreateObject("; Wscript.Shell; ")"
        Print # 1 , "CommandLine = "; taskkill / f / im; Wscript.exe; "" ' тоже самое
        Print # 1 , "objShell.Run CommandLine, 0, True"
    Close # 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2006, 22:02
    #34125341
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Реализация кавычек
У меня тоже ступор. Почему бы не написать так -
Print #1, "Set maincopy = CreateObject(Scripting.FileSystemObject)"

Ну а тут просто -
Print #1, "CommandLine = ""; taskkill / f / im; Wscript.exe; """ ' тоже самое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2006, 22:04
    #34125343
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Реализация кавычек
Ошибочка
Код: plaintext
Print # 1 , "Set maincopy = CreateObject(""Scripting.FileSystemObject"")"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2006, 22:07
    #34125346
Kifir
Kifir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Реализация кавычек
Все понятно. Всем спасибо. Реализовал!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2006, 22:32
    #34125381
Kifir
Kifir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Реализация кавычек
ааа, забыл вот помогите еще 1 строку реализовать

Код: plaintext
1.
Print # 1 , "maincopy.DeleteFile " + """ + App.Path + " \ " + App.EXEName + ".exe" + """
где ".exe" возникает такой символ ;
Вот неправильный пример реализации:
Код: plaintext
1.
Print # 1 , "maincopy.DeleteFile " + """ + App.Path + " \ " + App.EXEName + "; .exe; " + """
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Реализация кавычек / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 462ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164981]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 158ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 231ms
total:  462ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]