Welcome, Guest
You have to register before you can post on our site.

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 1,001
» Latest member: MacroMarco
» Forum threads: 6,347
» Forum posts: 34,248

Full Statistics

Online Users
There are currently 5 online users.
» 0 Member(s) | 5 Guest(s)

Latest Threads
Limit OpenSaveDialog to a...
Forum: General
Last Post: Gintaras
3 hours ago
» Replies: 1
» Views: 20
Dialog Style
Forum: General
Last Post: Gintaras
Yesterday, 06:21 AM
» Replies: 1
» Views: 60
Match word letter by lett...
Forum: General
Last Post: Gintaras
01-19-2018, 04:29 PM
» Replies: 1
» Views: 38
Running macro on backgrou...
Forum: General
Last Post: Gintaras
01-15-2018, 01:08 PM
» Replies: 2
» Views: 203
Find, click in search res...
Forum: Wish List
Last Post: r0n
01-15-2018, 10:38 AM
» Replies: 2
» Views: 63
Background send message, ...
Forum: General
Last Post: ilya1111
01-08-2018, 06:07 PM
» Replies: 2
» Views: 294
Hotkeys doesnt work
Forum: Bug Reports
Last Post: Gintaras
01-07-2018, 07:50 AM
» Replies: 1
» Views: 79
find only first image
Forum: General
Last Post: ilya1111
01-04-2018, 01:00 PM
» Replies: 3
» Views: 151
wait for image problem
Forum: General
Last Post: john_b
12-28-2017, 08:42 PM
» Replies: 1
» Views: 96
Values Populated in Incor...
Forum: Programming
Last Post: philipq
12-28-2017, 05:42 AM
» Replies: 5
» Views: 165

 
  Limit OpenSaveDialog to a certain folder
Posted by: ssimop - 8 hours ago - Forum: General - Replies (1)

I wonder whether there exists a version of OpenSaveDialog that limits the selection of a file in a certain folder, not allowing changing it. Many thanks in advance.

Print this item

  Dialog Style
Posted by: BJ - Yesterday, 02:04 AM - Forum: General - Replies (1)

Hello QM Forum,

I know that it is possible to change colors, edit text, and add icons and images to a dialog. I was wondering if the window handle(I apologize for not knowing what it is called) where the dialog name, icon, and minimum, maximize and close buttons are, can be edited? Color change, different button size, etc. I'm not exactly sure what to search for so I apologize if there is already a post on the forum.

Thank you for your time!

Print this item

  Match word letter by letter
Posted by: Imagez - 01-19-2018, 02:16 PM - Forum: General - Replies (1)

Hi all

I'm looking to do a scan of a word and score it  on how much it matches the original for example

If the initial word was keyboard but the second iteration was spelled like keyboarf (typo for example) then the match (points) would be 7.
If the initial word was microphone but the second iteration was spelled like micorphone would be 8 (because 7 letters are in the same position as the original, only the o and r are incorrect.)

It needs to go through and compare the second word against the first word letter by letter ideally and the word size is always going to change.

Print this item

  Find, click in search result on folder => highlight
Posted by: r0n - 01-14-2018, 08:00 PM - Forum: Wish List - Replies (2)

Small request.
If you click on a folder item in the search results, the focus is put on the folder in QM items list.
The problem is that it is highlighted in very light grey, I almost can not see it on my monitor.
BUT on other monitors it shows better.
My request: could you make it bit darker or have it customizable in Options > Editor > Styles?

It is not very important. Only consider this if you can implement it easily or if you feel it might be really useful for everyone.

Print this item

  Hotkeys doesnt work
Posted by: Leeroll - 01-06-2018, 02:37 PM - Forum: Bug Reports - Replies (1)

I dont know why but I have tried everything. Making sure hotkeys/triggers is enabled, making sure the triggerkey on the macro is correct and is stated so on the macro but everytime I press the trigger, nothing happens. However if I click RUN, the macro works. 

Would really appreciate some help with this!!!

Print this item

  Background send message, opening file
Posted by: ilya1111 - 01-04-2018, 01:21 PM - Forum: General - Replies (2)

Good day Gintaras and all everything!
I congratulate everyone on the coming New Year. Success and prosperity to you!
Glad that the forum is working again.
I would like to hear advice on how to solve the problem.
I run the program in the background or in hidden mode and that's fine, but when I close the first hidden window (the "Login Error" window) the next window "Login to Cloud Manager" becomes active. If I close the second window the program becomes active (in focus). Is it possible to do this all in the background or in the Hidden mode, so that the windows and the program do not become active until it is needed?

Macro Macro2

Code:
run "$appdata$\Lira\1.exe" "" "" "*" 4|0x100
int w1=wait(3 WC win("Login Error" "QWidget"))
int h=win("Login Error" "QWidget")
PostMessage h WM_SYSCOMMAND SC_CLOSE 0
int w2=wait(5 WC win("Login to Cloud" "QWidget"))
int w3=win("Login to Cloud" "QWidget")
PostMessage w3 WM_SYSCOMMAND SC_CLOSE 0


Next, I need to open the file, do it in background mode, the record menu does not recognize the menu items, so I did it this way:


Macro Macro2 
Code:
key Sp      ;; Shift+P opens the file open menu
key A           ;; Alt
key D           ;; Down
key Y           ;; Enterthese 3 commands is a file-open
key "101.bin" ;; file name
key Y           ;; Enter
int w522=win("Beta" "QWidget" "1")
mov 0 0 w522
int w122=win("Beta" "QWidget" "1")
lef 1099 328 w122 1



Can this part (the opening of the file 101.bin) also be done in the background? The last action is clicking on the coordinates in the "Beta" window, using the keys there is no possibility to perform this action as I did not try, it would be good to do it, but if it is difficult it is not so important. Then I need to make the program active when a picture is found.
There are not many similar tasks on the forum, the commands that I found SendKeysToWindow2 did not work or I misused them. Please, help.

Print this item

  wait for image problem
Posted by: john_b - 12-28-2017, 05:06 PM - Forum: General - Replies (1)

This code work only if i click the run
Is the second macro
Macro 1 works ok
Macro 2 no work.
Any help?

Code:
function hwnd idObject idChild
Acc a.FromEvent(hwnd idObject idChild)
out a.Name
int w=win("WSJT-X   v1.8.0   by K1JT" "Qt5QWindowIcon")
wait 0 S "image:h6CA8E71D" w 0 1|16|0x400
#region Recorded 28/12/2017 6:07:17 μμ
wait 1
int w1=act(win("WSJT-X   v1.8.0   by K1JT" "Qt5QWindowIcon"))
lef 800 397 w1 1 ;;κουμπί πίεσης 'Erase Alt+E', "~:AD067C6D"
lef 1814 622 w1 1 ;;κουμπί πίεσης 'Tx 6 Alt+6', "~:F658943B"
#endregion

The macro one is:
Code:
\
function hwnd idObject idChild
Acc a.FromEvent(hwnd idObject idChild)
out a.Name
int w=win("WSJT-X   v1.8.0   by K1JT - Log QSO" "Qt5QWindowIcon")
#region Recorded 27/12/2017 6:23:04 μμ
wait 1
int w1=win("WSJT-X   v1.8.0   by K1JT - Log QSO" "Qt5QWindowIcon")
lef 206 214 w1 1 ;;κουμπί πίεσης 'OK Enter'
wait 1
int w2=act(win("WSJT-X   v1.8.0   by K1JT" "Qt5QWindowIcon"))
lef 1222 395 w2 1 ;;πλαίσιο ελέγχου 'Enable Tx Alt+n'
#endregion

Print this item

  Values Populated in Incorrect Fields - Web Form
Posted by: philipq - 12-27-2017, 07:18 AM - Forum: Programming - Replies (5)

Greetings,

I have been using a QM macro for over 4 years now successfully.
However, very recently the web form fields are being populated incorrectly.
This is intermittent in nature - part of the time correct entries are passed, while at other times the entries are in the wrong fields.
I checked the HTML codes on the fields to see if there were any changes but found none.

Kindly assist.

Code listed as below and the issue place is highlighted with asterisks and comment:

Macro RO Sales gDN

Code:
;;--- Recorded 13-Oct-13 6:49:06 PM ----
opt slowkeys 1; opt slowmouse 0; spe 70

ExcelSheet es.Init
ARRAY(str) vin, custType, title, fmName, surname, fullName, mobile, regNum, emailAdd, poBox, place, price, rdate
int w, w1, w2, w3, w4, w5, w6, w11, w12, typeNum, found, titleErrorCheck, w10
Htm e, e1, e2, e3, e4, e5, e6, e7, e8, e9, e10, e11, e12, e13, e14, e15, e16, e17, e18, e19, e20, e21, e22, e50, e52, e23
str custType2, title2, fullName2
Acc a, a12, a3
MES m

int varRep ;;string variable. If need numeric, replace str to int or double.
inp- varRep "Kindly input number of times to repeat this procedure"

DateTime t1 t2
str sStart sEnd sTime

t1.FromComputerTime
sStart=t1.ToStr(8)

;str varDat ;;string variable. If need numeric, replace str to int or double.
;inp- varDat "Kindly advise the date to report on VISTA"

titleErrorCheck=0

rep varRep
,
,;;Initialize critical variables as empty
,vin.redim
,custType.redim
,title.redim
,fmName.redim
,surname.redim
,fullName.redim
,mobile.redim
,regNum.redim
,emailAdd.redim
,poBox.redim
,place.redim
,price.redim

,;str varDate = ""
,
,;inp- varDate "" "gDN Date"
,
,
,w1=act(win("Test " "XLMAIN"))
,'D    ;; Down
,
,;get selected cells in Excel
,es.CellsToArray(vin "sel")
,'T
,es.CellsToArray(custType "sel")
,custType2=custType
,'T
,es.CellsToArray(title "sel")
,title2=title
,'T
,es.CellsToArray(fmName "sel")
,'T
,es.CellsToArray(surname "sel")
,'T
,es.CellsToArray(fullName "sel")
,fullName2=fullName
,'T
,es.CellsToArray(mobile "sel")
,'T
,es.CellsToArray(regNum "sel")
,'T
,es.CellsToArray(poBox "sel")
,'T
,es.CellsToArray(place "sel")
,'T
,es.CellsToArray(price "sel")
,'TT
,es.CellsToArray(rdate "sel")
,'T
,es.CellsToArray(emailAdd "sel")
,
,;opt slowkeys 1
,
,w=wait(0 WV win("Register Vehicle Sale " "IEFrame"))
,act w
,;w2=act(win("Register Vehicle Sale - Windows Internet Explorer" "IEFrame"))
,e=htm("INPUT" "ctl00_cphMain_txtSelectVIN" "" w "0" 6 0x121 50)
,e.SetText(vin)
,e1=htm("INPUT" "ctl00_cphMain_btnVINSearch" "" w "0" 7 0x121 50)

,e1.Click
,wait 3
,
,;Vehicle Sale Date
,;*********************************************ISSUE STARTS FROM HERE ON***********************************************************************
,;************************************************************************DATE CHANGE AUTOMATED HERE********************************************************************
,e2=htm("INPUT" "ctl00_cphMain_txtSaleDate" "" w "0" 27 0x121 50)
,e2.SetText(rdate)
,
,
,;Vehicle Registration Date
,e16=htm("INPUT" "ctl00_cphMain_txtRegDate" "" w "0" 28 0x121 50)
,e16.SetText(rdate)
,;************************************************************************DATE CHANGE AUTOMATED HERE********************************************************************
,0.5
,
,
,;Client Type
,e3=htm("SELECT" "ctl00_cphMain_cboClientType" "" w "0" 1 0x121 50)
,
,typeNum=SelStr(1 custType2 "C" "P" "V")
,
,if typeNum=1
,,e3.CbSelect("Company")
,,wait 4
,,gDNCompany(fullName2)    ;;Separate Function 'gDNCompany' written to complete name filling
,,'T;0.5    
,,goto Mobile
,if typeNum=2
,,e3.CbSelect("Private")
,,wait 4
,if typeNum=3
,,e3.CbSelect("VIP")
,,wait 4
,,
,,
,
,;Title
,wait 1
,
,e5=htm("SELECT" "ctl00_cphMain_cboTitle" "" w "0" 2 0x121 50)
,,e5.CbSelect(title2)
,,err
,,,e5.CbSelect("Other")
,,,wait 4
,,,titleErrorCheck = 1
,
,;wait 2
,if titleErrorCheck = 1
,,e21=htm("INPUT" "ctl00_cphMain_txtOtherTitle" "" w "0" 34 0x121 50)
,,e21.SetText(title2)
,,titleErrorCheck = 0
,else if title2.ucase = "OTHER"
,,e21=htm("INPUT" "ctl00_cphMain_txtOtherTitle" "" w "0" 34 0x121 50)
,,e21.SetText("-")
,
,;First & Middle Name
,e4=htm("INPUT" "ctl00_cphMain_txtFirstName" "" w "0" 36 0x121 50)
,if title2.ucase = "OTHER"
,,e4.SetText(fullName2)
,else
,,e4.SetText(fmName)
,
,;Surname
,e6=htm("INPUT" "ctl00_cphMain_txtSurname" "" w "0" 38 0x121 30)
,if title2.ucase = "OTHER"
,,e6.SetText("-")
,else
,,e6.SetText(surname)
,
,
,;Mobile
,if fullName2="M/s. Al Tayer Motors"
,,e20=htm("INPUT" "ctl00_cphMain_txtTelephoneWork" "" w "0" 44 0x121 50)
,,e20.SetText(mobile)
,,e52=htm("INPUT" "ctl00_cphMain_txtTelephoneMobile" "" w "0" 47 0x121 50)
,,e52.SetText("-")
,else
,,e7=htm("INPUT" "ctl00_cphMain_txtTelephoneMobile" "" w "0" 47 0x121 50)
,,e7.SetText(mobile)
,
,
,
,;Registration Number
,e8=htm("INPUT" "ctl00_cphMain_txtRegNumber" "" w "0" 30 0x121 50)
,e8.SetText(regNum)
,
,;Email Address
,e17=htm("INPUT" "ctl00_cphMain_txtEmail" "" w "0" 33 0x121 3)
,e17.SetText(emailAdd)
,
,;Physical Address
,e9=htm("INPUT" "ctl00_cphMain_txtAddress1" "" w "0" 33 0x121 50)
,e9.SetText("-")
,
,;PO Box
,e10=htm("INPUT" "ctl00_cphMain_txtPOBox" "" w "0" 35 0x121 50)
,e10.SetText(poBox)
,
,;Post/Zip Code
,e11=htm("INPUT" "ctl00_cphMain_txtPostcode" "" w "0" 37 0x121 50)
,e11.SetText("-")
,
,;City
,e12=htm("INPUT" "ctl00_cphMain_txtCity" "" w "0" 39 0x121 50)
,e12.SetText(place)
,
,m.style="OC"
,m.x=100
,m.y=500
,m.timeout=800
,m.default='C'

,;t=mes("Go Ahead?" "Go Ahead?" m) ;;***************************************
,
,;Click Register Sale
,e13=htm("INPUT" "ctl00_cphMain_btnRegister" "" w "0" 50 0x121 50)
,e13.ClickAsync
,
,wait 1
,
,;Click 'OK' on email error message
,w11=wait(1 WV win("Message from webpage" "#32770"))
,err
,,goto defender
,a.Find(w11 "WINDOW" "WARNING: You MUST enter a valid email address!" "class=Static" 0x1005 3 0 "previous previous")
,err
,,goto defender
,wait 0.25
,a.Mouse(1);1
,
,;defender
,;wait 2
,;Click 'OK' on error message - DEFENDER NO OPTIONS
,int w8=wait(1 WV win("Message from webpage" "#32770"))
,err
,,goto pricePage
,Acc a1.Find(w8 "WINDOW" "No Option or Extended warranty not available " "class=Static" 0x1035 0 0 "previous previous")
,err
,,goto pricePage
,wait 0.25
,a1.Mouse(1)
,wait 1 ;;******************
,goto toExcel
,
,
,;pricePage
,wait 2
,;;w4=wait(0 WV win("Client Details " "IEFrame"))
,
,
,w4=wait(5 WV win("https://www.globaldealernetworking.com/" "IEFrame"))
,err
,,w4=wait(5 WV win("Client Details " "IEFrame"))

,
,;wait 2
,;if typeNum=1
,,;Htm e23=htm("INPUT" "_ctl0_cphMain_txtForename" "" w4 "0" 13 0x121 10)
,,;e23.SetText("-")
,,;
,,;Htm e24=htm("INPUT" "_ctl0_cphMain_txtSurname" "" w4 "0" 15 0x121 10)
,,;e24.SetText("-")
,,,
,,
,,
,
,
,int repeatPurchasePrice=0
,;PurchasePrice
,wait 2 ;;*****************
,
,
,e14=htm("INPUT" "_ctl0_cphMain_txtPurchasePrice" "" w4 "0" 46 0x121 15)
,err
,,repeatPurchasePrice=repeatPurchasePrice+1
,,if repeatPurchasePrice<13
,,,goto PurchasePrice
,
,e14.SetText(price)
,wait 0.75 ;;******************
,;;Click Next
,e15=htm("INPUT" "_ctl0_cphMain_btnNext" "" w4 "0" 55 0x121 50)
,e15.Click
,wait 1  ;;*************************
,;wait 5
,found=0
,w3=win("Internet Explorer" "IEFrame")
,e18=0
,rep 7
,,wait 1
,,e50=htm("INPUT" "rbnTrue1" "" w3 "0" 3 0x101 10)
,,if e50 ;;page "Question Time! -*"
,,,found=1
,,,e50.Click
,,,wait 1
,,,e22=htm("INPUT" "btnSubmit" "" w3 "0" 5 0x121 5)
,,,e22.Click
,,,wait 1
,,,e18=htm("INPUT" "btnNext" "" w3 "0" 15 0x101 5)
,,,wait 1
,,,e18.Click
,,,err
,,,,int w9=wait(3 WV win("Question Time! - Internet Explorer" "IEFrame"))
,,,,err
,,,,,w9=wait(3 WV win("https://www.globaldealernetworking.com/ - Question Time! " "IEFrame"))
,,,,,
,,,,clo w9
,,,,goto toExcel
,,,break
,,else
,,,;wait 5
,,,w2=wait(0 WV win("select_product " "IEFrame"))
,,,e18=htm("INPUT" "btnNext" "" w2 "0" 17 0x121 30)
,,,
,,,
,,,
,,,
,,,;wait 3
,,,if e18 ;;page "select_product -*"
,,,,found=2
,,,,e18.Click
,,,,;a3.Mouse(1)
,,,,break
,,,else
,,,,wait 0.5
,,,,continue
,,;if(!found) mes "error"
,
,;wait 30 WT w4 "view_policy_details - Windows Internet Explorer"
,w6=wait(0 WV win("view_policy_details " "IEFrame"))
,;wait 3
,;Click 'OK'
,e19=htm("INPUT" "btnNext" "" w6 "0" 2 0x121 50)
,e19.Click
,
,0.25
,w5=wait(0 WV win("Client Details " "IEFrame"))
,
,clo w5
,
,;toExcel
,;activate excel, change executed record VIN to red colour and save file
,act w1
,'L(#13); 0.12   ;; Left(*10)
,Acc a2.Find(w1 "PAGETAB" "Home" "class=NetUIHWND" 0x1005 10)
,a2.Mouse(1);1
,
,;lef 279 105 w1 1; 1 ;;property page 'Ribbon', grid drop down button 'Font Color'
,;lef 31 157 wait(15 win("" "Net UI Tool Window")) 1 ;;NetUIHWND 'Font Color', list item 'Red'
,
,
,es.Save
,
,wait 1


t2.FromComputerTime
sEnd=t2.ToStr(8)
sTime=TimeSpanToStr(t2-t1 2)

out sStart
out sEnd
out sTime

mes "gDN Report Completed" "Execution Successful"

opt slowkeys 0; opt slowmouse 0; spe -1
;---------------------------------------

Print this item

  FTP Upload - Special characters
Posted by: Extreme - 12-25-2017, 07:34 PM - Forum: General - Replies (2)

Hi !

I have a problem when uploading files to an FTP server that contains "special characters"

For example, if i want to upload a file named "Voici le Maître.jpeg" , it uploads correctly, but when i look in the FTP directory, the file is renamed : "Voici le Ma" , with no file extensions.

Macro testupload

Code:
Ftp f
f.Connect("ftp.server.test" "user" "pwd" 21 0 1)
f.DirSet(F"temp")
f.SetProgressDialog(1 "Progress")
f.FilePut(F"$desktop$\Voici le Maître.jpeg" F"Voici le Maître.jpeg")

Note : If i upload directly from Filezilla, there is no problems

Can you help me ? Thanks Smile

Print this item

  How to Read/Write Memory values for a certain Process?
Posted by: kapodeV2 - 12-21-2017, 09:50 AM - Forum: Programming - Replies (2)

I only have here a Sample code,dont know how to make it in QM.
just want to read/write values in a certain application.

Code:
Pseudo code Example
;Declaration of Addresses/offsets
def BaseAddress        0x0BB2EE
def Offset1                0x2C7
def Offset2                0xBB1

;Setting the Pointer for the addresses
Address1 = BaseAddress + Offset1
Address2 = BaseAddress + Offset2


;Attach Process/Allocates memory
int hWnd = win("Target Window")
__ProcessMemory o.Alloc(hWnd 0)

;Write/Read the memory

int value = 1
int read = ReadProcessMemory(o Address1 &Value 4 0)
out.read
int write = WriteProcessMemory(o, BaseAddress1, &NewValue 4 0)
out.write

Hope someone can Help me.Thank you

Print this item