excel - Findwindow does not work in 64bit VBA7 -


the code presented @ unlocking password protected vba project works under 32 not 64bit. specifically,

ret = findwindow(vbnullstring, "vbaproject password")

always return 0. have tried

ret = findwindow("#32770", "vbaproject password")  ret = findwindow("xlmain", "vbaproject password")

none works. have tried following apis: setforegroundwindow, bringwindowtotop, setfocus, getactivewindow, getwindowthreadprocessid. still failed don't think it's focus issue. perhaps it's timing? tried using

settimer

but new apis not sure how implement that.

i calling via workbookopen app event inside personal.xlsb trying fill in password upon opening workbook.

private sub appevent_workbookopen(byval wb excel.workbook)  if wb.vbproject.protection <> 1 exit sub end if  call unlockvba(wb)  end sub

edit: have set declarations ptrsafe , longptr applicable.

figured out. issue wasn't 64bit, timing/focus issue. 

sub unlockvba(wb)  if wb.name = "personal.xlsb" exit sub  application.vbe.mainwindow.visible = true  timerid = settimer(0&, 0&, 500&, addressof timerproc)  application.vbe.commandbars(1).findcontrol(id:=2578, recursive:=true).execute  end sub  public sub timerproc(byval hwnd longptr, byval wmsg longptr, byval idevent longptr, byval dwtime longptr)  on error resume next killtimer hwnd, timerid  mypassword = "password"  ret = findwindow(vbnullstring, "vbaproject password") childret = findwindowex(ret, byval 0&, "edit", vbnullstring) if childret <> 0 call sendmessage(childret, wm_settext, false, byval mypassword) doevents end if  childret = findwindowex(ret, byval 0&, "button", vbnullstring)  if childret <> 0 'msgbox "button's window found"  '~~> caption of child window strbuff = string(getwindowtextlength(childret) + 1, chr(0)) getwindowtext childret, strbuff, len(strbuff) butcap = strbuff  '~~> loop through child windows while childret <> 0     '~~> check if caption has word "ok"     if instr(1, butcap, "ok")     '~~> if button looking exit     openret = childret     exit     end if      '~~> handle of next child window     childret = findwindowex(ret, childret, "button", vbnullstring)     '~~> caption of child window     strbuff = string(getwindowtextlength(childret) + 1, chr(0))     getwindowtext childret, strbuff, len(strbuff)     butcap = strbuff loop  if openret <> 0 '~~> click ok button sendmessage childret, bm_click, 0, vbnullstring else msgbox "the handle of ok button not found" end if else msgbox "button's window not found" end if

Comments

Post a Comment

Popular posts from this blog

javascript - Bootstrap Popover: iOS Safari strange behaviour -

i looking through twitter bootstrap documentation, , i'm interested in implementing dismissible popover when button clicked. here example bootstrap's docs: http://getbootstrap.com/javascript/#dismiss-on-next-click when press "dismissible popover" button os x safari browser works fine. when access same link above ios safari, button not work. is, popover not dismissed on click. why button not working ios safari? the example linked using data-trigger="focus" attribute. try changing data-trigger="click" . <a tabindex="0" class="btn btn-lg btn-danger" role="button" data-toggle="popover" data-trigger="click" title="dismissible popover" data-content="and here's amazing content. it's engaging. right?">dismissible popover</a>
Read more

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

session - Logging Out Using PHP -

i have seen other programs regarding can't seem make work. doing wrong? want achieve after user logged out, going previous pages become restricted. i have 3 php files: 1. sample.php - main page username , password filled in 2. successful.php - user's page after logging in 3. logout.php - destorys session hinder user access pages after logging out sample.php </html> <form action="" method="post"> <table> <tr> <td>username:</td> <td>password:</td> </tr> <tr> <td><input type="text" name="username"></td> <td><input type="password" name="password"></td> </tr> <tr> <td><input type="submit" value="submit" name="submit"></td> </tr> </table> </form> </html> <?php $servername = "localhost"; $username = ...
Read more