Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
- ; #Warn ; Enable warnings to assist with detecting common errors.
- SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
- SetWorkingDir %A_ScriptDir%
- #SingleInstance,force
- SetBatchLines,-1
- ;~ #Include,<hellbents_gdip>
- gui,1:font,s15
- gui,1: add,edit , r1 w500 vedit1
- gui,1: add,button , y+1 r2 w500 gclip,nonkey::`nreturn
- gui,1: add,button ,y+1 r1 w500 gremove,remove tooltip
- gui,1: show,,gui1
- gui,1: +alwaysontop
- return
- remove:
- ToolTip
- return
- clip:
- Gui,submit,nohide
- Clipboard:=forward(edit1)
- ToolTip,% Clipboard
- return
- forward(x){
- x:=split(x)
- string=
- for i,value in x {
- string.= value "::" "`n" "return" "`n"
- }
- return string
- }
- split(string){
- string := StrSplit(string, ",",a_space)
- t:=1
- while ( string.length() >= t) {
- if(string[t]<>"")
- t++
- else
- string.Remove(t)
- }
- return string
- }
- GuiClose:
- ExitApp
- ^x::ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement