Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: Помощь новичку. Добавлено: 04.03.11 18:30  

Автор вопроса:  serjei
Всем привет, решил вот тут попробывать утилитку написать с использованием "shell" Shell("ping ya.ru -t", vbNormalFocus) вот только ко сделать так что бы вместо статичного "ya.ru" можно было создать тектбокс и брать данные оттуда? И так же по аналогии "-t" ставить при использовании чекбокса? Собственно "мое программирование" будет своидится к такого вида программам, вот опэтому прошу вас помочь быстро вьехать в данный вопрос))

Ответить

  Ответы Всего ответов: 19  

Номер ответа: 1
Автор ответа:
 Alex



Вопросов: 7
Ответов: 73
 Профиль | | #1 Добавлено: 04.03.11 19:19
Добавь текстбокс, чекбокс и обычную кнопку.
И сам код кнопки:
  1.  
  2. Dim Result As String
  3.  
  4. Result = "ping " & TextBox1.Text
  5. If CheckBox1.Checked Then Result = Result & " -t"
  6.  
  7. Shell(Result, vbNormalFocus)

Ответить

Номер ответа: 2
Автор ответа:
 serjei



Вопросов: 1
Ответов: 10
 Профиль | | #2 Добавлено: 04.03.11 19:20
Огромное спасибо)

Ответить

Номер ответа: 3
Автор ответа:
 serjei



Вопросов: 1
Ответов: 10
 Профиль | | #3 Добавлено: 04.03.11 22:39
Нашел интересную форму лоигн\пароля, в учебниках есть только примеры создания такой же формы, а вот как ее интегрировать к основному телу программы? В плане, запустил .exe, открылось окно ввода пароля, после ввода правильного пароля, появлялась сама программа.

Ответить

Номер ответа: 4
Автор ответа:
 Alex



Вопросов: 7
Ответов: 73
 Профиль | | #4 Добавлено: 04.03.11 23:43
Ну это уже не совсем тривиальная задача, т.к. простые виды защит можно сбрутить, или сделать хак при помощи декомпиляторов и дисассемблеров, так-что лучше создай отдельную тему

Ответить

Номер ответа: 5
Автор ответа:
 serjei



Вопросов: 1
Ответов: 10
 Профиль | | #5 Добавлено: 05.03.11 10:41
Да собственно мне супер защита и ненужна, на мсдн есть примеры, но у меня сама программа меньше чем система защиты выйдет. Вот поэтому я прошу
serjei пишет:
Нашел интересную форму лоигн\пароля, в учебниках есть только примеры создания такой же формы, а вот как ее интегрировать к основному телу программы? В плане, запустил .exe, открылось окно ввода пароля, после ввода правильного пароля, появлялась сама программа.

Ответить

Номер ответа: 6
Автор ответа:
 Захарка



Вопросов: 0
Ответов: 42
 Профиль | | #6 Добавлено: 05.03.11 12:07
Добавь ещё 1 форму на ней логин/пароль / кнопка, если пароль верный, переход на основную форму программы. А, и в свойствах проэкта поставить загрузку с второй формы.

Ответить

Номер ответа: 7
Автор ответа:
 serjei



Вопросов: 1
Ответов: 10
 Профиль | | #7 Добавлено: 05.03.11 19:50
Проблема в том что я так сказать начал изучать программирование 3 дня назад))) смысл то, как это реализовать? НА реальных примерах изучение идет лучше чем по книгам.

Ответить

Номер ответа: 8
Автор ответа:
 serjei



Вопросов: 1
Ответов: 10
 Профиль | | #8 Добавлено: 09.03.11 12:32
И еще маленький вопрос, почему не работает данный код?
  1. Dim Result As String
  2.  
  3.         Result = "ping " & TextBox1.Text
  4.         If CheckBox2.Checked Then Result = Result & " > c:\Log.txt"
  5.  
  6.  
  7.         Shell(Result, vbNormalFocus)

Ответить

Номер ответа: 9
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #9 Добавлено: 09.03.11 18:23
зависит от того, что ты называешь словами "не работает"

Ответить

Номер ответа: 10
Автор ответа:
 serjei



Вопросов: 1
Ответов: 10
 Профиль | | #10 Добавлено: 10.03.11 11:31
Не работает, значит не выполняет команду )). просто трассировка проходит, а при отмеченном чекбоксе ни трассировки ни сохраненного лога.

Ответить

Номер ответа: 11
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #11 Добавлено: 10.03.11 17:48
потому что Shell() это не командная строка

Ответить

Номер ответа: 12
Автор ответа:
 serjei



Вопросов: 1
Ответов: 10
 Профиль | | #12 Добавлено: 10.03.11 18:38
тогда почему работает этот код?
  1. Dim Result As String
  2.  
  3.         Result = "ping " & TextBox1.Text
  4.         If CheckBox1.Checked Then Result = Result & " -t"
  5.  
  6.  
  7.         Shell(Result, vbNormalFocus)

А вот этот не работает
  1. Dim Result As String
  2.  
  3.         Result = "tracert " & TextBox1.Text
  4.         If CheckBox2.Checked Then Result = Result & " > c:\Log.txt"
  5.  
  6.  
  7.         Shell(Result, vbNormalFocus)

Ответить

Номер ответа: 13
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #13 Добавлено: 11.03.11 00:57
я уже сказал. в обоих случах это аргументы к программам.

Ответить

Номер ответа: 14
Автор ответа:
 serjei



Вопросов: 1
Ответов: 10
 Профиль | | #14 Добавлено: 11.03.11 09:43
Извиняюсь конечно)) но я видно недопонимаю чего то, почему же аргумент Result = "ping " & TextBox1.Text & " -t" выполняется, а Result = "tracert " & TextBox1.Text & " > c:\Log.txt" нет?

Ответить

Номер ответа: 15
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #15 Добавлено: 11.03.11 11:44
> - управляющий символ командной строки, и учитывается он когда ты выполняешь команду через cmd.exe. В противном случае ты передаешь его как аргумент. Чтобы все работало как надо, запусти cmd.exe/command.com с необходимыми параметрами.

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам