자작 오토핫키 소스
구글 URL 줄이기(GUI)
미키&키티
2020. 5. 11. 08:02
항헝항핳잉히ㅏ - Google 검색
www.google.com
를 입력한 뒤 엔터를 눌러보자
#NoTrayIcon
#SingleInstance Force
UriDecode(Uri, Enc = "UTF-8")
{
Pos := 1
Loop
{
Pos := RegExMatch(Uri, "i)(?:%[\da-f]{2})+", Code, Pos++)
If (Pos = 0)
Break
VarSetCapacity(Var, StrLen(Code) // 3, 0)
StringTrimLeft, Code, Code, 1
Loop, Parse, Code, `%
NumPut("0x" . A_LoopField, Var, A_Index - 1, "UChar")
StringReplace, Uri, Uri, `%%Code%, % StrGet(&Var, Enc), All
}
Return, Uri
}
Gui Add, Edit, hWndhEdtValue v주소 x0 y0 w620 h21 ;,% "https://www.google.com/search?q=https://k-on-blog.tistory.com/18&lr=lang_ko&tbs=lr:lang_1ko,dur:l,cdr:1,cd_min:2000,cd_max:2010,hq:h,cc:1&tbm=vid&sxsrf=ALeKk02XpkNMGnjZJqScVQkWpgrVtWmX1Q:1589156920197&source=lnt&sa=X&ved=0ahUKEwjZ0uHtxqrpAhUbE4gKHV3ICqIQpwUIHw&biw=1870&bih=902&dpr=1"
SendMessage 0x1501, 1, "구글 검색한 주소를 넣고 엔터",, ahk_id %hEdtValue% ; EM_SETCUEBANNER
Gui Add, Text, x20 y24 w34 h15 +0x200, 검색어
Gui Add, Edit, v검색어 x76 y20 w544 h21 +ReadOnly
Gui Add, Text, x20 y44 w34 h15 +0x200, 언 어
Gui Add, Edit, v언어 x76 y40 w544 h21 +ReadOnly
Gui Add, Text, x14 y64 w48 h15 +0x200, 검색옵션
Gui Add, Edit, v검색옵션 x76 y60 w544 h21 +ReadOnly
Gui Add, Text, x20 y84 w34 h15 +0x200, 페이지
Gui Add, Edit, v페이지 x76 y80 w544 h21 +ReadOnly
Gui Add, Text, x1 y104 w71 h15 +0x200, 검색카테고리
Gui Add, Edit, v검색카테고리 x76 y100 w544 h21 +ReadOnly
Gui Add, Button, g복사 x-2 y121 w623 h31, 복사(&C)
Gui Add, Button, g엔터 x0 y0 w0 h0 +Default
Gui Show, w620 h152, 구글 URL 줄이기(GUI)
Return
복사:
Return
엔터:
Gui, Submit, NoHide
주소:=UriDecode(주소)
주소:=주소 "&"
RegExMatch(주소,"q=(.*?)&",검색어)
RegExMatch(주소,"&lr=(.*?)&",언어)
RegExMatch(주소,"&tbs=(.*?)&",검색옵션)
RegExMatch(주소,"&start=(.*?)&",페이지)
RegExMatch(주소,"&tbm=(.*?)&",검색카테고리)
RegExMatch(주소,"#imgrc=(.*?)&",이미지)
If 검색어1 !=
{
검색:=1
검색어:="q=" 검색어1
}
If 언어1 !=
{
검색:=1
언어:="&lr=" 언어1
}
If 검색옵션1 !=
{
검색:=1
검색옵션:="&tbs=" 검색옵션1
}
If 페이지1 !=
{
검색:=1
페이지:="&start=" 페이지1
}
If 검색카테고리1 !=
{
검색:=1
검색카테고리:="&tbm=" 검색카테고리1
}
If 이미지1 !=
{
검색:=1
이미지:="#imgrc=" 이미지1
}
If 검색 !=
{
GuiControl,,주소,% "https://www.google.com/search?" 검색어 언어 검색옵션 페이지 검색카테고리 이미지
GuiControl,,검색어,% 검색어1
GuiControl,,언어,% 언어1
GuiControl,,검색옵션,% 검색옵션1
GuiControl,,페이지,% 페이지1
GuiControl,,검색카테고리,% 검색카테고리1
}
Else
{
GuiControl,,주소
GuiControl,,검색어
GuiControl,,언어
GuiControl,,검색옵션
GuiControl,,페이지
GuiControl,,검색카테고리
}
검색:=
Return
GuiContextMenu:
If 탑 =
{
탑:=1
Gui +AlwaysOnTop
}
Else
{
탑:=
Gui -AlwaysOnTop
}
Return
GuiEscape:
GuiClose:
ExitApp
[영상 설명]
[이미지 설명]