Автонажатие кнопки
Сообственно как автонажать кнопочку, исходники есть.
Начало самой кнопки:
Начало самой кнопки:
Код:
Private Sub Cmd_apply_Click()
If IsAlreadyPatched Then BrowseForFile: Exit Sub
On Error Resume Next
'Disable all buttons during work
ButtonsEnable False
If IsAlreadyPatched Then BrowseForFile: Exit Sub
On Error Resume Next
'Disable all buttons during work
ButtonsEnable False
Вообщем помогло SendKeys, всем спасибо!
Например в вот этой части
Код:
' Do NopOut
Nopstart = .Position
If frmMain.mi_NopOutSCB.Checked Then
.FixedString = Nops(NopEnd - Nopstart)
Else
.Move NopEnd - Nopstart
End If
Nopstart = .Position
If frmMain.mi_NopOutSCB.Checked Then
.FixedString = Nops(NopEnd - Nopstart)
Else
.Move NopEnd - Nopstart
End If