Взаимодействие с другими приложениями

[sashar2]

Вот я тут решил позабавиться и придумал... Мне хотелось бы написать собственную утилиту для ломания допустим пароля в rare, как мне это сделать? Вот как мне написать такую программу? Я не имею ввиду сам процесс подбора, а процесс взаимодействия. Подскажите пожалуйста.

[KDima]

Имхо SendKeys, MouseEvent
Но не проще, но быстрее (значительно) разобраться в форматах!

[sashar2]

Пожалуйста можно по подробнее о SendKeys? И зачем нужно MouseEvent?

[KDima]

Пожалуйста можно по подробнее о SendKeys? И зачем нужно MouseEvent?

Код: Выделить всё

SendKeys "Hello, world!{enter}"
SendKeys "{ctrl+alt+del}"

Эмулирует нажатия.

Код: Выделить всё

Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Можно кликать и творить лабуду.

[sashar2]

Насчет первого:
SendKeys "{ctrl+alt+del}" - а можно SendKeys "{tab+alt}" допустим.
Насчет второго:
Можно тоже, совсем малеьний примерчик ввиде первого...

[sashar2]

И еще достаточно простой вопрос, вот можно ли создать объект? Допустим звять и создать кнопку или она должна быть обязательно создана до этого в окне редактора?

[GM]

Второй вопрос:
1.Сделать в редакторе массив елементов, а потом
load a(1)
2. не помню, чо то вроде
dim a as commandbutton

3.Controls.add("VB.CommandButton","MyButton")

[sashar2]

1) Так что насчет первого?
2) Что значит массив ЭЛЕМЕНТОВ? Просто массив я создам.... И насчет второго пункта, вспомни пожалуйста!

[Костя]

Для того, чтобы добавить элемент в массив элементов:
1.Создаём масссив. Для этого указываем число (0) в свойстве index уже существующего на форме объекта (напр., кнопка command1).
2.Добавляем в этот массив элемент. Для этого в коде пишем строчку
load command1(1)

[vvs_adm]

Тогда уж заодно, что б мне не искать : а как потом этот элемент удалить?

[alibek]

Unload

[vvs_adm]

блин, мог бы и сам догадаться

[sashar2]

Извиняюсь, но у меня ничего и не вышло...
Добавил я индекс 0.. и один пробовал добавлять.
Вроде бы вставил я этот элемент (во всяком случае все было без ошибок), но потом "показать" его я не смог.
Controls.add("VB.CommandButton","MyButton")
вообще никак не читается.
Думаю с добавлением в массив я справился, но вот с добавлением в форму нет. Подскажите уж пожалуйста!

[sashar2]

И зачем вообще создавать до этого элемент?
Как я понимаю добавлять элемент на форму надо для того, чтобы потом просто не указывать свойства другой кнопки в этом массие? Правильно я говорю?

[sashar2]

Код: Выделить всё

Option Explicit
Private WithEvents new_button As CommandButton
Private Sub Command1_Click()
Command1.Enabled = False
Set new_button = Me.Controls.Add("VB.CommandButton", "cmdNew")
With new_button
          .Move Command1.Left, Command1.Top + Command1.Height + 130
          .Caption = "Новая < кнопка "
          .Visible = True
          .Height = 590
End With
End Sub

Вот нашел пример, только объясните что такое With и все что в него входит....

[sashar2]

1) Нашел способ обойтись без with, но хотелось бы знать всетаки что это такое, хотя и предполагаю. Вот я упростил код до минимума:

Код: Выделить всё

Private Sub Form_Load()
Dim new_button As CommandButton
Set new_button = Me.Controls.Add("VB.CommandButton", "cmdNew")
new_button.Visible = True
End Sub

НО что такое cmdNew? Я не совсем понял...

2) И я не понял можно в сэнд кейс написать {tab+alt} например?

[sashar2]

Что, никто не знает ответа на мой вопрос?

[GSerg]

1. Имя кнопки.
2. Ну попробуй, кто ж мешает...

[uhm]

А With - это просто удобный способ записи. Если собираешься много обрашаться к propert'ям и method'ам одного и того же объекта, вместо

object.method1 ...
object.method2 ...
object.property=...

написать

With object
.method1 ...
.method2 ...
.property=...
End With

[sashar2]

GSerg
1) Это не имя кнопки... Имя кнопки здесь будет new_button.
2) Попробую
uhm
Спасибо.

[tyomitch]

GSerg
1) Это не имя кнопки... Имя кнопки здесь будет new_button.

Ошибаешься. Попробуй посмотреть new_button.Name - там будет "cmdNew"

[sashar2]

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

[tyomitch]

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

Да чего ты гонишь? Всё можно!

Код: Выделить всё

Private Sub Form_Load()
Dim new_button As CommandButton
Set new_button = Me.Controls.Add("VB.CommandButton", "cmdNew")
new_button.Visible = True
Me!cmdNew.Caption = "cmdNew"
End Sub


А имени тут действительно два. Если хочешь - можешь сделать хоть три, хоть десять; в чём проблема-то?

[sashar2]

Проблема в том, что я плохо знаю язык =).
А имени кажется я понял почему два... Одно нормальное, а другое обозначает его в контроле что ли...вообщем сложно сказать, но для себя я понял.

Кстати, надеюсь не приеться создавать еще одну темку:
Как сделать commandbuttоn круглой? Я видел пример, как делается форма круглой, а как сделать тоже самое с кнопкой?

[vvs_adm]

Я видел пример, как делается форма круглой, а как сделать тоже самое с кнопкой?

Ну так так же и сделать...

[sashar2]

Код: Выделить всё

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
SetWindowRgn hWnd, CreateEllipticRgn(80, 0, 300, 200), True
End Sub


Вот этот код, но из него я не думаю, что смогу сделать круглую кнопку... Здесь надо в Declare изменять что-то точно.

[GSerg]

SetWindowRgn cmdNew.hWnd, CreateEllipticRgn(80, 0, 300, 200), 1 ?

[vvs_adm]

SetWindowRgn cmdNew.hWnd, CreateEllipticRgn(80, 0, 300, 200), 1 ?

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

[sashar2]

Код: Выделить всё

SetWindowRgn new_button.hWnd, CreateEllipticRgn(10, 10, 200, 200), True
new_button.Height = 20000
new_button.Width = 20000

И получается большая Круглая кнопка, кстати я выяснил параметры
SetWindowRgn имя_объекта.hWnd, CreateEllipticRgn (отступ слева, отступ сверху, ширина, высота)
Бок кнопки может получиться обрезаным, если выстота или ширина кнопки малы.

Вот так вот!
Кстати мне это нужно было для того, чтобы двигать круги/квадраты без мерцания, но не используя DirectX или BitBlt. Ведь кнопка один из самых подходящик немерцающих объектов. Мне кажеться мой выход обсалютно нормален для простых элементов.

[sashar2]

И вот еще один уже вопрос, который будет попроще, почему у созданой кнопки нельзя имзменить style на графический?
new_button.style = 1 ? Писал полностью графикал, тоже не помогло...