Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

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

 

  Вопрос: VB супер консоль Добавлено: 14.01.10 17:10  

Автор вопроса:  V1RR | Web-сайт: V1RR.us | ICQ: 636580 

Ответить

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

Номер ответа: 16
Автор ответа:
 Nickola



Вопросов: 2
Ответов: 12
  Профиль | | #16 Добавлено: 16.01.10 07:32
Нашел ешчо ошибку
Строка 15
Должно быть
  1. If RangeArray < 2 Then


Оффтоп: Как поставить смайлик, что я краснею??? (здесь он должен быть)

Ответить

Номер ответа: 17
Автор ответа:
 V1RR



ICQ: 636580 

Вопросов: 8
Ответов: 29
  Web-сайт: V1RR.us
 Профиль | | #17 		Добавлено: 17.01.10 01:25
Отлично, с ошибками разобрались я посидел над кодом вроде понял суть :)
Теперь еще какие задачи хочу реализовать.
1. Это я писал еще сначала в 3 пункте. Как запустить браузер на компьютере что по умолчанию стоит и перейти на какую-то страницу? Переход будет осуществляться посредством "go www.ya.ru" т.е. 2 параметра: go чтобы запустить браузер и сам адрес куда попасть.
2. Хотел бы добавить к базе команд программы, команду "set filepath x", где set уже известная нам команда установки или включения, filepath - команда указания пути к файлу и x - имя параметра, которому присвоится адрес filepath. Хочу реализовать так:
-ввод команды (напр. set filepath aimp)
-появляется диалоговое окно типо как коммон диалоговые окна с выбором фала как на открытие. Маска стоит на все файлы, т.е. можно выбрать любое расширение. Когда находим и выбираем файл, жмем кнопку Выбрать или двойным щелчком - полным путь вместе с именем сохраниется в переменную fp. На данном этапе хотя бы реализовать это, а в дальнейшем я хочу сделать текстовую базу путе к файлам (естессно не хранить же в переменных - тогда придется каждый раз пути указывать а это бред :) )
С диалоговыми не сильно работал потому вот это интересует еще.

Ответить

Номер ответа: 18
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #18 		Добавлено: 17.01.10 01:46
Совершенно случайно пришло в голову. Ты ведь можешь использовать CallByName, который мне ни разу не пригождался)
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.     MsgBox CallByName(Form1, "by", VbMethod, 8)
  5. End Sub
  6.  
  7. Public Function by(ByVal k As Long) As String
  8.     by = CStr(k) & "%"
  9. End Function

То есть называешь функцию filepath, она вызывает коммон диалог и возвращает выбранный файл.
Так ты можешь для каждой команды написать свою функцию и вызывать через CallByName

А потом засунешь функции в джава-скрипты, чтобы можно было дополнять функциональность без перекомпиляции=) хотя это еще слишком рано

Ответить

Номер ответа: 19
Автор ответа:
 V1RR



ICQ: 636580 

Вопросов: 8
Ответов: 29
  Web-сайт: V1RR.us
 Профиль | | #19 		Добавлено: 17.01.10 21:16
С этим сейчас буду разбираться, а с браузером как сделать?

Ответить

Номер ответа: 20
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #20 		Добавлено: 17.01.10 21:36
Это я писал еще сначала в 3 пункте. Как запустить браузер на компьютере что по умолчанию стоит и перейти на какую-то страницу?

Испльзуешь апи-функцию ShellExecute. Первоночально она расчитана на запуск файла, а ты вместо адреса файла, передавай ей адрес сайта, и она откроет тебе его в браузере.

Набросал мини-консольку: http://www.homacosoft.com/superconsole.rar

Ответить

Номер ответа: 21
Автор ответа:
 V1RR



ICQ: 636580 

Вопросов: 8
Ответов: 29
  Web-сайт: V1RR.us
 Профиль | | #21 		Добавлено: 17.01.10 21:55
Winand, что-то я не понял как реализовать твой код с п2, 17 поста этой темы. Можешь поподробнее?

Ответить

Номер ответа: 22
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #22 		Добавлено: 17.01.10 22:03
У меня тоже есть миниконсолька, там было всё просто сделано: набор команд и соответствующие строки запуска. Называлось FastRunner, сейчас бы я пакруче написал=)

Ответить

Номер ответа: 23
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #23 		Добавлено: 17.01.10 22:39
cset filename xxx запросит ввод пути и выдаст xxx=ПУТЬ
cexit закроет программу
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.     Dim commandline As String, p0 As Long, param As String, command As String, result As String
  5.     While 1
  6.         commandline = ""
  7.         p0 = 0
  8.         param = ""
  9.         command = ""
  10.         
  11.         commandline = InputBox("Input command:", "bash killer")
  12.         commandline = Trim$(commandline) 'Удалить пробелы в начале и конце
  13.         If commandline <> "" Then
  14.             p0 = InStr(1, commandline, " ")
  15.             If p0 > 1 Then
  16.                 command = Mid$(commandline, 1, p0 - 1)
  17.                 param = Mid$(commandline, p0 + 1, Len(commandline) - p0)
  18.             Else
  19.                 command = commandline
  20.             End If
  21.             result = Process(command, param)
  22.         End If
  23.         MsgBox IIf(result <> "", result, "RETURNED NOTHING")
  24.     Wend
  25. End Sub
  26.  
  27. 'Оболочка CallByName с обработкой ошибок
  28. Private Function Process(ByVal func As String, ByVal param As String)
  29. On Error GoTo 1:
  30.     Process = CallByName(Me, func, VbMethod, param)
  31. Exit Function
  32. 1: MsgBox "Wrong command:" & vbNewLine & func & "(" & param & ")", vbCritical
  33. End Function
  34.  
  35. Public Function CSET(Optional ByVal cline As String) As String
  36.     Dim p0 As Long, param As String, command As String
  37.     If cline <> "" Then
  38.         p0 = InStr(1, cline, " ")
  39.         If p0 > 1 Then
  40.             command = Mid$(cline, 1, p0 - 1)
  41.             param = Mid$(cline, p0 + 1, Len(cline) - p0)
  42.         Else
  43.             command = cline
  44.         End If
  45.         CSET = Process(command, param)
  46.     End If
  47. End Function
  48.  
  49. '&#194;&#251;&#245;&#238;&#228;
  50. Public Function CEXIT(Optional ByVal cline As String) As String
  51.     End
  52. End Function
  53.  
  54. Public Function FILENAME(Optional ByVal cline As String) As String
  55.     FILENAME = cline & "=" & InputBox("Input filename for " & cline, "Filename", "C:\")
  56. End Function

Ответить

Номер ответа: 24
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #24 		Добавлено: 17.01.10 22:48
У меня тоже есть миниконсолька, там было всё просто сделано: набор команд и соответствующие строки запуска. Называлось FastRunner, сейчас бы я пакруче написал

Не, это я так для примера показал. Моя миниконсолька - это XQR2. :)

Ответить

Номер ответа: 25
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #25 		Добавлено: 17.01.10 22:57
VBD, XQR2 поддерживает Jscript?) там так классно) например можно юзать i=s.indexOf("text";) вместо instr и s2=s.substring(7, 9) вместо mid

Ответить

Номер ответа: 26
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #26 		Добавлено: 17.01.10 23:24
Он под VBScript заточен... Хотя... Если из открытой части кода XQR2 изменить его режим одного из его интерпретаторов на JScript, а потом общаться с этим интерпретатором, то можно. И даже можно вывести это с "через жопу" уровня на нормальный. Без изменения исполняемого файла.

Ответить

Номер ответа: 27
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #27 		Добавлено: 17.01.10 23:32
я в аплоудере сделал так, что он детектит расширение скрипта и переключает Language соответственно. Так что давай кодь. Это расширит аудиторию на знающих js)

Ответить

Номер ответа: 28
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #28 		Добавлено: 17.01.10 23:39
Переписывать ядро, IDE, и препроцессор кода? Неееее, я лучше пойду займусь нормальным сексом))

Ответить

Номер ответа: 29
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #29 		Добавлено: 17.01.10 23:43
Нет, я не спорю. Это по умолчанию лучше, можно вообще ничего не писать=)

Ах препроцессор.. да, вот в этом месте возникнет проблема где-то на месяц)

Ответить

Номер ответа: 30
Автор ответа:
 V1RR



ICQ: 636580 

Вопросов: 8
Ответов: 29
  Web-сайт: V1RR.us
 Профиль | | #30 		Добавлено: 17.01.10 23:54
А еще такого плана вопрос. Как если программа скрыта (просто frm.hide) показать ее? Именно задать глобальные клавиши, действующие по всей системе?

Ответить

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

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



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