Visual Basic 6.0 - Запуск внешней программы

Respect to you, All!

Подскажите, пожалуйста, как сделать сабж, но от имени какого-нибудь ползователя ?

Let it be, All
* Origin: Windows not found: (D)ance, (P)arty, (F)ireworks? (2:5033/39.7)




Hello, Igor!
You wrote to Dmitriy Kozyrev on Thu, 02 Jan 2003 13:08:22 +0300:







Да, кстати, меня тоже очень интересует этот вопрос. Особенно хотелось бы
иметь на выходе "веб-архив" (.mht). Hу или хоть чтобы в диалоге сохранения
по умолчанию был выбран этот mht.

With best regards, Ivan Nikolaev


* Origin: Demos online service (2:5020/400)




Hello, Igor!
You wrote to Dmitriy Kozyrev on Thu, 02 Jan 2003 13:08:22 +0300:







Да, кстати, меня тоже очень интересует этот вопрос. Особенно хотелось бы
иметь на выходе "веб-архив" (.mht). Hу или хоть чтобы в диалоге сохранения
по умолчанию был выбран этот mht.

With best regards, Ivan Nikolaev


* Origin: Demos online service (2:5020/400)


Доброе время суток, All!
Под звуки [Ария - Потерянный рай (Ария-(02)Потерянный рай)] [stopped]

Если кто пытался подружить сабжи - подскажите. Ситуация: с помощью VB создаётся таблица, в неё заносятся данные, а вот когда доходит дело до группировки - получается любопытный факт, а именно:
objdstWorksheet.Range(objdstWorksheet.Rows(9), objdstWorksheet.Rows(30)).Group
вместо

+Заголовок1
¦1 пункт
¦2 пункт
L3 пункт
+Заголовок2

получается несуразица:

-Заголовок
¦1 пункт
¦2 пункт
¦3 пункт
+Заголовок2

И если с размером группируемой области ещё можно что-то сделать (убираем на единичку, группируется нужное кол-во), то что делать с "плюсом", предназначенным для раскрытия группы? Как его поставить вверху, а не внизу? Копания в MSDN ничего не дали :(

З.Ы. Вдогонку - как определить цвет фона ячейки?
objdstWorksheet.Cells(2,2). ...?

С уважением, Artem Levchenko aka AGS aka Globalizator.

* Origin: Plug and Pray (2:5020/2501.256)


Доброе время суток, Savelov!
Под звуки [Ария - Потерянный рай (Ария-(02)Потерянный рай)] [stopped]

По сообщениям контрразведки Savelov Anton написал All:





Всё через MS Communication control
.Input

С уважением, Artem Levchenko aka AGS aka Globalizator.

* Origin: Buing a Pentium II you can reboot faster (2:5020/2501.256)


Мы где-то виделись, Pavel?






CreateProcessAsUser?

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Мы где-то виделись, Ivan?








Hе, ну напиши сам. Как образец, две неоптимизированные функции:

============================== Смотри ниже ===============================
Public Const Base64Table =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

Public Function EnBase64(strIn As String) As String
Dim i&, s$, t&, a&, table(63) As Byte, o() As Byte, l&, b() As Byte
l = Fix(Len(strIn) / 3 * 4 + 0.75)
ReDim o(l - 1)
For i = 0 To 63
table(i) = Asc(Mid$(Base64Table, i + 1, 1))
Next i
b = StrConv(strIn, vbFromUnicode)
For i = 1 To Len(strIn) - 2 Step 3
t = &H10000 * b(i - 1) + &H100& * b(i) + b(i + 1)
For a = 3 To 0 Step -1
o(i / 3 * 4 + a - 1) = table((t And 63))
t = t \ 64
Next a
Next i
s = StrConv(o, vbUnicode)
s = s & Space$(l - Len(s))
Select Case Len(strIn) Mod 3
Case 1
t = Asc(Mid$(strIn, i, 1)) * 16
For a = 1 To 0 Step -1
Mid$(s, i / 3 * 4 + a, 1) = Mid$(Base64Table, (t And 63) + 1, 1)
t = t \ 64
Next a
s = s & "=="
Case 2
t = Asc(Mid$(strIn, i, 1)) * &H100 + Asc(Mid$(strIn, i + 1, 1))
t = t * 4
For a = 2 To 0 Step -1
Mid$(s, i / 3 * 4 + a, 1) = Mid$(Base64Table, (t And 63) + 1, 1)
t = t \ 64
Next a
s = s & "="
End Select
EnBase64 = s
End Function

Public Function DeBase64(strIn As String) As String
Dim i&, t&, l&, a&, table(255) As Byte, b() As Byte, o() As Byte, s$
l = Len(strIn) * 3 / 4
If Right$(strIn, 1) = "=" Then l = l - 1
If Right$(strIn, 2) = "==" Then l = l - 1
ReDim o(l - 1)
For i = 1 To 64
table(Asc(Mid$(Base64Table, i, 1))) = i - 1
Next i
b = StrConv(strIn, vbFromUnicode)
For i = 1 To Fix(Len(strIn) / 4 - Abs(Right$(strIn, 1) = "=")) * 4 Step 4
t = 0
For a = 0 To 3
t = t * 64 + table(b(i - 1 + a))
Next a
For a = 2 To 0 Step -1
o(i * 3 / 4 + a - 1) = t And 255
t = t \ 256
Next a
Next i
s = StrConv(o, vbUnicode)
s = s & Space$(l - Len(s))
If Right$(strIn, 2) = "==" Then
t = (InStr(Base64Table, Mid$(strIn, i, 1)) - 1) * 64 + InStr(Base64Table,
Mid$(strIn, i + 1, 1)) - 1
Mid$(s, l, 1) = Chr$(t \ 16)
ElseIf Right$(strIn, 1) = "=" Then
t = (InStr(Base64Table, Mid$(strIn, i + 0, 1)) - 1) * 64 * 64 +
(InStr(Base64Table, Mid$(strIn, i + 1, 1)) - 1) * 64 + InStr(Base64Table,
Mid$(strIn, i + 2, 1)) - 1
Mid$(s, l - 1, 2) = Chr$(t \ 1024) & Chr$((t And (255 * 4)) \ 4)
End If
DeBase64 = s
End Function
============================== Смотри выше ===============================

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Здравствуй, Dmitriy!





Хорошо. А кто будет определять, выкручиваюсь я или нет?






Она не удобна для использования. Если вдруг ты не понял, вот пример. Windows который умеет все, но не имеет эксплорера. Hе реализован. Как в твое примере.
Windows удобная?


Удачи!

* Origin: "Made in Heaven" Queen (2:5020/794.77)


Здравствуй, Dmitriy!







Именно морали. Кстати, идеология это составная часть морали вообще.






Вообще. Вот еще про Left(string,3) могу напомнить. ;)


Удачи!

* Origin: "Made in Heaven" Queen (2:5020/794.77)


Здравствуй, A.!







Да, ты прав. Hа VB6 не тал дого пишу, еще не привык.
тут пропобовал, парсинг всяких строк через Split это же просто прелесть. ;)
Hо есть у него один недостаток. Два.

Другой недостаток, ему нельзя указать кол-во параметров max. Только мин.
Решение redim preserve S(x) после сплита.



А многонитевые AxEXE еще в VB5 были.






Собственно на ми6 перешел - ми5 под хп не работал. При попытке настроить тулбар - вываливался. Позже, много позже сообразил, что решение - настроить проава доступа к нужной ветке реестра.






Уболтал. Разница есь. ;) Разницы нет по первому впечатлению. Тот же ифейс, те же окна...


Удачи!

* Origin: "Made in Heaven" Queen (2:5020/794.77)