05-01-2018, 08:31 AM
The following code, press F2, can automatically enter the password
I have tried key "123" but sometimes failed, so it changed to paste 123
In some cases, the input password is not stable and needs to be optimized and adjusted
In addition, I don't know how to enter the password automatically. Can it help me? Is there a more stable way to enter the password automatically? thanks
Macro Macro3
I have tried key "123" but sometimes failed, so it changed to paste 123
In some cases, the input password is not stable and needs to be optimized and adjusted
In addition, I don't know how to enter the password automatically. Can it help me? Is there a more stable way to enter the password automatically? thanks
Macro Macro3
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 686 376 "Dialog"
;3 ActiveX 0x54030000 0x0 0 0 686 376 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;END DIALOG
;DIALOG EDITOR: "" 0x2040700 "*" "" "" ""
str controls = "3"
str ax3SHD
ax3SHD="http://fs.focusky.com.cn/ekeec/yzlo/index.html"
if(!ShowDialog(dd &sub.DlgProc &controls)) ret
#sub DlgProc
function# hDlg message wParam lParam
sel message
,case WM_INITDIALOG
,DT_SetAccelerators hDlg "402 F2"
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
,case WM_CLOSE
,DT_Ok(hDlg)
ret
;messages2
sel wParam
,case IDOK
,ifk(Y)
,,key Y ;; Enter
,,ret 0
,case IDCANCEL
,ret 0
,case 402 ;;mes "F2"
,int w=win("Dialog" "#32770")
,int c=child("" "MacromediaFlashPlayerActiveX" w)
,if(scan("color:0xC57101" c 0 16))
,,key Ca
,,paste 123 ;err
,,scan("color:0xC57101" c 0 1|16)
,,lef
ret 1