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

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: код для GetCommandLine Добавлено: 20.10.08 14:33  

Автор вопроса:  busha
Помогите кто-нибудь примером кода для GetCommandLine

Ответить

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

Номер ответа: 1
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
  Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #1 		Добавлено: 20.10.08 16:12
что именно тебе помоч?

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #2 Добавлено: 20.10.08 18:43
Примером кода для GetCommandLine :)

Ответить

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



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #3 Добавлено: 20.10.08 20:07
API-Guide:
  1. Const SHGFI_ICONLOCATION = &H1000
  2. Const MB_ICONASTERISK = &H40&
  3. Const MB_ICONEXCLAMATION = &H30&
  4. Const MAX_PATH = 260
  5. Private Type MSGBOXPARAMS
  6.     cbSize As Long
  7.     hwndOwner As Long
  8.     hInstance As Long
  9.     lpszText As String
  10.     lpszCaption As String
  11.     dwStyle As Long
  12.     lpszIcon As String
  13.     dwContextHelpId As Long
  14.     lpfnMsgBoxCallback As Long
  15.     dwLanguageId As Long
  16. End Type
  17. Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
  18. Private Declare Function MessageBoxEx Lib "user32" Alias "MessageBoxExA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long
  19. Private Declare Function MessageBoxIndirect Lib "user32" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long
  20. Private Declare Sub PostQuitMessage Lib "user32" (ByVal nExitCode As Long)
  21. Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long
  22. Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
  23. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
  24. Private Sub Form_Paint()
  25.     'KPD-Team 1999,2001
  26.     'URL: http://www.allapi.net/
  27.     'E-Mail: KPDTeam@Allapi.net
  28.     Dim MBP As MSGBOXPARAMS, LDs As Long, Cnt As Long, sDrives As String
  29.     'get the available drives
  30.     LDs = GetLogicalDrives
  31.     sDrives = "Available drives:"
  32.     For Cnt = 0 To 25
  33.         If (LDs And 2 ^ Cnt) <> 0 Then
  34.             sDrives = sDrives + " " + Chr$(65 + Cnt)
  35.         End If
  36.     Next Cnt
  37.     'Show the commandline
  38.     MessageBoxEx Me.hwnd, "The command line: " + GetCommLine, "Command Line ...", MB_ICONEXCLAMATION, 0
  39.     'Set the structure size
  40.     MBP.cbSize = Len(MBP)
  41.     'Set the icon style
  42.     MBP.dwStyle = MB_ICONASTERISK
  43.     'set the owner wndow
  44.     MBP.hwndOwner = Me.hwnd
  45.     'set teh text
  46.     MBP.lpszText = sDrives
  47.     'set the caption
  48.     MBP.lpszCaption = "Available drives"
  49.     'Show the messagebox
  50.     MessageBoxIndirect MBP
  51.     'end our application
  52.     PostQuitMessage 0
  53. End Sub
  54. Private Function GetCommLine() As String
  55.     Dim RetStr As Long, SLen As Long
  56.     Dim Buffer As String
  57.     'Get a pointer to a string, which contains the command line
  58.     RetStr = GetCommandLine
  59.     'Get the length of that string
  60.     SLen = lstrlen(RetStr)
  61.     If SLen > 0 Then
  62.         'Create a buffer
  63.         GetCommLine = Space$(SLen)
  64.         'Copy to the buffer
  65.         CopyMemory ByVal GetCommLine, ByVal RetStr, SLen
  66.     End If
  67. End Function

Ответить

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



Вопросов: 22
Ответов: 18
  Профиль | | #4 Добавлено: 20.10.08 21:45
 'Show the commandline
    MessageBoxEx Me.hwnd, "The command line: " + GetCommLine, "Command Line ...", MB_ICONEXCLAMATION, 0

А как сохранить содержимое командной строки в переменную или отобразить в текстбоксе, пытался, не получается?

Ответить

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



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #5 Добавлено: 20.10.08 22:02
  1. Переменная$=GetCommLine

Ответить

Номер ответа: 6
Автор ответа:
 busha



Вопросов: 22
Ответов: 18
  Профиль | | #6 Добавлено: 20.10.08 22:07
Я дебил, так просто, спасибо!

Ответить

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



Вопросов: 22
Ответов: 18
  Профиль | | #7 Добавлено: 20.10.08 22:21
Что здесь неправильно, он говорит
bad file name, чего не хватает

я создал текстовый файл, там просто одно слово,
сделал экзешник программы, установил открывать
мой файл моей программой, a - получается путь
к этому файлу, но он не читает из него,
т.е. мне нужно чтобы файл открывался в моей
программе

Private Sub Command1_Click()
a = GetCommLine
Open a For Input As #1: Input #1, b: Close #1
Text1.Text = b
End Sub

Ответить

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



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #8 Добавлено: 20.10.08 22:34
смотри внимательней, что получается в переменной a
вставь в программу что-то типа MsgBox a, и увидишь, что там.

Ответить

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



Вопросов: 22
Ответов: 18
  Профиль | | #9 Добавлено: 20.10.08 22:41
ага понятно, там два пути, нужно вырезать первый
путь до третьих кавычек
спасибо

Ответить

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



Вопросов: 22
Ответов: 18
  Профиль | | #10 Добавлено: 20.10.08 22:41
ага понятно, там два пути, нужно вырезать первый
путь до третьих кавычек
спасибо

Ответить

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



Вопросов: 22
Ответов: 18
  Профиль | | #11 Добавлено: 20.10.08 23:23
ни хрена ни понимаю

a = "C:\Documents and Settings\Privat\Рабочий стол\Текстовый документ.tx" (именно .tx) это отображается в textbox


но данный код не работает
Open (a) For Input As #1
Input #1, a

Ответить

Номер ответа: 12
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #12 		Добавлено: 21.10.08 08:54
сделал экзешник программы, установил открывать
мой файл моей программой


Зачем тебе API в VB6, если есть встроенный оператор Command()? С ним всё гораздо проще в твоем случае, а то, я вижу, т запутался.

Ответить

Страница: 1 |

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



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