Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; <COMPILER: v1.1.34.03>
- #NoEnv
- #SingleInstance, Force
- SetBatchLines, -1
- #NoTrayIcon
- SetWorkingDir %A_ScriptDir%
- ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Gui -Caption +ToolWindow +Border +LastFound +AlwaysOnTop -Border +hWndhGUI
- Gui, Color, 884488
- Gui,Font,S14 Bold,Verdana ;Calibri
- ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Gui, Add, Button, hWndhButton2 x5 y5 w0 h0 gGuiMove,
- Gui, Add, text,x100 y10 cYellow, NAJEEB FILES LIST GENRETER
- Gui, Add, text,x10 y42 cGreen, FILE NAME:-
- Gui, Add, Edit,x150 y40 w320 vFile
- Gui, Add, text,x10 y82 cGreen, F-NUMBER:-
- Gui, Add, Edit,x150 y80 w120 vNum
- Gui, Add, text,x280 y82 cGreen, F-EXT:-
- Gui, Add, Edit,x370 y80 w100 vExt
- Gui, font, s12
- Gui, Add, Button, x300 y130 gGen default, Genrate Files List ; OPEN
- Gui, Show, x0 y30 w500 h180 Center, NAJEEB FILES LIST GENRETER
- WinSet, Region, 0-0 W500 H180 R20-20,
- WinMove, 0, 0
- OnMessage( 0x200, "WM_MOUSEMOVE")
- Return
- Gen:
- Gui, Submit, nohide
- Loop, %Num%
- FileAppend, %File%%A_Index%.%Ext% `n, List.txt
- Return
- ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- GuiMove:
- PostMessage, 0xA1, 2,,, NAJEEB SCRIPT BOOK
- Return
- ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- WM_MOUSEMOVE(wparam, lparam, msg, hwnd)
- {
- if wparam = 1 ; LButton
- PostMessage, 0xA1, 2,,, A ; WM_NCLBUTTONDOWN
- }
- ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- #R::Reload ;<-- ~ Reload Script ~
- #S::Suspend ;<-- ~ Suspend Script ~
- #P::Pause ;<-- ~ Pause Script ~
- #M::WinMinimize, ;<-- ~ Minimize Script ~
- ESC::ExitApp ;<-- ~ Exit Script ~
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement