« previous next »
Pages: 1 2 3 [4] 5 6 ... 12

Author Topic: Miscellaneous snippets  (Read 53579 times)

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Create a temp web page to save a link
« Reply #45 on: May 14, 2018, 06:37:05 AM »
Sometimes I need to save a webpage but don't want to open it. So I copy the URL and run this proggie (source+exe attached):

include \masm32\MasmBasic\MasmBasic.inc         ; download
  Init
  Let esi=Clip$()               ; get URL from clipboard, e.g. http://masm32.com/board/index.php?action=unread
  .if Instr_(esi, "://")
        FileWrite "SaveLinkAsTemp.html", Cat$(Chr$("<html><head><title>Temporary link</title></head>", 13, 10, "<body>", 60, "a href=", 34)+esi+Chr$(34, 62, "Right-click here and choose 'Save Link as...' to download ")+esi+Chr$(60, "/a", 62, "</body></html>"))
        ShEx "SaveLinkAsTemp.html"      ; launch the browser
  .else
        MsgBox 0, esi, "No URL found:", MB_OK
  .endif
EndOfCode

Logged

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Check a file for http:// and friends
« Reply #46 on: May 18, 2018, 11:59:07 AM »
Attached a little file DownloadMasm32.exe that does something entirely harmless:
Code: [Select]
include \masm32\MasmBasic\MasmBasic.inc
  Init
  Let esi="0.75=draob?php.xedni/draob/moc.23msam//:ptth"
  PrintLine esi
  Let edi=FileRead$(Mirror$(esi))
  Inkey NoTag$(edi)
EndOfCode
In addition, the attachment contains a project that finds http:// and https:// in files, even if they are mirrored; just drag a file over SpyWareScanMB.exe 8)

Warning: While SpyWareScanMB.exe finds interesting http:// and https:// matches in exes and dlls, it is not a replacement for an AntiVirus. Malware writers use more sophisticated tricks to hide their URLs.
Logged

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Print formatted text
« Reply #47 on: June 25, 2018, 03:55:17 AM »
This snippet
- reads a text file into a RichEdit control (its name is supplied by the commandline)
- formats the first line in bold
- on request via the menu, prints the text.

To test it, extract all files to a temporary folder and drag the text file over the exe (the *.asc file is the source as RTF).

If needed, the whole process can be automated, i.e. eliminate the Event Menu step and just run the exe with the commandline argument, then exit automatically. See PrintRtf for printer dialog handling options.


GuiMenu equ @File, &Open, &Print, E&xit
GuiParas equ "Print formatted text demo", x100, y100, w400, h200; , cblack, b00FFFFD0h
include \masm32\MasmBasic\Res\MbGui.asm

  MakeFont hMyFont, Height:20, "Lucida Handwriting"
  GuiControl MyEdit, "RichEdit", font hMyFont
  SetGlobals f$, charfmt:CHARFORMAT2
  Let f$=FileRead$(CL$())               ; read the text file passed in the commandline
  SetWin$ hMyEdit=f$
  .if Instr_(f$, CrLf$)
       dec edx                         ; index of CrLf-1
       invoke SendMessage, hMyEdit, EM_SETSEL, 0, edx
       m2m charfmt.cbSize, CHARFORMAT2
       m2m charfmt.dwMask, CFM_BOLD            ; CharFtMask
       m2m charfmt.dwEffects, CFE_BOLD         ; Character effects
       invoke SendMessage, hMyEdit, EM_SETCHARFORMAT, SCF_SELECTION, ADDR charfmt
       invoke SendMessage, hMyEdit, EM_SETSEL, 0, 0
  .endif

Event Menu
  .if MenuID==1
        void PrintRtf(hMyEdit, 1)     ; 0=use default printer, 1=ask for printer dialog
  .endif
GuiEnd
Logged

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Launcher
« Reply #48 on: June 27, 2018, 02:54:41 PM »
Code: [Select]
include \masm32\include\masm32rt.inc

.data
txFile db "extracted.exe", 0
bytesWritten dd ?

.code
start:
  invoke FindResource, 0, 99, RT_RCDATA
  .if eax
xchg eax, ebx ; hRes
push rv(SizeofResource, 0, ebx)
push rv(LoadResource, 0, ebx) ; returns pointer to content in eax
invoke CreateFile, addr txFile, GENERIC_WRITE, 0, 0, CREATE_ALWAYS, 0, 0
xchg eax, esi
pop eax ; pointer to content
pop ecx ; size in bytes
invoke WriteFile, esi, eax, ecx, addr bytesWritten, 0
invoke CloseHandle, esi
invoke WinExec, addr txFile, SW_SHOW
  .endif
  exit
end start
Logged

HSE

  • Member
  • *****
  • Posts: 1743
  • <AMD>< 7-32>
Re: Miscellaneous snippets
« Reply #49 on: June 27, 2018, 11:36:18 PM »
 :t
Logged

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Check if a file is older than a specified date
« Reply #50 on: July 07, 2018, 08:20:15 PM »
Just encountered a case where I had to check if a file was older than dd.month.year, and needed a snippet to perform this check:

include \masm32\MasmBasic\MasmBasic.inc         ; download
  Init
  .if Exist(CL$())
        sub esp, 2*FILETIME             ; create two structures on the stack
        movlps QWORD ptr [esp], TimeSF("02.07.2018 11:16:50")   ; European format!
        lea ecx, [esp+QWORD]
        movlps QWORD ptr [ecx], GfLastWrite(-1)         ; the lower QWORD returns the FILETIME
        invoke CompareFileTime, ecx, esp
        add esp, 2*FILETIME             ; correct the stack
        .if signed eax<0
                wMsgBox 0, wCL$(), "File is older. Process?", MB_YESNOCANCEL
                .if eax==IDYES
                                ; ... do stuff ...
               .endif
        .else
                wMsgBox 0, wCL$(), "File is younger:", MB_OK
        .endif
  .else
        wMsgBox 0, wCL$(), "No such file:", MB_OK
  .endif
EndOfCode
Logged

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Create a hundred folders
« Reply #51 on: July 11, 2018, 09:26:40 PM »
Create a hundred folders, write a testfile to each of them:

include \masm32\MasmBasic\MasmBasic.inc         ; download
  Init
  For_ ecx=0 To 99
        Let esi=Str$("New Folder%i", ecx)
        MakeDir esi
        .Break .if !Zero?
        Print "+"
        Let esi=esi+"\test.txt"
        PrintLine Str$(ecx), Tb$, esi
        FileWrite esi, Str$("Test %i", ecx)
  Next
EndOfCode
Logged

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Numbers only
« Reply #52 on: July 14, 2018, 05:10:28 AM »
An edit control that allows to enter only valid decimal numbers. Bug feedback welcome :biggrin:

P.S.: PNG_LoadFile à la MasmBasic attached, using GuiImage. The *.asc source opens in WordPad, but here it is anyway for those who can't find WordPad or RichMasm:

include \masm32\MasmBasic\Res\MbGui.asm
Event Paint
GuiImage "car.png", fit
GuiEnd
« Last Edit: July 18, 2018, 08:00:45 AM by jj2007 »
Logged

0000

  • Member
  • ****
  • Posts: 872
Re: Numbers only
« Reply #53 on: July 19, 2018, 09:20:26 AM »
Quote from: jj2007 on July 14, 2018, 05:10:28 AM
An edit control that allows to enter only valid decimal numbers. Bug feedback welcome :biggrin:


oops!    :greensml: 


You did say 'decimal' numbers, not integers, right?




Also for the png image 'fit' viewer, when resizing from either side or from the top, the image resizes reflecting the new dimensions of the window.
But when resizing the window from the bottom, it crops or cuts off the image.
« Last Edit: July 19, 2018, 04:12:01 PM by zedd151 »
Logged

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Re: Numbers only
« Reply #54 on: July 19, 2018, 10:26:39 AM »
Quote from: zedd151 on July 19, 2018, 09:20:26 AM
You did say 'decimal' numbers, not integers, right?

Thanks for the feedback. Try 1234567890.123456784 vs 1234567890.123456785 - this is REAL10 precision, and it has its limits, i.e. around 18 digits.

        MovVal ST(0), Win$(@hWnd)
        SetWin$ hMyResult=Str$("Result=%Jf", ST(0)v)

If you replace the "J" with an "I", it displays one digit less, and all numbers will be correct.

Quote
when resizing the window from the bottom, it crops or cuts off the image.

Interesting. It works correctly on this Win7-64 machine. Just made a test with my WinXP VM, and you are right: When resizing from left or top, it works (but with tremendous flicker - on Win7, it's smooth); when resizing from right or bottom, it crops. Hmmm :(
Logged

0000

  • Member
  • ****
  • Posts: 872
Re: Miscellaneous snippets
« Reply #55 on: July 19, 2018, 10:34:20 AM »
Windows XP Pro SP3  in VirtualBox <-- may have something to do with it?


The screen capture shows the top image resized from lower right upward


The bottom shows resized from top left downward.


Windows 7 32 bit works as advertised.


With the newer hardware that is out these days, it's a shame to have to run xp in a virtual machine.
« Last Edit: July 19, 2018, 04:11:42 PM by zedd151 »
Logged

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Re: Miscellaneous snippets
« Reply #56 on: July 19, 2018, 10:52:06 AM »
Quote from: zedd151 on July 19, 2018, 10:34:20 AM
Windows XP Pro SP3  in VirtualBox <-- may have something to do with it?

I doubt it, VM and real machine will probably behave the same. Googling for "wm_sizing" "xp" yields lots of results, it could be a known problem.
Logged

0000

  • Member
  • ****
  • Posts: 872
Re: Miscellaneous snippets
« Reply #57 on: July 19, 2018, 11:01:25 AM »
Quote from: jj2007 on July 19, 2018, 10:52:06 AM


Googling for "wm_sizing" "xp" yields lots of results, it could be a known problem.


Only way to know for sure is to get someone that has XP installed natively on their system to test the program.

Logged

FORTRANS

  • Member
  • *****
  • Posts: 1109
Re: Miscellaneous snippets
« Reply #58 on: July 20, 2018, 01:12:44 AM »
Hi,

   Tested the ShowPng on Windows XP.  Seems to crop on resizing.
maximize and restore causes the image to fit the window.  Is
that what was wanted?

Regards,

Steve
Logged

jj2007

  • Moderator
  • Member
  • *****
  • Posts: 11551
  • Assembler is fun ;-)
    • MasmBasic
Re: Miscellaneous snippets
« Reply #59 on: July 20, 2018, 04:06:05 AM »
Quote from: FORTRANS on July 20, 2018, 01:12:44 AM
on Windows XP.  Seems to crop on resizing.... Is that what was wanted?

Steve,
No, not really, see reply #53+#54. It's limited to XP, though. Apparently one message is not being sent correctly in XP.
Logged
Pages: 1 2 3 [4] 5 6 ... 12
« previous next »