Современные решения

для защиты Windows приложений

и восстановления исходного кода

Visual Basic 6.0 - Какая кнопка нажата?


Re: Какая кнопка нажата?

From: Alexander Trishin <trialFORSPAM [@] trishin.com>


Roman Yuakovlev wrote on Tue, 13 Jul 2004 09:20:17 +0400:

> Исполнил... получил невыгруженной FrmTB. Как ее выгрузить?

> Код выгрузки:


> For i = 0 To Forms.Count - 1

> Debug.Print Forms(i).Name

> Next i

> 'здесь имеем frmTB


Hу понятно что ты еще имеешь frmTB - процедура из frmTB вызвана, так?
Вот пусть процедура отработает, сделай в IDE Break и смотри формы.

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

как сделать ChDir на WSH?

Hello everybody.

Hарод! Есть очень идиотская проблема. Перерыл кучу мануалов, разобрался параллельно в куче вещей, но как вот сделать такой примитив - не знаю, и всё тут. :(

c:
cd \temp
\\server\sharedfolder\program.exe

я делал так:

dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
[а вот тут надо команду типа ChDir]
WshShell.Run ("\\server\sharedfolder\program.exe")

Вообщем я застрял. Помогите дельным советом, плиз. Менять папку надо так как программа сохраняет туда данные. Реализовать пакетным файлом не совсем реально, так как это только кусочек задачи.

Sergey


P.S. Строго не судите, только разбираться начал в этом.


* Origin: YarStTec Station +7-0852-252700, 1-7.22:00-07:00 (2:5028/63)

Подскажите как ...

Пpиветствyю, A.

12 Июл 04 A. Skrobov что-то писал, а я pешил пpокоментиpовать.

IS>>> 1. Как сделасть чтобы только после нажатия одной кнопки pаботала

IS>>> втоpая.

APaG>> Вpоде бы:

APaG>> Sub Command1_Click()

APaG>> Call Command2_Click()

APaG>> End Sub

AS> Мимо. Ключевое слово - "только".

AS> Sub Command1_Click()

AS> Command2.Enabled = True

AS> End Sub

Мда, стyпил. ПисАлось в 2 часа ничи: мозги не шибко обpабатывали инфоpмацию ;(

До скоpой встpечи на костpе, A.... _Green_
Winamp 5.03: Мастеp - Песни мёpтвых [Я тyт пеpедохнy, покypю]
* Origin: Отдаляют чаще всего пpиближенных. (2:5054/76.44)

Re: Автозагpузка

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

17 Jul 04 11:02:36 в RU.VISUAL.BASIC Roman Yuakovlev -> мне:


DK>> Посмотри исходники проекта Setup1, которые лежат в папке

DK>> %VBDIR%\Wizards\PDWizard.

RY> В VB5 я и намека не нашел на Send To ;(


Public Enum SpecialFolderIDs
[...]
sfidSENDTO = &H9
[...]
End Enum

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

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

Re: Threads

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

17 Jul 04 11:01:55 в RU.VISUAL.BASIC Roman Yuakovlev -> мне:


DK>> 24 бита - True Color, нормальный цвет, по 8 битов на каждый канал

DK>> (Red, Green, Blue).

DK>> 32 бита - тот же True Color, только используется (непонятным мне

DK>> образом) альфа-канал, который раньше был резервным. Посмотреть тот же

DK>> RGBQUAD - там четвертое поле именно Reserved.

RY> T.e. в 24х битах используется все-таки 4 байта, а не 3...


Hет, 24 бита - это три байта на пиксел.

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

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

Re: Пpокpутка в TextBox

From: "Sergey Merzlikin" <sm [@] smsoft.ru>


> Ок, вот так не мигает:

> ----------

> Private Sub Timer1_Timer()

> LockWindowUpdate Text1.hwnd

> Text1 = Text1 & vbCrLf & Now & Now & Now & Now & Now & Now & Now &

Now &
Now &
> Now

> SendMessage Text1.hwnd, EM_LINESCROLL, 0, 32767

> LockWindowUpdate 0

> End Sub

> ----------

> :-P


Мигает, но значительно меньше :-Ь

Чтобы увидеть, Timer1.Interval = 10

--
* Origin: Talk.Mail.Ru (2:5020/400)

Получить путь к ехешнику по hWnd

Hello!
ДИСКЛАЙМЕР: я не утверждаю, что это кому-то нужно. Если кому-то нужно, пусть
юзает.
Вдохновение подчерпнуто от "Igor S.Savchyk"
Системные требования: NT4+
=========Beginning of the citation==============
Option Explicit
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd
As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess
As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long)
As Long
'Private Declare Function EnumProcessModules Lib "psapi" (ByVal hProcess As
Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
Private Declare Function GetModuleFileNameEx Lib "psapi" Alias
"GetModuleFileNameExA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal
lpFileName As String, ByVal nSize As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const PROCESS_VM_READ = &H10

Private Sub Command1_Click()
Dim hWnd As Long, PID As Long, hProcess As Long
'Dim hModules() As Long, numModules As Long
Dim FileName As String * 256
hWnd = Val(Text1)
If hWnd = 0 Then Exit Sub
GetWindowThreadProcessId hWnd, PID
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, PID)
If hProcess = 0 Then Exit Sub
'ReDim hModules(0 To 0)
'EnumProcessModules hProcess, hModules(0), 0, numModules: numModules =
numModules \ LenB(hModules(0))
'ReDim hModules(0 To numModules - 1)
'EnumProcessModules hProcess, hModules(0), numModules * LenB(hModules(0)),
hWnd 'Dummy lpcbNeeded
Label1 = Left$(FileName, GetModuleFileNameEx(hProcess, 0, FileName,
Len(FileName)))
CloseHandle hProcess
End Sub

=========The end of the citation================
Если раскомментровать закомментированные строки, можно получить список
hModule объектов интересующего процесса и, подставляя их по одному в
GetModuleFileNameEx, узнать, какие дллки тот грузит и откуда именно.


With best regards, A. Skrobov. E-mail: A.
Skrobov [@] p16.f1003.n5080.z2.fidonet.org
* Origin: Mr. Knox, sir, what a shame, sir. (2:5080/1003.16)

Re: разница в записи

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

18 Jul 04 19:43:11 в RU.VISUAL.BASIC Alexander Asyabrik -> A Skrobov:


AA> А еще я пробовал писать это все в бинарные файлы (так мне просто

AA> удобней ). Так вот когда объявляешь явно как Variant, тогда в файл

AA> записывается именно как Variant (дополнительно указывается субтип 8

AA> /String/ и длина строки), а когда без явного указания, тогда в файл

AA> пишется, как и обычная строка.


Const s1 As String = "ABC"
Const s2 = "DEF"
Open "c:\0000" For Binary As 1
Put 1, , s1
Put 1, , s2
Close 1

В файл пишется шесть байт: "ABCDEF".

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

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

Re: разница в записи

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

18 Jul 04 16:29:26 в RU.VISUAL.BASIC A Skrobov -> Alexander Asyabrik Alexander

A:

RY>>> Есть ли разница в записи...

RY>>> Public Const myStringConst = "Example"

RY>>> и

RY>>> Public Const myStringConst as String = "Example"

A> Как будто бы нету...


Я склоняюсь к мысли, что для строк разницы действительно нету. Вот для чисел
иногда имеет смысл указывать тип - в тех же случаях, когда используется type
definition character.

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

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

FTP B VB

Привет All!

Hужно залить файл на ftp с помощью VB. В каком направлении рыть?
Hет ли у кого примеров? Url?

Igor.

* Origin: Винни Пух ББС Тел. 381-567 (23:00-06:30) (2:5055/159)